Всем Здрасти!

GoodLuck · Post by **GoodLuck** » 17.01.2011 16:30

Всем здрасте можете подправить скрипт на ламбер не давно он работал как поменяли видо изменили рунбуки чуток перестал работать а суть была такая его .Руби лв гк в двух местах прилетал по рунке обрубливал вокруг себя и на вторую рунку летел и так летал ну как изменили рунабуки он перестал летать ипишит такое

Code: Select all

0:25:56 [adik]: Compiler: [Hint] (GK.sc at 18:3):  Variable 'RUNA' never used
0:25:56 [adik]: Compiled succesfully

Code: Select all

Program lumber_GK;

{$Include 'all.inc'}

const
  axet = $0F49;
  Msg1 = 'stop';
  rbook = $5526C0B4; // Серийник рунбуки
  runa1 = 1;  // Руна к месту 1
  runa2 = 2;  // Руна к месту 2
type
i_rail = array[1..4] of Integer;

var
  x, i, mn1, k : Integer;
  TypeTree : i_rail;
  var ctime : TDateTime;
  Runa : array[1..2] of integer;

procedure tree_int;
begin
TypeTree[1]:=$0DA6;
TypeTree[2]:=$0D9E;
TypeTree[3]:=$0CAA;
TypeTree[4]:=$0D9A;
end;



procedure Recharge;
begin
        findtype($1F4C,backpack);
        if (findcount > 0) then MoveItems(backpack, $1F4C, $FFFF, rbook, 0, 0, 0, 500)
        else
            begin
            Addtosystemjournal('KoH4uJIuCb scrool recall');
            exit;
            end;
end;

procedure RecallRB(RBID : Cardinal; RuneNumber : Integer);
begin
      UseObject(rbook);
      WaitGump(IntToStr(15 + RuneNumber));
      wait(2000);
end;



procedure lumber;
begin
     for i := 1 to 4 do
        begin
            FindType(TypeTree[i],ground);
            while FindCount > 0 do
                    begin
                        clearjournal;
                        if TargetPresent then CancelTarget;
                        ctime := Now;
                        WaitTargetObject(FindItem)
                        UseObject(ObjAtLayerEx(LhandLayer,self));
                        k := 0;
                        repeat
                            wait(100);
                            k := k + 1;
                            mn1 := InJournalBetweenTimes(Msg1, ctime, Now);
                        until (mn1<>-1) or (k > 700);
                        Ignore(FindItem);
                        FindType(TypeTree[i], ground);
                   end;
        end;
   IgnoreReset;
end;

Begin
  x:=GetX(self);
    tree_int;
    FindDistance := 2;
    SetARStatus(true);
    wait(3000);
    while true do

            begin
hungry(1,backpack);
recharge;
RecallRB(rbook,runa2);
wait(1000)
lumber;
RecallRB(rbook,runa1)
wait(1000)
lumber;      
wait(2000);
recharge;
           end;
End.

Fenix · Post by **Fenix** » 17.01.2011 20:57

Этих данных будет недостаточно чтобы разобраться в гампе рунбуки. Нужна инфа по содержимому гампа.

nikbk · Post by **nikbk** » 17.01.2011 23:49

нажатие на первую руну WaitGump(IntToStr(1026));
нажатие на вторую руну WaitGump(IntToStr(1027));
....
....
....

GoodLuck · Post by **GoodLuck** » 18.01.2011 10:15

Fenix wrote:Этих данных будет недостаточно чтобы разобраться в гампе рунбуки. Нужна инфа по содержимому гампа.

Code: Select all

_____infogump_______
serial	0x0000178a
gumpid	0x00640a3f
X	0
Y	0
1928	packet size
23	reply packet size
Buttons: ________
 page 0
    1 [    0] image=0x08B1 at 60:232
    2 [    0] image=0x08B2 at 95:232
 page 1
    3 [ 1025] image=0x09A9 at 60:65
    4 [ 1026] image=0x0838 at 60:111
    5 [ 1027] image=0x0838 at 60:126
    6 [ 1028] image=0x0838 at 60:141
    7 [ 1028] image=0x089E at 325:59
 page 2
    8 [ 1028] image=0x089D at 53:59
    9 [ 1029] image=0x0939 at 90:65
   10 [ 1026] image=0x0838 at 60:111
   11 [ 1030] image=0x0986 at 65:165
   12 [ 1031] image=0x08DF at 65:185
   13 [ 1032] image=0x08F3 at 135:185
   14 [ 1033] image=0x0939 at 230:65
   15 [ 1027] image=0x0838 at 219:111
   16 [ 1034] image=0x0986 at 225:165
   17 [ 1035] image=0x08DF at 225:185
   18 [ 1036] image=0x08F3 at 295:185
   19 [ 1036] image=0x089E at 325:59
 page 3
   20 [ 1036] image=0x089D at 53:59
   21 [ 1037] image=0x0939 at 90:65
   22 [ 1028] image=0x0838 at 60:111
   23 [ 1038] image=0x0986 at 65:165
   24 [ 1039] image=0x08DF at 65:185
   25 [ 1040] image=0x08F3 at 135:185
