- Joined
- May 17, 2015
- RedCents
- 6,068¢
Beta version
Rich (BB code):
|**
bLang.mac by LamahHerder
http://www.macroquest2.com/phpBB3/viewtopic.php?f=49&t=20211
This will practice only languages that are not 100
Usage:
/mac bLang while in a group (or with a merc)
Requirements:
Future Ideas:
Add a teach mode to spam 20 lines so your newbie can get 1 point in every language, will do this after Teir'Dal fixed
Stolen/Borrowed/Referenced:
http://macroquest2.com/wiki/index.php/Main_Page
1701a
Initial Release (LamahHerder)
**|
#event langHelp "#1# - #2#"
sub main
/echo =====================================
/echo You must click your main chat window so it will chat there for this to work as /lang only effects the active window
/echo =====================================
/if ( ${Me.GroupSize}<=1 ) /call endmac
/declare gsayDelay int outer 2
/declare gsayTeachCnt int outer
/declare gsayTeachTotal int outer 20
/declare langArray[25] string outer
/declare langNum int outer 1
/doevents flush
/lang help
/delay 5
/doevents langHelp
/for langNum 1 to ${langArray.Size}
/if ( ${Bool[${langArray[${langNum}]}]} ) {
/if ( ${langArray[${langNum}].Equal[Human Tongue]} ) {
/if ( ${Me.LanguageSkill[Common Tongue]} != 100 ) {
/echo Learning Common/Human Tongue
/lang ${langNum}
/while ( ${Me.LanguageSkill[Common Tongue]} < 100 ) {
/if ( ${Me.GroupSize}<=1 ) /call endmac
/delay ${gsayDelay}
/gsay Do you understand the words that are coming out of my mouth?
/gsay Do you understand the words that are coming out of my mouth?
/gsay Do you understand the words that are coming out of my mouth?
}
}
/next langNum
}
/if ( ${langArray[${langNum}].Equal[Elder Teir'Dal]} ) {
/echo Sorry Elder Teir'Dal is broken... skipping
/next langNum
/if ( ${Me.LanguageSkill[Elder Teir'Dal]} != 100 ) {
/echo Learning Elder Teir'Dal/Dragon
/lang ${langNum}
/while ( ${Me.LanguageSkill[Elder Dragon]} < 100 ) {
/if ( ${Me.GroupSize}<=1 ) /call endmac
/delay ${gsayDelay}
/gsay Do you understand the words that are coming out of my mouth?
/gsay Do you understand the words that are coming out of my mouth?
/gsay Do you understand the words that are coming out of my mouth?
}
}
/next langNum
}
/if ( ${Me.LanguageSkill[${langArray[${langNum}]}]} != 100 ) {
/echo Learning ${langArray[${langNum}]}
/lang ${langNum}
/while ( ${Me.LanguageSkill[${langArray[${langNum}]}]} < 100 ) {
/if ( ${Me.GroupSize}<=1 ) /call endmac
/delay ${gsayDelay}
/gsay Do you understand the words that are coming out of my mouth?
/gsay Do you understand the words that are coming out of my mouth?
/gsay Do you understand the words that are coming out of my mouth?
}
}
}
/next langNum
/echo Language all 100
/end
sub endmac
/echo [${Macro.Name}] You need a group! You have none! Goodbye!
/end
sub event_langHelp(Line, int num, string name)
/varset langArray[${num}] ${name}
/return
