3 ответов в теме

[TISKER]

<span style='font-family: Courier New'><span style='font-size: 10px;'>const  cDaylyFunLevel: 100000;  //fun pointsvar  Char: TEveCharacter;  Agent: TDummyEveAgent;  ConvResult: Char;  Ship: TMyStrongerBattleship;  NiceFit: Boolean;begin  EVE.LogOn;  try    Char := SelectCharacter;    if Char <> nil then    begin      while RL.Player.Fun < cDaylyFunLevel do      begin        Agent := Station.SelectDummyAgent(4, 'Saccura Bountyaccura');        ConvResult := Agent.StartConversation;        case ConvResult of          1: begin            Ship := EVE.GetActiveShip('Vsem nepisyam po wrecku');            NiceFit := False;            while EVE.Station.Fitting.Process(NiceFit) do            begin              EVE.Market.Process;              EVE.Station.Ships.SelectLovelyShip.ByClass('Shuttle');              EVE.Travel.Process;              EVE.Station.Items.DragAndDrop;              EVE.Station.Fitting.Complete;            end;            EVE.TravelProc(EVE.Station, EVE.Agent.Mission.Deadspace);            RL.Player.Talk('Hi, my lovely childrens! How long did you wait me?');            RL.Player.Talk('Papochka prines dlya vas kotletki...');            while NOT EVE.Agent.Mission.IsComplete do            begin              RL.Player.Fun := RL.Player.Fun + EVE.Background.GetFun;              RL.Player.Fun := RL.Player.Fun + EVE.Background.GetFun;              RL.Player.Fun := RL.Player.Fun + EVE.Background.GetFun;            end;            EVE.TravelProc(EVE.Agent.Mission.Deadspace, EVE.Station);            Agent := Station.SelectDummyAgent(4, 'Saccura Bountyaccura');            ConvResult := Agent.StartConversation;            if ConvResult = 1 then            begin              EVE.Player.Wallet.Yeeeessss(Blinking);              RL.Player.Fun := RL.Player.Fun + EVE.Background.GetAdvancedFun;            end;          end;          2,3: begin            //Sorry user, this case under construction...          end;        end;      end;    end;  finally    EVE.QuitGame;  end;end;</span></span>

© Tisker

PS. Эххх, скорее бы рабочий день кончился и вообще был бы каждый день суббота =)

Сообщение отредактировал TISKER: 22 April 2008 - 19:02

[NooB FTW]

[kaminokage]

5

[Mornus]

Это было здорово! Чуть под стол не свалился.