Claiming Script - Drac

[Plaguebeast]

Here is that script to claim. Thank you Blaze!


; BlaZin' [claimR
; by BlaZe Budd of Excelsior's ßud ßrothers
; v1.0 completed 2/28/09
;
; How to use:
; Pretty easy, hit play and fiddle around a bit.
;
; Below you can tweak what the default
; settings are when you start it up.
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
set %claimAll #false ; #true for [claimall
set %autoClaim #false ; #true to enable auto-claiming
set %autoRange 3 ; 1-10 tiles to auto-claim corpses
set %pathfind #false ; #true to pathfind when 'target cannot be seen'
set %manualRange 7 ; 1-10 tiles to manually claim corpses
set %lagTimer 7 ; 7 is a good number, if you have a slower connection
; bump this up a little for better performance
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
;
; Comments/questions/concerns? [pm BlaZe or post in the forums
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set %claim done
set #menuButton N/A
deleteJournal
gosub menu
gosub menuCheck
sub menuCheck
checkLoop:
menu Get ClaimAll
set %claimAll #menures
menu Get AutoClaim
set %autoClaim #menures
menu Get AutoRange
set %autoRange #menures
menu Get Pathfind
set %pathfind #menures
menu Get ManualRange
set %manualRange #menures
if #menuButton = ManualClaimNow
gosub findCorpse %manualRange
if %autoClaim = #true
gosub findCorpse %autoRange
goto checkLoop


;;;;; ;;;;; ;;;;; ;;;;; ;;;;;

sub findCorpse
set #menuButton N/A
for %range 1 %1
{
findItem YFM G_ , %range
if #findKind > 0
gosub claim
}
target
key esc
set %claim done
return


;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;;
sub claim
set #lTargetID #findID
set #lTargetKind 1
if done notIn %claim
goto again
gosub sayIt
set %claim HereWeGo
again:
target
event macro 22
wait %lagTimer
gosub journalCheck
set %range 1
return

;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;;
sub sayIt

if %claimAll = #false
event macro 1 0 [claim
else
event macro 1 0 [claimall

return

;;;;; ;;;;; ;;;;; ;;;;; ;;;;;

sub journalCheck
for %scan 1 3
{
scanJournal %scan
if isn't_a_corpse! in #journal || can't_get_there in #journal || earn_the_rights in #journal
{
set %claim done
ignoreItem #findID
}
if cannot_be_seen in #journal
{
if %pathfind = #true
{
event pathfind #findX #findY
gosub sayIt
}
else
{
set %claim done
ignoreitem #findID
return
}
set %scan 3
}
}

return



;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;;
sub menu
menu Clear
menu Window Title BlaZin' [claimR
menu Window Color Black
menu Window Size 118 240
menu Font Transparent #true
menu Font Align Right
menu Font Name Comic Sans MS
menu Font Size 11
menu Font Style bu
menu Font Color Green
menu Font Transparent #false
menu Font Align Left
menu Font BGColor Black
menu Text Label3 8 58 Range
menu Text Label3 45 215 v1.0
menu Font Color Purple
menu Text Label5 8 185 Range
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style b
menu Font Color Black
menu Font BGColor Green
menu Button ManualClaimNow 8 116 105 61 CLAIM NOW
menu Font Color Purple
menu Font BGColor WindowFrame
menu Combo Create AutoRange 56 60 57
menu Combo Add AutoRange 1
menu Combo Add AutoRange 2
menu Combo Add AutoRange 3
menu Combo Add AutoRange 4
menu Combo Add AutoRange 5
menu Combo Add AutoRange 6
menu Combo Add AutoRange 7
menu Combo Add AutoRange 8
menu Combo Add AutoRange 9
menu Combo Add AutoRange 10
menu Combo Select AutoRange %autoRange
menu Font Name Comic Sans MS
menu Font Size 11
menu Font Style bu
menu Font Color Purple
menu Font Align Right
menu Font BGColor Black
menu Check AutoClaim 6 30 109 29 %autoClaim Auto-claim?
menu Check Pathfind 6 81 109 29 %pathfind Pathfind?
menu Font Color Green
menu Check ClaimAll 6 6 109 29 %claimAll [Claimall?
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style b
menu Font Color Green
menu Font BGColor WindowFrame
menu Combo Create ManualRange 56 187 57
menu Combo Add ManualRange 1
menu Combo Add ManualRange 2
menu Combo Add ManualRange 3
menu Combo Add ManualRange 4
menu Combo Add ManualRange 5
menu Combo Add ManualRange 6
menu Combo Add ManualRange 7
menu Combo Add ManualRange 8
menu Combo Add ManualRange 9
menu Combo Add ManualRange 10
menu Combo Select ManualRange %manualRange
menu Show 421 270
return
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;

[Draconomicon]

[Ilsanor]

Next time please use the [ code ] tags - they preserve the structure of the script instead of straight out align to left. Also - coding talk section anyone?

[Devlin]

Next time please use the [ code ] tags - they preserve the structure of the script instead of straight out align to left. Also - coding talk section anyone?

^

[Draconomicon]