Stealth Client Forum

Code: Select all

addtosystemjournal('1');
    UseObject($00000357);  //квестер при клике на него, выдает окно с текстом. На старом стелсе работало. Вылетало иногда на строке   ---->
    addtosystemjournal('2');
    for timer_1:=0 to 20 do begin
      if GetGumpsCount>a then break;
      wait(150);
      addtosystemjournal('wait'+inttostr(timer_1));
    end;         
    if (GetGumpsCount>0) then begin
    addtosystemjournal('3');
      b:=TStringList.Create;
      addtosystemjournal('4');
if GetGumpID(GetGumpsCount-1)=0 then continue;
      addtosystemjournal('Вычитываю');
      GetGumpTextLines(GetGumpsCount-1,b);          <----
      addtosystemjournal('Вычитал');
      for i:=0 to 10 do addtosystemjournal(b.strings[i]);

Code: Select all

Program aa;

Procedure Speech(Text, SenderName: String; SenderID: Cardinal);
Begin
  AddToSystemJournal('aa');
End;

Begin
  SetEventProc(evSpeech, 'Speech');
  While True Do Wait(1000);
End.

Code: Select all

Program a;
Begin
//тут не читает
End.

Code: Select all

BEGIN
Addtosystemjournal('Скрипт успешно стартовал. by Hi-tech');
Addtosystemjournal('Изменен и доделан. by Respik');
TyleType[0] := 3274;
TyleType[1] := 3275;
TyleType[2] := 3276;
TyleType[3] := 3277;
TyleType[4] := 3280;
TyleType[5] := 3283;
TyleType[6] := 3286;
TyleType[7] := 3289;
TyleType[8] := 3291;
TyleType[9] := 3292;
TyleType[10] := 3294;
TyleType[11] := 3295;
TyleType[12] := 3296;
TyleType[13] := 3299;
TyleType[14] := 3302;
TyleType[15] := 3394;
TyleType[16] := 3395;
TyleType[17] := 3417;
TyleType[18] := 3440;
TyleType[19] := 3460;
while not Dead do
   begin
   for s := 0 to 19 do
      begin
      b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 0, TyleType[s], a); 
      AddToSystemJournal('Tile Count : '+IntToStr(b));
      for c :=0 to b-1 do
         begin
         checktools;
         CheckWeight;
         checkcoord; 
         MoveXY(a[c].X,a[c].Y, True, 1, True); 
         Hungry(1,Backpack);
         If TargetPresent Then CancelTarget;
         if (GetType(ObjAtLayer(LhandLayer)) <> AxeType) then
            begin
            UseObject(FindType(AxeType, Backpack));
            end;
         if (GetType(ObjAtLayer(LhandLayer)) = AxeType) then
            begin
            UseObject(ObjAtLayer(LhandLayer));
            end;
         WaitTargetTile(TyleType[s],(a[c].X),(a[c].Y),(a[c].Z));
         WaitJournalLine(Now,'is attacking|enough|how to use|broke|stop|see|far away',120000);
         end;
end;
      end;