Авторизация  
gilmour

Lamber+armslore

В теме 18 сообщений

program lumber_autotile;
//lumber autotile v1.1 by Nazgul for Moria
 
var
TyleType : Array [0..183] of Word;
a : TFoundTilesArray;
c,b,s : Integer;
 
const
Xmin = 3400;
Xmax = 5900;
Ymin = 333;
Ymax = 337;
vozleX = 8654;
vozleY = 237;
lodkaX = 2604;
lodkaY = 239;
lodkaZ = -2;
Trap = $4372A12R;
TynkType = $1EBc;
AxeType = $0F43;
IngotType = $1BF2;
LogType = $1BDD;
AxeGump = '3907';
WLimit = 180;
eda = $097B;
 
{$Include 'all.inc'}
 
procedure armslore;
begin 
if TargetPresent then CancelTarget; 
Checktargeterror(2,2); 
UseSkill('Arms Lore'); 
WaitTargetObject(FindType(AxeType,BackPack));
Wait(2000); 
end; 
 
procedure checkcoord;
begin
if (GetZ(self) = lodkaZ) then
  begin
  repeat
  MoveXY(lodkaX,lodkaY, True, 0, True);
  UseObject(Trap);
  wait(1000);
  Raw_Move(2,True);
  Raw_Move(2,True);
  wait(1000);
  until (GetZ(self) <> lodkaZ);
  end;
end;
 
procedure CheckIngot;
begin
FindType(IngotType, Backpack);
if (FindFullQuantity < 4) then
  begin
  FindType(IngotType, Ground);
  if (FindCount > 0) then
    begin
    MoveItem(finditem, 4, Backpack, 0,0,0);
    wait(500);
    end;
  end;
end;
 
procedure CheckAxe;
begin
if (Count(AxeType) < 4) then
   begin
   If TargetPresent Then CancelTarget;
   repeat
   CheckIngot;
   UseObject(FindType(TynkType,Ground));
   WaitTargetObject(FindType(IngotType,BackPack));
   WaitGump(AxeGump);
   WaitJournalLine(Now, 'You create|destroy|must stand', 30000);
   until (Count(AxeType) >= 5);
   end;
end;
 
procedure DropLog;
begin
repeat
FindType(LogType,Backpack);
if (FindCount > 0) then
   begin
   stack(LogType,GetColor(finditem));
   wait(500);
   stack($0F8C,-1);
   stack($0F90,-1);
   end;
until (Count(LogType) = 0);
FindType(LogType,ground);
Addtosystemjournal('Дерева всего на лодке - '+intToStr(findfullquantity));
FindType(TynkType,ground);
Addtosystemjournal('Тулзов на лодке - '+intToStr(findfullquantity));
FindType(eda,ground);
Addtosystemjournal('Еды осталось - '+intToStr(findfullquantity));
Addtosystemjournal('=========================================');
end;
 
procedure checkfish;
begin
if (Count(eda) < 3) then
   begin
   MoveItem(FindType(eda,ground), 5, Backpack, 0,0,0);
   Wait(500);
   end;
end;
 
procedure GotoOnBoad;
begin
MoveXY(vozleX,vozleY, True, 0, True);
repeat
UseObject(Trap);
wait(1000);
until (GetZ(self) = lodkaZ);
DropLog;
checkfish;
Hungry(1,ground);
CheckAxe;
checkcoord;
end;
 
procedure checktools;
begin
if (Count(AxeType) = 0) then
   begin
   GotoOnBoad;
   end;
end;
 
procedure checkweight;
begin
if (Weight > WLimit) then  
   begin
   GotoOnBoad;
   end;
end;
 
