re

#######################################################
pause 0.5
send #script abort all except research
pause
send #script abort all except research
pause
send .afk
pause
send .reset
pause
if ("$charactername" = "Hobb") then {
	send .teach
	pause 5
}

#if ("$charactername" = "Kreus") then {
#	send .kreteach
#	pause 5
#}

mystart:
pause 0.5


goto start

START:
pause
send stand
pause 2
send rel spell
pause
send research cancel
pause
send research cancel
pause
send research cancel
pause
send stop play
pause
send stop climb
pause
send stow
pause 0.5
send stow left
pause 0.5
gosub clear
pause 1
send get my almanac
pause 2
send study my almanac
pause 2
send stow my almanac
pause 2
send get my chart
pause
send study my chart
pause
send stow
pause 0.5
send hunt
pause 6
send pow
pause 6

SKIN:
if ($Skinning.LearningRate <= 20) then {
	gosub SKIN1

}



APP:
if ($Appraisal.LearningRate <= 29) then {
	send app my stick
	pause 6
	send app my gem pouch
	pause 6
	send app my bund
	pause 6

}






##########  GUILDS  ###################################




pause 0.25


if ($Empathy.LearningRate <= 7) then {
	pause
	gosub VH

}



#if ("$charactername" = "Kreus") && ($Empathy.LearningRate <= 7) then {
#	pause
#	gosub VH
#
#}

pause 0.25
if ("$guild" = "Moon Mage") && ($Astrology.LearningRate < 10) then {
    goto ASTRO
}

pause 0.25
if ("$guild" = "Cleric") && ($Theurgy.LearningRate < 2) then {
	send Pray Mera
	pause 4
	send rem pil bad
	pause
	send get my pil bad
	pause
	send pray my pil bad
	pause 14
	send wear my pil bad
	pause
	send get my silk parch
	pause
	send invo my silk parch
	pause 10
	send stow my parch

}

pause 0.25
if ("$guild" = "Paladin") then {
	pause 2
	send rem my pil bad
	pause
	send get my pil bad
	pause
	send pray my pil bad
	pause 14
	send wear my pil bad
	pause
}


##########  TEXTBOOK  ###################################
TEXTBOOK1:

if ($First_Aid.LearningRate <= 2) then {
    goto textbook

}

SKIP:
pause
send stow my textbook
pause

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






if ($Performance.LearningRate <= 10) then {
	goto play
}

pause
send stow my rope
pause 0.5

############################  5  ###########################

RESEARCH:
pause
if ($Utility.LearningRate <= 5) then {
    gosub research_Utility
}

pause
if ($Attunement.LearningRate <= 5) then {
    gosub research_Attunement
}

pause
if ($Primary_Magic.LearningRate <= 5) then {
    gosub research_MAGIC
}

pause
if ($Augmentation.LearningRate <= 5) then {
    gosub research_augmentation
}

pause
if ($Warding.LearningRate <= 5) then {
    gosub research_warding
}

pause
send hunt
pause 5

if ("$guild" = "Warrior Mage") && ($Summoning.LearningRate <= 5) then {
	goto summ
}



##**********************  10  ***************************************

pause
if ($Utility.LearningRate <= 10) then {
    gosub research_Utility
}

pause
if ($Attunement.LearningRate <= 10) then {
    gosub research_Attunement
}

pause
if ($Primary_Magic.LearningRate <= 10) then {
    gosub research_MAGIC
}

pause
if ($Augmentation.LearningRate <= 10) then {
    gosub research_augmentation
}

pause
if ($Warding.LearningRate <= 10) then {
    gosub research_warding
}

#########################################  15  ###############################################################


pause
if ($Utility.LearningRate <= 15) then {
    gosub research_Utility
}

pause
if ($Attunement.LearningRate <= 15) then {
    gosub research_Attunement
}

pause
if ($Primary_Magic.LearningRate <= 15) then {
    gosub research_MAGIC
}

pause
if ($Augmentation.LearningRate <= 15) then {
    gosub research_augmentation
}

