;===================================================================== ; 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 DCBMLMD set %failTime 1800; 600 = 1min ;--------------------------------------------------------------------- set #sysmsgcol 38 chooseskill Begging if #skill < 2000 set %uoTitle #true else set %uoTitle #false ;--------------------------------------------------------------------- RecallingSystem: gosub Recall 266 280 GKJGB; 1st recall rune [by reagents] & vendor's ID gosub Recall 266 453 XQYHB; 2nd recall rune [by reagents] & vendor's ID gosub Recall 301 280 EIFIB; 3rd recall rune [by reagents] & vendor's ID gosub Recall 301 453 TLJIB; 4th --/--/-- gosub Recall 335 280 HUYHB; 5th --/--/-- gosub Recall 335 453 XRKIB; 6th --/--/-- gosub Recall 370 280 XNUHB; 7th --/--/-- gosub Recall 370 453 USZIB; 8th --/--/-- gosub Recall 434 280 AATIB; 9th --/--/-- gosub Recall 434 453 BRNIB; 10th --/--/-- gosub Recall 471 280 CRJLC; 11th --/--/-- gosub Recall 471 453 SZYIB; 12th --/--/-- gosub Recall 505 280 TPSIB; 13th --/--/-- gosub Recall 505 453 XZYGB; 14th --/--/-- gosub Recall 540 280 ZEFIB; 15th --/--/-- gosub Recall 540 453 AZLIB; 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::..
Toggle shoutbox Chat
|
Переделка скрипта
Started by Keshka, Sep 26 2010 11:18
5 replies to this topic
#1
Posted 26 September 2010 - 11:18
Итак я вырос на инже и в скриптах изиуо нечего непонемаю...вопрос в следушем вазможно ли переделать ниже указаный скрипт так чтобы он летал не по одному рунебооку а по 3? подкоректируйте если это реально...Убедительная прозьба сюда невыкладывать лучше пришлите в личку!куча клонов ненужна мне
Я дико модный!
#2
Posted 26 September 2010 - 11:45
Если до вечера никто не переделает, то сам помогу
#3
Posted 26 September 2010 - 12:21
спс! мог бы и сразу помоч тут мало добрых людейЕсли до вечера никто не переделает, то сам помогу
Я дико модный!
#4
Posted 26 September 2010 - 12:40
Да я просто занят до вечера, мотаться туда суда надо сегодня.. Вечером уже смогу нормально за компом посидеть..спс! мог бы и сразу помоч тут мало добрых людей
Стукани в Skype: effectlive- ( Piff-paff - main )
#5
Posted 26 September 2010 - 13:20
Всё тему можно закрывать!
Я дико модный!
#6
Posted 28 October 2017 - 22:31
pomagite nastroitj skript ljudi dobriw
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users