Ламбер

Предыдущая тема Следующая тема Перейти вниз

Ламбер

Сообщение  Mazunchik в Сб Май 15, 2010 3:08 am

;-----------------------------------------------------
; Автор: СаНеК (ася 340022777, майл saskuk@ukr.net )
; Дата создания: в начале 2006года
; Дата последнего изменения: 10/06/2007
; Версия: (2.0)
; Тестил на: изя 1.5 клинет 306 инжект 4.0.
; Задумка: Кушает стейки около сундука (G_3). Бегает за дриадами. Не хилится.
; Фичи:
; + Динамическая пауза, тоесть ждет не стандартные 3 секунды, а столько, сколько действительно осталось подождать
; + Не нужно носить еду в бэкпаке, ест когда складывает в сундук
; + Сам берет по одному топору
; + Не нужны бинты
; + Мгновенная реакция на [202]
; + Бегает за буратинами
; + Куча защит от всяких неприятностей, чтоб макрос не остановился
; ... и др. все не вспомню
; Реализовано:
; Дописать: Чтобы брали бинты и лечился если нужно
; Внесены изменения: Найти основные места и сделать чтобы чар ожидал коннекта
;-----------------------------------------------------
Фичи:
+ Динамическая пауза, тоесть ждет не стандартные 3 секунды, а столько, сколько действительно осталось подождать
+ Не нужно носить еду в бэкпаке, ест когда складывает в сундук
+ Сам берет по одному топору
+ Не нужны бинты
+ Мгновенная реакция на [202]
+ Бегает за буратинами
+ Куча защит от всяких неприятностей, чтоб макрос не остановился
... и др. все не вспомню

Недостаток:
При курсе силы, чар уходит в хайд и ждет пока курса не пройдет, еслиб знал формулу расчета максимального веса по силе, то сделал бы чтоб и это время не пропало даром

И не забывайте, что хороший скрипт только половина дела. Хотите рубать быстро и много? - правильно расставте деревья и точки с которых рубаете. Не забывайте, что возле каждого дерева есть 24 точки с которых его можно достать, но оптимальны не все. Ставьте не меньше 40 деревьев.

set %chest MAKBQOF ; ID sunduka
set %maxw 530 ; max ves 305 - archer, 530 - tank
set %sx 2202 ; X vozle sunduka
set %sy 613 ; Y vozle sunduka
Set #SYSMSGCOL 88
event sysmessage Lumber by SaNeK (v 2.0)
Set #SYSMSGCOL 0
set %str #STR
set %topor !!!!!!!!!!!!!!!!!!!!!!
GoSub OpenStatus
GoSub Copyright

