Stealth Client Forum

Code: Select all

Program BuyGS;
const
*****************
var
*****************
Begin
 while not dead do
    begin
     если в журнале есть строка 'sell GS' то
       begin
        вышеописанные действия;
       end;
     ClearJournal;
    end;
end.

Code: Select all

Program BuyGS;

const
GoldCoin=$0EED;//тип золота
Gstone=$3198;//тип покупаемого предмета

var
GSInContainer,TransferGP,OppContainer,MyContainer,client:Cardinal;
j:integer;

Begin
while not dead do
	begin  
	wait(100);//ждем фразы sell GS в журнале для дальнейшего действия
	if WaitJournalLine(now,'sell GS',60000)=true then
		begin
		findtype($0190,ground);//ищем по типу чара в пределах FindDistance
		client:=finditem;
		if client <> 0 then
			begin
			if (CountEx(GoldCoin,$0000,backpack)>35000) then
				begin
				uosay('; Добрый день, '+GetName(client)+'! Я покупаю God Stone по 35k');
				wait(1500);
				uosay('; Просто киньте в трейд свои God Stone, у вас есть 20 секунд.');
				wait(20000);
				If IsTrade=true then
					begin
					if TradeCount()>0 then
						begin
						for j:=TradeCount()-1 DownTo 0 do						
						CancelTrade(j);
						checklag(3000);
						end;
					If GetTradeOpponent(0)=client Then
						begin
						OppContainer:=GetTradeContainer(0,2);
						MyContainer:=GetTradeContainer(0,1);
						if (CountEx(Gstone,$0A8C,OppContainer))>0 then
							begin
							checklag(3000);
							uosay('; У вас 15 секунд для подтверждения сделки!');
							GSInContainer:=(CountEx(Gstone,$0A8C,OppContainer));
							TransferGP:=(GSInContainer*35000);
							FindTypeEx(GoldCoin,$0000,backpack,True);
							MoveItem(FindItem,TransferGP,MyContainer,0,0,0);
							wait(15000);
							if (TradeCheck(0,2))=true then
								begin
								ConfirmTrade(0);
								end
								else
								wait(500);
								uosay('Вы не подтвердили сделку вовремя!');
                CancelTrade(0);								
              end;
            end;
          end;
        end;
      end;
      ClearJournal;
    end;
  end;
End.

Code: Select all

Program BuyGS;

const
GoldCoin=$0EED;//тип золота
Gstone=$3198;//тип покупаемого предмета

var
GSInContainer,TransferGP,OppContainer,MyContainer:Cardinal;
stime : TDateTime;
j:integer;
             
Begin
while not dead do //ждем фразы sell GS в журнале для дальнейшего действия
  if WaitJournalLine(now,'sell GS',60000) then
  begin
    if (CountEx(GoldCoin,$0000,backpack)>35000) then
    begin
     if TradeCount>0 then
      begin
        for j:=TradeCount-1 DownTo 0 do                  
        CancelTrade(j);
        checklag(3000);
      end;
      uosay('; Добрый день, '+GetName(LineID)+'! Я покупаю God Stone по 35k');
      wait(1500);
      uosay('; Просто киньте в трейд свои God Stone, у вас есть 20 секунд.');
      wait(20000);
      If IsTrade and (GetTradeOpponent(0)=LineID) Then
      begin
        OppContainer:=GetTradeContainer(0,2);
        MyContainer:=GetTradeContainer(0,1);
        if (CountEx(Gstone,$0A8C,OppContainer))>0 then
        begin
          checklag(3000);
          uosay('; У вас 15 секунд для подтверждения сделки!');
          GSInContainer:=(CountEx(Gstone,$0A8C,OppContainer));
          TransferGP:=(GSInContainer*35000);
          FindTypeEx(GoldCoin,$0000,backpack,True);
          MoveItem(FindItem,TransferGP,MyContainer,0,0,0);
          AddToSystemJournal(DateTimeToStr(Now));
          stime := Now;
          repeat 
            wait(100); 
          until TradeCheck(0,2) or (Now > stime + 15/(1440*60));    
          AddToSystemJournal(DateTimeToStr(Now));
          if TradeCheck(0,2) then
            ConfirmTrade(0)
          else
          begin
            wait(500);
            uosay('Вы не подтвердили сделку вовремя!');
            CancelTrade(0);                        
          end;
        end;
      end;
    end
    else
      uosay('Закончились деньги, приходите позже!');
  end
  else
    wait(100); 
End.