Он делает луки, а продавать их не хочет... Help pliz!Вот сам скрипт
;esli netu prof acc to rekomenduju pered zapuskom scp v backpack
;polozhitj 100 milka i 200 becona... na no4 etogo dolzhno hvatatj.
set %bag OMNWLMD ;Sumka v banke gde lezhat logi i recalli
set %aspenLogs 200 ;Skolko berjom logov iz sumki v banke
set %bag1 OXZULMD ;Sumka v banke dlja zolota
set %tool TSF ;bowcraft dager ne nado ne4ego menjatj
set %dombox ZAKFMMD ;sunduk gde lezhat logi 1 tipa, sunduk dolzhen stojatj
;tak 4tob mozhno bilo zajti v bank rjadom s nim
set %reskol 200 ;skolko iz sunduka v dome kidaem logov v bank
set %multi 5 ;skolko raz on budet kidatj pa4ku iz reskol
set %tablichka IBHSKMD;tablichka doma
set %runebookID KCBGMMD;id runbooka
set %runeNumberToHome 2 ; Nr runi v dom rjadom s sundukom gde logi
set %runeNumberToBank 1 ; Nr runi k banku
set %eat 0
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToBank 2
scanjournal
_start:
finditem %tool C_ , #charid
set #lobjectid #findid
_make:
event macro 17 0
wait 10
gosub gumpWait
_click:
click 491 452
gosub scan
goto _make
sub scan
deletejournal
set %lag #scnt + 15
_scan:
for %i 5 1
{
scanjournal %i
if hungry in #journal && #scnt > %eat
{
gosub eat
return
}
if you_put in #journal
return
if you_fail in #journal && ! hungry in #journal
return
if you_have_failed in #journal && ! hungry in #journal
return
if #scnt > %lag
goto _start
if you_can't_make_it in #journal || have_no_resources in #journal
{
if #contkind = UCHB
repeat
{
click 450 300 r
wait 15
}
until #contkind <> UHCB
gosub sell
gosub bank
gosub putmoney
}
}
goto _scan
return
sub gumpWait
set %failT #scnt + 15
_wait:
if #contname = generic_gump && #contkind = UCHB
return
if #scnt > %failT
return
wait 10
goto _wait
return
sub bank
repeat
{
move 1428 1693 0 3s
wait 10
}
until #charposx = 1428 && #charposy = 1693
repeat
{
msg bank$
wait 40
}
until #conttype = IKF
wait 10
finditem %bag C
if #findcnt = 0
{
event sysmessage Wrong bag's ID!
halt
}
set #lobjectid %bag
event macro 17 0
wait 20
finditem WTL C_ , #backpackid
if #findstack < 2
{
finditem WTL C_ , %bag
exevent drag #findid 2
exevent dropc #backpackid
wait 20
}
finditem ZLK C_ , %bag
if #findstack < 10
{
gosub letimdom
gosub bank
}
exevent drag #findid %aspenLogs
exevent dropc #backpackid
wait 20
return
sub sell
repeat
{
move 1431 1705 0 3s
wait 10
}
until #charposx = 1431 && #charposy = 1705
repeat
{
finditem TOH C_ , #backpackid
if #findcnt = 0
return
set #ltargetid #findid
set #ltargetkind 1
set %lag #scnt + 20
wait 30
msg Vendor Sell $
target 4s
while #targcurs = 0 && #scnt < %lag
wait 20
event macro 22 0
}
until #scnt < %lag && #contkind = UCHB
sit:
repeat
{
click 326 257
wait 15
}
until #contkind <> UCHB
wait 20
return
sub putmoney
finditem %bag1 C_
repeat
{
finditem POF c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %bag1
wait 5
}
}
until #findcnt = 0
if #findcnt = 0
return
sub eat
set %lobjct #lobjectid
finditem ZBM C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 2s
set #lobjectid %lobjct
set %eat #scnt + 360
return
sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
halt
}
set #lobjectid #findid
wait 20
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return
sub Instalyze
if % . %1 <= 8
set %x . %2 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
return
sub letimdom
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
event macro 6 0
event macro 13 47
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 10
}
gosub openRunebook
repeat
{
click %x1 %y1
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 47
while #charposx = %oldPosX && #charposy = %oldPosY
wait 20
gosub open
return
sub letimbank
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x2 %y2
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 47
while #charposx = %oldPosX && #charposy = %oldPosY
wait 20
return
sub open
set #lobjectid %dombox
event macro 17 0
wait 20
set #lobjectid %tablichka
event macro 17 0
wait 20
repeat
{
click 601 244
wait 20
click 601 244 r
wait 30
}
until #conttype = IKF
gosub take
return
sub take
set %finger 0
finditem ZLK C_ , %dombox
if #findstack < 10
{
gosub letimbank
halt
}
wait 10
for %i 1 %multi
{
finditem ZLK C_ , %dombox
exevent drag #findid %reskol
exevent dropc %bag
wait 20
}
wait 10
gosub letimbank
return
но знаю его линию турбо скриптов(когда то переделывал на заказ под МЛ-стайл-шард)
