Не работает проверка

Doger · Post by **Doger** » 21.11.2009 19:22

Ребят,помогите... Скрипт на мининг...вот часть скрипта для копки...:

procedure Min;
begin
while (connected) do
begin 
    if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);
    UOSay(' ')
    for x := -2 to 2 do
    begin 
        for y := -2 to 2 do
        begin 
        wait(1000);
        if (weight > MaxWeight) then
            begin
            wait(1000);
            home;
            exit;
            end;        
        ctime := Now; 
        UseObject(ObjAtLayer(RHandLayer)); 
        WaitForTarget(5000); 
        checksave;
        If TargetPresent then TargetToTile(0, GetX(self)+x, GetY(self)+y, GetZ(self));
            k:=0
            repeat 
            if (CheckEnemy) then
                begin
                uosay('.guards')
                Raw_move(GetDirection(self), true);
                wait(1000);
                home;
                exit;
                end;
            checksave;
            wait(100); 
            k:= k+1;
            i := InJournalBetweenTimes('stop|anything', ctime, Now); 
            until (i<>-1) or ( k > 600);
            wait(1000);
            if (ObjAtLayer(RHandLayer) = 0) then 
                begin
                if (not CheckPickaxe) then exit;
                equipt(RHandLayer,pickaxe);
                end;
            end; 
        end;
    if (Moving = 1) then move;
end;
end;

Если брать с собой одну кирку,то когда она сломается,чар просто стоит на месте,а должен лететь домой и брать кирку... подправьте плзззз Вот проверка на кирки...:

Code: Select all

function CheckPickaxe : Boolean; 
   var tmpser : Cardinal; 
   begin 
      Result := true; 
      if (ObjAtLayer(RhandLayer) = 0) then 
      begin 
        tmpser := findtype(pickaxe,backpack); 
        if tmpser = 0 then 
         begin 
            Result := false; 
            exit; 
         end; 
         wait(500); 
         checksave; 
      end; 
   end;

P.S. После поломки,кирка исчезает!

WladL · Post by **WladL** » 21.11.2009 23:20

Приведенный выше код, мне лично ни о чем не сказал. Кроме того, что как только у чара ломается кирка прерывается процедура копки. Тут нет участка кода отвечающего за портирование чара и добор кирки. И еще, мне почему-то кажется, что проверку на наличие кирки следует поместить ПЕРЕД тем как ее пытаться одеть, а не после копки.

Doger · Post by **Doger** » 22.11.2009 0:03

Так а при чём здесь процедура отвечающая за реколл ??? если при поломке кирки он Вааааще ничего не делает,просто стоит и всё!
А как переместить,чтоб перед началом копки была проверка ? У мну что то не получается=(

WladL · Post by **WladL** » 22.11.2009 2:07

1)

Doger wrote:Так а при чём здесь процедура отвечающая за реколл ??? если при поломке кирки он Вааааще ничего не делает,просто стоит и всё!

Code: Select all

if (not CheckPickaxe) then exit;

Перевожу: "Если нет кирки , то закончить работу процедуры."
Где тут видно, что он должен что-то делать?
2)

Doger wrote: А как переместить,чтоб перед началом копки была проверка ? У мну что то не получается=(

не знаю каку тебя остальной скрипт организован, но судя по тому что есть в посте вот так.

Code: Select all

if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);

=>

Code: Select all

if (ObjAtLayer(RHandLayer) = 0) then 
                begin 
                if (not CheckPickaxe) then exit; 
                equipt(RHandLayer,pickaxe); 
                end; 
            end;

Doger · Post by **Doger** » 22.11.2009 10:25

А куда этот кусок вставить

Мож весь скрипт скинуть? Влад посмотришь ????ПожайлустА!

Code: Select all

program mining;
// ZuluHotel 3
//Mining s rekolom domoy
//Rekolits9 pri nahojdenii tipov man,woman,explojen,prichki
//pri previshenii vesa 1000
//dobor kirok, zariajaet RB
//resaets9 cheresz .rescue
//
// crafted by bahoho   1.04
const
pickaxe = $0E85;
sunduk = $4ACF5883; //Sunduk dl9 scroll recall, jarenoy ribi, kirok <Need Setup>
sunduk2 = $4B19F176; // Sunduk dl9 sbrosa rudi  <Need Setup>
RB = $4B5304B2; // Roone book  <Need Setup>
RunaHome = 1; // Nomer runi domoy [1-16] <Need Setup>
Xhome = 1072; // Koordinata X  v dome  <Need Setup>
trash = $4B79F18A; // pomoyka dl9 sbrosa mapov <Need Setup>
Moving = 1; // esli 1 s hodilkoy, esli drugoe 4islo to bez
MaxWeight = 300; 

var x,y,i,t,k,p,r:integer;
ctime:TDateTime;
Enemy : array[1..5] of cardinal;
Ruda : array[1..8] of cardinal;
Runa : array[1..4] of integer;

{$Include 'all.inc'}

