Toggle shoutbox Chat
|
Beggining
#1
Posted 26 November 2010 - 14:33
#2
Posted 26 November 2010 - 14:33
; 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 GHAVKMD
set %failTime 3000 ;3000 = 3 min
;---------------------------------------------------------------------
set #sysmsgcol 38
chooseskill Begging
if #skill < 2000
set %uoTitle #true
else
set %uoTitle #false
;---------------------------------------------------------------------
RecallingSystem:
gosub Recall 266 280 AAQZB ; 1st recall rune [by reagents] & vendor's ID
gosub Recall 266 453 FESZB ; 2nd recall rune [by reagents] & vendor's ID
gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID
gosub Recall 301 453 EDNZB ; 4th --/--/--
gosub Recall 335 280 DHNZB ; 5th --/--/--
gosub Recall 335 453 VANZB ; 6th --/--/--
gosub Recall 370 280 NWJZB ; 7th --/--/--
gosub Recall 370 453 ROJZB; 8th --/--/--
gosub Recall 434 280 RFNZB; 9th --/--/--
gosub Recall 434 453 DFNZB ; 10th --/--/--
gosub Recall 471 280 VSIAC ; 11th --/--/--
gosub Recall 471 453 WOIAC ; 12th --/--/--
gosub Recall 505 280 WSHAC; 13th --/--/--
gosub Recall 505 453 FYIAC ; 14th --/--/--
gosub Recall 540 280 RXIAC; 15th --/--/--
gosub Recall 540 453 TUHAC; 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::..
#3
Posted 26 November 2010 - 16:04
==================================================================== ; 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 %failTime 3000;3000 = 3 min ;--------------------------------------------------------------------- set #sysmsgcol 38 chooseskill Begging if #skill < 2000 set %uoTitle #true else set %uoTitle #false ;--------------------------------------------------------------------- RecallingSystem: set %runebookID GHAVKMD;id runbook Nr1 gosub Recall 266 280 AAQZB; 1st recall rune [by reagents] & vendor's ID gosub Recall 266 453 FESZB; 2nd recall rune [by reagents] & vendor's ID gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID gosub Recall 301 453 EDNZB; 4th --/--/-- gosub Recall 335 280 DHNZB; 5th --/--/-- gosub Recall 335 453 VANZB; 6th --/--/-- gosub Recall 370 280 NWJZB; 7th --/--/-- gosub Recall 370 453 ROJZB; 8th --/--/-- gosub Recall 434 280 RFNZB; 9th --/--/-- gosub Recall 434 453 DFNZB; 10th --/--/-- gosub Recall 471 280 VSIAC; 11th --/--/-- gosub Recall 471 453 WOIAC; 12th --/--/-- gosub Recall 505 280 WSHAC; 13th --/--/-- gosub Recall 505 453 FYIAC; 14th --/--/-- gosub Recall 540 280 RXIAC; 15th --/--/-- gosub Recall 540 453 TUHAC; 16th --/--/-- set %runebookID GHAVKMD;id runbook Nr2 gosub Recall 266 280 AAQZB; 1st recall rune [by reagents] & vendor's ID gosub Recall 266 453 FESZB; 2nd recall rune [by reagents] & vendor's ID gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID gosub Recall 301 453 EDNZB; 4th --/--/-- gosub Recall 335 280 DHNZB; 5th --/--/-- gosub Recall 335 453 VANZB; 6th --/--/-- gosub Recall 370 280 NWJZB; 7th --/--/-- gosub Recall 370 453 ROJZB; 8th --/--/-- gosub Recall 434 280 RFNZB; 9th --/--/-- gosub Recall 434 453 DFNZB; 10th --/--/-- gosub Recall 471 280 VSIAC; 11th --/--/-- gosub Recall 471 453 WOIAC; 12th --/--/-- gosub Recall 505 280 WSHAC; 13th --/--/-- gosub Recall 505 453 FYIAC; 14th --/--/-- gosub Recall 540 280 RXIAC; 15th --/--/-- gosub Recall 540 453 TUHAC; 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::..
#4
Posted 26 November 2010 - 16:11
#5
Posted 26 November 2010 - 16:39
#6
Posted 26 November 2010 - 17:03
#7
Posted 26 November 2010 - 17:19
у меня проблема он рунбук ненаходит ! ) всё поставлено правельно
Там где ИД рунбуков, поставь пробелы перед ; а то на форуме пробел автоматом убирает.
#8
Posted 26 November 2010 - 18:03
:damaged beyond repair:
skype - sermuli
#9
Posted 26 November 2010 - 18:06
сколько сейчас за 10 часов 8 лвл маг без вещей %, соберет?beggining...
#10
Posted 27 November 2010 - 15:03
====================================================================
; 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 %failTime 3000;3000 = 3 min
;---------------------------------------------------------------------
set #sysmsgcol 38
chooseskill Begging
if #skill < 2000
set %uoTitle #true
else
set %uoTitle #false
;---------------------------------------------------------------------
RecallingSystem:
set %runebookID GHAVKMD ;id runbook Nr1
gosub Recall 266 280 AAQZB; 1st recall rune [by reagents] & vendor's ID
gosub Recall 266 453 FESZB; 2nd recall rune [by reagents] & vendor's ID
gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID
gosub Recall 301 453 EDNZB; 4th --/--/--
gosub Recall 335 280 DHNZB; 5th --/--/--
gosub Recall 335 453 VANZB; 6th --/--/--
gosub Recall 370 280 NWJZB; 7th --/--/--
gosub Recall 370 453 ROJZB; 8th --/--/--
gosub Recall 434 280 RFNZB; 9th --/--/--
gosub Recall 434 453 DFNZB; 10th --/--/--
gosub Recall 471 280 VSIAC; 11th --/--/--
gosub Recall 471 453 WOIAC; 12th --/--/--
gosub Recall 505 280 WSHAC; 13th --/--/--
gosub Recall 505 453 FYIAC; 14th --/--/--
gosub Recall 540 280 RXIAC; 15th --/--/--
gosub Recall 540 453 TUHAC; 16th --/--/--
set %runebookID HDRTKMD ;id runbook Nr2
gosub Recall 266 280 AAQZB; 1st recall rune [by reagents] & vendor's ID
gosub Recall 266 453 FESZB; 2nd recall rune [by reagents] & vendor's ID
gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID
gosub Recall 301 453 EDNZB; 4th --/--/--
gosub Recall 335 280 DHNZB; 5th --/--/--
gosub Recall 335 453 VANZB; 6th --/--/--
gosub Recall 370 280 NWJZB; 7th --/--/--
gosub Recall 370 453 ROJZB; 8th --/--/--
gosub Recall 434 280 RFNZB; 9th --/--/--
gosub Recall 434 453 DFNZB; 10th --/--/--
gosub Recall 471 280 VSIAC; 11th --/--/--
gosub Recall 471 453 WOIAC; 12th --/--/--
gosub Recall 505 280 WSHAC; 13th --/--/--
gosub Recall 505 453 FYIAC; 14th --/--/--
gosub Recall 540 280 RXIAC; 15th --/--/--
gosub Recall 540 453 TUHAC; 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::..
#11
Posted 27 November 2010 - 16:30
#13
Posted 27 November 2010 - 17:00
#15
Posted 27 November 2010 - 17:19
#16
Posted 27 November 2010 - 17:24
#17
Posted 27 November 2010 - 17:30
конечно, чтай, как настроить http://forum.egames....showtopic=32472типо на 2 Runebook там новых надо прописать ? )
#18
Posted 27 November 2010 - 18:20
конечно, чтай, как настроить http://forum.egames....showtopic=32472
серавно он не клянчит деньги в чём проблема ? )
#19
Posted 27 November 2010 - 19:26
серавно он не клянчит деньги в чём проблема ? )
А после ид пробелы ставил?
#20
Posted 27 November 2010 - 19:54
А после ид пробелы ставил?
да !!
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users