Excelsior

Code: Select all

; BlaZin' TrainR: Lockpicking
; by BlaZe Budd of Excelsior's ßud ßrothers
; v1.1 completed 3/5/09
;
;
; YOU NEED TO BE IN THE HAVEN THIEVES'
; GUILD FOR THIS TO WORK, PERIOD!

set %timer 5 ; Increase this if you often get
             ; 'Does not appear to be locked' messages.


;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
set %boxes HKF_CUD
chooseSkill Lock
if #skill >= 950
  {
  event exMsg #charID 3 33 You're already at 95+ lockpicking!
  halt
  }
mainLoop:
gosub checkSkill
gosub setupBox
gosub checkBox
gosub checkPicks
gosub pick
gosub checkJournal
goto mainLoop
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub pick
set #lObjectID %picks
event macro 17
target 10s
event macro 22
return
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub setupBox
if %done = 1
  return
setupBox:
findItem %boxes G_ , 1
if #findKind = -1
  {
  event exMsg #charID 3 33 Can't find a usable box nearby!
  halt
  }
event property #findID
if Stones notin #property
  {
  ignoreitem #findID
  goto setupBox
  }
set #lObjectID #findID
event macro 17
wait %timer
mainBox:
if #contSize <> 206_166
  goto mainBox
set %mainBox #contID
findItem SEG C_ , %mainBox
set %key #findID
set %box #random % 9
setupBox2:
findItem %boxes C_ , %mainBox
if %box <> 0
  {
  set %box %box - 1
  ignoreitem #findID
  goto setupBox2
  }
set %box #findID
set %done 1
return
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub checkPicks
findItem IWH C_ , #backpackID
if #findKind = -1
  {
  event exMsg #charID 3 33 No lockpicks! Halting script..
  halt
  }
set %picks #findID
return
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub checkBox
deleteJournal
set #lTargetID %box
set #lTargetKind 1
checkBox:
event property %box
if Stones notin #property || %locked = 1
  return
set #lObjectID %key
event macro 17
target 10s
event macro 22
gosub checkJournal
goto checkBox
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub checkSkill
if #skill < 950
  {
  set %x 3690
  set %y 2510
  }
if #skill < 900
  {
  set %x 3692
  set %y 2512
  }
if #skill < 700
  {
  set %x 3692
  set %y 2516
  }
if #skill < 500
  set %x 3689
if #skill < 250
  set %y 2512
pathFind:
if #charPosX <> %x || #charPosY <> %y
  {
  set %done 0
  if %closeBox = 1
    {
    set %contX #contPosX + 50
    set %contY #contPosY + 50
    click %contX %contY r
    set %closeBox 0
    }
  event pathFind %x %y
  wait 3
  goto pathFind
  }
set %closeBox 1
return
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub checkJournal
journal:
for %scan 1 5
  {
  scanjournal %scan
  if unable_to_pick in #journal || You_lock_it in #journal
    {
    set %locked 1
    deleteJournal
    wait %timer
    return
    }
  if yields_to_your_skill in #journal || not_appear_to_be_locked in #journal
    {
    deleteJournal
    set %locked 0
    wait %timer
    return
    }
  }
goto journal

Code: Select all

UserLanguageCodeString=ENU