Must be named lockpicking in macros, or else you need to change all the playmacro "lockpicking" to whatever name you choose.
Code: Select all
//Train Lockpicking with 1 box
if skill Lockpicking > 45
headmsg "You need to get a higher level box and change this number"
unsetalias Key
unsetalias Box
//
stop
endif
clearjournal
if @findtype 0x14fc
@setalias 'Lockpicks' found
else
headmsg "Not enough lockpicks in backpack"
stop
endif
//
if not @findobject 'Box'
headmsg 'Select Box'
promptalias 'Box'
endif
if not @findobject 'Key'
headmsg 'Select Key'
promptalias 'Key'
endif
//
useobject 'Lockpicks'
waitforjournal "What do you want to pick" 1000 'system'
target! 'Box'
for 3
pause 1050
if @injournal "You manage to"
useobject 'Key'
autotargetobject 'Box'
playmacro "lockpicking"
endif
if @injournal "successfully pick the lock"
useobject 'Key'
autotargetobject 'Box'
playmacro "lockpicking"
endif
if @injournal "the lock yields"
useobject 'Key'
autotargetobject 'Box'
playmacro "lockpicking"
endif
if @injournal "the lock gives in"
useobject 'Key'
autotargetobject 'Box'
playmacro "lockpicking"
endif
if @injournal "This does not appear to be locked."
useobject 'Key'
autotargetobject 'Box'
playmacro "lockpicking"
endif
if @injournal "Failing to open the lock"
playmacro "lockpicking"
endif
endfor