lumberstart:
; X-chara Y-chara X-dereva Y-dereva Z-dereva Lasttargettile
gosub lumber 2205 618 2204 618 0 3290
gosub lumber 2205 621 2204 621 0 3288
gosub lumber 2207 621 2208 621 0 3293
gosub lumber 2207 624 2208 624 0 3299
gosub lumber 2205 624 2204 624 0 3299
gosub lumber 2205 627 2204 627 0 3283
gosub lumber 2207 627 2208 627 0 3296
gosub lumber 2207 633 2208 633 0 3299
gosub lumber 2205 633 2204 633 0 3288
gosub lumber 2205 638 2204 639 0 3293
gosub lumber 2205 642 2204 642 0 3299
gosub lumber 2205 648 2204 648 0 3288
gosub lumber 2217 627 2216 627 0 3293
gosub lumber 2217 633 2216 633 0 3290
gosub lumber 2217 636 2216 636 0 3302
gosub lumber 2217 639 2216 639 0 3302
gosub lumber 2201 630 2200 630 0 3302
gosub lumber 2201 642 2200 642 0 3293
gosub lumber 2197 615 2196 615 0 3277
gosub lumber 2197 618 2196 618 0 3283
gosub lumber 2197 621 2196 621 0 3286
gosub lumber 2197 624 2196 624 0 3290
gosub lumber 2197 627 2196 627 0 3299
gosub lumber 2197 632 2196 633 0 3283
gosub lumber 2197 638 2196 639 0 3283
gosub lumber 2197 642 2196 642 0 3280
gosub lumber 2193 618 2192 618 0 3293
gosub lumber 2193 624 2192 624 0 3286
gosub lumber 2193 633 2192 633 0 3286
gosub lumber 2193 636 2192 636 0 3296
gosub lumber 2193 644 2192 645 0 3293
gosub lumber 2190 615 2188 615 0 3290
gosub lumber 2189 621 2188 621 0 3302
gosub lumber 2189 624 2188 624 0 3296
gosub lumber 2189 627 2188 627 0 3277
gosub lumber 2189 630 2188 630 0 3280
gosub lumber 2189 633 2188 633 0 3288
gosub lumber 2189 638 2188 639 0 3293
gosub lumber 2189 642 2188 642 0 3283
gosub lumber 2189 645 2188 645 0 3290
gosub lumber 2189 647 2188 648 0 3302
gosub lumber 2189 650 2188 651 0 3290
gosub lumber 2185 615 2184 615 0 3296
gosub lumber 2185 621 2184 621 0 3290
gosub lumber 2185 627 2184 627 0 3288
gosub lumber 2185 630 2184 630 0 3277
gosub lumber 2185 635 2184 636 0 3283
gosub lumber 2184 647 2184 648 0 3288
gosub lumber 2181 647 2180 648 0 3290
gosub lumber 2181 644 2180 645 0 3288
gosub lumber 2181 642 2180 642 0 3302
gosub lumber 2181 639 2180 639 0 3288
gosub lumber 2181 635 2180 636 0 3299
gosub lumber 2181 632 2180 633 0 3293
gosub lumber 2181 621 2180 621 0 3283
gosub lumber 2181 618 2180 618 0 3293

wait 65
Msg 'resend $
wait 60
goto lumberstart

sub lumber
set %treex %1
set %treey %2
totree:
gosub checkstat
set %next 0
set %mark 0
Msg ,waittargettile %6 %3 %4 %5 $
gosub run %treex %treey
If %treex = #CHARPOSX
{
If %treey = #CHARPOSY
{
if #WEIGHT <= %maxw
{
gosub dpause
Finditem %topor C_ , %backpack
---------------------------------------------------!!!!!!!!!!
Msg ,useobject _0x0f43 $
For %WaitLumb 1 80
{
If #WEIGHT <= %maxw
{
if %next = 0
{
Wait 10
gosub WaitConnect
gosub journalscan
gosub findhatchet
gosub scan
if %mark = 1
{
set %mark 0
goto totree
}
}
if %next = 1
{
set %WaitLumb 80
}
}
}
}
}
}

if #WEIGHT > %maxw
{
gosub run %sx %sy
if #CHARPOSX = %sx
{
if #CHARPOSY = %sy
{
for %cc 0 50
{
FindItem WZF_MZF_MMK C
If #FINDKIND <> -1
{
Msg ,moveitem #FINDID 5000 %chest $
wait 1s
}
else
{
set %mark 1
set %cc 50
wait 20
finditem HND G_3
Msg ,useobject #FINDID $
}
}
}
}
}
gosub scan
set %ltimer #SYSTIME
if %mark = 1
{
set %mark 0
goto totree
}
set %next 0
return

sub journalscan
set %next 0
scanjournal 1
if [202] in #journal
{
set %next 1
}
scanjournal 2
if [202] in #journal
{
set %next 1
}
deleteJournal
return

sub scan
finditem HS
if #FINDKIND = 1
{
if #FINDCOL = 2006
{
if #FINDREP = 6
{
if #FINDDIST > 1
{
gosub kill
}
}
}
}
finditem JE
if #FINDKIND = 1
{
if #FINDCOL = 0
{
if #FINDREP = 6
{
if #FINDDIST > 1
{
gosub kill
}
}
}
}
return

