###   Genie3 adapted version of          ###
###       Aveda's Reckus 4.05                   ###
###                                                                      ###
###       Adapted by: Ryken(javastout)   ###
###                                                                      ###
###   Set all of these things here!      ###
### (Replace my instruments with yours) ###
### Feel free to leave any of the 3      ###
### instruments blank (just set the      ###
### instrument name to "no"), but be    ###
### sure to set yes or no for vocals    ###
###                                                                      ###
###       To operate, just type:                 ###
###                      .reckus                                 ###
###########################################

### If you're a Bard and want to work Merelew's Legacy while you practice set this to yes
var bard no

if "%bard" = "yes" then
{
        put stop play
        put mana song 5
        put sing mere
}
pause

### Set instruments here
var vocals-yes-or-no no
var percu-instrument no
var string-instrument harp
var wind-instrument no

var cleaning-thing cloth
var r-container satchel

vocaltest:
        if "%vocals-yes-or-no" = "no" then goto perctest
        if !matchre($diffVO, ^\d+$) then put #var diffVO 21
        if $diffVO > 0 then goto vocalhum

vocalhum:
        var diffnum $diffVO
        var mskill VO
        gosub begin

perctest:
        if !matchre($diffPCN, ^\d+$) then put #var diffPCN 21
        if $diffPCN > 0 then goto percplay

percplay:
        if "%percu-instrument" = "no" then goto stringtest
        var diffnum $diffPCN
        var instrument %percu-instrument
        var mskill PCN
        gosub begin

stringtest:
        if !matchre($diffSTR, ^\d+$) then put #var diffSTR 21
        if $diffSTR > 0 then goto stringplay

stringplay:
        if "%string-instrument" = "no" then goto windtest
        var diffnum $diffSTR
        var instrument %string-instrument
        var mskill STR
        gosub begin

windtest:
        if !matchre($diffWI, ^\d+$) then put #var diffWI 21
        if $diffWI > 0 then goto windplay

windplay:
        if "%wind-instrument" = "no" then goto finished
        var diffnum $diffWI
        var instrument %wind-instrument
        var mskill WI
        gosub begin

goto finished

###

begin:
        if "%mskill" = "VO" then
                {
                var play-or-hum hum
                }
        else
                {
                gosub getinst
                gosub clean
                gosub toolcheck
                gosub tune
                var play-or-hum play
                }

        gosub initialdiff
        gosub play

        if "%mskill" != "VO" then send put my %instrument in my %r-container
        var diff%mskill %diffnum
return

### play related ###
play:
put sing dreamily Ruuuuuuubies,oh!How I love them so..;You should hand me yers, just let go!;So pretty, so sparkly, in all shades of red..;You know what I dream of when I rest m'head!
        matchre play /\.\.\.wait|Sorry, you may only type ahead/
        #match fix The damage to your instrument affects your performance.
        match sweet masterful concerto
        matchre harder You effortlessly begin|your skill in your craft
        matchre sweet off-key ruff|off-key scales|with only the slightest hint of difficulty
        matchre easier You fumble slightly as you begin|You struggle to begin
        matchre recheck What type of song did you want to play?|PLAY: Instrumental Performances
        matchre harder You begin a|You begin some|You begin to hum
        match stupidtool You will need the proper tool
        match armoroff while wearing armor
        match end You can't play your
        send %play-or-hum %diff
        matchwait

recheck:
        var diffnum 18
        gosub 18
        goto play

armoroff:
        echo
        echo *** Please remove your armor.
        echo *** Type GLANCE to proceed.
        echo
        waitfor You glance
        goto play

sweet:
        ######################################################################
        ### This section is stuff you can do while playing.
        ### Feel free to customize it.
                echo
                echo *** This part of the script can be customized.
                echo *** You get about two minutes to screw around
                echo *** each time you play a song, so experiment!
                echo

        pause 120

midway-lockcheck:
        matchre earlystop mind lock|dazed|bewilder
        match carryon EXP HELP
        send skill %mskill
        matchwait
earlystop:
        put stop %play-or-hum
        goto endplay
carryon:

        ######################################################################

        waitfor You finish
        goto lockcheck
lockcheck:
        matchre endplay mind lock|dazed|bewilder
        match play EXP HELP
        send skill %mskill
        matchwait
endplay:
        return
easier:
        put stop play
        evalmath diffnum %diffnum - 1
        gosub %diffnum
        goto play
harder:
        put stop play
        evalmath diffnum %diffnum + 1
        gosub %diffnum
        goto play

###

### getinst related ###
getinst:
        matchre gotinst You get|You are already holding that
        matchre getinst \.\.\.wait|Sorry, you may only type ahead
        match stowit You need a free hand to pick that up
        match missing What were you referring to?
send get my %instrument
        matchwait

gotinst:
return

stowit:
        send stow left
        send stow right
        goto getinst

missing:
        echo *** You seem to be missing your $1 ***
        exit
###

### clean related ###
clean:
        send get my %cleaning-thing
