Текущее время: 21 фев 2020 15:29

Часовой пояс: UTC+02:00




Начать новую тему  Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Помогите с ламбером
СообщениеДобавлено: 30 янв 2005 20:00 
Хранитель подземной кирки ;o)
Аватара пользователя

Зарегистрирован: 05 июн 2004 22:30
Сообщения: 19505
Макрос плохо работает...Инногда подбегает к дереву делает дабл клик на топор и не рубит(такое случается не с одним и темжеш деревом, бывает первый круг он нормально рубит, а второй нет). Я думал что это связано с кординатами дерева но он все равно не рубит.
Зарание благодарен
nitevents
Set %weight #STR * 3
Set %tree 0
Set #SYSMSGCOL 30
Event Sysmessage Lamber Script by MAXHO v3.0

Next:
Event Sysmessage Going to %tree tree
Msg - $
Set %i 0
Set %tree %tree + 1
If %tree > 30
Set %tree 1
If %tree = 1
{
Set #LTARGETX 2954
Set #LTARGETY 371
Set #LTARGETTILE 3288
}
If %tree = 2
{
Set #LTARGETX 2963
Set #LTARGETY 378
Set #LTARGETTILE 3302
}
If %tree = 3
{
Set #LTARGETX 2966
Set #LTARGETY 379
Set #LTARGETTILE 3302
}
If %tree = 4
{
Set #LTARGETX 2962
Set #LTARGETY 381
Set #LTARGETTILE 3290
}
If %tree = 5
{
Set #LTARGETX 2962
Set #LTARGETY 383
Set #LTARGETTILE 3288
}
If %tree = 6
{
Set #LTARGETX 2973
Set #LTARGETY 378
Set #LTARGETTILE 3286
}
If %tree = 7
{
Set #LTARGETX 2969
Set #LTARGETY 388
Set #LTARGETTILE 3296
}
If %tree = 8
{
Set #LTARGETX 2959
Set #LTARGETY 388
Set #LTARGETTILE 3280
}
If %tree = 9
{
Set #LTARGETX 2959
Set #LTARGETY 390
Set #LTARGETTILE 3277
}
If %tree = 10
{
Set #LTARGETX 2958
Set #LTARGETY 391
Set #LTARGETTILE 3286
}
If %tree = 11
{
Set #LTARGETX 2949
Set #LTARGETY 386
Set #LTARGETTILE 3302
}
If %tree = 12
{
Set #LTARGETX 2948
Set #LTARGETY 387
Set #LTARGETTILE 3283
}
If %tree = 13
{
Set #LTARGETX 2944
Set #LTARGETY 391
Set #LTARGETTILE 3277
}
If %tree = 14
{
Set #LTARGETX 2946
Set #LTARGETY 383
Set #LTARGETTILE 3277
}
If %tree = 15
{
Set #LTARGETX 2940
Set #LTARGETY 385
Set #LTARGETTILE 3293
}
If %tree = 16
{
Set #LTARGETX 2938
Set #LTARGETY 379
Set #LTARGETTILE 3286
}
If %tree = 17
{
Set #LTARGETX 2944
Set #LTARGETY 373
Set #LTARGETTILE 3280
}
If %tree = 18
{
Set #LTARGETX 2944
Set #LTARGETY 371
Set #LTARGETTILE 3290
}
If %tree = 19
{
Set #LTARGETX 2941
Set #LTARGETY 372
Set #LTARGETTILE 3283
}
If %tree = 20
{
Set #LTARGETX 2941
Set #LTARGETY 366
Set #LTARGETTILE 3277
}
If %tree = 21
{
Set #LTARGETX 2939
Set #LTARGETY 366
Set #LTARGETTILE 3277
}
If %tree = 22
{
Set #LTARGETX 2936
Set #LTARGETY 365
Set #LTARGETTILE 3302
}
If %tree = 23
{
Set #LTARGETX 2938
Set #LTARGETY 357
Set #LTARGETTILE 3296
}
If %tree = 24
{
Set #LTARGETX 2935
Set #LTARGETY 356
Set #LTARGETTILE 3293
}
If %tree = 25
{
Set #LTARGETX 2936
Set #LTARGETY 351
Set #LTARGETTILE 3293
}
If %tree = 26
{
Set #LTARGETX 2929
Set #LTARGETY 370
Set #LTARGETTILE 3293
}
If %tree = 27
{
Set #LTARGETX 2928
Set #LTARGETY 369
Set #LTARGETTILE 3277
}
If %tree = 28
{
Set #LTARGETX 2929
Set #LTARGETY 370
Set #LTARGETTILE 3293
}
If %tree = 29
{
Set #LTARGETX 2931
Set #LTARGETY 376
Set #LTARGETTILE 3283
}
If %tree = 30
{
Set #LTARGETX 2933
Set #LTARGETY 384
Set #LTARGETTILE 3290
}
Set %x #LTARGETX + 1
Set %y #LTARGETY + 1
Move %x %y 0 30s
Wait 2s
Chop:
Finditem FSF_BSF_YTH_RMH
Set #LOBJECTID #FINDID
Set #LTARGETKIND 3
Event Macro 17 0
Wait 1s
Event Macro 22 0
Wait 1s
Scan:
Set %i %i - 12
GoSub FindMonster
If #WEIGHT > %weight
Goto Store
Scanjournal 1
If [202] in #JOURNAL
Goto Next
Scanjournal 2
If [202] in #JOURNAL
Goto Next
Scanjournal 3
If [202] in #JOURNAL
Goto Next
If %i > 20
{
Set %i 0
Set %tree %tree - 2
If %tree > 20
Set %tree 1
Goto Next
}
Wait 1s
Goto Scan
Store:
Move 2958 367 0 30s
Finditem MMK_MZF_WZF
If #FINDKIND = 1
{
Ignoreitem #FINDID
Goto store
}
If #FINDKIND <> 0
{
Move %x %y 0 30s
Goto Chop
}
Event Drag #FINDID
Wait 5
Key Enter
Wait 5
Click 441 287
Wait 5
Goto Store

KillMonster:
Finditem HS_JE
Wait 1s
If #FINDKIND = -1
{
Move %x %y 0 30s
Goto Chop
}
Move #FINDX #FINDY 0 30s
Goto KillMonster

Sub FindMonster
Finditem HS_JE
Wait 1s
If #FINDKIND <> -1
Goto KillMonster
Return

_________________
Live if you wanna live(c)Bob Marley


Вернуться к началу
Показать сообщения за:  Поле сортировки  
Начать новую тему  Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC+02:00


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти: