XirisBot/lang.mac at master · meta53/XirisBot · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|------------------------------------------------------------|
|          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"
      /delay 20
      } 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
|------------------------------------------------------------|