• You've discovered RedGuides 📕 an EverQuest multi-boxing community 🛡️🧙🗡️. We want you to play several EQ characters at once, come join us and say hello! 👋
  • IS THIS SITE UGLY? Click "RG3" at the very bottom-left of this page to change it. To dismiss this notice, click the X --->
Language Helper

Utility Language Helper

Hello Everyone! Here is a very simple macro I wrote to help train languages on a server like FV! Target whoever you are training and /mac LangHelper. From there it will spam whatever language they use. If they train 1 in each language first this is a breeze! They just speak and you swap to their language.

Rich (BB code):
|------------------------------------------------------------|
|          LangHelper.mac
|
|      Last Modified by: TheDroidUrLookingFor
|
|------------------------------------------------------------|
#turbo
|------------------------------------------------------------|
|          Defines
|------------------------------------------------------------|
|#define CHATMETHOD          "/i say"
|#define CHATMETHOD       "/gsay"
#define CHATMETHOD1       "/echo"
|------------------------------------------------------------|
|          Events
|------------------------------------------------------------|
#Event SWITCH "#1# tells the group, in #2#, '#*#'"
#Event CURLANG "Current Language is #1#. (#2#)"

|------------------------------------------------------------|
|          Main Rountine
|------------------------------------------------------------|
Sub Main
/call Declares
   CHATMETHOD1
   CHATMETHOD1 "Newbie Language Bot: Version ${botversion} started!"
   CHATMETHOD1
   
   /if (!${Target.ID}) {
      CHATMETHOD1 "[NLB]: Target the Student when you run this macro to designate him."
       CHATMETHOD1 "[NLB]: No master set."
        CHATMETHOD1 "[NLB]: Shutting down"
      /end
      } else {
   /if (${Target.Type.Equal[PC]}) {
   /varset Master ${Target}
   /varset MasterID ${Target.ID}
   /varset LangUser ${Target}
      } else {
   /if (${Target.Type.Equal[NPC]}) {
      CHATMETHOD1 "[NLB]: Target the Student when you run this macro not an NPC to designate him."
       CHATMETHOD1 "[NLB]: No master set."
        CHATMETHOD1 "[NLB]: Shutting down"
      /end
      }
   }
}
    /language
    :Langloop
   {
      /gsay "zOMG Learn faster faster faster"
      /gsay "zOMG Learn faster faster faster.... not fast enough!"
      /gsay "Do you have any idea how easy it is to learn a language?!"
      /gsay "Study Study Study Hard"
      /gsay "Practice makes stinkin perfect"
   }
   /delay 5
   /doevents
   /goto :Langloop
/return
|------------------------------------------------------------|
|          End Main Rountine
|------------------------------------------------------------|
|------------------------------------------------------------|
|          Other Rountines
|------------------------------------------------------------|
Sub Declares
    /declare BotLang         string outer
    /declare BotLangNum      int outer
    /declare LangUser        string outer
    /declare UserLangName    string outer
    /declare Master          string outer
    /declare MasterID        string outer
    /declare botversion      string outer 1.0
/return
|------------------------------------------------------------|
|          End Other Rountines
|------------------------------------------------------------|
|------------------------------------------------------------|
|          Events
|------------------------------------------------------------|
Sub Event_SWITCH(Line,LngUser,LngName)
/if (${LngUser.Equal[${Master}]} && ${UserLangName.NotEqual[${LngName}]}) {
/varset UserLangName ${LngName}
/varset LangUser ${LngUser}

/if (${LngName.NotEqual[${BotLang}]}) {
/declare i int local 1
    /for i 0 to 25
        /if (${Me.Language[${i}].Equal[${LngName}]}) {
        /echo Switching Languages to: ${LngName}
            /language ${i}
            /varset BotLang $(LngName)
            /varset BotLangNum ${i}
        }
    /next i
}   
}
/return

Sub Event_CURLANG(Line,LngName,LngNum)
/varset BotLang $(LngName)
/varset BotLangNum ${LngNum}
/return

Sub Event_SWITCHM
/language
/return
|------------------------------------------------------------|
|          End Events
|------------------------------------------------------------|
Author
TheDroidUrLookingFor
First release
Last update
Rating
0.00 star(s) 0 ratings

More resources from TheDroidUrLookingFor

Top