Tweet
;BoltMaker
;Scriptato Da Necrus
;icq:310955823
gosub settawood
wait 20
GoSub Configura
while #true
{
gosub CheckForWorldSave
gosub restokkakit
wait 20
gosub drag
wait 20
finditem UFG C_ , #backpackid
wait 5
set #lobjectid #findid
event macro 17 0
wait 20
set %clickx #contposx + 27
set %clicky #contposy + 89
click %clickx %clicky
wait 10
set %clickx #contposx + 234
set %clicky #contposy + 91
click %clickx %clicky
wait 1s
finditem VLK C_ , #backpackid
wait 5
if #findkind = -1
{
finditem VLK C_ , %cassa
wait 5
if #findkind <> -1
{
exevent drag #findid %drag
wait 15
exevent dropc #backpackid
wait 15
}
else
{
display Piume Finite$Script Bloccato
halt
}
}
finditem UFG C_ , #backpackid
wait 5
set #lobjectid #findid
event macro 17 0
wait 20
set %clickx #contposx + 29
set %clicky #contposy + 110
click %clickx %clicky
wait 10
set %clickx #contposx + 234
set %clicky #contposy + 90
click %clickx %clicky
wait 2s
gosub CheckForWorldSave
finditem LNK C_ , #backpackid
wait 5
exevent drag #findid #findstack
wait 15
exevent dropc %cassa
wait 15
gosub Bolt
gosub CheckForWorldSave
}
;sub routines
sub restokkakit
gosub CheckForWorldSave
finditem UFG C_ , #backpackid
wait 5
if #findcnt = 0
{
finditem UFG C_ , %cassa
wait 5
if #findkind <> -1
{
exevent drag #findid
wait 10
exevent dropc #backpackid
wait 1s
}
else
{
display ok Kit Finiti!!!
halt
}
}
return
sub drag
gosub CheckForWorldSave
finditem TLK C_ , %cassa
wait 5
if #findcol = 0
{
exevent drag #findid %drag
wait 15
exevent dropc #backpackid
wait 15
}
else
{
ignoreitem #findid
gosub drag
}
wait 20
return
sub settawood
gosub CheckForWorldSave
finditem UFG C_ , #backpackid
wait 5
set #lobjectid #findid
event macro 17 0
wait 1s
set %xset #contposx + 28
set %yset #contposy + 373
click %xset %yset
wait 10
return
set %xselect #contposx + 234
set %ywood #contposy + 70
click %xselect %ywood
wait 10
return
Sub Configura
display yesno yes = Bank $no = Cassa
if #dispres = yes
{
set %Container Banca
}
else
{
set %Container Cassa
}
if %Container = Cassa
{
event exmsg #charid 3 30 Seleziona la cassa!!!
set #targcurs 1
while #targcurs = 1
wait 1
{
set %cassa #ltargetid
wait 1s
repeat
set #lobjectid %cassa
event macro 17 0
wait 20
until #contid = %cassa
}
}
if %Container = Banca
{
event macro 1 0 Bank
wait 2s
set %cassa #contid
wait 20
}
set %drag ( ( #maxweight - #weight ) - 20 )
wait 5
return
;==================
;**
;* @name CheckForWorldSave
;* @ver 1.0 20May05
;* @author Boydon
;* @purpose To detect world saves and resources cleaning of RunUO Shards
;* @params
;* @returns
;* @notes the sub keep track of the last scanned journal line using
;* the variable %Saveindex: every time the sub is called the script will
;* start to scan from that line.
;* @dependencies sub WaitForSaveEnd
;* @example gosub CheckForWorldSave
;* @status Tested and working fine
sub CheckForWorldSave
nameSpace Push
nameSpace Local CheckForWorldSave , #time , #random , #scnt2
if %SaveIndex = N/A
set %SaveIndex #jindex
set !Save #false
set !Jstart %SaveIndex
for !i !Jstart #jindex
{
scanjournal !i
if #jcolor = 53
{
if THE_WORLD_WILL_SAVE_IN in #journal || WORLD_IS_SAVING in #journal
{
set !Save #true
Event ExMsg #charid 3 33 SAVE Detected
gosub WaitForSaveEnd WORLD_SAVE_COMPLETE 100 !i SAVE
set %SaveIndex #jindex
set !i #jindex
}
if CLEANING in #journal
{
set !Save #true
Event ExMsg #charid 3 33 CLEANING Detected
gosub WaitForSaveEnd CLEANED 30 !i CLEANING
set %SaveIndex #jindex
set !i #jindex
}
}
set %SaveIndex !i
}
nameSpace Clear
nameSpace Pop
return
;==================
;**
;* @name WaitForSaveEnd
;* @ver 1.0 20May05
;* @author Boydon
;* @purpose To detect when world save/ resource cleaning has ended
;* @params %1 req End of save message
;* %2 req Time to wait before the sub goes in time out
;* %3 req #jindex of world save start message
;* %4 req Tells what are we waiting for, can be SAVE|CLEANING
;* @returns
;* @notes This sub _MUST_ be called _ONLY_FROM_ sub CheckForWorldSave.
;* This sub uses the same namespace as sub CheckForSave.
;* @dependencies sub CheckForWorldSave
;* @example
;* @status Tested and working fine
sub WaitForSaveEnd
if %0 < 4 || %1 = N/A || %2 = N/A || %3 = N/A || %4 = N/A
{
display ok Wrong use of Sub WaitForSaveEnd: some required arguments are missing!
+$Script will be halted.
halt
}
set !EndOfSave %1
set !SaveTimeOut #scnt + %2
set !Jstart %3
set !Message %4
waitforsaveend:
for !j !jstart #jindex
{
scanjournal !j
if #jcolor = 53
{
if !EndOfSave in #journal
{
set !Save #false
set %SaveIndex #jindex
set !j #jindex
}
}
}
if !Save = #true && #scnt <= !SaveTimeOut
{
wait 1
goto waitforsaveend
}
if #scnt > !SaveTimeOut
{
set !Save #false
set %SaveIndex #jindex
event ExMsg #charid 3 33 !Message detection timed out...
}
event ExMsg #charid 3 33 End of !Message Detected
return
Commenta