<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. Эххх, скорее бы рабочий день кончился и вообще был бы каждый день суббота =)