; Pickaxe Shop and Mine Inits
; *Scene 101*
; *Hugna's Pickaxe Shops*
SCENE 101, MintakaShop, SCENE, "Pickaxe Shop"
#include proxbeta.txt
   MUSIC Mintaka.mid

ACTOR 1,"Hugna",joshTownsfolk,1
1: Try one of my pickaxes.  I'll also buy any ores you mine.  
OFFER 728,729,730,731,732,733
END

; *Scene 106*
; *Hugna's Pickaxe Shops*
SCENE 106, "Al Mithal Shop", SCENE, "Pickaxe Shop"
#include proxbeta.txt
   MUSIC "Al Mithal.mid"

ACTOR 1,"Hugna",joshTownsfolk,1
1: Try one of my pickaxes.  I'll also buy any ores you mine.  
OFFER 728,729,730,731,732,733
END

; *Scene 107*
; *Hugna's Pickaxe Shops*
SCENE 107, "MintakaShop", SCENE, "Hall Pickaxe Shop"
#include proxbeta.txt
   MUSIC Mintaka.mid

ACTOR 1,"Hugna",joshTownsfolk,1
1: Try one of my pickaxes.  I'll also buy any ores you mine.  
OFFER 728,729,730,731,732,733,734
END

; *Scene 102*
; *Mintaka Mines*
; Low Level Mine
SCENE 102 "mine.200.50", SCENE
#include proxbeta.txt
   MUSIC mine.mid

GOTO @mineset

; Hugna's Cookies
;#<PickDurability> May or may not be used.
;#<DoneSet> Used in initial cookie settings and resets.  
;#<MLVL>
;#<MXP>
;#<MHC>

; Phoenix Star's Cookies
;#<A1> Used mostly for MXP exponentiation.
;#<A2> Used for cubic exponentiation and pseudo-parentheses.
;#<A3> Used for the CHK script.  
;#<A4> Used to avoid false reset triggers.
;#<A5> Also used to avoid false reset triggers.
;#<A6> Used for MCA.
;#<A10> Used to prevent false resets due to exiting the scene too early.
;#<CHK> Checksum.

H: Oops, a bug!
END
; Now for the real thing.  
@goinmine

ACTOR 1,"Rock",rock,0,20,80
ACTOR 2,"Copper Ore",rock,0,30,70
ACTOR 3,"Iron Ore",rock,0,40,72
ACTOR 4,"Copper Ore",rock,0,50,75
ACTOR 5,"Rock",rock,0,60,79
ACTOR 6,"Tin Ore",rock,0,70,71
ACTOR 7,"Rock",rock,0,80,76

IF -I728-I729-I730-I731-I732-I733-I734-I1042, @getPick
COMPARE #<A10>,1
IF= @CHKRefresh
END

@eventActorClick1
WAIT 1
SET Ore,1
GOTO @MHC
@eventActorClick2
WAIT 1
SET Ore,2
GOTO @MHC
@eventActorClick3
WAIT 1
SET Ore,4
GOTO @MHC
@eventActorClick4
WAIT 1
SET Ore,2
GOTO @MHC
@eventActorClick5
WAIT 1
SET Ore,1
GOTO @MHC
@eventActorClick6
WAIT 1
SET Ore,3
GOTO @MHC
@eventActorClick7
WAIT 1
SET Ore,1
GOTO @MHC
H: Oops!  A bug!  
END
; End of mine script
#include ores.txt
END

; *Scene 103*
; *Secret Cave*
; Low-Medium Level Mine
SCENE 103 "mine.200.50", SCENE, "Secret Cave"
#include proxbeta.txt
   MUSIC mine.mid

WEATHER 7
GOTO @mineset

H: Oops, a bug!
END

; Now for the real thing.  
@goinmine

ACTOR 1,"Rock",rock,0,20,80
ACTOR 2,"Tin Ore",rock,0,30,70
ACTOR 3,"Iron Ore",rock,0,40,72
ACTOR 4,"Coal",rock,0,50,75
ACTOR 5,"Iron Ore",rock,0,60,79
ACTOR 6,"Silver Ore",rock,0,70,71
ACTOR 7,"Mithril Ore",rock,0,80,76

IF -I728-I729-I730-I731-I732-I733-I734-I1042, @getPick
COMPARE #<A10>,1
IF= @CHKRefresh
END

@eventActorClick1
WAIT 1
SET Ore,1
GOTO @MHC
@eventActorClick2
WAIT 1
SET Ore,3
GOTO @MHC
@eventActorClick3
WAIT 1
SET Ore,4
GOTO @MHC
@eventActorClick4
WAIT 1
SET Ore,5
GOTO @MHC
@eventActorClick5
WAIT 1
SET Ore,4
GOTO @MHC
@eventActorClick6
WAIT 1
SET Ore,6
GOTO @MHC
@eventActorClick7
WAIT 1
SET Ore,7
GOTO @MHC
H: Oops!  A bug!  
END
; End of mine script
#include ores.txt
END

