program test;
{$Include 'all.inc'}
const
weapon=$40500A5C;
MWeight = 800;
tmpr = 21;
tmpr2 = 33;
FishSt=$097B;
Ruda1=$13BB;
Ruda2=$1408;
Ruda3=$1412;
Ruda4=$1411;
Ruda5=$1410;
Ruda6=$1414;
Ruda7=$1B76;
Ruda8=$1413;
Ruda9=$1415;
Ruda10=$140E;
Ruda11=$13B9;
Ruda12=$13B5;
Ruda13=$0F4B;
Ruda14=$13FE;
Ruda15=$1416;
Ruda16=$1417;
Ruda17=$0F4C;
Runebook=$403B4E31;
Tseif=$4013A759; // мешок в сортире куда кидаем инги
var
bandages:cardinal;
i,n:integer;
corpseID:Cardinal;
victim:Cardinal;
mx, my, k, Res : Integer;
Rune : Cardinal;
procedure Check_Hidden;
begin
if not Hidden then
begin
while not Hidden do
begin
SetWarMode(False);
useskill('Stealth');
wait(5000);
end;
AddToSystemJournal('Спрятались.');
end;
end;
procedure Check_World_Save;
begin
if InJournal('saving')<>-1 then
begin
ClearJournal;
k:=0;
repeat
wait(10000);
k:=k+1;
AddToSystemJournal('World is saving more than '+IntToStr(k*10)+' seconds.');
until (InJournal('data')<>-1) or (k>10);
end;
end;
procedure recalroonebook;
begin
Res := 0;
SetWarMode(false);
AddToSystemJournal('Пытаемся рекольнуться');
useskill('Hiding');
wait(200);
waitgump(IntToStr(tmpr));
wait(1000)
UseObject(Runebook);
wait(10000)
mx := GetX(self);
my := GetY(self);
k := 0;
wait(500)
k := k + 1;
if (mx<>GetX(self)) or (my<>GetY(self)) then Res := 1;
end;
procedure recalroonebook2;
begin
Res := 0;
AddToSystemJournal('Пытаемся рекольнуться');
waitgump(IntToStr(tmpr2));
wait(1000)
UseObject(Runebook);
wait(10000)
mx := GetX(self);
my := GetY(self);
k := 0;
wait(500)
k := k + 1;
if (mx<>GetX(self)) or (my<>GetY(self)) then Res := 1;
end;
procedure splav;
var
Ktimer:TdateTime;
Ruda:array[0..17] of integer;
t1:integer;
Ironbag:cardinal;
begin
Ruda[0]:=Ruda1;Ruda[1]:=Ruda2;Ruda[2]:=Ruda3;Ruda[3]:=Ruda4; Ruda[4]:=Ruda5; Ruda[5]:=Ruda6; Ruda[6]:=Ruda7; Ruda[7]:=Ruda8; Ruda[8]:=Ruda9; Ruda[9]:=Ruda10; Ruda[10]:=Ruda11; Ruda[11]:=Ruda12; Ruda[12]:=Ruda13;Ruda[13]:=Ruda14;Ruda[14]:=Ruda15;Ruda[15]:=Ruda16;Ruda[16]:=Ruda17;
begin
Ktimer:=Now;
t1:=0;
For t1:=0 to 17 do
begin
if FindType(ruda[t1], backpack)<> 0 then
while findcount > 0 do
begin
UseObject($4027E398); // форжа
// UseFromGround(Forga,0);
WaitForTarget(5000);
TargetToObject(FindType(Ruda[t1],BackPack));
checksave;
UseObject(backpack);
wait(200);
end;
end;
end;
end;
procedure sbros_v_sunduk;
begin
if FindType($1BEF, backpack) > 0 then
begin
MoveItem(FindType($1BEF,backpack),0,Tseif,0,0,0);
wait (500);
end;
if FindType($1BEF, ground) > 0 then
begin
MoveItem(FindType($1BEF,ground),0,Tseif,0,0,0);
wait (500);
end;
if FindType($0EED, backpack) > 0 then
begin
MoveItem(FindType($0EED,backpack),0,Tseif,0,0,0);
wait (500);
FindType($09BB,Ground);
if FindType($09BB,Ground) > 0 then
begin
UseObject(FindItem);
end;
end;
end;
procedure sbros;
begin
Check_World_Save;
recalroonebook;
Check_World_Save;
newMoveXY(2400,3392,True,1,True);
//Check_World_Save;
//newMoveXY(1990,2392,True,1,True);
Check_World_Save;
splav;
Check_World_Save;
sbros_v_sunduk;
Check_World_Save;
recalroonebook2;
Check_World_Save;
//Check_Hidden;
end;
procedure loot;
begin
FindDistance:=12;
FindType($2006,Ground);
while FindType($2006,Ground)>0 do
begin
FindType($2006,Ground);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
UseObject(FindItem);
wait(500);
CorpseID:=FindItem;
if FindType($2006, ground) > 0 then
begin
findtype($13BB, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1408, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1412, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1411, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1414, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1B76, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1413, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1415, CorpseID);
Grab (finditem,100);
wait (500);
findtype($140E, CorpseID);
Grab (finditem,100);
wait (500);
findtype($13B9, CorpseID);
Grab (finditem,100);
wait (500);
findtype($13B5, CorpseID);
Grab (finditem,100);
wait (500);
findtype($0F4B, CorpseID);
Grab (finditem,100);
wait (500);
findtype($0EED, CorpseID);
Grab (finditem,100);
wait (500);
findtype($13FE, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1410, CorpseID);
Grab (finditem,100);
wait (500);
findtype($0E75, CorpseID);
UseObject(FindItem);
wait (500);
findtype($0EED, FindItem);
wait (500);
Grab (finditem,1000);
wait (500);
findtype($1416, ground);
if FindType($1416, ground) > 0 then
begin
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
Grab (finditem,100);
wait (500);
findtype($0F4C, ground);
Grab (finditem,100);
wait (500);
findtype($1417, ground);
Grab (finditem,100);
wait (500);
end;
findtype($1410, ground);
if FindType($1410, ground) > 0 then
begin
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
Grab (finditem,100);
wait (500);
findtype($0F4B, ground);
Grab (finditem,100);
wait (500);
findtype($1415, ground);
Grab (finditem,100);
wait (500);
findtype($1413, ground);
Grab (finditem,100);
wait (500);
end;
ignore(CorpseID);
if (GetX($003C191D)> 3056) then
if (GetX($003C191D)> 3056) then
begin
if (GetY($0036ABFA)< 3991) then
// if ((GetX($0036ABFA)> 3056) and (GetY($0036ABFA)< 3991)) then
begin
// begin
findtype($06A5, ground);
if Findtype ($06A5, ground) >0 then
// begin
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(5000);
UseObject($4000C7F1);
wait(500);
newMoveXY(3057,3395,true,1,true);
findtype($06A5, ground);
if Findtype ($06A5, ground) <1 then
begin
newMoveXY(3057,3395,true,1,true);
end;
end;
end;
// end;
end;
if Weight > MWeight then
begin
sbros;
end;
end;
end;
procedure healing;
var
bandages:cardinal;
Begin
bandages:=FindType($0E21,backpack);
While HP < 185 do begin
if HP < 185 THEN
Begin
UseObject(bandages);
WaitTargetSelf;
wait(6000);
end;
end;
end;
procedure ress1;
begin
SetWarMode(false);
wait(300000);
newMoveXY(3055,3407,True,1,True);
Check_World_Save;
newMoveXY(3055,3410,True,1,True);
Check_World_Save;
newMoveXY(3026,3392,True,1,True);
Check_World_Save;
UseObject($4000A670); //stolb
wait(10000);
Check_Hidden;
wait(10000);
recalroonebook;
Check_World_Save;
newMoveXY(2383,3376,True,1,True);
//Check_World_Save;
//newMoveXY(1990,2392,True,1,True);
Check_World_Save;
UseObject(Tseif);
wait (550);
findtype($13B9, Tseif);
MoveItem(FindType($13B9,Tseif),1,BackPack,0,0,0)
//Grab (FindItem,2);
wait (650);
//findtype($13B9, backpack);
//UseObject(finditem);
//wait (500);
findtype($0E21, Tseif);
Grab (finditem,30);
wait (500);
healing;
UseObject(backpack);
wait (550);
findtype($13B9, backpack);
UseObject(finditem);
wait (500);
recalroonebook2;
Check_World_Save;
ignore($002E94B8)
FindDistance:=20;
FindType($0190,ground);
n:=findcount;
AddToSystemJournal('Найдено '+IntToStr(n)+' '+GetName(FindItem));
wait (500);
FindType($0190,ground);
findtype($13B9, backpack);
UseObject(finditem);
wait (500);
if n>0 then
begin
FindType($0190,ground);
attack(FindItem);
while gethp(finditem)>0 do
begin
FindType($0190,ground);
attack(FindItem);
if GetDistance(FindItem)>0 then
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
while gethp($003C191D)<1 do
begin
ress1;
end;
end;
if FindType($2006,ground)>0 then
begin
FindType($2006,ground);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(300);
// NewMoveXY(GetX(FindItem),GetY(FindItem),true,0,true);
// wait(100);
// UseObject(corpseID);
// wait (500);
loot;
// findtype($0F4B, backpack);
//UseObject(finditem);
//wait (500);
Check_Hidden;
FindType($2006,ground)
ignore(FindItem)
end;
end;
//MoveXY(3056,3408,True,1,True);
//Check_World_Save;
//UseObject($400077F8);
//Check_World_Save;
//UseObject($40010F56);
//Check_World_Save;
//MoveXY(3055,3400,True,1,True);
//Check_World_Save;
//Check_Hidden;
end;
procedure kill;
begin
ignore($0020F4F3)
ignore($0032145E)
ignore($004120DC)
ignore( $0048246E)
FindDistance:=15;
FindVertical:=30;
FindType($0190,ground);
n:=findcount;
AddToSystemJournal('Найдено '+IntToStr(n)+' '+GetName(FindItem));
wait (500);
if gethp($003C191D)<185 then
begin
UOSay('\петух хочет меня завалить! спасай Серега!!');
wait(1000)
UOSay('\петух хочет меня завалить! спасай Серега!!');
wait(1000)
UOSay('\петух хочет меня завалить! спасай Серега!!');
wait(1000)
end;
FindType($0190,ground);
if n>0 then
begin
FindType($0190,ground);
attack(FindItem);
while gethp(finditem)>0 do
begin
FindType($0190,ground);
attack(FindItem);
if GetDistance(FindItem)>0 then
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
while gethp($003C191D)<1 do
begin
ress1;
end;
end;
if FindType($2006,ground)>0 then
begin
FindType($2006,ground);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(300);
// NewMoveXY(GetX(FindItem),GetY(FindItem),true,0,true);
// wait(100);
// UseObject(corpseID);
// wait (500);
loot;
Check_Hidden;
FindType($2006,ground)
ignore(FindItem)
end;
end;
end;
Begin
while gethp($003C191D)<1000 do
begin
while gethp($003C191D)>0 do
begin
kill;
end;
while gethp($003C191D)<1 do
begin
ress1;
end;
end;
end.
19:41:07 [Мой]: Character Unknown Name Connected.
19:41:08 [Мой]: Waiting while user chose shard
19:41:10 [Мой]: Waiting while user chose character
19:41:17 [Мой]: Compiling
19:41:17 [Мой]: Compiler: [Hint] (Iron_Bomba_sortyr.sc at 108:1): Variable 'IRONBAG' never used
19:41:17 [Мой]: Compiler: [Error] (Iron_Bomba_sortyr.sc at 160:1): Unknown identifier 'newMoveXY'
19:41:17 [Мой]: Compiling failed
19:41:17 [Мой]: Script Iron_Bomba_sortyr.sc stoped successfuly
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Что то не так на другом компе не работает
-
- Posts: 3
- Joined: 08.03.2016 7:43
Re: Что то не так на другом компе не работает
оформи надлежащим образом пост! В это вчитываться никто не будет.
Re: Что то не так на другом компе не работает
Поставь последнюю версию стелса.
-
- Posts: 3
- Joined: 08.03.2016 7:43
Re: Что то не так на другом компе не работает
оформи надлежащим образом пост! В это вчитываться никто не будет.
как?
как?
Re: Что то не так на другом компе не работает
1) в стелсовом редакторе меню Formatting - Code Format
2) на форуме при вставке поста выделяешь весь код и жмешь на code
потому что читать код без тегов и без отступов - это убивать глаза разве что.
(P.S. До сих пор удивляюсь, что код автоформата, писанный за несколько минут на коленке - работает на удивление неплохо)
результат будет что-то типа
2) на форуме при вставке поста выделяешь весь код и жмешь на code
потому что читать код без тегов и без отступов - это убивать глаза разве что.
(P.S. До сих пор удивляюсь, что код автоформата, писанный за несколько минут на коленке - работает на удивление неплохо)
результат будет что-то типа
Code: Select all
program test;
{$Include 'all.inc'}
const
weapon=$40500A5C;
MWeight = 800;
tmpr = 21;
tmpr2 = 33;
FishSt=$097B;
Ruda1=$13BB;
Ruda2=$1408;
Ruda3=$1412;
Ruda4=$1411;
Ruda5=$1410;
Ruda6=$1414;
Ruda7=$1B76;
Ruda8=$1413;
Ruda9=$1415;
Ruda10=$140E;
Ruda11=$13B9;
Ruda12=$13B5;
Ruda13=$0F4B;
Ruda14=$13FE;
Ruda15=$1416;
Ruda16=$1417;
Ruda17=$0F4C;
Runebook=$403B4E31;
Tseif=$4013A759; // мешок в сортире куда кидаем инги
var
bandages:cardinal;
i,n:integer;
corpseID:Cardinal;
victim:Cardinal;
mx, my, k, Res : Integer;
Rune : Cardinal;
procedure Check_Hidden;
begin
if not Hidden then
begin
while not Hidden do
begin
SetWarMode(False);
useskill('Stealth');
wait(5000);
end;
AddToSystemJournal('Спрятались.');
end;
end;
procedure Check_World_Save;
begin
if InJournal('saving')<>-1 then
begin
ClearJournal;
k:=0;
repeat
wait(10000);
k:=k+1;
AddToSystemJournal('World is saving more than '+IntToStr(k*10)+' seconds.');
until (InJournal('data')<>-1) or (k>10);
end;
end;
procedure recalroonebook;
begin
Res := 0;
SetWarMode(false);
AddToSystemJournal('Пытаемся рекольнуться');
useskill('Hiding');
wait(200);
waitgump(IntToStr(tmpr));
wait(1000)
UseObject(Runebook);
wait(10000)
mx := GetX(self);
my := GetY(self);
k := 0;
wait(500)
k := k + 1;
if (mx<>GetX(self)) or (my<>GetY(self)) then Res := 1;
end;
procedure recalroonebook2;
begin
Res := 0;
AddToSystemJournal('Пытаемся рекольнуться');
waitgump(IntToStr(tmpr2));
wait(1000)
UseObject(Runebook);
wait(10000)
mx := GetX(self);
my := GetY(self);
k := 0;
wait(500)
k := k + 1;
if (mx<>GetX(self)) or (my<>GetY(self)) then Res := 1;
end;
procedure splav;
var
Ktimer:TdateTime;
Ruda:array[0..17] of integer;
t1:integer;
Ironbag:cardinal;
begin
Ruda[0]:=Ruda1;Ruda[1]:=Ruda2;Ruda[2]:=Ruda3;Ruda[3]:=Ruda4; Ruda[4]:=Ruda5; Ruda[5]:=Ruda6; Ruda[6]:=Ruda7; Ruda[7]:=Ruda8; Ruda[8]:=Ruda9; Ruda[9]:=Ruda10; Ruda[10]:=Ruda11; Ruda[11]:=Ruda12; Ruda[12]:=Ruda13;Ruda[13]:=Ruda14;Ruda[14]:=Ruda15;Ruda[15]:=Ruda16;Ruda[16]:=Ruda17;
begin
Ktimer:=Now;
t1:=0;
For t1:=0 to 17 do
begin
if FindType(ruda[t1], backpack)<> 0 then
while findcount > 0 do
begin
UseObject($4027E398); // форжа
// UseFromGround(Forga,0);
WaitForTarget(5000);
TargetToObject(FindType(Ruda[t1],BackPack));
checksave;
UseObject(backpack);
wait(200);
end;
end;
end;
end;
procedure sbros_v_sunduk;
begin
if FindType($1BEF, backpack) > 0 then
begin
MoveItem(FindType($1BEF,backpack),0,Tseif,0,0,0);
wait (500);
end;
if FindType($1BEF, ground) > 0 then
begin
MoveItem(FindType($1BEF,ground),0,Tseif,0,0,0);
wait (500);
end;
if FindType($0EED, backpack) > 0 then
begin
MoveItem(FindType($0EED,backpack),0,Tseif,0,0,0);
wait (500);
FindType($09BB,Ground);
if FindType($09BB,Ground) > 0 then
begin
UseObject(FindItem);
end;
end;
end;
procedure sbros;
begin
Check_World_Save;
recalroonebook;
Check_World_Save;
newMoveXY(2400,3392,True,1,True);
//Check_World_Save;
//newMoveXY(1990,2392,True,1,True);
Check_World_Save;
splav;
Check_World_Save;
sbros_v_sunduk;
Check_World_Save;
recalroonebook2;
Check_World_Save;
//Check_Hidden;
end;
procedure loot;
begin
FindDistance:=12;
FindType($2006,Ground);
while FindType($2006,Ground)>0 do
begin
FindType($2006,Ground);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
UseObject(FindItem);
wait(500);
CorpseID:=FindItem;
if FindType($2006, ground) > 0 then
begin
findtype($13BB, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1408, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1412, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1411, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1414, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1B76, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1413, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1415, CorpseID);
Grab (finditem,100);
wait (500);
findtype($140E, CorpseID);
Grab (finditem,100);
wait (500);
findtype($13B9, CorpseID);
Grab (finditem,100);
wait (500);
findtype($13B5, CorpseID);
Grab (finditem,100);
wait (500);
findtype($0F4B, CorpseID);
Grab (finditem,100);
wait (500);
findtype($0EED, CorpseID);
Grab (finditem,100);
wait (500);
findtype($13FE, CorpseID);
Grab (finditem,100);
wait (500);
findtype($1410, CorpseID);
Grab (finditem,100);
wait (500);
findtype($0E75, CorpseID);
UseObject(FindItem);
wait (500);
findtype($0EED, FindItem);
wait (500);
Grab (finditem,1000);
wait (500);
findtype($1416, ground);
if FindType($1416, ground) > 0 then
begin
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
Grab (finditem,100);
wait (500);
findtype($0F4C, ground);
Grab (finditem,100);
wait (500);
findtype($1417, ground);
Grab (finditem,100);
wait (500);
end;
findtype($1410, ground);
if FindType($1410, ground) > 0 then
begin
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
Grab (finditem,100);
wait (500);
findtype($0F4B, ground);
Grab (finditem,100);
wait (500);
findtype($1415, ground);
Grab (finditem,100);
wait (500);
findtype($1413, ground);
Grab (finditem,100);
wait (500);
end;
ignore(CorpseID);
if (GetX($003C191D)> 3056) then
if (GetX($003C191D)> 3056) then
begin
if (GetY($0036ABFA)< 3991) then
// if ((GetX($0036ABFA)> 3056) and (GetY($0036ABFA)< 3991)) then
begin
// begin
findtype($06A5, ground);
if Findtype ($06A5, ground) >0 then
// begin
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(5000);
UseObject($4000C7F1);
wait(500);
newMoveXY(3057,3395,true,1,true);
findtype($06A5, ground);
if Findtype ($06A5, ground) <1 then
begin
newMoveXY(3057,3395,true,1,true);
end;
end;
end;
// end;
end;
if Weight > MWeight then
begin
sbros;
end;
end;
end;
procedure healing;
var
bandages:cardinal;
Begin
bandages:=FindType($0E21,backpack);
While HP < 185 do begin
if HP < 185 THEN
Begin
UseObject(bandages);
WaitTargetSelf;
wait(6000);
end;
end;
end;
procedure ress1;
begin
SetWarMode(false);
wait(300000);
newMoveXY(3055,3407,True,1,True);
Check_World_Save;
newMoveXY(3055,3410,True,1,True);
Check_World_Save;
newMoveXY(3026,3392,True,1,True);
Check_World_Save;
UseObject($4000A670); //stolb
wait(10000);
Check_Hidden;
wait(10000);
recalroonebook;
Check_World_Save;
newMoveXY(2383,3376,True,1,True);
//Check_World_Save;
//newMoveXY(1990,2392,True,1,True);
Check_World_Save;
UseObject(Tseif);
wait (550);
findtype($13B9, Tseif);
MoveItem(FindType($13B9,Tseif),1,BackPack,0,0,0)
//Grab (FindItem,2);
wait (650);
//findtype($13B9, backpack);
//UseObject(finditem);
//wait (500);
findtype($0E21, Tseif);
Grab (finditem,30);
wait (500);
healing;
UseObject(backpack);
wait (550);
findtype($13B9, backpack);
UseObject(finditem);
wait (500);
recalroonebook2;
Check_World_Save;
ignore($002E94B8)
FindDistance:=20;
FindType($0190,ground);
n:=findcount;
AddToSystemJournal('Найдено '+IntToStr(n)+' '+GetName(FindItem));
wait (500);
FindType($0190,ground);
findtype($13B9, backpack);
UseObject(finditem);
wait (500);
if n>0 then
begin
FindType($0190,ground);
attack(FindItem);
while gethp(finditem)>0 do
begin
FindType($0190,ground);
attack(FindItem);
if GetDistance(FindItem)>0 then
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
while gethp($003C191D)<1 do
begin
ress1;
end;
end;
if FindType($2006,ground)>0 then
begin
FindType($2006,ground);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(300);
// NewMoveXY(GetX(FindItem),GetY(FindItem),true,0,true);
// wait(100);
// UseObject(corpseID);
// wait (500);
loot;
// findtype($0F4B, backpack);
//UseObject(finditem);
//wait (500);
Check_Hidden;
FindType($2006,ground)
ignore(FindItem)
end;
end;
//MoveXY(3056,3408,True,1,True);
//Check_World_Save;
//UseObject($400077F8);
//Check_World_Save;
//UseObject($40010F56);
//Check_World_Save;
//MoveXY(3055,3400,True,1,True);
//Check_World_Save;
//Check_Hidden;
end;
procedure kill;
begin
ignore($0020F4F3)
ignore($0032145E)
ignore($004120DC)
ignore( $0048246E)
FindDistance:=15;
FindVertical:=30;
FindType($0190,ground);
n:=findcount;
AddToSystemJournal('Найдено '+IntToStr(n)+' '+GetName(FindItem));
wait (500);
if gethp($003C191D)<185 then
begin
UOSay('\петух хочет меня завалить! спасай Серега!!');
wait(1000)
UOSay('\петух хочет меня завалить! спасай Серега!!');
wait(1000)
UOSay('\петух хочет меня завалить! спасай Серега!!');
wait(1000)
end;
FindType($0190,ground);
if n>0 then
begin
FindType($0190,ground);
attack(FindItem);
while gethp(finditem)>0 do
begin
FindType($0190,ground);
attack(FindItem);
if GetDistance(FindItem)>0 then
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(100);
while gethp($003C191D)<1 do
begin
ress1;
end;
end;
if FindType($2006,ground)>0 then
begin
FindType($2006,ground);
newMoveXY(GetX(FindItem),GetY(FindItem),true,1,true);
wait(300);
// NewMoveXY(GetX(FindItem),GetY(FindItem),true,0,true);
// wait(100);
// UseObject(corpseID);
// wait (500);
loot;
Check_Hidden;
FindType($2006,ground)
ignore(FindItem)
end;
end;
end;
Begin
while gethp($003C191D)<1000 do
begin
while gethp($003C191D)>0 do
begin
kill;
end;
while gethp($003C191D)<1 do
begin
ress1;
end;
end;
end.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
-
- Posts: 3
- Joined: 08.03.2016 7:43
Re: Что то не так на другом компе не работает
Vizit0r большое спасибо