BEGIN
Addtosystemjournal('Скрипт успешно стартовал.');
TyleType[0] := 3230
TyleType[1] := 3231
TyleType[2] := 3232
TyleType[3] := 3233
TyleType[4] := 3234
TyleType[5] := 3235
TyleType[6] := 3236
TyleType[7] := 3237
TyleType[8] := 3238
TyleType[9] := 3239
TyleType[10] := 3240
TyleType[11] := 3241
TyleType[12] := 3242
TyleType[13] := 3243
TyleType[14] := 3244
TyleType[15] := 3245
TyleType[16] := 3246
TyleType[17] := 3247
TyleType[18] := 3248
TyleType[19] := 3249
TyleType[20] := 3250
TyleType[21] := 3251
TyleType[22] := 3252
TyleType[23] := 3253
TyleType[24] := 3254
TyleType[25] := 3255
TyleType[26] := 3256
TyleType[27] := 3257
TyleType[28] := 3258
TyleType[29] := 3259
TyleType[30] := 3260
TyleType[31] := 3261
TyleType[32] := 3262
TyleType[33] := 3263
TyleType[34] := 3264
TyleType[35] := 3265
TyleType[36] := 3266
TyleType[37] := 3267
TyleType[38] := 3268
TyleType[39] := 3269
TyleType[40] := 3270
TyleType[41] := 3271
TyleType[42] := 3272
TyleType[43] := 3273
TyleType[44] := 3274
TyleType[45] := 3275
TyleType[46] := 3276
TyleType[47] := 3277
TyleType[48] := 3278
TyleType[49] := 3279
TyleType[50] := 3280
TyleType[51] := 3281
TyleType[52] := 3282
TyleType[53] := 3283
TyleType[54] := 3284
TyleType[55] := 3285
TyleType[56] := 3286
TyleType[57] := 3299
TyleType[58] := 3305
TyleType[59] := 3306
TyleType[60] := 3307
TyleType[61] := 3308
TyleType[62] := 3309
TyleType[63] := 3315
TyleType[64] := 3316
TyleType[65] := 3317
TyleType[66] := 3318
TyleType[67] := 3319
TyleType[68] := 3320
TyleType[69] := 3321
TyleType[70] := 3322
TyleType[71] := 3323
TyleType[72] := 3324
TyleType[73] := 3325
TyleType[74] := 3326
TyleType[75] := 3327
TyleType[76] := 3328
TyleType[77] := 3329
TyleType[78] := 3330
TyleType[79] := 3331
TyleType[80] := 3332
TyleType[81] := 3333
TyleType[82] := 3334
TyleType[83] := 3335
TyleType[84] := 3336
TyleType[85] := 3337
TyleType[86] := 3338
TyleType[87] := 3339
TyleType[88] := 3340
TyleType[89] := 3393
TyleType[90] := 3394
TyleType[91] := 3395
TyleType[92] := 3396
TyleType[93] := 3397
TyleType[94] := 3398
TyleType[95] := 3403
TyleType[96] := 3405
TyleType[97] := 3409
TyleType[98] := 3410
TyleType[99] := 3411
TyleType[100] := 3412
TyleType[101] := 3413
TyleType[102] := 3414
TyleType[103] := 3415
TyleType[104] := 3416
TyleType[105] := 3417
TyleType[106] := 3418
TyleType[107] := 3419
TyleType[108] := 3420
TyleType[109] := 3421
TyleType[110] := 3422
TyleType[111] := 3423
TyleType[112] := 3426
TyleType[113] := 3427
TyleType[114] := 3428
TyleType[115] := 3429
TyleType[116] := 3430
TyleType[117] := 3431
TyleType[118] := 3432
TyleType[119] := 3433
TyleType[120] := 3434
TyleType[121] := 3435
TyleType[122] := 3436
TyleType[123] := 3437
TyleType[124] := 3438
TyleType[125] := 3439
TyleType[126] := 3440
TyleType[127] := 3441
TyleType[128] := 3442
TyleType[129] := 3443
TyleType[130] := 3444
TyleType[131] := 3445
TyleType[132] := 3446
TyleType[133] := 3447
TyleType[134] := 3449
TyleType[135] := 3450
TyleType[136] := 3451
TyleType[137] := 3452
TyleType[138] := 3453
TyleType[139] := 3454
TyleType[140] := 3455
TyleType[141] := 3456
TyleType[142] := 3457
TyleType[143] := 3458
TyleType[144] := 3459
TyleType[145] := 3460
TyleType[146] := 3461
TyleType[147] := 3462
TyleType[148] := 3463
TyleType[149] := 3464
TyleType[150] := 3465
TyleType[151] := 3467
TyleType[152] := 3468
TyleType[153] := 3469
TyleType[154] := 3470
TyleType[155] := 3471
TyleType[156] := 3472
TyleType[157] := 3473
TyleType[158] := 3474
TyleType[159] := 3475
TyleType[160] := 3476
TyleType[161] := 3477
TyleType[162] := 3478
TyleType[163] := 3479
TyleType[164] := 3480
TyleType[165] := 3481
TyleType[166] := 3482
TyleType[167] := 3483
TyleType[168] := 3484
TyleType[169] := 3485
TyleType[170] := 3486
TyleType[171] := 3487
TyleType[172] := 3488
TyleType[173] := 3489
TyleType[174] := 3490
TyleType[175] := 3491
TyleType[176] := 3492
TyleType[177] := 3493
TyleType[178] := 3494
TyleType[179] := 3495
TyleType[180] := 3496
TyleType[181] := 3497
TyleType[182] := 3498
TyleType[183] := 3499
while not Dead do
   begin
   for s := 0 to 183 do
      begin
      b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 0, TyleType, 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); 
         armslore;
         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,(a[c].X),(a[c].Y),(a[c].Z));
         WaitJournalLine(Now,'is attacking|enough|how to use|broke|stop|see|far away|There is no more',120000);
         end;
      end;
   end;
