armysoldier
Well-known member
- Joined
- Jun 26, 2005
- RedCents
- 101¢
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-)
Thanks in advance
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-)
Rich (BB code):
| 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