pause
if ($Warding.LearningRate <= 15) then {
    gosub research_warding
}


#########################################  20  ###############################################################


pause
if ($Utility.LearningRate <= 20) then {
    gosub research_Utility
}

pause
if ($Attunement.LearningRate <= 20) then {
    gosub research_Attunement
}

pause
if ($Primary_Magic.LearningRate <= 20) then {
    gosub research_MAGIC
}

pause
if ($Augmentation.LearningRate <= 20) then {
    gosub research_augmentation
}

pause
if ($Warding.LearningRate <= 20) then {
    gosub research_warding
}




pause
goto mystart


#######################################################
##
##  PLAY  ##
#######################################################

PLAY:
pause 0.25
send rem my zill
pause 0.25
send shake my zill
pause 0.25
send get my cloth
pause 0.25
send clean my zil with my cloth
pause
send clean my zil with my cloth
pause
send stow cloth
pause
send wear my zill
pause
if ($Performance.Ranks < 30) then {
goto playnub
}
pause 0.5
echo checking ranks
pause 0.5


if ($Performance.Ranks >= 700) then {
goto PLAYC
}
pause 0.5

if ($Performance.Ranks >= 101) then {
goto PLAYB
}

pause 0.5
if ($Performance.Ranks < 100) then {
goto PLAYA
}
pause 0.5
send sk perf
pause 0.5
echo it messed up- again

playnub:
pause 0.5
pause 1
echo playa
var topics scales off|arpeggios|ditty|folk|ballad|waltz|lullaby|march|jig|lament|wedding|hymn|rumba|polka
     eval TopicCount count("%topics","|")
     var track 0
eval NextTopic element("%topics", %track)
goto play1



PLAYA:
pause 1
echo playa
var topics scales|arpeggios|ditty|folk|ballad|waltz|lullaby|march|jig|lament|wedding|hymn|rumba|polka
     eval TopicCount count("%topics","|")
     var track 0
eval NextTopic element("%topics", %track)
goto play1

PLAYB:
pause 1
echo playb
var topics lament|wedding|hymn|rumba|polka|battle|reel|elegy|serenade|minuet|psalm|dirge|gavotte|tango|tarantella|bolero|nocturne|requiem|fantasia|rondo|aria|sonata|concerto
     eval TopicCount count("%topics","|")
     var track 0
eval NextTopic element("%topics", %track)
goto play1

PLAYC:
pause 1
echo playC
var topics nocturne master|requiem master|fantasia master|rondo master|aria master|sonata|concerto
     eval TopicCount count("%topics","|")
     var track 0
eval NextTopic element("%topics", %track)
goto play1


play1:
echo play1
eval NexttTopic element("%topics", %track)
match toeasy  You continue playing on
match toeasy  your skill in your craft
match toeasy  your heart swelling in pride
match perfect with only the slightest hint of difficulty
send play %NextTopic on zill
matchwait 8


TOEASY:
pause
send stop play
pause
if %track = %TopicCount then goto done
	eval NextTopic element("%topics", %track)
	math track add 1
	goto play1

PERFECT:
pause
send play %NextTopic on zill
pause
send play scale off
pause
send get my climb rope
pause
send gaze my sano cry
pause
send climb my c rope
pause
send hunt
pause 15
send pow
pause 110
send app my pouch
pause 5
send app my bundle
pause 5
send app my stick
pause 5
send stand
pause
send play %NextTopic on zill
pause 2
send play scale off
pause
pause 8
echo 2d play
send gaze my sano cry
pause
send climb my c rope
pause 110
send app my pouch
pause 5
send app my bundle
pause 5
send app my stick
pause 5
send stand
pause
send stow my c rope
pause

if ($Performance.LearningRate < 31) then {
    gosub perfect
}



goto start

###################################################################################
##################################TEXTBOOK:########################################
###################################################################################
TEXTBOOK:
pause 0.5
match book1 You get
match SKIP What were you referring to
send get my textbook
matchwait

BOOK1:
pause 0.5
send open my textbook
pause 0.5
send turn text to rat
pause 0.5
goto study