procedure Recall;
begin
Runa[1] := 2; // Nomera run v RB po shahtam [1-16] <Need Setup>
Runa[2] := 3; //esli netu stolko run prosto povtorit' neskolko odinakovih 
Runa[3] := 4;
Runa[4] := 5;
UseObject(RB);
WaitGump(IntToStr(15 + Runa[r]));
wait(4000);
r:=r+1;
if (r > 4) then r:=1;
end;

procedure Home;
begin
repeat
checksave;
disarm;
wait(200);
UseObject(RB);  
WaitGump(IntToStr(15 + RunaHome));
wait(3000);
if (GetX(self) <> Xhome) then
    begin
    Raw_move(Random(7), true);
    wait(250);
    Raw_move(GetDirection(self), true);
    wait(500);
    end;
until (GetX(self) = Xhome) or dead
end;

function CheckPickaxe : Boolean; 
   var tmpser : Cardinal; 
   begin 
      Result := true; 
      if (ObjAtLayer(RhandLayer) = 0) then 
      begin 
        tmpser := findtype(pickaxe,backpack); 
        if tmpser = 0 then 
         begin 
            Result := false; 
            exit; 
         end; 
         wait(500); 
         checksave; 
      end; 
   end;

function CheckEnemy : Boolean;
begin
Result := false;
for  p:=1  to 5  do
    begin 
    findtype(Enemy[p],ground)
    if (findcount > 0) then 
        begin
        Result := true;
        Addtosystemjournal('Vragi, suka, ne sp9t!!!');
        exit;
        end;
    wait(100)
    checksave;
    end;
end;

procedure move;
begin 
x:=GetX(self);
y:=GetY(self);
t:=1;
if (GetDirection(self) = 0) then k:= 4;
if (GetDirection(self) = 1) then k:= 5;
if (GetDirection(self) = 2) then k:= 6;
if (GetDirection(self) = 3) then k:= 7;
if (GetDirection(self) = 4) then k:= 0;
if (GetDirection(self) = 5) then k:= 1;
if (GetDirection(self) = 6) then k:= 2;
if (GetDirection(self) = 7) then k:= 3;
repeat
if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);
ctime:=now;
UseObject(ObjAtLayer(RHandLayer)); 
WaitForTarget(2000);
If TargetPresent then TargetToTile(0,GetX(self),GetY(self), GetZ(self));
wait(2000);
k := InJournalBetweenTimes('start', ctime, Now);
if (k <> -1) then
    begin
    if (t = 1) then
        begin
        Raw_move(GetDirection(self), true);
        t:= t+1;
        end
    else
        begin
        Raw_move(Random(7), true);
        t:=1;
        end;
    end
else
    begin
    Raw_move(k, true);
    end;
wait(1000);
until (GetX(self) <> x) or (GetY(self) <> y) or dead
end;

function timer(var acttimer:integer;actafter:integer):boolean;
begin
   result:=false;
   acttimer:=acttimer+1;
   if acttimer>=actafter then
   begin
      acttimer:=0;
      result:=true;       
   end;
end;

procedure Min;
begin
while (connected) do
begin 
    if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);
    UOSay('oioioi')
    for x := -2 to 2 do
    begin 
        for y := -2 to 2 do
        begin 
        wait(1000);
        if (weight > MaxWeight) then
            begin
            wait(1000);
            home;
            exit;
            end;        
        ctime := Now; 
        UseObject(ObjAtLayer(RHandLayer)); 
        WaitForTarget(5000); 
        checksave;
        If TargetPresent then TargetToTile(0, GetX(self)+x, GetY(self)+y, GetZ(self));
            k:=0
            repeat 
            if (CheckEnemy) then
                begin
                uosay('.guards')
                Raw_move(GetDirection(self), true);
                wait(1000);
                home;
                exit;
                end;
            checksave;
            wait(100); 
            k:= k+1;
            i := InJournalBetweenTimes('stop|anything', ctime, Now); 
            until (i<>-1) or ( k > 600);
            wait(1000);
            if (ObjAtLayer(RHandLayer) = 0) then 
                begin
                if (not CheckPickaxe) then exit;
                equipt(RHandLayer,pickaxe);
                end;
            end; 
        end;
    if (Moving = 1) then move;
end;
end;

BEGIN
r:=1;
Ruda[1] := $19B9;
Ruda[2] := $0F30;
Ruda[3] := $0F2D;
Ruda[4] := $0F25;
Ruda[5] := $0EED;
Ruda[6] := $0F21;
Ruda[7] := $0F25;
Ruda[8] := $1BE9;
Enemy[1] := $0191;
Enemy[2] := $0190;
Enemy[3] := $0F0D;
Enemy[4] := $0005;
Enemy[5] := $0006;
ignore(self);
finddistance := 20;
if (not dead) then home;
SetARStatus(true);

