Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

DRW Работа с банком (work with Bank)

Only working scripts
Post Reply
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

DRW Работа с банком (work with Bank)

Post by shinma »

Code: Select all

program bank;

{$Include 'all.inc'}


//id узнаем командой ,info   в игре по нужной сумке в банке.

const
money=$11178907;//ID сумки с деньгами
resi=$1117AA34 ;//ID сумки для дров
goldcoin=$0EED; //тип Монет
logs=$1BDD; // тип логов
kol_log = 21; //Кол-во цветных дров

type
mas_cvet = array[1..kol_log] of Integer; //Создаем тип массив цветов дров

var
Cvet : mas_cvet; //обьявляем массив



procedure Cvet_log; //заносим цвета логов в массив
begin
Cvet[1] := $047C; //Oak Logs 	
Cvet[2] := $0279; //Red Tree Logs 	
Cvet[3] := $096B ; //Dark Tree Logs	
Cvet[4] := $0237; //Swamp Logs 
Cvet[5] := $0482; //Silver Leaf Logs
Cvet[6] := $010F; //Keranit Logs 
Cvet[7] := $0014; //Perit Logs 
Cvet[8] := $03C1; //Petrified Logs
Cvet[9] := $0085; //Dragon Tree Logs
Cvet[10] := $04C2; //Vampire Tree Logs
Cvet[11] := $0033; //Eridan Logs 
Cvet[12] := $002B; //Hellios Logs 
Cvet[13] := $0071; //Illusions Tree Logs
Cvet[14] := $09A4; //Crystal Logs 
Cvet[15] := $0B82; //Dead Tree Logs 
Cvet[16] := $00BE ; //Paradise Logs


Cvet[17] := $0035; //Titan Tree Logs 
Cvet[18] := $0BB6; //Avalon Logs 		//Пока не вырубил и незнаю какой тут colour
Cvet[19] := $0487; //Elven Logs
Cvet[20] := $0498; //Asterxylon Logs 	//Пока не вырубил и незнаю какой тут colour
Cvet[21] := $0000; //Logs 
end;

Procedure PutMoneyBank;//Кладем  ГП в банк
begin
  checksave;
  AddToSystemJournal('Заработал ГП : '+ inttostr(CountEx(GoldCoin,$0000,backpack))); //выводим в журнал стелса кол во денег в вашей сумке
  begin
     if CountEx(GoldCoin,$0000,backpack) > 0 then //начать скрипт если денег больше нуля
     begin
       FindTypeEx (GoldCoin,$0000,Backpack,True) ; //ищем тип,цвет,где
        MoveItem(FindItem,0,money,0,0,0); //перемещаем найденный итем в сумку указанную в константах
      checksave; //проверка на лаги
     end;
  end;
end; 


Procedure PutLogBank; //Кладем дорогие логи в банк
var
i:word;
begin
  checksave;
  begin
  For i:=17 to 20 do
     if CountEx(logs,Cvet[i],backpack) > 0 then
     begin
       FindTypeEx (logs,Cvet[i],Backpack,True) ;
        MoveItem(FindItem,0,resi,0,0,0);
        wait(2000);
      checksave;
     end;
  end;
end; 

begin
uosay('bank');
PutMoneyBank;
wait(3000);
Cvet_log;
PutLogBank;
end.
Post Reply