END.

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

TynkType = $1EBc;  ????????????????

IngotType = $1BF2;??????????????????
LogType = $1BDD;???????????????
AxeGump = '3907';??????????????

 

подскажите что єто

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Подскажите, по какой причине крафт  не  может выйти с лодки... ошибок нету... ходит 1749 1750 и обратно 1749)

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Если правильно понимаю скрипт,

Raw_Move(2,True);
  Raw_Move(2,True);

То "2" отвечает за направление в котором персонаж пытается сойти на трап и с него на берег. Поиграйся с цифрами, помоему от 1 до 8.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Все вышло, теперь застой, после АРМС лора... я так понимаю он хочет  рубить тем топором с пака который проверил на АРМС лоре.... 

[10:30:21:358] System: Select an object to evaluate.
[10:30:21:657] System: This Battle Axe have 21 points of average damage and remain 80 of 80 hit points. Vendor Buy this item for: 36
[10:30:23:438] System: You are DYING of hunger...
[10:30:23:635] Kira: You must equip it to chop.
 

Кто сталкивался?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

подскажите вот эту ошибку выбиватет в этом скрипте

19:04:44:804 [Nike]: Compiler: [Hint] (D:\Новая папка\Scripts\Include\hungry.inc at 9:5): Variable 'B' never used
19:04:44:804 [Nike]: Compiler: [Error] (D:\Новая папка\Scripts\Ламбер+армслор.txt at 333:67): Type mismatch

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

 

b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 0, TyleType, a); 

Вот в этой строчке проблема, а проповедь о расширениях абсолютно безосновательна.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
В 19.10.2018 в 2:09 PM, Tirael сказал:

 


b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 0, TyleType, a); 

Вот в этой строчке проблема, а проповедь о расширениях абсолютно безосновательна.

подскажи как исправить и зделать так чтоб скрипт работал пожайлуста!

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Внесу ка и я свой комент. Я рублю именно на этом скрипте. И у меня он работает. незабываем что от версии стелса еще зависит работоспособность скрипта.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
В 25.10.2018 в 10:23 PM, Hito сказал:

Внесу ка и я свой комент. Я рублю именно на этом скрипте. И у меня он работает. незабываем что от версии стелса еще зависит работоспособность скрипта.

а на какой версии работает у тебя?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Вы че пьяные?C открытия серва рублю на этом скрипте и вообще нет никаких проблем.Точки,трап и выход меняешь и все.
Все остально может быть только из-за проблем стелса.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
В 24.01.2019 в 3:40 PM, gilmour сказал:

Вы че пьяные?C открытия серва рублю на этом скрипте и вообще нет никаких проблем.Точки,трап и выход меняешь и все.
Все остально может быть только из-за проблем стелса.

Ну почему же пьяные? Мы нормальные люди которые обновляют стелс по мере выхода стабильных версий. Утопичная лень в духе "у меня все работает" не аргумент.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

По всей видимости то что было написано - слишком сложно раз ты не понял.  Дать ещё подсказку? Ты без них никак наверное.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация