Poszukuje skryptu Do Elf bota by podnosił viale z ziemi i dawał je do bp
pickupitems {backpack}
Ostatnio zmieniony przez mazda313 : 26-11-2009, 14:16
(Jimmy, handlarz tytoniem i bimbrem)
Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
Ostatnio zmieniony przez Korzeń : 26-11-2009, 19:25
(Jimmy, handlarz tytoniem i bimbrem)
Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
Const
Exana_Pox = 0 // 1- use exana pox, 0 don't use.
Procedure Event_Notice(Text:String);
begin
UpdateWorld;
if Text = 'There is no way.' then
Begin
UpdateWorld;
X := Self.X;
Y := Self.Y;
Z := Self.Z;
repeat
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveRight;
sleep(1000);
UpdateWorld;
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveUp;
Sleep(1000);
UpdateWorld;
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveLeft;
Sleep(1000);
UpdateWorld;
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveDown;
Sleep(1000);
UpdateWorld;
until (Self.X <> X) or (Self.Y <> Y);
end;
end;
While not terminated do
begin
UpdateWorld;
ProcessEvents;
Sleep(100);
if Self.Poisoned then
if Exana_Pox then
begin
Self.Say('exana pox');
Sleep(3000);
end;
end;
Ostatnio zmieniony przez mazda313 : 28-11-2009, 14:50
const
minMana = 60; // liczba many na czar, którego używasz by zwalczyć paralize
while not Terminated do
begin
UpdateWorld;
if Self.Mana > minMana then
begin
if Self.Slowed then
Self.Say('utani hur'); // czar, jakiego ng ma używac gdy dostaniesz paralize
end;
Sleep(300);
end;
Ostatnio zmieniony przez Adisky : 29-11-2009, 16:13
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zakładki