TURN:
pause 0.5
if ($First_Aid.LearningRate >= 34) then {
    	goto skip
}

if ($First_Aid.LearningRate <= 33) then {
    	send turn my textbook
}

goto study


STUDY:
if ($First_Aid.LearningRate >= 30) then {
    gosub skip

}
match textbookDONE  having a difficult time comprehending the advanced text
match turn Why do you need to study this chart again
match study Roundtime
send study my textbook
matchwait 12
goto turn


textbookDONE:
pause 4
send stow my textbook
pause 4
pause
send DoNe
pause
goto skip

#######################################################
#######################################################
##
##  RESEARCH  ##
#######################################################
research_warding:
pause 2
if ($Utility.Ranks >= 500) then {
send prep gaf 50
}
pause

if ($Utility.Ranks >= 100) then {
send prep gaf 20
}
pause
if ($Utility.Ranks >= 100) then {
send prep gaf 10
}
pause
send prep gaf 1
pause 25
send cast
pause 5

RESEARCHward:
put research ward 60
     match researchward there is still more to learn
     match DONE Breakthrough!
     matchwait

research_Attunement:
pause 2

if ($Utility.Ranks >= 500) then {
send prep gaf 50
}
pause

if ($Utility.Ranks >= 100) then {
send prep gaf 20
}
pause
if ($Utility.Ranks >= 100) then {
send prep gaf 10
}
pause
send prep gaf 1
pause 25
send cast
pause 5


RESEARCHATT:
put research stream 60
     match researchATT there is still more to learn
     match DONE Breakthrough!
     matchwait

research_augmentation:
pause 2

if ($Utility.Ranks >= 500) then {
send prep gaf 50
}
pause

if ($Utility.Ranks >= 100) then {
send prep gaf 20
}
pause
if ($Utility.Ranks >= 100) then {
send prep gaf 10
}
pause
send prep gaf 1
pause 25
send cast
pause 5


RESEARCHAug:
put research aug 60
     match researchaug there is still more to learn
     match DONE Breakthrough!
     matchwait

research_MAGIC:
pause 2

if ($Utility.Ranks >= 500) then {
send prep gaf 50
}
pause

if ($Utility.Ranks >= 100) then {
send prep gaf 20
}
pause
if ($Utility.Ranks >= 100) then {
send prep gaf 10
}
pause
send prep gaf 1
pause 25
send cast
pause 5


RESEARCHM:
put research fund 60
     match researchM there is still more to learn
     match DONE Breakthrough!
     matchwait


RESEARCH_UTILITY:
pause 2

if ($Utility.Ranks >= 500) then {
send prep gaf 50
}
pause

if ($Utility.Ranks >= 100) then {
send prep gaf 20
}
pause
if ($Utility.Ranks >= 100) then {
send prep gaf 10
}
pause
send prep gaf 1
pause 25
send cast
pause 5

RESEARCHU:
put research Utility 60
     match researchU there is still more to learn
     match DONE Breakthrough!
     matchwait

SORC:
pause 2
if ($Sorcery.LearningRate <= 5) then {
    gosub research_SORC
}

if ($Sorcery.LearningRate >= 6) then {
    gosub research
}



research_SORC:
pause 2

if ($Utility.Ranks >= 500) then {
send prep gaf 50
}
pause

if ($Utility.Ranks >= 100) then {
send prep gaf 20
}
pause
if ($Utility.Ranks >= 100) then {
send prep gaf 10
}
pause
send prep gaf 1
pause 25
send cast
pause 5


RESEARCHSO:
put research sorc 60
     match researchSO there is still more to learn
     match DONE Breakthrough!
     matchwait



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


DONE:
pause 2
send pathway stop
pause 2
send stand
pause 2
goto start



###################################################################################
##################################  SUMMONING  ####################################
###################################################################################



SUMM:
pause 2
if ($Summoning.LearningRate >= 10) then {
    goto done
}



