Lang.mac needs tweeking pls (1 Viewer)

[armysoldier]

Stiflersmom sent this to me PM and i modified it a little

1. Getting grp invites or adding toons to grp

I added event invite from the necrocap.mac

and dzadd from the Forgotten Halls mac

I would like to put a list of toons that i will allow to be added to the grp

they tell LANG_TOON_001 'add me'

and bam toon is added

OR one of a select grp /invited LANG_TOON_001

and it accepts

2. Ending[/]

upon "stop lang"

I want the LANG_TOON_001 to set lang back to 1 .. and end the mac



I am famous for forgetting to reset the lang.. lol



I KNOW why bother .. there is docrack for lang...

its just something I like to do .. max all skills in everything!! 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 
| 
| 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

Thanks in advance

 

[armysoldier]

| 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 Armysoldier
#event LangHelp "Type /language help for a list" 
#event invited "#*#invites you to join#*#"
#event stop #*#Stop lang#*#

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

OK well now that i have some experience under my belt... looking and reading and all that....

I know that if i /end the mac manually .. lang will have to be set manually

As for the adding another player...

/dzadd is for tasks... I can not get it to work for inviting a toon to grp

and this part of the code keeps rejecting the toon no matter what i have tried

Sub Event_Invited(heard,string who)
/if (${who.Equal[MY_PARTNER]}) {
/invite
} else {
/disband
}
/return

I have tried exact spelling as seen on the screen...

and all caps and everything...

SO.. i may have given up ... /sigh

it runs like a CHAMP when i take that out... which is great for the PL session and working lang skill at same time.

Ok enough for now

 

[Stiflersmom]

Maxing your langs is beneficial if your a toon that can use the Tainted Heartstone http://everquest.allakhazam.com/db/item.html?item=30486. Its a nice twink for alts. I'm also starting to see a lot of toons selling their lang training services so peeps can make use of that charm.