Redguides Listing of Confirmed Macros (Archive Ending 10/10/05)

[soultaker]

Re: Redguides Listing of Confirmed Macros

Language Macro

See THIS POST FOR FURTHER

 | 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 
| Zoned event added by armysoldier 8/22/05
| 
| 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
#event LangHelp "Type /language help for a list" 
#event stop #*#Stop lang#*#
#Event Zoned "#*#You have entered#*#"

Sub Main 
   |SetDeclares 
/echo on
   /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_Invited(heard,string who)
/if (${who.Equal[MY_PARTNER]}) {
/invite
} else {
/disband
}
/return


sub event_stop 
 /lang 1
 /end mac
 /return 

Sub Event_Zoned 
       /echo died or instanced ended.. time to go 
       /twist off  
       /circle off  
       /delay 5s  
       /sit  
       /camp desk  
       /endmac 
/return