Lang.mac

[armysoldier]

stiflersmom sent this to me .. i added zoned event to it

I use in instanced zones.. and do not like to be left sitting when timer is up 8-)

| 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

 

[armysoldier]

just an FYI this still works like a charm incase anyone wants to use it
8-)

 

[armysoldier]

another simple version of lang.mac

| Lang.mac 
|
| Written by ArmySolder
|
| Usage:  /mac Lang 
| Target anything to end 
| 
| NOTE: You must have spam text set to a social and put on your hot bar .. slot 1
| 

#turbo
#event stop #*#Stop lang#*#
#Event Zoned "#*#You have entered#*#"

Sub Main 
   /declare LangNum outer 1
   /declare MinLangNum outer 2
   /declare MaxLangNum outer 25

   :MainLoop 
   /if (${Target.ID}) {
   /Lang 1
   /endmac
   }
   /keypress 1
   /delay 2s 
   /lang ${LangNum} 
   /varcalc LangNum ${LangNum}+1 
   /if (${LangNum}>${MaxLangNum}) /varset LangNum ${MinLangNum} 
   /doevents 
   /goto :MainLoop 
/return

sub event_stop 
 /lang 1
 /end mac
 /return 

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