29
« on: May 01, 2011, 11:40:02 PM »
The problem I'm having is that the journal scanning isn't working, not sure what I've done wrong :S
The journal doesn't contain "The world will save in 15 seconds" by the time the script gets around to reading it, as it all depends on what the script was doing when the server made it's announcement. I was under the impression that TM's sub searched back the last 4 lines of journal entries?? :S
;==================================
; Script Name: Reaper's Board Maker
; Author: The Reaper
; Version: 1.0
; Client Tested with: 7.0.8.0
; EUO version tested with: 1.5.186
; Purpose: Making boards the old fashioned way on freeshards.
; Special thanks to TM for the journal scanner subs :D
;==================================
set %debug 2
;==================================
; Set %axe to the value of your axe or script will ask you to select it
set %axe null
;==================================
event Macro 8 2 ;open status bar
wait 20
set #contPosX 850
set #contPosY 400
menu clear
Menu hideEUO
Menu window size 260 100
Menu show
Menu window color black
Menu font bgcolor red
Menu font size 10
menu Window Title Created by: The Reaper
menu text Tboard 5 5 What type of logs will you be cutting today?
menu combo create type 5 50 100
menu combo add type Plain
menu combo add type Oak
menu combo add type Yew
menu combo add type Bloodwood
menu combo add type Heartwood
menu combo add type Frostwood
menu combo add type ALL LOGS
menu button 1 0 80 260 20 GO!
set #menubutton N/A
while #menubutton = N/A
{
wait 0
}
menu get type
menu hide
if %debug = 1
{
display ok #menures
}
if #menures = 0
{
display ok You must select a type of wood
halt
}
if #menures = 1
{
set %log_type ZLK
set %wood_name Plain
set %board_type TLK
}
if #menures = 2
{
set %log_type na
set %wood_name Oak
set %board_type na
}
if #menures = 3
{
set %log_type na
set %wood_name Yew
set %board_type na
}
if #menures = 4
{
set %log_type na
set %wood_name Bloodwood
set %board_type na
}
if #menures = 5
{
set %log_type na
set %wood_name Heartwood
set %board_type na
}
if #menures = 6
{
set %log_type na
set %wood_name Frostwood
set %board_type na
}
if #menures = 7
{
set %log_type ZLK
set %wood_name All
set %board_type TLK
}
;Weight Setup
set %no_logs ( ( 550 - #weight ) / 2 )
if debug = 1
{
set %no_logs 2
}
set %no_boards ( %no_logs * 2 )
;Axe Setup
if %axe = null
{
display ok Select your axe
set #ltargetID null
set #targcurs 1
while #targcurs = 1
{
wait 0
}
set %axe #ltargetID
}
;Secure or Bank box (Bank if Yes, Secure if no)
display yesno Logs will be dragged from: Bank=Yes, Secure=No
if #dispRes = yes
{
msg Bank $
display ok Target your storage bag inside your bank now
set #ltargetid null
set #targcurs 1
while #targcurs = 1
{
wait 0
}
set %secure_cont #ltargetID
set %storage_method bank
}
if #dispRes = no
{
display ok Target your secure now
set #ltargetid null
set #targcurs 1
while #targcurs = 1
{
wait 0
}
set %secure_cont #ltargetID
set %storage_method Secure_cont
}
;=======
; Testing Only
;=======
if %debug = 1
{
display ok Storage method is: %storage_method With #ID: %secure_cont $ With axe #ID: %axe $ This script will move: $ %wood_name Boards: %no_boards Logs: %no_logs $ on each cycle.
}
;=======
wait 30
gosub TM_AdvJournalSync world 100
if %storage_method = bank
{
gosub open_bank
goto Bank_loop
}
else
{
gosub open_secure
goto Secure_loop
}
Bank_loop:
gosub drag_to_backpack
gosub cut
gosub drag_to_secure
gosub TM_AdvJournalScan world ADVANCE The_world_will
if result = #true
{
sound
wait 300
if %debug = 2
{
display ok You've sucessfully got TMs sub to work
}
}
goto Bank_loop
Secure_loop:
gosub drag_to_backpack
gosub cut
gosub drag_to_secure
gosub TM_AdvJournalScan world ADVANCE The_world_will
if result = #true
{
sound
wait 300
if %debug = 2
{
display ok You've sucessfully got TMs sub to work
}
}
goto Secure_loop
sub open_bank
msg Bank$
wait 10
set #lobjectid %secure_cont
event macro 17 0
wait 10
gosub Find_logs
return
sub open_secure
set #lobjectid %secure_cont
event macro 17 0
wait 10
gosub Find_logs
return
sub Find_logs
finditem %log_type C_ , %secure_cont
if #findkind = -1
{
display ok You do not have any of that type of log in your secure. $ Halting!
halt
}
set %log_stack #findid
if %debug = 1
{
display ok You have #findstack %wood_name logs in your secure, these will now be chopped into boards.
}
return
sub drag_to_backpack
finditem %log_type C_ , %secure_cont
if #findkind = -1
{
display ok Ohhh no, you've run out of logs to chop :D
halt
}
Exevent Drag #findid %no_logs
wait 16
Exevent Dropc #backpackID
wait 20
return
sub cut
finditem %log_type C_ , #backpackid
if #findkind = -1
{
display ok Ohhh no, somethings gone wrong, restart the script.
pause
}
set #lobjectid %axe
event macro 17 0
target 2s
wait 5
set #ltargetid #findid
event macro 22 0
wait 20
return
sub drag_to_secure
finditem %board_type C_ , #backpackid
if #findkind = -1
{
display ok Ohhh no, somethings gone wrong, restart the script.
pause
}
Exevent Drag #findid #findstack
wait 16
Exevent Dropc %secure_cont
wait 20
return
sub TM_AdvJournalSync
namespace push
namespace local TM_AdvJS_ , %1
set !_jindex #jindex + 1
if %0 > 1
set !lpc_set %2
namespace pop
set !TM_FunctionCalled #TRUE
return
sub TM_AdvJournalScan
namespace push
namespace local TM_AdvJS_ , %1
set !args %2
set !temp_lpc #LPC
if !lpc_set = N/A
set #LPC 1000
else
set #LPC !lpc_set
set !num_args %0
set !first_arg 3
set !sampled_jindex #JINDEX
if !_jindex = N/A
set !_jindex !sampled_jindex
if !charname = N/A
{
set !charname #CHARNAME
AdvJournalScan_loop1:
str pos !charname #SPC
if #STRRES <> 0
{
set !val #STRRES - 1
str left !charname !val
set !left #STRRES
set !val !val + 1
str del !charname 1 !val
set !charname !left , _ , #STRRES
goto AdvJournalScan_loop1
}
}
set !index !first_arg
repeat
set !temp_jindex !_jindex
set !text % . !index
while !temp_jindex <= !sampled_jindex
{
scanjournal !temp_jindex
str pos #JOURNAL !charname 1
set !namepos #STRRES
str count #JOURNAL !charname
set !namecnt #STRRES
str pos #JOURNAL :_ 1
set !smcpos #STRRES
str pos #JOURNAL !text 1
set !textpos #STRRES
if !textpos < !smcpos && !smcpos <> 0 || !smcpos = 1 || :_ notin #JOURNAL || VALID notin !args
set !pass #TRUE
else
set !pass #FALSE
if ( !text in #journal && ( ( !namepos = 1 && !namecnt <= 1 ) || !pass ) )
{
set !temp_jindex !temp_jindex + 1
if ADVANCE in !args
set !_jindex !temp_jindex
set #LPC !temp_lpc
namespace pop
set !TM_FunctionCalled #TRUE
return #TRUE
}
set !temp_jindex !temp_jindex + 1
}
set !index !index + 1
until !index - !first_arg > !num_args - !first_arg
set %10 !sampled_jindex - !_jindex
set %10 %1 , _ , %10 ; for debugging purposes
set #LPC !temp_lpc
namespace pop
set !TM_FunctionCalled #TRUE
return #FALSE
Show Posts
