MacroQuest64

Code: Select all

| Lang_Tar.mac 
| 
| /macro lang_tar
| Cycles through all your availible languages
| Target yourself to end
|
| Written by shuttle 
| Converted by bob_the_builder
|  
 
#event LangHelp "Type /language help for a list#*#"

Sub Main
   :SetDeclares
   /declare LangNum outer
   /declare MinLangNum outer 
   /declare MaxLangNum

   :SetVars
   /varset MinLangNum 2 
   /varset MaxLangNum 25

   :MainLoop 
   /if (${Target.ID}) /goto :end 

   :GroupChat
   /g This is a simple language macro
   /g You are now learning a new language
   /g Yeah !!!!! a new language Yeah !!!!

   :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

Code: Select all

:GroupChat 
   /g This is a simple language macro 
   /g You are now learning a new language 
   /g Yeah !!!!! a new language Yeah !!!! 

Code: Select all

:GroupChat 
   /g This is a simple language macro 
   /g You are now learning a new language 
   /g Yeah !!!!! a new language Yeah !!!!
 [color=red]  /delay 1s[/color]

Code: Select all

|  LangLoop.mac
|  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
|  If you are already a master in the language then
|  it will only take bout 50 seconds to teach someone to 100


Sub Main

	/echo Language Macro Starting

	:SetDeclares
	/declare Counter int
	/declare TimerVal int
	/declare Buffer int

	:Setvars
	/varset Counter 0

| Edit the following value to suit the needs of your server connection
| If you are 2-boxing and wanna go from 1 to 100 on your own then set 
| TimerVal to about 1500 or so and add a /delay 1s after the last /gsay statement
| For me, a TimerVal of 150 brings the person to Master (100) in language

	/varset TimerVal 150	
	
	/for Counter 0 to ${TimerVal}{


		/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"
		/gsay "Well it better make perfect or I am gonna sue"
		/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"
		/gsay "Well it better make perfect or I am gonna sue"

|    This is to be used for long sessions, i.e. 2 boxing a lang up

|             /delay 1s


|    These are optional to /echo but I find it helpful to monitor the status
	/echo Counter: ${Counter}
	/echo TimerVal: ${TimerVal}


	/if (${Counter} >= ${TimerVal}) /endmacro
  
	/next Counter
  	
	}
	

	
/return

Code: Select all

/gs Text here 1
/gs Text here 2
/gs Text here 3
/gs Text here 4
/gs Text here 5