SCENE 1510, kaivaus
;#include banthing.txt
ACTOR 1, "Dwarf", dwarf, 2, 60, 95
ACTOR 2, "Dwarf", dwarf, 1, 20, 100
ACTOR 3, "", mining, 1, 40, 100
IF T17+V90, @checkit
IF T17+V70, @checkit
IF T17+V50, @checkit
IF T17, @checkit
IF T15, @mining
1: Ye be here ta mine, #<g.lad>?
2: Ha! That one can't mine.
1: Hmmph, get out. Yer no dwarf material.
END
@mining
1: Har, aye I see! Here to mine, #<g.lad>?
2: Oi, #<g.he>? CAN even mine!
IF -V40, @tooyoung
1: Yer welcome to stay with us dwarves and mine.
1: Here's a pickaxe fer ya.
WAIT 2
N: You got a pickaxe, you can mine now!
HOST_GIVE T17
GOTO @checkit
END
@mining2
IF -T17, @cheat
IF -V40, @cheat2
WAIT 2
COMPARE %R4, 1
IF= @mithril
GOTO @checkit
END
@mithril
COMPARE %R4, 1
IF= @warpstone
N: You got some Mithril!
HOST_GIVE I92
GOTO @checkit
END
@warpstone
COMPARE %R4, 1
IF= @thoridium
N: You got some Warpstone!
HOST_GIVE I91
GOTO @checkit
END
@thoridium
N: You got some Thoridium!
HOST_GIVE I90
GOTO @checkit
END
@tooyoung
1: Bu, whas this! Yer no experienced enough ta mine!
2: Louzy one, gets to level 40 first!
END
@cheat
1: Hey now don't be pickin' our pile newbie!
1: Yer not a miner! Atleast not yet!
END
@cheat2
1: What did I tell ye, get to level 40 first.
END

@mining3
IF T17+V90, @mining5
IF T17+V70, @mining4
IF -T17, @cheat
IF -V40, @cheat2
WAIT 2
COMPARE %R3, 1
IF= @mithril2
GOTO @checkit
END
@mithril2
COMPARE %R3, 1
IF= @warpstone2
N: You got some Mithril!
HOST_GIVE I92
GOTO @checkit
END
@warpstone2
COMPARE %R4, 1
IF= @thoridium2
N: You got some Warpstone!
HOST_GIVE I91
GOTO @checkit
END
@thoridium2
N: You got some Thoridium!
HOST_GIVE I90
GOTO @checkit
END

@mining4
IF -T17, @cheat
IF -V40, @cheat2
WAIT 2
COMPARE %R2, 1
IF= @mithril3
GOTO @checkit
END
@mithril3
COMPARE %R3, 1
IF= @warpstone3
N: You got some Mithril!
HOST_GIVE I92
GOTO @checkit
END
@warpstone3
COMPARE %R3, 1
IF= @thoridium3
N: You got some Warpstone!
HOST_GIVE I91
GOTO @checkit
END
@thoridium3
N: You got some Thoridium!
HOST_GIVE I90
GOTO @checkit
END


@mining5
IF -T17, @cheat
IF -V40, @cheat2
WAIT 2
COMPARE %R2, 1
IF= @mithril4
GOTO @checkit
END
@mithril4
COMPARE %R2, 1
IF= @warpstone4
N: You got some Mithril!
HOST_GIVE I92
GOTO @checkit
END
@warpstone4
COMPARE %R2, 1
IF= @thoridium4
N: You got some Warpstone!
HOST_GIVE I91
GOTO @checkit
END
@thoridium4
N: You got some Thoridium!
HOST_GIVE I90
GOTO @checkit
END


@checkit
END
@eventActorAttack3
IF T17+V90, @mining5
IF T17+V70, @mining4
IF T17+V50, @mining3
IF T17, @mining2

END




;blasted..

