Moderator: MacroQuest Developers
Code: Select all
sub main
:loop
/press 6
/goto :loop
/endmacroCode: Select all
| Language Learner
#event Skillup "Your language skills"
#event Teach "Teaching"
#define Lang v10
#define Lng v20
Sub Main
|/call Skillset
:Mainloop
/doevents
/if n $Lang==100 {
/g Stop skill maxed
/return
} else
/goto :Mainloop
}
/return
Sub Skillset
/delay 1
/return
Sub Event_Teach
/if "$p0"=="Common" {
/varset Lang 1
} else /if "$p0"~~"Barbarian" {
/varset Lang 100
} else /if "$p0"~~"Erudian" {
/varset Lang 100
} else /if "$p0"~~"Dark_Elvish" {
/varset Lang 5
} else /if "$p0"~~"Dwarvish" {
/varset Lang 10
} else /if "$p0"~~"Troll" {
/varset Lang 1
} else /if "$p0"~~"Ogre" {
/varset Lang 33
} else /if "$p0"~~"Gnomish" {
/varset Lang 1
} else /if "$p0"~~"Halfling" {
/varset Lang 0
} else /if "$p0"~~"Thieves_Cant" {
/varset Lang 3
} else /if "$p0"~~"Old_Erudian" {
/varset Lang 6
} else /if "$p0"~~"Elder_Elvish" {
/varset Lang 0
} else /if "$p0"~~"Froglok" {
/varset Lang 100
} else /if "$p0"~~"Goblin" {
/varset Lang 0
} else /if "$p0"~~"Gnoll" {
/varset Lang 0
} else /if "$p0"~~"Combine_Tongue" {
/varset Lang 0
} else /if "$p0"~~"Elder_Teir'Dal" {
/varset Lang 0
} else /if "$p0"~~"Lizardman" {
/varset Lang 0
} else /if "$p0"~~"Orcish" {
/varset Lang 0
} else /if "$p0"~~"Faerie" {
/varset Lang 0
} else /if "$p0"~~"Dragon" {
/varset Lang 0
} else /if "$p0"~~"Elder_Dragon" {
/varset Lang 0
} else /if "$p0"~~"Dark_Speech" {
/varset Lang 16
} else /if "$p0"~~"Vah_Shir" {
/varset Lang 0
} else /if "$p0"~~"Elvish" {
/varset Lang 100
} else {
/varset Language -1
}
/doevents flush
/g My skill at it is $Lang
/delay 1
/return
Sub Event_Skillup
/varadd Lang 1
/if n $Lang!=0 {
/if n $calc($Lang%10)==0 /g Skill at $Lang
/if n $Lang>90 /g Skill at $Lang
}
/delay 1
/return
Code: Select all
| Language Teacher
#event Done "Stop"
#define Finish v10
#define Language v20
Sub Main
/varset Finish 0
/call SelectLang $p0
/if n $Language==-1 {
/g Didn't pick a language to teach
/return
} else {
/g Teaching $p0
/lang $Language
/goto :MainLoop
}
:MainLoop
/doevents
/press 3
/delay 10
/if n $Finish==1 {
/lang 1
/g Done Teaching $p0
/return
} else {
/goto :MainLoop
}
/return
Sub SelectLang
/if "$p0"=="Common" {
/varset Language 1
} else /if "$p0"~~"Barbarian" {
/varset Language 2
} else /if "$p0"~~"Erudian" {
/varset Language 3
} else /if "$p0"~~"Dark_Elvish" {
/varset Language 5
} else /if "$p0"~~"Dwarvish" {
/varset Language 6
} else /if "$p0"~~"Troll" {
/varset Language 7
} else /if "$p0"~~"Ogre" {
/varset Language 8
} else /if "$p0"~~"Gnomish" {
/varset Language 9
} else /if "$p0"~~"Halfling" {
/varset Language 10
} else /if "$p0"~~"Thieves_Cant" {
/varset Language 11
} else /if "$p0"~~"Old_Erudian" {
/varset Language 12
} else /if "$p0"~~"Elder_Elvish" {
/varset Language 13
} else /if "$p0"~~"Froglok" {
/varset Language 14
} else /if "$p0"~~"Goblin" {
/varset Language 15
} else /if "$p0"~~"Gnoll" {
/varset Language 16
} else /if "$p0"~~"Combine_Tongue" {
/varset Language 17
} else /if "$p0"~~"Elder_Teir'Dal" {
/varset Language 18
} else /if "$p0"~~"Lizardman" {
/varset Language 19
} else /if "$p0"~~"Orcish" {
/varset Language 20
} else /if "$p0"~~"Faerie" {
/varset Language 21
} else /if "$p0"~~"Dragon" {
/varset Language 22
} else /if "$p0"~~"Elder_Dragon" {
/varset Language 23
} else /if "$p0"~~"Dark_Speech" {
/varset Language 24
} else /if "$p0"~~"Vah_Shir" {
/varset Language 25
} else /if "$p0"~~"Elvish" {
/varset Language 4
} else {
/varset Language -1
}
/return
|** Events **|
Sub Event_Done
/varset Finish 1
/delay 1
/return