;===================================================================== ; 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 EVSMKMD set %failTime 3000; 600 = 1min ;--------------------------------------------------------------------- set #sysmsgcol 38 chooseskill Begging if #skill < 2000 set %uoTitle #true else set %uoTitle #false ;--------------------------------------------------------------------- RecallingSystem: gosub Recall 266 280 CLEFC; 1st recall rune [by reagents] & vendor's ID gosub Recall 266 453 OHSFC; 2nd recall rune [by reagents] & vendor's ID gosub Recall 301 280 QIPGC; 3rd recall rune [by reagents] & vendor's ID gosub Recall 301 453 WHEGC; 4th --/--/-- gosub Recall 335 280 JIEGC; 5th --/--/-- gosub Recall 335 453 ANPGC; 6th --/--/-- gosub Recall 370 280 SHSFC; 7th --/--/-- gosub Recall 370 453 POQGC; 8th --/--/-- gosub Recall 434 280 WLPGC; 9th --/--/-- gosub Recall 434 453 HJDGC; 10th --/--/-- gosub Recall 471 280 LCXEC; 11th --/--/-- gosub Recall 471 453 SJIGC; 12th --/--/-- gosub Recall 505 280 DZIEC; 13th --/--/-- gosub Recall 505 453 FVGGC; 14th --/--/-- gosub Recall 540 280 EQUFC; 15th --/--/-- gosub Recall 540 453 KYGGC; 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 return ;--------------------------------------------------------------------- ; ..::eNd::..
Bet lai viņš darbotos uz šāda paskata runebook = link
Un vadās pēc šādiem tekstiem:
1."You cant ask help twice for this char"
2."You failed to get something.."
3."You put the gold coin in your pack"
Un lai var izvēlēties iespēju no diviem runebook lidināties apkārt.
Ja tik ļoti nepieciešama atlīdzība par padarīto darbu un protams pēc pārbaudes atlīdzināšu ar:
1. Cargo ringmail full [packed] @ oldp shard
Cargo bow +9fs [2 dur] @ oldp shard
Elfian queen horse [shrinked] @ old shard
2. vai arī rp.
3. Vai wgp atiecīgajā shardā.
skype: knifer15 sīkāk visu var aprunāt.