ADMIT:
pause
match summ increasing your proximity
match summ you feel that you can still gather
match DIS   You so heavily embody the Elemental Plane
match DIS   Going any further
send SUMMON ADMITTANCE
matchwait 22
goto summ

DIS:
pause
#match DIS   You continue meditating
#match SUMM  Try though you might
send SUMMON IMPEDANCE
pause 14
#matchwait 22
goto summ

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


#if ($Arcana.Ranks >= 260) then gosub sorc

pause 0.5
#if ($Arcana.Ranks <= 259) then gosub research



###########################################    ASTRO    #####################################################
ASTRO:
if ($Astrology.LearningRate <= 30) then {
    goto ASTRO1
}

if ($Astrology.LearningRate >= 31) then {
    goto START
}

ASTRO1:
pause 0.5
gosub clear
pause 0.5
send prep cv 1
pause 10
send cast
pause
send prep pg 1
pause 10
send cast
pause
send hunt
pause 5
send perceive moons
pause 5
send predict weather
pause 5
send obs sky
pause 5
send obs sun in the sky
pause 5
send obs moon in the sky
pause 5
send OBSERVE  Cobra
pause 2
send OBSERVE  Raccoon
pause 2
send OBSERVE  Ram
pause 2
send OBSERVE  Heart
pause 2
send OBSERVE  Raven
pause 2
send OBSERVE  Wolf
pause 2
send OBSERVE  Mongoose
pause 2
send OBSERVE  Heron
pause 2
send OBSERVE  Dove
pause 2
send OBSERVE  Magpie
pause 2
send OBSERVE  Toad
pause 2
send OBSERVE  Albatross
pause 2
send OBSERVE  Cat
pause 2
send OBSERVE  Wolverine
pause 2
send OBSERVE  Giant
pause 2
send OBSERVE  Spider
pause 2
send predict anal
pause
send perceive mana
pause 2
send perc xibar
pause 2
send OBSERVE xibar
pause 2
send align lore app
pause 2
send predict future Skamble
pause 2
send predic ana
pause 2
send perc Katamba
pause 2
send OBSERVE katamba
pause 2
send align magic
pause 2
send predict future Skamble
pause 2
send predic ana
pause 2
send perc Yavash
pause 2
send OBSERVE yavash
pause 2
send align lore app
pause 2
send predict future Skamble
pause 2
send predic ana
pause 2
send perc
pause 2
send align Offense
pause 2
send predict future Skamble
pause 2
send predic ana
pause 2
send align Defense
pause 2
send predict future Skamble
pause 2
send predic ana
pause 2
send align Survival
pause 2
send predict future Skamble
pause 2
send predic ana
pause 2
send align magic astro
pause 2
send predict future Skamble
pause 2
send predic ana
pause 2
send pow
pause 2
goto astro

VH:
pause 0.5
send stand
pause
match vhstart You whisper to
match textbook1 Who are you
send whis morma Start
matchwait 6
goto textbook



VHstart:
pause
goto vhcheck

vhCHECK:
gosub clear

if ($Empathy.LearningRate <= 33) then {
    gosub TAKE
}

if ($Empathy.LearningRate >= 34) then {
    gosub vhDONE
}

pause 2
goto vhcheck

TAKE:
pause
if ($health <= 80) then {
	send touch Vess
}

if ($health >= 81) then {
	send touch morma
	pause
	send take Mormadon vit
	pause
	send take Mormadon vit
	pause
}

goto vhstart

vhDONE:
pause
send touch vess
pause 3
send whisper Mormadon Locked
pause
send touch vess
pause 5
send touch vess
pause 5
send touch morma
pause
send touch vess
pause 5
send #script resume all
pause 4
goto start

SKIN1:
pause
match app    What were you referring to
match skin2  You get a small
send get my croc
matchwait 10
goto app

SKIN2:
pause
send skin my croc
pause 5
send repair my croc
pause

if ($Skinning.LearningRate >= 21) then {
	gosub APP

}
pause
if ($Skinning.LearningRate <= 20) then {
	goto skin2

}

pause
goto start