while true do
begin 
    while Connected do
    begin
    if (GetX(self) = Xhome) and not dead then
        begin
        Addtosystemjournal('Home, sweet home');
        wait(1000);
        MoveItems(backpack, $14ED, $FFFF, trash, 0, 0, 0, 50)
        wait(1000);
        useobject(sunduk2);
        wait(1000);
        for k := 1 to 8 do
            begin 
            repeat
                findtype(Ruda[k],BackPack);
                if (findcount > 0) then MoveItems(backpack, Ruda[k], $FFFF, sunduk2, 0, 0, 0, 50);
                wait(100);
                checksave;
            until findcount = 0;
            end;
        wait(1000);
        useobject(sunduk);
        wait(1000);
        Hungry(1,sunduk);
        wait(1000);
        checksave;
        findtype($1F4C,sunduk);
        if (findcount > 0) then MoveItems(sunduk, $1F4C, $FFFF, RB, 0, 0, 0, 500)
        else
            begin
            Addtosystemjournal('KoH4uJIuCb scrool recall');
            exit;
            end;
        wait(1000);
        checksave;
        MoveItems(Backpack, $1F4C, $FFFF, sunduk, 0, 0, 0, 500);
        wait(1000);
        checksave;
        wait(1000);
        if (not CheckPickaxe) then 
            begin 
            findtype($0E85,sunduk);
            if findcount > 0 then
                MoveItem(FindItem, 5, BackPack, 0, 0, 0)
            else
                Addtosystemjournal('KoH4uJIuCb Kupku');
                checksave;
            end;
         wait(1000);
        disarm;
        recall;
        end;

    if CheckPickaxe and (not dead) then Min
        else
        begin
        if dead then 
            begin
            wait(1000);
            uosay('.rescue');
            wait(3000);
            Addtosystemjournal('y6uJIu!!!');
            uosay('.msg Doger PALEVOOOOOOOOOOOOooooooOOOOOO');
            home;
            end;
        end;
    end;
wait(100);
end;
END.

WladL · Post by **WladL** » 22.11.2009 23:17

Code: Select all

procedure Min; 
begin 
while (connected) do 
begin 
    if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);

переписываем так

Code: Select all

function Min:integer; 
begin
result:=0; 
while (connected) do 
begin 
    if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);
......
остальной код процедуры
......
            if (ObjAtLayer(RHandLayer) = 0) then 
                begin 
                if (not CheckPickaxe) then begin
                   result:=1;     
                   exit;
                 end; 
                equipt(RHandLayer,pickaxe); 
                end; 
            end; 
        end; 
    if (Moving = 1) then move; 
end; 
end;

далее

Code: Select all

BEGIN 
r:=1; 
Ruda[1] := $19B9; 
Ruda[2] := $0F30; 
Ruda[3] := $0F2D;
......
остальной код
......
    if CheckPickaxe and (not dead) then begin
        if Min=1 then Home;
        end else 
        begin 
        if dead then 
            begin 
            wait(1000); 
            uosay('.rescue'); 
            wait(3000); 
            Addtosystemjournal('y6uJIu!!!'); 
            uosay('.msg Doger PALEVOOOOOOOOOOOOooooooOOOOOO'); 
            home; 
            end; 
        end; 
    end; 
wait(100); 
end; 
END.

Doger · Post by **Doger** » 23.11.2009 15:38

Влад,спасибо ОГРОМНОЕ!!! Всё работает ваще круто !!!

grundick · Post by **grundick** » 23.11.2009 15:43

Зулу опять оживилось?

Doger · Post by **Doger** » 23.11.2009 16:11

Угу=)))) Оживилось и процветает )))) Только как обычно кризис у стафа со скриптёрами )))

grundick · Post by **grundick** » 23.11.2009 16:23

А Грин уже в ваших скриптерах не числится?

Doger · Post by **Doger** » 23.11.2009 17:11

Числится.... Но он один медленно работает

Еще бы парочку Гринов,тогда нормуль было бы )

Doger · Post by **Doger** » 25.11.2009 18:25

Исче вопрос по скрипту. После реконнекта скрипт остаётся запущенным,а чар ничего не делает...как быть

WladL · Post by **WladL** » 26.11.2009 1:16

Code: Select all

while true do 
begin 
    while Connected do 
    begin
...
   end;
end;

переписать на

Code: Select all

while true do 
begin 
    WaitConnection(3000);//надеюсь в инклюдах оно у тебя есть
...
end;

и еще тут

Code: Select all

procedure move; 
begin 
...
until (GetX(self) <> x) or (GetY(self) <> y) or dead;
end;

сделать так

Code: Select all

procedure move; 
begin 
...
WaitConnection(3000);
until (GetX(self) <> x) or (GetY(self) <> y) or dead ;
end;

Doger · Post by **Doger** » 28.11.2009 7:22

Влад,я уж незнаю как тебя и благадарить!!!!!!! Всё крут,работает!!!!
Исче раз ОГРОМНОЕ СПАСИБО!!!

dance4Life2 · Post by **dance4Life2** » 30.11.2009 10:50

Doger wrote:Влад,я уж незнаю как тебя и благадарить!!!!!!! Всё крут,работает!!!!
Исче раз ОГРОМНОЕ СПАСИБО!!!

Выложи плз скрипт, а то у меня выдает ошибку...