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

Что то не так на другом компе не работает

тут можно задать вопрос по скриптингу
Post Reply
Help me plizz
Posts: 3
Joined: 08.03.2016 7:43

Что то не так на другом компе не работает

Post by Help me plizz »

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
drabadan
Expert
Expert
Posts: 730
Joined: 13.12.2012 17:35
Contact:

Re: Что то не так на другом компе не работает

Post by drabadan »

оформи надлежащим образом пост! В это вчитываться никто не будет.
Macks
Apprentice
Apprentice
Posts: 250
Joined: 27.02.2006 22:23
Location: АоП - Age Of Power

Re: Что то не так на другом компе не работает

Post by Macks »

Поставь последнюю версию стелса.
Help me plizz
Posts: 3
Joined: 08.03.2016 7:43

Re: Что то не так на другом компе не работает

Post by Help me plizz »

оформи надлежащим образом пост! В это вчитываться никто не будет.

как?
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Что то не так на другом компе не работает

Post by Vizit0r »

1) в стелсовом редакторе меню Formatting - Code Format
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.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Help me plizz
Posts: 3
Joined: 08.03.2016 7:43

Re: Что то не так на другом компе не работает

Post by Help me plizz »

Vizit0r большое спасибо
Post Reply