clean1:
        matchre clean1 \.\.\.wait|Sorry, you may only type ahead
        matchre clean2 Roundtime:|not in need of cleaning.|with what?
        match clean4 Maybe you should dry
        send clean my %instrument
        matchwait
clean2:
        match clean2 ...wait
        matchre clean3 Roundtime:|not in need of cleaning.
        match clean4 Maybe you should dry
        send clean my %instrument with my %cleaning-thing
        matchwait
clean3:
        match clean3 ...wait
        match cleandone You put your
        send put my %cleaning-thing in my %r-container
        matchwait
clean4:
        match clean4 ...wait
        matchre clean5 Roundtime:|not in need of drying.
        send wipe my %instrument with my %cleaning-thing
        matchwait
clean5:
        matchre clean5 \.\.\.wait|water dribbling down
        matchre clean2 squeezing out the last bit of water.|then shake it out again.
        send wring my %cleaning-thing
        matchwait
cleandone:
return

###

### toolcheck related ###
toolcheck:
        put assess my %instrument
        pause
        matchre toolcheck /\.\.\.wait|Sorry, you may only type ahead/
        match bow bow
        match pick pick
        match stick stick
        match hammer hammer
        match tipper tipper
        match donetool no tool
        put help %instrument
        matchwait
bow:
        put get my bow in my %r-container
        put get my bow
        return
pick:
        put get my pick
        put wear my pick
        return
stick:
        put get my drum stick
        return
hammer:
        put get my hammer
        return
tipper:
        put get my tipper
        return
donetool:
        return
###

### tune related ###
tune:
        match tunedone This is not
        match tunesharp flat
        match tuneflat sharp
        matchre tunedone in tune|in perfect tune
        put tune %instrument
        matchwait
tunesharp:
        match tunesharp ...wait
        matchre tunedone in tune|in perfect tune
        match tunesharp flat
        match tuneflat sharp
        put tune my %instrument sharp
        matchwait
tuneflat:
        match tuneflat ...wait
        matchre tunedone in tune|in perfect tune
        match tuneflat sharp
        match tunesharp flat
        put tune my %instrument flat
        matchwait
tunedone:
return

###

### initialdiff ###
initialdiff:
        evalmath diffnum %diffnum + 1
        gosub %diffnum
        return
###

### diffnums ###
0:
        var diffnum 21
        goto %diffnum
1:
        setvariable diff ruff off-key
        echo
        echo You may wish to find an easier instrument.
        echo The easiest string, percussion, and wind instruments:
        echo Lyre, guiro, and txistu, respectively
        echo
        return
2:
        setvariable diff rudiments off-key
        return
3:
        setvariable diff ruff halting
        return
4:
        setvariable diff ditty off-key
        return
5:
        setvariable diff rudiments halting
        return
6:
        setvariable diff ruff
        return
7:
        setvariable diff folk off-key
        return
8:
        setvariable diff ditty halting
        return
9:
        setvariable diff rudiments
        return
10:
        setvariable diff ruff confident
        return
11:
        setvariable diff ballad off-key
        return
12:
        setvariable diff waltz off-key
        return
13:
        setvariable diff folk halting
        return
14:
        setvariable diff ditty
        return
15:
        setvariable diff rudiments confident
        return
16:
        setvariable diff ruff masterful
        return
17:
        setvariable diff lullaby off-key
        return
18:
        setvariable diff ballad halting
        return
19:
        setvariable diff folk
        return
20:
        setvariable diff march off-key
        return
21:
        setvariable diff waltz halting
        return
22:
        setvariable diff ballad
        return
23:
        setvariable diff jig off-key
        return
24:
        setvariable diff waltz
        return
25:
        setvariable diff lullaby
        return
26:
        setvariable diff march
        return
27:
        setvariable diff jig
        return
28:
        setvariable diff lament
        return
29:
        setvariable diff wedding
        return
30:
        setvariable diff hymn
        return
31:
        setvariable diff rumba
        return
32:
        setvariable diff polka
        return
33:
        setvariable diff battle
        return
34:
        setvariable diff elegy
        return
35:
        setvariable diff reel
        return
36:
        setvariable diff serenade
        return
37:
        setvariable diff minuet
        return
38:
        setvariable diff psalm
        return
39:
        setvariable diff dirge
        return
40:
        setvariable diff gavotte
        return
41:
        setvariable diff tango
        return
42:
        setvariable diff tarantella
        return
43:
        setvariable diff bolero
        return
44:
        setvariable diff nocturne
        return
45:
        setvariable diff requiem
        return
46:
        setvariable diff fantasia
        return
47:
        setvariable diff rondo
        return
48:
        setvariable diff aria
        return
49:
        setvariable diff sonata
        return
50:
        setvariable diff concerto
        return
51:
        setvariable diff concerto confident
        return
52:
        setvariable diff concerto masterful
        return
###

### finished
finished:
echo *** Finished ***
send stop sing
send remove my pick
send put my pick in my %r-container
put #var diffVO %diffVO
put #var diffPCN %diffPCN
put #var diffSTR %diffSTR
put #var diffWI %diffWI
put #var save
send exp lore