> Is this a wizard script or something I might be able to use in Storm Front? It's a YASSE script. I don't think it will be to useful for Wizard/SF, but in case:
#
# PROSPECT for useful stuff
#
# Usage:
# .prospect (junk/nothing)
# Normally just use .prospect and it'll stop at good stuff
# You can use .prospect iron if you want to stop at iron
# If you call .prospect junk it'll only stop at non-useless metals
#
# By Hanryu
# Please report any bugs to HanryuDR (aim) or
sauva@play.net# This script may be reused in whole or in part as long as credit is given
# This script is designed to use YASSE,
http://sourceforge.net/projects/yasse/action "kill.prospect" goto done
action "you are engaged" gosub retreat
action "You can't do that while engaged!" gosub retreat
action "With a twist of your body, you manage to escape from the tangle and go about your way." put %lastcommand
action "This area is composed of igneous rock layers." setvariable geology igneous
action "This area is composed of metamorphic rock layers." setvariable geology metamorphic
action "This area is composed of sedimentary rock layers." setvariable geology sedimentary
action "You are certain that Alabaster can be mined here." setvariable stone Alabaster
action "You are certain that Andesite can be mined here." setvariable stone Andesite
action "You are certain that Basalt can be mined here." setvariable stone Basalt
action "You are certain that Breccia can be mined here." setvariable stone Breccia
action "You are certain that Dolomite can be mined here." setvariable stone Dolomite
action "You are certain that Gabbro can be mined here." setvariable stone Gabbro
action "You are certain that Granite can be mined here." setvariable stone Granite
action "You are certain that Jade can be mined here." setvariable stone Jade
action "You are certain that Limestone can be mined here." setvariable stone Limestone
action "You are certain that Marble can be mined here." setvariable stone Marble
action "You are certain that Obsidian can be mined here." setvariable stone Obsidian
action "You are certain that Onyx can be mined here." setvariable stone Onyx
action "You are certain that Pumice can be mined here." setvariable stone Pumice
action "You are certain that Quartzite can be mined here." setvariable stone Quartzite
action "You are certain that Sandstone can be mined here." setvariable stone Sandstone
action "You are certain that Schist can be mined here." setvariable stone Schist
action "You are certain that Serpentine can be mined here." setvariable stone Serpentine
action "You are certain that Soapstone can be mined here." setvariable stone Soapstone
action "You are certain that Travertine can be mined here." setvariable stone Travertine
action "You are certain that Coal can be mined here." setvariable metal Coal
action "You are certain that Damite can be mined here." setvariable metal Damite
action "You are certain that Tyrium can be mined here." setvariable metal Tyrium
action "You are certain that Covellite can be mined here." setvariable metal Covellite
action "You are certain that Tin can be mined here." setvariable metal Tin
action "You are certain that Kertig can be mined here." setvariable metal Kertig
action "You are certain that Niniam can be mined here." setvariable metal Niniam
action "You are certain that Darkstone can be mined here." setvariable metal Darkstone
action "You are certain that Haralun can be mined here." setvariable metal Haralun
action "You are certain that Lumium can be mined here." setvariable metal Lumium
action "You are certain that Glaes can be mined here." setvariable metal Glaes
action "You are certain that Orichalcum can be mined here." setvariable metal Orichalcum
action "You are certain that Audrualm can be mined here." setvariable metal Audrualm
action "You are certain that Iron can be mined here." setvariable metal Iron
action "You are certain that Copper can be mined here." setvariable metal Copper
action "You are certain that Lead can be mined here." setvariable metal Lead
action "You are certain that Silver can be mined here." setvariable metal Silver
action "You are certain that Oravir can be mined here." setvariable metal Oravir
action "You are certain that Zinc can be mined here." setvariable metal Zinc
action "You are certain that Electrum can be mined here." setvariable metal Electrum
action "You are certain that Gold can be mined here." setvariable metal Gold
action "You are certain that Nickel can be mined here." setvariable metal Nickel
action "You are certain that Platinum can be mined here." setvariable metal Platinum
action "You are certain that Animite can be mined here." setvariable metal Animite
action "You are certain that Niello can be mined here." setvariable metal Niello
setvariable geology ""
setvariable stone ""
setvariable metal ""
OPEN output "$charactername$/prospectdata.txt"
OPEN input "$charactername$/prospectdata.txt"
LOCATE endoffile
setloc:
CASE Ain Ain Ghazal, Ferry Dock
CASE AinCave Kradhren Caverns, Sinkhole
case Forf Himineldar Shel, Mountain Road
case Kaerna Northern Trade Road, Foothills
CASE SSS Whistling Wood, Path
case adanf Whistling Wood, Fissure
case Keep Theren Keep, Approach
case BreechTunnels The Breech Tunnels
case Duskies West Wilds, Tunnels
case dirgeMine Wicked Burrow Mine, Entrance
setlocfail:
caseswitch %roomtitle
caseswitch %roomdescription
put look
goto setlocfail
Ain:
WRITE Ain Ghazal Mine,$date$
MOVE n
MOVE climb slope
MOVE climb cliff
MOVE climb escarpment
MOVE climb precipice
MOVE d
MOVE d
MOVE climb sinkhole
AinCave:
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE se
GOSUB prospect %1
MOVE climb slope
GOSUB prospect %1
MOVE climb slope
MOVE nw
MOVE ne
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE se
GOSUB prospect %1
MOVE nw
MOVE w
MOVE sw
MOVE n
MOVE n
MOVE w
GOSUB prospect %1
MOVE sw
GOSUB prospect %1
MOVE d
GOSUB prospect %1
MOVE sw
GOSUB prospect %1
MOVE nw
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE nw
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE s
MOVE s
MOVE se
MOVE se
MOVE ne
MOVE u
MOVE ne
MOVE e
MOVE n
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE ne
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE climb down
GOSUB prospect %1
MOVE nw
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE s
MOVE w
GOSUB prospect %1
MOVE sw
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE n
MOVE ne
MOVE e
MOVE se
MOVE climb outcrop
MOVE s
MOVE s
MOVE w
GOSUB prospect %1
MOVE go opening
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE s
MOVE sw
GOSUB prospect %1
MOVE u
GOSUB prospect %1
MOVE d
MOVE ne
MOVE go opening
MOVE e
goto ainskip
MOVE go opening
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE n
MOVE ne
GOSUB prospect %1
MOVE se
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE se
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE se
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE ne
MOVE n
MOVE n
MOVE sw
GOSUB prospect %1
MOVE sw
GOSUB prospect %1
MOVE n
MOVE ne
MOVE climb wall
GOSUB prospect %1
MOVE ne
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE n
MOVE nw
MOVE sw
MOVE climb gash
MOVE w
MOVE nw
MOVE n
MOVE w
MOVE sw
MOVE w
MOVE go opening
ainskip:
MOVE s
MOVE sw
MOVE climb sinkhole
MOVE d
MOVE climb escarpment
MOVE climb cliff
MOVE climb slope
MOVE sw
MOVE s
GOTO done
forf:
WRITE Forf Abandoned Mine,$date$
MOVE go mine
MOVE s
MOVE go door
MOVE se
MOVE go arch
MOVE climb slope
MOVE sneak se
PAUSE
PUT kneel
PAUSE
MOVE go hole
PUT stand
MOVE w
MOVE climb rope
MOVE go platform
PUT climb cliff
MOVE climb cliff
PUT climb outcrop
MOVE climb outcrop
PUT climb cliff
MOVE climb cliff
MOVE e
MOVE e
MOVE se
GOSUB prospect %1
MOVE ne
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE s
MOVE e
GOSUB prospect %1
MOVE go chute
PUT stand
WAITFOR stand
GOSUB prospect %1
MOVE nw
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE nw
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE nw
GOSUB prospect %1
MOVE go opening
GOSUB prospect %1
MOVE go opening
MOVE w
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE sw
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE climb cable
GOSUB prospect %1
MOVE climb girder
GOSUB prospect %1
MOVE climb ladder
GOSUB prospect %1
MOVE climb ladder
MOVE climb girder
MOVE climb cable
MOVE e
MOVE e
MOVE e
MOVE e
MOVE ne
MOVE e
MOVE e
MOVE climb rope
GOSUB prospect %1
MOVE go hole
GOTO done
Kaerna:
WRITE Kaerna Abandoned Mine,$date$
MOVE climb trail
MOVE u
MOVE w
MOVE climb creeper
MOVE climb ladder
GOSUB prospect %1
MOVE climb rope
MOVE w
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE go bridge
MOVE s
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE u
MOVE n
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE s
MOVE n
MOVE u
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE w
MOVE w
MOVE d
MOVE d
MOVE w
MOVE n
MOVE go bridge
MOVE n
MOVE n
MOVE ne
MOVE e
MOVE climb rope
MOVE climb ladder
MOVE climb creeper
MOVE u
MOVE u
MOVE go entrance
MOVE go crevice
MOVE climb ladder
MOVE n
GOSUB prospect %1
MOVE ne
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE s
MOVE s
MOVE sw
MOVE s
MOVE climb ladder
MOVE go crevice
MOVE o
MOVE d
MOVE d
MOVE e
MOVE d
MOVE climb trail
GOTO done
SSS:
MOVE nw
MOVE nw
MOVE n
MOVE nw
MOVE sw
MOVE ne
MOVE sw
MOVE se
MOVE w
MOVE nw
MOVE nw
MOVE ne
MOVE n
adanf:
WRITE Shard Adanf Caves,$date$
MOVE climb fissure
GOSUB prospect %1
move climb gouge
GOSUB prospect %1
move climb niche
GOSUB prospect %1
move w
GOSUB prospect %1
move sw
GOSUB prospect %1
move w
move sw
move n
MOVE w
GOSUB prospect %1
move sw
GOSUB prospect %1
move sw
GOSUB prospect %1
move w
GOSUB prospect %1
move w
GOSUB prospect %1
move climb wall
GOSUB prospect %1
move climb wall
GOSUB prospect %1
move climb wall
GOSUB prospect %1
move climb wall
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE nw
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE ne
GOSUB prospect %1
MOVE n
GOSUB prospect %1
MOVE s
MOVE sw
MOVE s
MOVE nw
GOSUB prospect %1
MOVE s
GOSUB prospect %1
MOVE w
GOSUB prospect %1
MOVE s
GOSUB prospect %1
move w
GOSUB prospect %1
move nw
GOSUB prospect %1
move w
GOSUB prospect %1
move go door
GOSUB prospect %1
move go door
move e
move se
GOSUB prospect %1
move se
GOSUB prospect %1
move sw
GOSUB prospect %1
move s
GOSUB prospect %1
move n
move ne
MOVE se
GOSUB prospect %1
MOVE se
GOSUB prospect %1
MOVE go bridge
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE ne
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE e
GOSUB prospect %1
MOVE o
command -walk n
GOTO done
#Breech Tunnels under Theren Keep
keep:
WRITE Theren Breech Tunnels,$date$
MOVE climb ledge
MOVE w
MOVE nw
MOVE n
MOVE n
MOVE climb debris
MOVE e
MOVE e
MOVE d
MOVE go gap
BreechTunnels:
GOSUB prospect %1
move nw
GOSUB prospect %1
move n
GOSUB prospect %1
move e
GOSUB prospect %1
move e
GOSUB prospect %1
move n
GOSUB prospect %1
move s
move ne
GOSUB prospect %1
move sw
move w
move w
move n
GOSUB prospect %1
move n
GOSUB prospect %1
move e
GOSUB prospect %1
move e
GOSUB prospect %1
move e
GOSUB prospect %1
move w
move w
move w
move s
move s
move s
move se
MOVE go gap
MOVE u
MOVE w
MOVE climb debris
MOVE s
MOVE s
MOVE s
MOVE se
MOVE e
MOVE climb ledge
GOTO done
#Duskie Tunnels
duskies:
WRITE Haven Duskie Tunnels,$date$
GOSUB prospect %1
move sw
GOSUB prospect %1
move nw
GOSUB prospect %1
move ne
GOSUB prospect %1
move se
move n
GOSUB prospect %1
move go roots
GOSUB prospect %1
move n
GOSUB prospect %1
move n
GOSUB prospect %1
move n
GOSUB prospect %1
move e
GOSUB prospect %1
move e
GOSUB prospect %1
move ne
GOSUB prospect %1
move go niche
GOSUB prospect %1
move out
move sw
move w
move w
move nw
GOSUB prospect %1
move se
move ne
GOSUB prospect %1
move sw
move n
GOSUB prospect %1
put lay
put go passage
waitfor West Wilds, Dark Tunnels
put stand
waitfor stand
temp:
GOSUB prospect %1
move n
GOSUB prospect %1
move n
GOSUB prospect %1
move e
GOSUB prospect %1
move sw
GOSUB prospect %1
move ne
MOVE nw
GOSUB prospect %1
move nw
GOSUB prospect %1
move w
GOSUB prospect %1
move s
GOSUB prospect %1
move nw
GOSUB prospect %1
move ne
move ne
GOSUB prospect %1
move u
GOSUB prospect %1
move ne
GOSUB prospect %1
MOVE u
GOTO done
#Dirge Mines
dirgeMine:
WRITE Dirge Mines,$date$
GOSUB prospect %1
move e
GOSUB prospect %1
move ne
GOSUB prospect %1
move e
GOSUB prospect %1
move se
GOSUB prospect %1
put d
GOSUB prospect %1
move e
GOSUB prospect %1
move ne
GOSUB prospect %1
move sw
move e
GOSUB prospect %1
move go rocks
put stand
GOSUB prospect %1
move ne
GOSUB prospect %1
move n
GOSUB prospect %1
move climb rope
move climb ladder
GOSUB prospect %1
move n
GOSUB prospect %1
move ne
GOSUB prospect %1
move ne
GOSUB prospect %1
move n
GOSUB prospect %1
move s
move sw
move sw
move s
move climb ladder
move climb rope
move s
move sw
move go rock
put stand
move e
GOSUB prospect %1
move go bank
callwith cais
move se
move se
move se
PUT go bank
GOSUB prospect %1
PUT e
pausetext 1 You stride
GOSUB prospect %1
PUT n
pausetext 1 You stride
GOSUB prospect %1
PUT nw
pausetext 1 You stride
GOSUB prospect %1
PUT nw
pausetext 1 You stride
GOSUB prospect %1
PUT se
pausetext 1 You stride
PUT se
pausetext 1 You stride
PUT s
pausetext 1 You stride
PUT ne
pausetext 1 You stride
GOSUB prospect %1
PUT n
pausetext 1 You stride
GOSUB prospect %1
PUT ne
pausetext 1 You stride
GOSUB prospect %1
PUT ne
pausetext 1 You stride
GOSUB prospect %1
PUT sw
pausetext 1 You stride
PUT sw
pausetext 1 You stride
PUT s
pausetext 1 You stride
PUT sw
pausetext 1 You stride
PUT w
pausetext 1 You stride
MOVE go bank
move nw
move nw
move nw
move go bank
move w
move w
move w
MOVE u
move nw
move w
move sw
move w
GOTO done
prospect:
MATCH prospect ...wait
MATCH prospect sorry,
# MATCH continue You are certain that iron can be mined here.
# MATCH continue You are certain that copper can be mined here.
# MATCH continue You are certain that coal can be mined here.
# MATCH continue You are certain that lead can be mined here.
# MATCH continue You are certain that Covellite can be mined here.
MATCH continue You are certain that Animite can be mined here.
MATCH continue You are certain that Audrualm can be mined here.
MATCH continue You are certain that Damite can be mined here.
MATCH continue You are certain that Darkstone can be mined here.
MATCH continue You are certain that Electrum can be mined here.
MATCH continue You are certain that Glaes can be mined here.
MATCH continue You are certain that Gold can be mined here.
MATCH continue You are certain that Haralun can be mined here.
MATCH continue You are certain that Kertig can be mined here.
MATCH continue You are certain that Lumium can be mined here.
MATCH continue You are certain that Niniam can be mined here.
MATCH continue You are certain that Orichalcum can be mined here.
MATCH continue You are certain that Platinum can be mined here.
MATCH continue You are certain that Tyrium can be mined here.
MATCH score You are certain that %w can be mined here.
MATCH writer Roundtime:
PUT prospect
MATCHWAIT
score:
printbox 265 "You found what you were looking for!\n"
continue:
GOSUB writer
PRINTBOX 265 "You're run across something potentially useful, keep going?\nType YES to continue."
WAITFOR positive attitude
GOTO return
writer:
WRITE $geology$,$stone$,$metal$
setvariable geology ""
setvariable rock ""
setvariable metal ""
return
done:
CLOSE "$charactername$/prospectdata.txt" lock
EXIT
####Retreat and move####
#engaged:
# setvariable direction $lastcommand$
retreat:
match retreat ...wait
match retreat sorry,
match retreat you retreat back
match return you retreat from combat
put retreat
matchwait
#mover:
# move $direction$
# goto return
####
####
return:
return
####
errorhandler:
printbox 265 "Error #$errornumber$ occurred on the line #$errorline$ : $line$"
EXIT
~Hunter Hanryu
http://drplat.com/CombatEquipmentCompendium.xlshttp://tinyurl.com/HanryuTanning
Previous Thread
Expand All
Collapse All
Ignore Author
Reply