Checks&Radios: __
Entryes: ________
All commands: ____
    1] page 0
    2] nodispose
    3] nodispose
    4] gumppic 30 55 2203
    5] gumppic 55 95 57
    6] gumppic 75 95 58
    7] gumppic 90 95 58
    8] gumppic 105 95 58
    9] gumppic 120 95 58
   10] gumppic 135 95 58
   11] gumppic 150 95 58
   12] gumppic 165 95 59
   13] gumppic 218 95 57
   14] gumppic 233 95 58
   15] gumppic 248 95 58
   16] gumppic 263 95 58
   17] gumppic 278 95 58
   18] gumppic 293 95 58
   19] gumppic 308 95 58
   20] gumppic 323 95 59
   21] text 90 85 0 0
   22] text 228 85 0 1
   23] button 60 232 2225 2225 0 2
   24] button 95 232 2226 2226 0 3
   25] page 1
   26] text 90 67 0 2
   27] button 60 65 2472 2473 1 0 1025
   28] croppedtext 75 106 115 25 0 3
   29] button 60 111 2103 2104 1 0 1026
   30] croppedtext 75 121 115 25 0 4
   31] button 60 126 2103 2104 1 0 1027
   32] croppedtext 75 136 115 25 0 5
   33] button 60 141 2103 2104 1 0 1028
   34] button 325 59 2206 2206 0 2
   35] page 2
   36] button 53 59 2205 2205 0 1
   37] button 90 65 2361 2361 1 0 1029
   38] text 105 60 0 6
   39] text 80 160 0 7
   40] croppedtext 75 106 115 25 0 8
   41] button 60 111 2103 2104 1 0 1026
   42] button 65 165 2437 2438 1 0 1030
   43] button 65 185 2271 2271 1 0 1031
   44] button 135 185 2291 2291 1 0 1032
   45] button 230 65 2361 2361 1 0 1033
   46] text 245 60 0 9
   47] text 240 160 0 10
   48] croppedtext 234 106 115 25 0 11
   49] button 219 111 2103 2104 1 0 1027
   50] button 225 165 2437 2438 1 0 1034
   51] button 225 185 2271 2271 1 0 1035
   52] button 295 185 2291 2291 1 0 1036
   53] button 325 59 2206 2206 0 3
   54] page 3
   55] button 53 59 2205 2205 0 2
   56] button 90 65 2361 2361 1 0 1037
   57] text 105 60 0 12
   58] text 80 160 0 13
   59] croppedtext 75 106 115 25 0 14
   60] button 60 111 2103 2104 1 0 1028
   61] button 65 165 2437 2438 1 0 1038
   62] button 65 185 2271 2271 1 0 1039
   63] button 135 185 2291 2291 1 0 1040
Text: ____________
    0] Charges: 10
    1] Max Charges:10
    2] Rename Book
    3] GK
    4] 2
    5] 1
    6] Set default
    7] Drop rune
    8] GK
    9] Set default
   10] Drop rune
   11] 2
   12] Set default
   13] Drop rune
   14] 1
Reply: ___________
 [0000] primary reply
 Checks&Radios (0)
 Entryes (0)

GoodLuck · Post by **GoodLuck** » 18.01.2011 10:16

nikbk wrote:нажатие на первую руну WaitGump(IntToStr(1026));
нажатие на вторую руну WaitGump(IntToStr(1027));
....
....
....

а можешь в скрипте это изминить . я просто чайник в этом деле )

nikbk · Post by **nikbk** » 18.01.2011 11:35

Code: Select all

Program lumber_GK; 

{$Include 'all.inc'} 

const 
  axet = $0F49; 
  Msg1 = 'stop'; 
  rbook = $5526C0B4; // Серийник рунбуки 
  runa1 = 1026;  //  1 первая кнопка в рунбуке
  runa2 = 1027;  // 2 кнопка в рунбуке
type 
i_rail = array[1..4] of Integer; 

var 
  x, i, mn1, k : Integer; 
  TypeTree : i_rail; 
  var ctime : TDateTime; 
  Runa : array[1..2] of integer; 

procedure tree_int; 
begin 
TypeTree[1]:=$0DA6; 
TypeTree[2]:=$0D9E; 
TypeTree[3]:=$0CAA; 
TypeTree[4]:=$0D9A; 
end; 



procedure Recharge; 
begin 
        findtype($1F4C,backpack); 
        if (findcount > 0) then MoveItems(backpack, $1F4C, $FFFF, rbook, 0, 0, 0, 500) 
        else 
            begin 
            Addtosystemjournal('KoH4uJIuCb scrool recall'); 
            exit; 
            end; 
end; 

procedure RecallRB(RBID : Cardinal; RuneNumber : Integer); 
begin 
      UseObject(rbook); 
      WaitGump(IntToStr(RuneNumber)); 
      wait(2000); 
end; 



procedure lumber; 
begin 
     for i := 1 to 4 do 
        begin 
            FindType(TypeTree[i],ground); 
            while FindCount > 0 do 
                    begin 
                        clearjournal; 
                        if TargetPresent then CancelTarget; 
                        ctime := Now; 
                        WaitTargetObject(FindItem) 
                        UseObject(ObjAtLayerEx(LhandLayer,self)); 
                        k := 0; 
                        repeat 
                            wait(100); 
                            k := k + 1; 
                            mn1 := InJournalBetweenTimes(Msg1, ctime, Now); 
                        until (mn1<>-1) or (k > 700); 
                        Ignore(FindItem); 
                        FindType(TypeTree[i], ground); 
                   end; 
        end; 
   IgnoreReset; 
end; 

Begin 
  x:=GetX(self); 
    tree_int; 
    FindDistance := 2; 
    SetARStatus(true); 
    wait(3000); 
    while true do 

            begin 
hungry(1,backpack); 
recharge; 
RecallRB(rbook,runa2); 
wait(1000) 
lumber; 
RecallRB(rbook,runa1) 
wait(1000) 
lumber;      
wait(2000); 
recharge; 
           end; 
End.