ok....i haven't taken the time to look through everything and do a good job of this, so this code is more of a botch job because I couldn't be bothered to write it properly, but it might just work xD. Note that I have never used this script, nor have I tested this in any way.
this is all in fisher_logout.vbs
Code: Select all
' Include variables declaration
XUScriptHost.ImportScript("xufish\fisher_variables.vbs")
' Badly written modification by Pyrolol:
dim ccount, iii as integer
' End^^
ccount = 0
scriptTimeInterval = 50
' Declare events
function onChangeZone
' Beep
if not scriptPaused then
ForcePause
Win32API.XUBeep 750,1000
end if
end function
function onStateChange
' Do nothing
end function
function onScriptTimeInterval
' Relog, rewritten by Pyrolol, with no regard for the layout of the rest of the program :-P.
writelogline("Changing character")
waitForUser
doKeyboardCommand("/logout")
sleep 50000
for iii = 1 to ccount
presskey(VirtualKey.VK_DOWN) ' guessing here.
next
ccount = ccount + 1
presskey(VirtualKey.VK_RETURN)
sleep 1000
presskey(VirtualKey.VK_RETURN)
end function
function onMonsterCheck
' Do nothing
end function
function onNoBait
ForcePause
end function
' Include and start main script
XUScriptHost.ImportScript("xufish\fisher.vbs")
runFisher
I can't emphasise enough how badly this is written...it is not reliable at all, but might just work.
Who is online