sub kill
set %atimer #SYSTIME
set %victim #Findid
startattack:
set %atime #SYSTIME - %atimer
if %atime > 90000
{
ignoreitem %victim
Msg 'resend $
set %ltimer #SYSTIME
wait 30
goto endattack
}
move #FindX #FindY 1 2s
if #STAMINA < 2
{
gosub overload
}
finditem %victim
if #Findkind = 1
{
goto startattack
}
endattack:
set %mark 1
return

sub findhatchet
findItem FSF C_ , %backpack
if #FINDKIND = -1
{
gosub WaitConnect
set %ltimer #SYSTIME
gosub run %sx %sy
if #CHARPOSX = %sx
{
if #CHARPOSY = %sy
{
gosub WaitConnect
gosub dpause
msg ,useobject %chest $
wait 20
msg ,moveitem %chest , .FSF $
set %mark 1
}
}
}
return

sub checkstat
startcheckstat:
if %str > #STR
{
wait 20
goto startcheckstat
}
if #STAMINA < 20
{
wait 20
gosub WaitConnect
goto startcheckstat
}
return

sub overload
gosub hide
gosub checkstat
return

sub hide
starthide:
if H notin #CHARSTATUS
{
gosub WaitConnect
wait 50
msg 'pc hide $
wait 20
goto starthide
}
return

sub run
if #CHARPOSX = %1
{
if #CHARPOSy = %2
{
goto exitrun
}
}
gosub movescan
move %1 %2 0 2s

if #STAMINA < 2
{
startdrop:
FindItem MMK C_ , #BACKPACKID
If #FINDKIND <> -1
{
msg ,drop 0 0 0 0 #FINDID $
wait 1s
goto startdrop
}
gosub hide
wait 800
}
move %1 %2 0 40s
exitrun:
return

sub dpause
set %ltime #SYSTIME - %ltimer
if %ltime <= 3050
{
set %ltime 3050 - %ltime
set %ltime %ltime / 50
wait %ltime
}
return

sub lumberstop
if #WEIGHT > %maxw
{
finditem FSF C_ , #BACKPACKID
Msg ,moveitem #FINDID 1 #BACKPACKID $
Wait 10
}
Return

sub movescan
startmovescan:
finditem HS
if #FINDKIND = 1
{
if #FINDCOL = 2006
{
if #FINDREP = 6
{
if #FINDDIST < 2
{
gosub lumberstop
wait 10
goto startmovescan
}
}
}
}
finditem JE
if #FINDKIND = 1
{
if #FINDCOL = 0
{
if #FINDREP = 6
{
if #FINDDIST < 2
{
gosub lumberstop
wait 10
goto startmovescan
}
}
}
}
finditem OTF
if #FINDKIND = 1
{
gosub lumberstop
wait 10
goto startmovescan
}
return

Sub WaitConnect
Waitcoonect:
If #ContName = MainMenu_gump
{
Goto Waitcoonect
wait 10s
}
If #ContName = normal_gump
{
Goto Waitcoonect
wait 10s
}
If #ContName = Login_gump
{
Goto Waitcoonect
wait 10s
}
If #ContName = waiting_gump
{
Goto Waitcoonect
wait 10s
}
wait 50
return

Sub OpenStatus
goSub WaitConnect
EVENT MACRO 32 0
WAIT 1S
SCANJOURNAL 1
IF _OFF IN #JOURNAL
EVENT MACRO 32 0
msg 'pc repeat on $
Event Macro 8 1
Event Macro 8 2
Event Macro 8 7
Finditem ZJF C_ , #CHARID
Set %backpack #FINDID
return

Sub Copyright
Set #SYSMSGCOL 88
Event Sysmessage ===========================
Event Sysmessage = Lamber Macros by SaNeK v2.0 =
Event Sysmessage ===========================
Wait 2s
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Event Sysmessage ~
Set #SYSMSGCOL 0
Return
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения