| Lang.mac
|
| /macro lang
| Cycles through all your availible languages
| Target yourself to end
|
| Written by shuttle
| Converted by bob_the_builder
| 4_22_04
| Updated by loadingpleasewait 9:11:04
|
| Usage: /mac Lang
|
| NOTE: You must have spam text set to a social on hotbutton 1 as any other way it does not actually speak the set languages.
|
#turbo
#define MY_PARTNER xxx
#event LangHelp "Type /language help for a list"
#event dzadd "xxx tells you, 'add me'
#event dzadd "xxx2 tells you, 'add me'
#event invited "#*#invites you to join#*#"
#event stop #*#Stop lang#*#
Sub Main
|SetDeclares
/declare LangNum outer
/declare MinLangNum outer
/declare MaxLangNum outer
|SetVars
/varset MinLangNum 2
/varset MaxLangNum 25
:MainLoop
/if (${Target.ID}) /goto :end
|GroupChat
/notify HotButtonWnd HB_Button1 leftmouseup
/delay 2s
|IncreaseLanguage
/lang ${LangNum}
/varcalc LangNum ${LangNum}+1
/if (${LangNum}>${MaxLangNum}) /varset LangNum ${MinLangNum}
/doevents
/goto :MainLoop
:end
/endmacro
Sub event_LangHelp
/varset LangNum ${MinLangNum}
/return
sub event_dzadd
/dzadd xxx
/dzadd xxx2
/return
Sub Event_Invited(heard,string who)
/if (${who.Equal[MY_PARTNER]}) {
/invite
} else {
/disband
}
/return
sub event_stop
/lang 1
/end mac
/return