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.