1
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
finditem %items g_ , %distance
for #findindex 1 #findcnt
{
if #findtype = %doDad
{
finditem %stuff c_ , #backpackid
for #findindex 1 #findcnt
{
exevent drag #findid
exevent dropc %secureBox
wait 15
}
}
if #findtype = %thingaMajig
{
exevent drag #findid
exevent dropc #backpackid
wait 15
}
}
set %login %login + 1
if %login = 2 ;--- block 2nd chr on all account
set %login 3
if %login > 7
{
set %accountIn %accountIn + 1
set %account %account + 1
if %account > %accountNumber
{
set %account 1
set %accountIn 1
}
set %accName %accName_ . %account
set %login 1
}
if %account = 0 || %login > 1
set %accName 0
if %accountIn = 4 && %login = 1 ;-- block chr 1 and 2 on 4th account
set %login 3
if %accountIn = 2 && %login = 5 ;-- block chr
set %login 6
if %accountIn = 2 && %login = 7 ;-- block chr
set %login 8
if %accountIn = 4 && %login = 7 ;-- block chr
{
set %accountin 1
set %account 4
set %accName %accName_ . %account
set %login 1
}
;========================================================
; Script Name: Hitech's BOD farmer
; Authors: Hitech
; Version: 1.0.1
; Client Tested with: 7.0.90.16
; EUO version tested with: 1.6.0 (333)
; Shard: Freeshard : Heritage / TrueUo
; Shard: open source - https://github.com/TrueUO
; Revision Date: 8/2/2021
; Public Release:
; Purpose: login muliple accounts / chrs to get BODS
; thanks to " script-y " for what ever he says i copied :(
;-------------------------------------------------------
; update any needed Vars listed below
; logout all chrs above scribe 2nd floor in luna
; Log in 1st chr on 1st account, press play
;=========================================================
; thanks to " Orngrimm & ABC " for date and time
; http://www.easyuo.com/forum/viewtopic.php?p=96499#p144885
;--------------------------------------------------------
;---- Hitech edit : i turned into a sub, thank you,
; Thanks to: yolcu for Auto Login - Re Login script
; http://www.easyuo.com/forum/viewtopic.php?f=3&t=53130
;---------------------------------------------------------
;--- loging Gumps ---
set %shardName #SHARD
set %loginMain KLMD
Set %shardSelection WTLD
set %chrSelection QUSB
set %lostConn OZQB
set %unableToConn OZQB ; 408_288
set %passwordBox QUSB
set %wrongpassword OZQB
set %chrScreen OLFC ; after seletecd chr
;---------------------------
set %scribeNpc VRMD
set %login 1
set %accountNumber 4
set %accountIn 1
set %AccName_1 x
set %accName_2 x
set %accName_3 x
set %accName_4 x
set %Password x
set %Character 1
set %account 0
set %accName 0
;---------- testing ----------
;- start on diffrent chr / account
;set %accountin 4
;set %account 3
;set %login 6
;------------------------------
Start1:
finditem %scribeNpc g_8
if #findkind <> -1
{
for %aaa 1 4
{
set %jStart #jIndex
exevent popup %scribeNpc
wait 5
click 20 40 f dmc
wait 15
for %bb %jStart #jIndex
{
scanjournal %bb
if offer_may_be in #journal
goto bodStart
}
set %clickxx #contsizex - 345
set %clickyy #contsizey - 30
set %clickx %clickxx + #contposx
set %clicky %clickYY + #contposy
click %clickx %clicky f dmc
wait 20
}
}
bodStart:
;---------- logout ----------
wait 40
set %login %login + 1
if %login = 2 ;--- block 2nd chr on all account
set %login 3
if %login > 7
{
set %accountIn %accountIn + 1
set %account %account + 1
if %account > %accountNumber
{
set %account 1
set %accountIn 1
}
set %accName %accName_ . %account
set %login 1
}
if %account = 0 || %login > 1
set %accName 0
if %accountIn = 4 && %login = 1 ;-- block chr 1 and 2 on 4th account
set %login 3
if %accountIn = 2 && %login = 5 ;-- block chr
set %login 6
if %accountIn = 2 && %login = 7 ;-- block chr
set %login 8
if %accountIn = 4 && %login = 7 ;-- block chr
{
set %accountin 1
set %account 4
set %accName %accName_ . %account
set %login 1
}
event macro 8 1 ;- paperdoll
gosub gumpWait 262_324
set %clickx #contposx + 215
set %clicky #contposy + 105
click %clickx %clicky f dmc
wait 15
gosub gumpWait 178_108
set %clickx #contposx + 120
set %clicky #contposy + 85
click %clickx %clicky f dmc
wait 15
if #contSize = 203_121 || #shard <> %shardName ;--- check for lost connection .
{
wait 5s
gosub ConnectionLost
wait 5s
}
goto Start1
sub gumpWait
;-- %1 gump size
set %timeout #systime + 500
while #contsize <> %1 && %timeout > #systime
{
wait 1
}
if %timeout < #systime
return #false
return
;=============================================
; Script Name: Auto Login - Re Login
; Author: yolcu *edited By Hitech to fix endless jorurny gumps*
; Version: 1.0.01
; Language: English
; Client Tested with: 7.0.66.0
; EUO version tested with: 1.6.0.330
; Shard OSI / FS: FS Easyuo's alexandria / Lexia
; Public Release: 03-25-2017
; Global Variables Used: N/A
; Purpose: Auto login - relogin when connection lost
;*edited By Hitech to fix endless jorurny gumps*
;=============================================
;---- Hitech edit : i turned into a sub, thank you,
; Thanks to: yolcu for Auto Login - Re Login script
; http://www.easyuo.com/forum/viewtopic.php?f=3&t=53130
sub ConnectionLost
{
_OpenMainWindow:
if #contkind = %lostConn && #contName = waiting_gump && #contSize = 203_121 ;--- lost conn gump
{
set %cx_ #contPosX + 100 ; 145 ;--140
set %cy_ #contPosY + 90 ;-- 90
wait 10
click %cx_ %cy_ f dmc
gosub WaitForGump mainmenu_gump %loginMain 30 ;--- main login gump
wait 20
goto _OpenMainWindow
}
gosub Login
return
}
sub Login
{
if #contName = mainmenu_gump && #contKind = %loginMain ;--- main login gump
{
_Login:
gosub EnterAccName %accName
wait 20
gosub EnterPassword
wait 20
gosub PressLoginButton
wait 20
gosub WaitForGump normal_gump %shardSelection 60 ;should be 60 ;---- shard select gump
if #contName = waiting_gump && #contKind = %passwordBox ;--- problem? still main gump
{
click 320 350 f dmc
gosub WaitForGump normal_gump %loginMain 10 ;--- fix
goto _Login
}
if #contName = waiting_gump && #contKind = %wrongpassword
{
;could not connect GUMP SIZE 408 288 waiting_gump YQMD ; CLICK 320 350
click 320 350 f dmc
gosub WaitForGump normal_gump %loginMain 9
goto _Login
}
gosub PressNextButton
wait 20
gosub WaitForGump normal_gump %passwordBox 30 ;-- char selet gump
wait 20
gosub SelectChar %login
wait 20
gosub PressNextButton
wait 20
gosub WaitForLogin
}
else #contName = normal_gump && #contKind = %loginMain ;--- progems ? 2nd try?
{
_Login1:
gosub EnterAccName %accName
wait 20
gosub EnterPassword
wait 20
gosub PressLoginButton
wait 20
gosub WaitForGump normal_gump %shardSelection 60 ;should be 60
if #contName = waiting_gump && #contKind = %lostConn
{
click 320 350 f dmc
gosub WaitForGump normal_gump %passwordBox 9 ;--- fix ?
goto _Login1
}
if #contName = waiting_gump && #contKind = %wrongpassword
{
;could not connect GUMP SIZE 408 288 waiting_gump YQMD ; CLICK 320 350
click 320 350 f dmc
gosub WaitForGump normal_gump %loginMain 9
goto _Login1
}
gosub PressNextButton
wait 20
gosub WaitForGump normal_gump %passwordBox 30
wait 20
gosub SelectChar %login
wait 20
gosub PressNextButton
wait 20
gosub WaitForLogin
}
return
}
sub PressLoginButton
{
click 325 380 f dmc ; Next Button
return
}
sub PressNextButton
{
click 620 445 f dmc ; Next Button
return
}
sub EnterAccName
{
if %1 = 0 ;--skip
return
click 295 295 f dmc ; Account Name
gosub ClearPlace
msg %1
return
}
sub EnterPassword
{
click 230 350 f dmc ;click 510 400 f dmc ; Password
gosub ClearPlace
msg %Password
return
}
sub ClearPlace
{
for %i 1 8 ;16
{
key BACK
}
return
}
sub SelectChar
{
set %cx_ 360
set %cy_ 100 + ( %1 * 40 ) ; ( %Character * 40 )
click %cx_ %cy_ f dmc
gosub WaitForGump login_gump %chrScreen 10
return
}
sub WaitForGump
{
set %contName %1
set %contKind %2
set %timeCheck #false
set %timeOut #scnt
if %0 = 3
{
set %timeCheck #true
set %timeOut #scnt + %3
}
while #contName <> %contName || #contKind <> %contKind
{
if %timeCheck && #scnt > %timeOut
break
}
return
}
sub WaitForLogin
{
set %timeOut #scnt + 60
while #CliLogged = 0 && #scnt < %timeOut
wait
return
}
return
; thanks to " Orngrimm & ABC " for date and time
; http://www.easyuo.com/forum/viewtopic.php?p=96499#p144885
sub time_Date
set %AMPM AM
set %d1 %1 / 1 % 10
set %d2 %1 / 10 % 10
set %d3 %1 / 100 % 10
set %d4 %1 / 1000 % 10
set %d5 %1 / 10000 % 10
set %d6 %1 / 100000 % 10
if %2 = date
return %d4 , %d3 , #dot , %d2 , %d1
set %tempampm %d6 , %d5
if %tempampm > 12 && %2 = 12
{
set %AMPM PM
set %tempampm %tempampm - 12
}
if %2 = 12
return %tempampm , : , %d4 , %d3 , : , %d2 , %d1 , #SPC , %AMPM
return %tempampm , : , %d4 , %d3
;----------------------------------------------------
;=====================================
; Script Name: Hitech's Mace and Shield
; Authors: Hitech
; Version: 1.0.1
; Client Tested with: 7.0.56.0
; EUO version tested with: 1.5 (308)
; Shard: easyuo's Alexandria & ScriptUO's Rebirth
; Revision Date: 4-30-2017
; Public Release: 4-25-2017
; Purpose: craft bucklers and turn in at the Brit Library
; -------------------------------------------------------
; Thanks to: yolcu for Auto Login - Re Login script
; http://www.easyuo.com/forum/viewtopic.php?f=3&t=53130
;======================================
; - stand at avail and craft one buckler before you start script -
; --- ( it justs clicks the make last button for bucklers) ---
; if your playing some where you have to craft tools
; make sure ingots and some backup tinker tools are in secure
;------------------------------------------------------
nameSpace global master
set !healHP 90 ;--- hp to start healing
if #shard = xxxxx ;-- shard name
{
set !masterchr xxx ; main chr , the one others follow and cast corpse skin/debuffs ect..
set !wayToRez lexia ; rez with armor on already
set !pet_1 xxxx ; pet1 id or #false for no pet ;--- only used to heal / cure pets or friends
set !pet_2 xxxx ; pet2 id or #false for no pet ;--- only used to heal / cure pets or friends
; ---- * chr id's only used for crosshealing / xheal * ----
set !chrsToHeal 3 ;-- number of slave chrs to crossheal / running slave script
set !ChildSlave_1 xxxx ;-- master chr id
set !ChildSlave_2 xxxx ;-- slave charater ID
set !ChildSlave_3 xxxx ;-- slave charater ID
}
if #shard = RebirthUo
{
set !masterchr UBJMB ; main chr , the one others follow and cast corpse skin/debuffs ect..)
set !wayToRez rebirth ; rez with no armor and death robe
set !pet_1 bovp ; pet1 id or #false for no pet ;--- only used to heal / cure pets or friends
set !pet_2 #false ; pet2 id or #false for no pet ;--- only used to heal / cure pets or friends
; ---- rebirth chrs ---- ; * chr id's only used for crosshealing /xheal *
set !chrsToHeal 5 ;-- number of chrs to crossheal
set !ChildSlave_1 UBJMB ;-- master chr
set !ChildSlave_2 PTUMB ;-- lowtech - slave charater ID
set !ChildSlave_3 UXVMB ;-- hitech -slave charater ID
set !ChildSlave_4 RGWMB ;-- tech - slave charater ID
set !ChildSlave_5 UVXMB ;-- slave charater ID
}
if #shard = Alexandria
{
set !masterchr WADU ; main chr , the one others follow and cast corpse skin/debuffs ect..)
set !wayToRez lexia ; rez with armor on already
set !pet_1 NSYS ; pet1 id or #false for no pet ;--- only used to heal / cure pets or friends
set !pet_2 LOTM ; pet2 id or #false for no pet ;--- only used to heal / cure pets or friends
; ---- lexia chrs ----- ; * chr id's only used for crosshealing *
set !chrsToHeal 3 ;-- number of chrs to crossheal
set !ChildSlave_1 WADU ;--- master chr
set !ChildSlave_2 JWHR ;-- slave charater ID
set !ChildSlave_3 NSHCD ;-- slave charater ID
}
start:
gosub crossHealing
goto start
sub crossHealing ;---------------------- crosshealing sub ---------------------
for %aa 1 !chrsToHeal ;-- check life of chrs
{
if #charid = !ChildSlave_ . %aa
{
if #hits < !healHP
set !Lheal_ . %aa #true
else
set !Lheal_ . %aa #false
}
}
for %bb 1 !chrsToHeal ;-- heal each chr if need be
{
if #CharGhost = YES
return
if !Lheal_ . %bb = #true && #CHARID <> !ChildSlave_ . %bb
{
set #ltargetid !ChildSlave_ . %bb
set #ltargetkind 1
for %h 1 2 ;-- heal 2 times
{
event macro 15 3 ; small heal
target 2s
event macro 22
}
}
}
return
;--------------------------------------------------------------------
;menu Combo ( {"Create"} {name} {x} {y} {width} ) | ( {"Add"} {name} {text} ) | ( {"SELECT"} {name} {index} )
menu font BGColor black
menu Font Color red
menu Window Size 200 200
menu font color red
menu combo create familier 5 10 88
menu combo add familier none
menu combo add familier wisp
menu combo add familier minion
menu combo add familier death adder
menu combo add familier vamp bat
menu combo select familier 0
;------------------------------------------------------------------
menu combo create form 5 50 88
menu combo add form none
menu combo add form Lich
menu combo add form wraith
menu combo add form human
menu combo add form voyage
menu combo add form reaper
menu combo add form beast
menu combo select form 0
menu show
;------------------------------------------------------------
start:
menu get form
if #menures > 0
gosub formComboBox
menu get familier
if #menures > 0
gosub familierComboBox
goto start
;----------------------------------------
sub familierComboBox
if #menures = 1
{
menu combo select familier 0
set !wisp #false
set !minion #false
set !deathAdder #false
set !vampBat #false
return
}
if #menures = 2
{
set !wisp #true
return
}
if #menures = 3
{
set !minion #true
return
}
if #menures = 4
{
set !deathAdder #true
return
}
if #menures = 5
{
set !vampBar #true
return
}
return
;-----------------------------
sub formComboBox
if #menures = 1
{
menu combo select form 0
set !lich #false
set !wraith #false
set !human #false
set !voyage #false
set !reaper #false
set !beast #false
return
}
if #menures = 2
{
set !lich #true
return
}
if #menures = 3
{
set !wraith #true
return
}
if #menures = 4
{
set !human #true
return
}
if #menures = 5
set !voyage #true
return
}
if #menures = 6
{
set !reaper #true
return
}
if #menures = 7
{
set !beast #true
return
}
return