; *Scene 104*
; *Demon Rock*
; Demonstone Mine
SCENE 104 "mine.200.50", SCENE
#include proxbeta.txt
   MUSIC mine.mid

GOTO @mineset
H: Oops, a bug!
END
; Now for the real thing.  
@goinmine

ACTOR 1,"Demonstone",rock,0,20,80
ACTOR 2,"Rock",rock,0,30,70
ACTOR 3,"Rock",rock,0,40,72
ACTOR 4,"Demonstone",rock,0,50,75
ACTOR 5,"Demonstone",rock,0,60,79
ACTOR 6,"Rock",rock,0,70,71
ACTOR 7,"Demonstone",rock,0,80,76

IF -I728-I729-I730-I731-I732-I733-I734-I1042, @getPick
COMPARE #<A10>,1
IF= @CHKRefresh
END

@eventActorClick1
WAIT 1
SET Ore,12
GOTO @MHC
@eventActorClick2
WAIT 1
SET Ore,1
GOTO @MHC
@eventActorClick3
WAIT 1
SET Ore,1
GOTO @MHC
@eventActorClick4
WAIT 1
SET Ore,12
GOTO @MHC
@eventActorClick5
WAIT 1
SET Ore,12
GOTO @MHC
@eventActorClick6
WAIT 1
SET Ore,1
GOTO @MHC
@eventActorClick7
WAIT 1
SET Ore,12
GOTO @MHC
H: Oops!  A bug!  
END
; End of mine script
#include ores.txt
END

; *Scene 105*
; *Al Mithal Mines*
; Minting Mine
SCENE 105 "mine.200.50", SCENE
#include proxbeta.txt
   MUSIC mine.mid

GOTO @mineset


H: Oops, a bug!
END
; Now for the real thing.  
@goinmine

ACTOR 1,"Gold Ore",rock,0,20,80
ACTOR 2,"Copper Ore",rock,0,30,70
ACTOR 3,"Silver Ore",rock,0,40,72
ACTOR 4,"Copper Ore",rock,0,50,75
ACTOR 5,"Gold Ore",rock,0,60,79
ACTOR 6,"Silver Ore",rock,0,70,71
ACTOR 7,"Rock",rock,0,80,76

IF -I728-I729-I730-I731-I732-I733-I734-I1042, @getPick
COMPARE #<A10>,1
IF= @CHKRefresh
END

@eventActorClick1
WAIT 1
SET Ore,8
GOTO @MHC
@eventActorClick2
WAIT 1
SET Ore,2
GOTO @MHC
@eventActorClick3
WAIT 1
SET Ore,6
GOTO @MHC
@eventActorClick4
WAIT 1
SET Ore,2
GOTO @MHC
@eventActorClick5
WAIT 1
SET Ore,8
GOTO @MHC
@eventActorClick6
WAIT 1
SET Ore,6
GOTO @MHC
@eventActorClick7
WAIT 1
SET Ore,1
GOTO @MHC
H: Oops!  A bug!  
END
; End of mine script
#include ores.txt
END

; *Scene 108*
; *Miner's Hall Mines*
; Variety Pack
SCENE 108 "mine.200.50", SCENE
#include proxbeta.txt
   MUSIC mine.mid

GOTO @mineset

H: Oops, a bug!
END
; Now for the real thing.  
@goinmine

ACTOR 1,"Coal",rock,0,20,80
ACTOR 2,"Copper Ore",rock,0,30,70
ACTOR 3,"Tin Ore",rock,0,40,72
ACTOR 4,"Zinc Ore",rock,0,50,75
ACTOR 5,"Iron Ore",rock,0,60,79
ACTOR 6,"Silver Ore",rock,0,70,71
ACTOR 7,"Demonstone",rock,0,80,76

IF -I728-I729-I730-I731-I732-I733-I734-I1042, @getPick
COMPARE #<A10>,1
IF= @CHKRefresh
END

@eventActorClick1
WAIT 1
SET Ore,5
GOTO @MHC
@eventActorClick2
WAIT 1
SET Ore,2
GOTO @MHC
@eventActorClick3
WAIT 1
SET Ore,3
GOTO @MHC
@eventActorClick4
WAIT 1
SET Ore,11
GOTO @MHC
@eventActorClick5
WAIT 1
SET Ore,4
GOTO @MHC
@eventActorClick6
WAIT 1
SET Ore,6
GOTO @MHC
@eventActorClick7
WAIT 1
SET Ore,12
GOTO @MHC
H: Oops!  A bug!  
END
; End of mine script
#include ores.txt
END