initevents
set %runebookID YPNGLMD
set %failTime 2000; 1800 = 1min
;---------------------------------------------------------------------
set #sysmsgcol 38
chooseskill Begging
if #skill < 2000
set %uoTitle #true
else
set %uoTitle #false
;---------------------------------------------------------------------
RecallingSystem:
gosub Recall 266 280 EVMZB; check
gosub Recall 266 453 SVMZB; check
gosub Recall 301 280 WBKAC; check
gosub Recall 301 453 GPMZB; check
gosub Recall 335 280 KFJZB; check
gosub Recall 335 453 YCJZB; check
gosub Recall 370 280 KXFZB; check
gosub Recall 370 453 QGGZB; check
gosub Recall 434 280 MPFAC; check
gosub Recall 434 453 OHUZB; check
gosub Recall 471 280 PIUZB; check
gosub Recall 471 453 GPWZB; check
gosub Recall 505 280 LOWZB; check
gosub Recall 505 453 WSWZB; check
gosub Recall 540 280 PPWZB; 15th --/--/--
gosub Recall 540 453 KJZZB; 16th --/--/--
goto RecallingSystem
;---------------------------------------------------------------------
sub Recall
set %tries 0
if %uoTitle
gosub setTitle
set %oldPosX #charposx
set %oldPosY #charposy
if #mana < #maxmana
event macro 13 46
_openRunebook:
finditem %runebookID C_ , #backpackid
if #findkind = -1
{
event sysmessage Runebook not found.
pause
}
set #lobjectid #findid
event macro 17 0
wait 20
gosub check
_click:
click %1 386
wait 10
click %2 349
gosub check
if #result = failed && %tries < 5
{
set %tries %tries + 1
goto _openRunebook
}
if %tries = 5
return
gosub Begging
return
;---------------------------------------------------------------------
sub Begging
set %failTimer #scnt2 + %failTime
set %currentGold #gold
set %try 0
_begging:
finditem %3 G_12
if #findcnt < 1
return
gosub moveToVendor
_target:
event macro 13 6
set %lag #scnt + 10
while #targcurs <> 1
{
wait 1
if ( ( %currentGold <> #gold ) || ( #scnt2 > %failTimer ) )
return
if #scnt > %lag
{
gosub moveToVendor
goto _target
}
}
finditem %3
if #findcnt = 0 || #scnt2 > %failTimer
return
if #targcurs = 1 && #finddist < 3
{
finditem %3
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
}
else
{
gosub moveToVendor
goto _target
}
wait 20
event macro 13 6
set #scnt 0
repeat
{
finditem %3
event pathfind #findx #findy #findz 1
wait 20
if ( ( %currentGold <> #gold ) || ( #targcurs = 1 ) || ( #scnt2 > %failTimer ) )
return
}
until #scnt > 35
if ( ( %currentGold <> #gold ) || ( #targcurs = 1 ) || ( #scnt2 > %failTimer ) )
return
if #scnt > 35
{
set %try %try + 1
event sysmessage Retrying begging ( , %try , )
}
goto _begging
return
;---------------------------------------------------------------------
sub setTitle
if #skill = 2000
{
set %uoTitle #false
setuotitle Ultima Online - #charname ( , #shard , )
return
}
str len #skill
str ins #skill #dot #strres
setuotitle Ultima Online - #charname ( , #shard , ) Begging Skill: #strres , %
return
;---------------------------------------------------------------------
sub moveToVendor
event macro 23 0
wait 10
repeat
{
finditem %3
if #findcnt = 0
return
event pathfind #findx #findy #findz
wait 20
}
until #finddist < 2 || #scnt2 > %failTimer
return
;---------------------------------------------------------------------
sub check
set %teleportOverTime #scnt + 20
_checking:
if #contname = generic_gump && #contsize = 577_426
return
if ! ( ( #charposx = %oldPosX ) && ( #charposy = %oldPosY ) )
return
if #scnt > %teleportOverTime
{
click 400 360
return failed
}
wait 10
goto _checking
return1. Nesaprotu sis rindas "gosub Recall 266 280 EVMZB; check (kas ir EVMZB UN KA NOMAINIT JA TAS IR RUNES AKMENS vai tas ir title kas katram savs jaliek?)"
2. Vai vins rechargos gramatu un kur jabut recall ja vini tiks izmantoti?
3. kur un kaa izlabot so? "you are not skilled enough."
ka parasti pac visu izdariju...
