Posted 18 October 2010 - 23:39
Изменил ток ид рунбуки, координаты синих камней рун и вписал вендоров, больше ничего не менял
Координаты рун вписывал с рунбуки, как она только открывается, где показывает все руны.
;=====================================================================
; Script Name: OldParadise Begger
; Author: EnFlame
; Version: 1.1
; Client tested with: 2.0.3
; EUO version tested with: EasyUO 1.5 Version 137
; Shard OSI/FS: FS
; Public Release: 03/20/06
; Revision Date: 07/31/07
; Global Variables Used: -
; Purpose: Fast to train begging skill and earn some money.
; Description: Script recalls to vendor using reagents, uses begging
; skill, follows to vendor, recalls to the next vendor.
;=====================================================================
initevents
set %runebookID ANKIKMD
set %failTime 1800 ; 600 = 1min
;---------------------------------------------------------------------
set #sysmsgcol 38
chooseskill Begging
if #skill < 2000
set %uoTitle #true
else
set %uoTitle #false
;---------------------------------------------------------------------
RecallingSystem:
gosub Recall 267 387 PDJZB ; 1st recall rune [by reagents] & vendor's ID
gosub Recall 298 386 HWMZB ; 2nd recall rune [by reagents] & vendor's ID
gosub Recall 259 290 UEJZB; 3rd recall rune [by reagents] & vendor's ID
gosub Recall 360 306 PEGZB ; 4th --/--/--
gosub Recall 259 320 YCJZB ; 5th --/--/--
gosub Recall 260 335 GHJZB ; 6th --/--/--
gosub Recall 259 350 WBKAC ; 7th --/--/--
gosub Recall 261 364 SVMZB; 8th --/--/--
gosub Recall 420 258 EVMZB; 9th --/--/--
gosub Recall 420 273 WFGZB ; 10th --/--/--
gosub Recall 420 289 CKUZB ; 11th --/--/--
gosub Recall 420 305 VRWZB ; 12th --/--/--
gosub Recall 420 318 CLWZB; 13th --/--/--
gosub Recall 420 336 IRWZB ; 14th --/--/--
gosub Recall 420 351 RFZZB; 15th --/--/--
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 30
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 50
goto _checking
return
;---------------------------------------------------------------------
; ..::eNd::..