Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[Languages]
Description="Read all languages"
version="2005.08.11"
address0=455CF2
normal0="0F B6 84 01 08 01 00 00"
crack0="B8 FC 00 00 00 90 90 90"
address1=455D29
normal1="77"
crack1="EB"
|--- Langloop.mac
|--- Autolanguage for Group Spamming
|--- Developed by BlackTooth
|--- If you have two people running this macro
|--- You dont need them to be good at all in the language
|--- Just set them both on the same language and they
|--- Will increase each others skill in the language
|--- From 0 to 100 takes a few minutes
|--- More peeps you have spamming the faster she goes
#turbo
Sub Main
/echo Language Macro Starting
/call Dosay
/return
Sub Dosay
:Langloop
{
/gsay "You are learning a brand new language, Feel Special eh?"
/gsay "Well you shouldnt because you are not learning it fast enough!"
/gsay "Do you have any idea how much my mouth is gonna hurt after this?!"
/gsay "Study Study Study Hard"
/gsay "Practice makes stinkin perfect"
}
/delay 1s
/goto :Langloop
/return
| 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