API tools faq
paste
Advertisement
VADemon

TaE cheats Jass code

VADemon
Jan 1st, 2014
177
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 128.49 KB | None | 0 0
raw download clone embed print report
  1. // Troll and Elves Final version (md5: 9de99fcba4b6971fbb4aaa1cb095fa4b) cheats code:
  2. function on8Sg_on8ialization takes nothing returns nothing
  3. local integer locInteger_1 = 0
  4.  
  5. loop
  6. exitwhen (locInteger_1 > 4)
  7. set dialogArr_1[locInteger_1] = DialogCreate()
  8. set locInteger_1 = locInteger_1 + 1
  9. endloop
  10. set locInteger_1 = 1
  11. loop
  12. exitwhen (locInteger_1 > 12)
  13. set integerArr_4[locInteger_1] = 0
  14. set integerArr_5[locInteger_1] = -1
  15. set integerArr_5[locInteger_1 + 17] = -1
  16. set booleanArr_1[locInteger_1] = false
  17. set booleanArr_2[locInteger_1] = false
  18. set booleanArr_3[locInteger_1] = false
  19. set booleanArr_4[locInteger_1] = false
  20. set booleanArr_5[locInteger_1] = false
  21. set booleanArr_6[locInteger_1] = false
  22. set booleanArr_7[locInteger_1] = false
  23. set locInteger_1 = locInteger_1 + 1
  24. endloop
  25. set dialog_1 = DialogCreate()
  26. set dialog_2 = DialogCreate()
  27. set integerArr_3[34] = 0
  28. set integerArr_3[51] = 1
  29. set stringArr_2[1] = "|CFFFF0303"
  30. set stringArr_2[2] = "|CFF0042FF"
  31. set stringArr_2[3] = "|CFF1CE6B9"
  32. set stringArr_2[4] = "|CFF540081"
  33. set stringArr_2[5] = "|CFFFFFC00"
  34. set stringArr_2[6] = "|CFFFE8A0E"
  35. set stringArr_2[7] = "|CFF20C000"
  36. set stringArr_2[8] = "|CFFE55BB0"
  37. set stringArr_2[9] = "|CFF959697"
  38. set stringArr_2[10] = "|CFF7FBFF1"
  39. set stringArr_2[11] = "|CFF106246"
  40. set stringArr_2[12] = "|CFF492A04"
  41. endfunction
  42.  
  43. function Sg_God_Dialog_Actions takes nothing returns nothing
  44. local boolean locBoolean_1 = true
  45.  
  46. call DialogClear(dialog_2)
  47. call DialogSetMessage(dialog_2, "-What The Fuck?-")
  48. if booleanArr_5[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  49. set buttonArr_6[0] = DialogAddButton(dialog_2, "WTF Cooldown [ |CFF20C000ON|R ]", 0)
  50. else
  51. set buttonArr_6[0] = DialogAddButton(dialog_2, "WTF Cooldown [ |CFFFF0303OFF|R ]", 0)
  52. endif
  53. if booleanArr_6[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  54. set buttonArr_6[1] = DialogAddButton(dialog_2, "WTF Patrol [ |CFF20C000ON|R ]", 0)
  55. else
  56. set buttonArr_6[1] = DialogAddButton(dialog_2, "WTF Patrol [ |CFFFF0303OFF|R ]", 0)
  57. endif
  58. if booleanArr_7[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  59. set buttonArr_6[2] = DialogAddButton(dialog_2, "WTF Mana [ |CFF20C000ON|R ]", 0)
  60. else
  61. set buttonArr_6[2] = DialogAddButton(dialog_2, "WTF Mana [ |CFFFF0303OFF|R ]", 0)
  62. endif
  63. set buttonArr_6[3] = DialogAddButton(dialog_2, "|CFFFFFFFFClose|R", 0)
  64. call DialogDisplay(GetTriggerPlayer(), dialog_2, locBoolean_1)
  65. endfunction
  66.  
  67. function Sg_GoSpeed_Hack7 takes nothing returns nothing
  68. local unit locUnit_1
  69.  
  70. call TriggerSleepAction(1.00)
  71. set locUnit_1 = GetTriggerUnit()
  72. call UnitResetCooldown(locUnit_1)
  73. set locUnit_1 = null
  74. endfunction
  75.  
  76. function Miss7Yes takes nothing returns boolean
  77. return true
  78. endfunction
  79.  
  80. //Calls:
  81. // Sg_God_Dialog_Actions
  82. //Functions as argument:
  83. // Sg_GoSpeed_Hack7
  84. // Miss7Yes
  85. function Sg_GoSpeed_Toggle_Actions takes nothing returns nothing
  86. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer()) + 32
  87.  
  88. if booleanArr_5[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  89. call DisableTrigger(triggerArr_1[locInteger_1])
  90. call TriggerRemoveCondition(triggerArr_1[locInteger_1], triggerconditionArr_1[locInteger_1])
  91. call TriggerRemoveAction(triggerArr_1[locInteger_1], triggeractionArr_1[locInteger_1])
  92. set booleanArr_5[GetPlayerId(GetTriggerPlayer()) + 1] = false
  93. else
  94. set triggerArr_1[locInteger_1] = CreateTrigger()
  95. set triggeractionArr_1[locInteger_1] = TriggerAddAction(triggerArr_1[locInteger_1], function Sg_GoSpeed_Hack7)
  96. set triggerconditionArr_1[locInteger_1] = TriggerAddCondition(triggerArr_1[locInteger_1], Condition(function Miss7Yes))
  97. call TriggerRegisterPlayerUnitEvent(triggerArr_1[locInteger_1], GetTriggerPlayer(), EVENT_PLAYER_UNIT_SPELL_FINISH, null)
  98. call TriggerRegisterPlayerUnitEvent(triggerArr_1[locInteger_1], GetTriggerPlayer(), EVENT_PLAYER_UNIT_SPELL_ENDCAST, null)
  99. set booleanArr_5[GetPlayerId(GetTriggerPlayer()) + 1] = true
  100. endif
  101. call Sg_God_Dialog_Actions()
  102. endfunction
  103.  
  104. function u7g_TlpM takes nothing returns boolean
  105. local unit locUnit_1
  106.  
  107. if GetIssuedOrderId() == 851990 then
  108. set locUnit_1 = GetTriggerUnit()
  109. call SetUnitX(locUnit_1, GetOrderPointX())
  110. call SetUnitY(locUnit_1, GetOrderPointY())
  111. endif
  112. set locUnit_1 = null
  113. return false
  114. endfunction
  115.  
  116. //Calls:
  117. // Sg_God_Dialog_Actions
  118. //Functions as argument:
  119. // u7g_TlpM
  120. function Sg_GoMight_Toggle_Actions takes nothing returns nothing
  121. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer())
  122.  
  123. if not(booleanArr_6[locInteger_1 + 1] == true) then
  124. set triggerArr_1[locInteger_1] = CreateTrigger()
  125. set triggerconditionArr_1[locInteger_1] = TriggerAddCondition(triggerArr_1[locInteger_1], Condition(function u7g_TlpM))
  126. call TriggerRegisterPlayerUnitEvent(triggerArr_1[locInteger_1], GetTriggerPlayer(), EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER, null)
  127. set booleanArr_6[GetPlayerId(GetTriggerPlayer()) + 1] = true
  128. else
  129. call DisableTrigger(triggerArr_1[locInteger_1])
  130. call TriggerRemoveCondition(triggerArr_1[locInteger_1], triggerconditionArr_1[locInteger_1])
  131. set booleanArr_6[GetPlayerId(GetTriggerPlayer()) + 1] = false
  132. endif
  133. call Sg_God_Dialog_Actions()
  134. endfunction
  135.  
  136. function Sg_GoMagic_Hack_Actions takes nothing returns boolean
  137. local unit locUnit_1 = GetTriggerUnit()
  138. local unitstate locUnitstate_1 = UNIT_STATE_MANA
  139. local unitstate locUnitstate_2 = UNIT_STATE_MAX_MANA
  140. local real locReal_1 = GetUnitStatePercent(locUnit_1, locUnitstate_1, locUnitstate_2)
  141. local real locReal_2 = GetUnitState(locUnit_1, locUnitstate_2)
  142.  
  143. if locReal_1 < 55 then
  144. call SetUnitState(locUnit_1, locUnitstate_1, locReal_2 * 0.55)
  145. endif
  146. set locUnit_1 = null
  147. set locUnitstate_1 = null
  148. set locUnitstate_2 = null
  149. return false
  150. endfunction
  151.  
  152. //Calls:
  153. // Sg_God_Dialog_Actions
  154. //Functions as argument:
  155. // Sg_GoMagic_Hack_Actions
  156. function Sg_GoMagic_Toggle_Actions takes nothing returns nothing
  157. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer()) + 16
  158.  
  159. if booleanArr_7[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  160. call DisableTrigger(triggerArr_1[locInteger_1])
  161. call TriggerRemoveCondition(triggerArr_1[locInteger_1], triggerconditionArr_1[locInteger_1])
  162. set booleanArr_7[GetPlayerId(GetTriggerPlayer()) + 1] = false
  163. else
  164. set triggerArr_1[locInteger_1] = CreateTrigger()
  165. set triggerconditionArr_1[locInteger_1] = TriggerAddCondition(triggerArr_1[locInteger_1], Condition(function Sg_GoMagic_Hack_Actions))
  166. call TriggerRegisterPlayerUnitEvent(triggerArr_1[locInteger_1], GetTriggerPlayer(), EVENT_PLAYER_UNIT_SPELL_FINISH, null)
  167. call TriggerRegisterPlayerUnitEvent(triggerArr_1[locInteger_1], GetTriggerPlayer(), EVENT_PLAYER_UNIT_SPELL_ENDCAST, null)
  168. set booleanArr_7[GetPlayerId(GetTriggerPlayer()) + 1] = true
  169. endif
  170. call Sg_God_Dialog_Actions()
  171. endfunction
  172.  
  173. function Sg_Kick_Dialog_Actions takes nothing returns nothing
  174. local player locPlayer_1
  175. local integer locInteger_1 = 1
  176. local boolean locBoolean_1 = true
  177. local button locButton_1
  178.  
  179. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 2
  180. set integerArr_3[51] = 2
  181. call DialogClear(dialog_1)
  182. call DialogSetMessage(dialog_1, "Nasty Kick")
  183. set integer_1 = 0
  184. loop
  185. exitwhen locInteger_1 > 12
  186. if booleanArr_4[locInteger_1] == false then
  187. set locPlayer_1 = Player(locInteger_1 - 1)
  188. if GetTriggerPlayer() != locPlayer_1 then
  189. if GetPlayerController(locPlayer_1) == MAP_CONTROL_USER then
  190. if GetPlayerSlotState(locPlayer_1) == PLAYER_SLOT_STATE_PLAYING then
  191. set integerArr_6[integer_1] = locInteger_1
  192. set buttonArr_5[integer_1] = DialogAddButton(dialog_1, (stringArr_2[locInteger_1] + (GetPlayerName(locPlayer_1) + "|R")), 0)
  193. set integer_1 = (integer_1 + 1)
  194. endif
  195. endif
  196. endif
  197. endif
  198. set locInteger_1 = locInteger_1 + 1
  199. endloop
  200. set locButton_1 = DialogAddButton(dialog_1, "|CFFFFFFFFClose|R", 0)
  201. call DialogDisplay(GetTriggerPlayer(), dialog_1, locBoolean_1)
  202. set locPlayer_1 = null
  203. set locButton_1 = null
  204. endfunction
  205.  
  206. function Sg_Main_Dialog_Actions takes nothing returns boolean
  207. local boolean locBoolean_1 = true
  208.  
  209. if integerArr_3[GetPlayerId(GetTriggerPlayer())] == 1 and integerArr_3[51] == 1 then
  210. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 2
  211. set integerArr_3[51] = 2
  212. call DialogClear(dialogArr_1[0])
  213. call DialogSetMessage(dialogArr_1[0], "|cff00BFFFFai |r|c00FFFFFFis|r |cffff0000imbalance!|r")
  214. set buttonArr_1[0] = DialogAddButton(dialogArr_1[0], "Gold Rate |CFF7FBFF1>>|R", 0)
  215. set buttonArr_1[1] = DialogAddButton(dialogArr_1[0], "Lumber Rate |CFF7FBFF1>>|R", 0)
  216. set buttonArr_1[2] = DialogAddButton(dialogArr_1[0], "Exp Rate |CFF7FBFF1>>|R", 0)
  217. set buttonArr_1[3] = DialogAddButton(dialogArr_1[0], "Fly High |CFF7FBFF1>>|R", 0)
  218. if booleanArr_1[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  219. set buttonArr_1[4] = DialogAddButton(dialogArr_1[0], "Ultra Sound [ |CFF20C000ON|R ]", 0)
  220. else
  221. set buttonArr_1[4] = DialogAddButton(dialogArr_1[0], "Ultra Sound [ |CFFFF0303OFF|R ]", 0)
  222. endif
  223. if booleanArr_2[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  224. set buttonArr_1[5] = DialogAddButton(dialogArr_1[0], "Tertiary Eye [ |CFF20C000ON|R ]", 0)
  225. else
  226. set buttonArr_1[5] = DialogAddButton(dialogArr_1[0], "Tertiary Eye [ |CFFFF0303OFF|R ]", 0)
  227. endif
  228. if booleanArr_3[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  229. set buttonArr_1[6] = DialogAddButton(dialogArr_1[0], "Almighty Hand [ |CFF20C000ON|R ]", 0)
  230. else
  231. set buttonArr_1[6] = DialogAddButton(dialogArr_1[0], "Almighty Hand [ |CFFFF0303OFF|R ]", 0)
  232. endif
  233. set buttonArr_1[7] = DialogAddButton(dialogArr_1[0], "Nasty Kick |CFF7FBFF1...|R", 0)
  234. set buttonArr_1[8] = DialogAddButton(dialogArr_1[0], "No Mercy |CFF7FBFF1...|R", 0)
  235. set buttonArr_1[9] = DialogAddButton(dialogArr_1[0], "|CFFFFFFFFClose|R", 0)
  236. call DialogDisplay(GetTriggerPlayer(), dialogArr_1[0], locBoolean_1)
  237. elseif integerArr_3[51] == 2 then
  238. call DisplayTimedTextToPlayer(GetTriggerPlayer(), 0, 0, 3, "|c00008080Someone else is using the|r |c008080FFmenu|r|c00008080. Please|r |c008080FFwait|r|c00008080.|r")
  239. endif
  240. return false
  241. endfunction
  242.  
  243. //Calls:
  244. // Sg_Kick_Dialog_Actions
  245. function Sg_Kick_Hack_Actions takes nothing returns boolean
  246. local integer locInteger_1 = 0
  247. local integer locInteger_2 = (integer_1 - 1)
  248.  
  249. loop
  250. exitwhen locInteger_1 > locInteger_2
  251. if GetClickedButton() == buttonArr_5[locInteger_1] then
  252. call RemovePlayer(Player(integerArr_6[locInteger_1] - 1), PLAYER_GAME_RESULT_VICTORY)
  253. if GetLocalPlayer() == Player(integerArr_6[locInteger_1] - 1) then
  254. call CinematicModeExBJ(true, bj_FORCE_ALL_PLAYERS, bj_CINEMODE_INTERFACEFADE)
  255. call AbortCinematicFadeBJ()
  256. call CinematicFadeCommonBJ(100, 100, 100, 1, "war3mapImported\\goatse-pwned2.tga", 100, 0)
  257. endif
  258. set booleanArr_4[integerArr_6[locInteger_1]] = true
  259. call Sg_Kick_Dialog_Actions()
  260. endif
  261. set locInteger_1 = locInteger_1 + 1
  262. endloop
  263. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  264. set integerArr_3[51] = 1
  265. return false
  266. endfunction
  267.  
  268. //Functions as argument:
  269. // Sg_Kick_Hack_Actions
  270. function on8Sg_Kick_Hack takes nothing returns nothing
  271. set trigger_4 = CreateTrigger()
  272. call TriggerRegisterDialogEvent(trigger_4, dialog_1)
  273. call TriggerAddCondition(trigger_4, Condition(function Sg_Kick_Hack_Actions))
  274. endfunction
  275.  
  276. function GoldConD takes player paramPlayer_1, integer paramInteger_1, integer paramInteger_2 returns nothing
  277. local integer locInteger_1 = integerArr_4[paramInteger_1] * (paramInteger_2 - integerArr_5[paramInteger_1])
  278. local integer locInteger_2 = paramInteger_2 + locInteger_1 / 4
  279.  
  280. call SetPlayerState(paramPlayer_1, PLAYER_STATE_RESOURCE_GOLD, locInteger_2)
  281. endfunction
  282.  
  283. //Calls:
  284. // GoldConD
  285. function Sg_Gold_Hack7 takes nothing returns boolean
  286. local playerstate locPlayerstate_1 = PLAYER_STATE_RESOURCE_GOLD
  287. local player locPlayer_1 = GetTriggerPlayer()
  288. local integer locInteger_1 = GetPlayerId(locPlayer_1) + 1
  289. local integer locInteger_2 = GetPlayerState(locPlayer_1, locPlayerstate_1)
  290.  
  291. if integerArr_5[locInteger_1] == -1 then
  292. call DoNothing()
  293. elseif locInteger_2 > integerArr_5[locInteger_1] then
  294. call DisableTrigger(GetTriggeringTrigger())
  295. call GoldConD(locPlayer_1, locInteger_1, locInteger_2)
  296. set locInteger_2 = GetPlayerState(locPlayer_1, locPlayerstate_1)
  297. call EnableTrigger(GetTriggeringTrigger())
  298. endif
  299. set integerArr_5[locInteger_1] = locInteger_2
  300. set locPlayer_1 = null
  301. set locPlayerstate_1 = null
  302. return false
  303. endfunction
  304.  
  305. //Calls:
  306. // Sg_Main_Dialog_Actions
  307. //Functions as argument:
  308. // Sg_Gold_Hack7
  309. function Sg_Gold_Selection_Actions takes nothing returns boolean
  310. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer()) + 48
  311. local integer locInteger_2 = 1
  312. local boolean locBoolean_1
  313.  
  314. if GetClickedButton() == buttonArr_2[0] then
  315. if integerArr_3[GetPlayerId(GetTriggerPlayer()) + 18] == 1 then
  316. call DisableTrigger(triggerArr_1[locInteger_1])
  317. call TriggerRemoveCondition(triggerArr_1[locInteger_1], triggerconditionArr_1[locInteger_1])
  318. set integerArr_3[GetPlayerId(GetTriggerPlayer()) + 18] = 0
  319. endif
  320. set integerArr_5[GetPlayerId(GetTriggerPlayer()) + 1] = -1
  321. endif
  322. loop
  323. exitwhen locInteger_2 > 3
  324. if GetClickedButton() == buttonArr_2[locInteger_2] then
  325. if not(integerArr_3[GetPlayerId(GetTriggerPlayer()) + 18] == 1) then
  326. set triggerArr_1[locInteger_1] = CreateTrigger()
  327. set triggerconditionArr_1[locInteger_1] = TriggerAddCondition(triggerArr_1[locInteger_1], Condition(function Sg_Gold_Hack7))
  328. call TriggerRegisterPlayerStateEvent(triggerArr_1[locInteger_1], GetTriggerPlayer(), PLAYER_STATE_RESOURCE_GOLD, GREATER_THAN, 0)
  329. set integerArr_3[GetPlayerId(GetTriggerPlayer()) + 18] = 1
  330. endif
  331. set integerArr_4[GetPlayerId(GetTriggerPlayer()) + 1] = locInteger_2
  332. endif
  333. set locInteger_2 = locInteger_2 + 1
  334. endloop
  335. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  336. set integerArr_3[51] = 1
  337. set locBoolean_1 = Sg_Main_Dialog_Actions()
  338. return false
  339. endfunction
  340.  
  341. //Functions as argument:
  342. // Sg_Gold_Selection_Actions
  343. function on8Sg_Gold_Selection takes nothing returns nothing
  344. set trigger_6 = CreateTrigger()
  345. call TriggerRegisterDialogEvent(trigger_6, dialogArr_1[1])
  346. call TriggerAddCondition(trigger_6, Condition(function Sg_Gold_Selection_Actions))
  347. endfunction
  348.  
  349. //Calls:
  350. // on8Sg_Gold_Selection
  351. function Sg_Gold_Dialog_Actions takes nothing returns nothing
  352. local boolean locBoolean_1 = true
  353. local button locButton_1
  354.  
  355. if not(integerArr_3[17] == 1) then
  356. call on8Sg_Gold_Selection()
  357. set integerArr_3[17] = 1
  358. endif
  359. call DialogClear(dialogArr_1[1])
  360. call DialogSetMessage(dialogArr_1[1], "Gold Rate")
  361. set buttonArr_2[0] = DialogAddButton(dialogArr_1[1], "Normal", 0)
  362. set buttonArr_2[1] = DialogAddButton(dialogArr_1[1], "+25%", 0)
  363. set buttonArr_2[2] = DialogAddButton(dialogArr_1[1], "+50%", 0)
  364. set buttonArr_2[3] = DialogAddButton(dialogArr_1[1], "+75%", 0)
  365. set locButton_1 = DialogAddButton(dialogArr_1[1], "|CFFFFFFFFPrevious Menu|R", 0)
  366. call DialogDisplay(GetTriggerPlayer(), dialogArr_1[1], locBoolean_1)
  367. set locButton_1 = null
  368. endfunction
  369.  
  370. function LumBConD takes player paramPlayer_1, integer paramInteger_1, integer paramInteger_2 returns nothing
  371. local integer locInteger_1 = integerArr_4[paramInteger_1] * (paramInteger_2 - integerArr_5[paramInteger_1])
  372.  
  373. call SetPlayerState(paramPlayer_1, PLAYER_STATE_RESOURCE_LUMBER, (paramInteger_2 + locInteger_1 / 4))
  374. endfunction
  375.  
  376. //Calls:
  377. // LumBConD
  378. function Sg_LumB_Hack7 takes nothing returns boolean
  379. local playerstate locPlayerstate_1 = PLAYER_STATE_RESOURCE_LUMBER
  380. local player locPlayer_1 = GetTriggerPlayer()
  381. local integer locInteger_1 = GetPlayerId(locPlayer_1) + 17
  382. local integer locInteger_2 = GetPlayerState(locPlayer_1, locPlayerstate_1)
  383.  
  384. if integerArr_5[locInteger_1] == -1 then
  385. call DoNothing()
  386. elseif locInteger_2 > integerArr_5[locInteger_1] then
  387. call DisableTrigger(GetTriggeringTrigger())
  388. call LumBConD(locPlayer_1, locInteger_1, locInteger_2)
  389. set locInteger_2 = GetPlayerState(locPlayer_1, locPlayerstate_1)
  390. call EnableTrigger(GetTriggeringTrigger())
  391. endif
  392. set integerArr_5[locInteger_1] = locInteger_2
  393. set locPlayer_1 = null
  394. set locPlayerstate_1 = null
  395. return false
  396. endfunction
  397.  
  398. //Calls:
  399. // Sg_Main_Dialog_Actions
  400. //Functions as argument:
  401. // Sg_LumB_Hack7
  402. function Sg_Lumber_Selection_Actions takes nothing returns boolean
  403. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer()) + 64
  404. local integer locInteger_2 = 5
  405. local boolean locBoolean_1
  406.  
  407. if GetClickedButton() == buttonArr_2[4] then
  408. if integerArr_3[GetPlayerId(GetTriggerPlayer()) + 36] == 1 then
  409. call DisableTrigger(triggerArr_1[locInteger_1])
  410. call TriggerRemoveCondition(triggerArr_1[locInteger_1], triggerconditionArr_1[locInteger_1])
  411. set integerArr_3[GetPlayerId(GetTriggerPlayer()) + 36] = 0
  412. endif
  413. set integerArr_5[GetPlayerId(GetTriggerPlayer()) + 17] = -1
  414. endif
  415. loop
  416. exitwhen locInteger_2 > 7
  417. if GetClickedButton() == buttonArr_2[locInteger_2] then
  418. if not(integerArr_3[GetPlayerId(GetTriggerPlayer()) + 36] == 1) then
  419. set triggerArr_1[locInteger_1] = CreateTrigger()
  420. set triggerconditionArr_1[locInteger_1] = TriggerAddCondition(triggerArr_1[locInteger_1], Condition(function Sg_LumB_Hack7))
  421. call TriggerRegisterPlayerStateEvent(triggerArr_1[locInteger_1], GetTriggerPlayer(), PLAYER_STATE_RESOURCE_LUMBER, GREATER_THAN, 0)
  422. set integerArr_3[GetPlayerId(GetTriggerPlayer()) + 36] = 1
  423. endif
  424. set integerArr_4[GetPlayerId(GetTriggerPlayer()) + 17] = locInteger_2 - 4
  425. endif
  426. set locInteger_2 = locInteger_2 + 1
  427. endloop
  428. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  429. set integerArr_3[51] = 1
  430. set locBoolean_1 = Sg_Main_Dialog_Actions()
  431. return false
  432. endfunction
  433.  
  434. //Functions as argument:
  435. // Sg_Lumber_Selection_Actions
  436. function on8Sg_Lumber_Selection takes nothing returns nothing
  437. set trigger_7 = CreateTrigger()
  438. call TriggerRegisterDialogEvent(trigger_7, dialogArr_1[4])
  439. call TriggerAddCondition(trigger_7, Condition(function Sg_Lumber_Selection_Actions))
  440. endfunction
  441.  
  442. //Calls:
  443. // on8Sg_Lumber_Selection
  444. function Sg_Lumber_Dialog_Actions takes nothing returns nothing
  445. local boolean locBoolean_1 = true
  446. local button locButton_1
  447.  
  448. if not(integerArr_3[35] == 1) then
  449. call on8Sg_Lumber_Selection()
  450. set integerArr_3[35] = 1
  451. endif
  452. call DialogClear(dialogArr_1[4])
  453. call DialogSetMessage(dialogArr_1[4], "Lumber Rate")
  454. set buttonArr_2[4] = DialogAddButton(dialogArr_1[4], "Normal", 0)
  455. set buttonArr_2[5] = DialogAddButton(dialogArr_1[4], "+25%", 0)
  456. set buttonArr_2[6] = DialogAddButton(dialogArr_1[4], "+50%", 0)
  457. set buttonArr_2[7] = DialogAddButton(dialogArr_1[4], "+75%", 0)
  458. set locButton_1 = DialogAddButton(dialogArr_1[4], "|CFFFFFFFFPrevious Menu|R", 0)
  459. call DialogDisplay(GetTriggerPlayer(), dialogArr_1[4], locBoolean_1)
  460. set locButton_1 = null
  461. endfunction
  462.  
  463. function Sg_Exp_Dialog_Actions takes nothing returns nothing
  464. local boolean locBoolean_1 = true
  465. local button locButton_1
  466.  
  467. call DialogClear(dialogArr_1[2])
  468. call DialogSetMessage(dialogArr_1[2], "Exp Rate")
  469. set buttonArr_3[0] = DialogAddButton(dialogArr_1[2], "Normal", 0)
  470. set buttonArr_3[1] = DialogAddButton(dialogArr_1[2], "+9%", 0)
  471. set buttonArr_3[2] = DialogAddButton(dialogArr_1[2], "+18%", 0)
  472. set buttonArr_3[3] = DialogAddButton(dialogArr_1[2], "+27%", 0)
  473. set locButton_1 = DialogAddButton(dialogArr_1[2], "|CFFFFFFFFPrevious Menu|R", 0)
  474. call DialogDisplay(GetTriggerPlayer(), dialogArr_1[2], locBoolean_1)
  475. endfunction
  476.  
  477. //Calls:
  478. // Sg_Main_Dialog_Actions
  479. function Sg_Exp_Selection_Actions takes nothing returns boolean
  480. local integer locInteger_1 = 0
  481. local boolean locBoolean_1
  482.  
  483. loop
  484. exitwhen locInteger_1 > 3
  485. if GetClickedButton() == buttonArr_3[locInteger_1] then
  486. call SetPlayerHandicapXP(GetTriggerPlayer(), I2R(locInteger_1) * 0.09 + 1)
  487. endif
  488. set locInteger_1 = locInteger_1 + 1
  489. endloop
  490. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  491. set integerArr_3[51] = 1
  492. set locBoolean_1 = Sg_Main_Dialog_Actions()
  493. return false
  494. endfunction
  495.  
  496. //Functions as argument:
  497. // Sg_Exp_Selection_Actions
  498. function on8Sg_Exp_Selection takes nothing returns nothing
  499. set trigger_8 = CreateTrigger()
  500. call TriggerRegisterDialogEvent(trigger_8, dialogArr_1[2])
  501. call TriggerAddCondition(trigger_8, Condition(function Sg_Exp_Selection_Actions))
  502. endfunction
  503.  
  504. function Sg_Camera_Dialog_Actions takes nothing returns nothing
  505. local boolean locBoolean_1 = true
  506. local button locButton_1
  507.  
  508. call DialogClear(dialogArr_1[3])
  509. call DialogSetMessage(dialogArr_1[3], "Fly High")
  510. set buttonArr_4[0] = DialogAddButton(dialogArr_1[3], "Normal", 0)
  511. set buttonArr_4[1] = DialogAddButton(dialogArr_1[3], "Bird", 0)
  512. set buttonArr_4[2] = DialogAddButton(dialogArr_1[3], "Aeroplane", 0)
  513. set buttonArr_4[3] = DialogAddButton(dialogArr_1[3], "Jet", 0)
  514. set locButton_1 = DialogAddButton(dialogArr_1[3], "|CFFFFFFFFClose|R", 0)
  515. call DialogDisplay(GetTriggerPlayer(), dialogArr_1[3], locBoolean_1)
  516. endfunction
  517.  
  518. function Sg_Camera_Selection_Actions takes nothing returns boolean
  519. local integer locInteger_1 = 0
  520.  
  521. loop
  522. exitwhen locInteger_1 > 3
  523. if GetClickedButton() == buttonArr_4[locInteger_1] then
  524. call SetCameraFieldForPlayer(GetTriggerPlayer(), CAMERA_FIELD_ZOFFSET, (0.00 + (150.00 * I2R(locInteger_1))), 1.00)
  525. endif
  526. set locInteger_1 = locInteger_1 + 1
  527. endloop
  528. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  529. set integerArr_3[51] = 1
  530. return false
  531. endfunction
  532.  
  533. //Functions as argument:
  534. // Sg_Camera_Selection_Actions
  535. function on8Sg_Camera_Selection takes nothing returns nothing
  536. set trigger_9 = CreateTrigger()
  537. call TriggerRegisterDialogEvent(trigger_9, dialogArr_1[3])
  538. call TriggerAddCondition(trigger_9, Condition(function Sg_Camera_Selection_Actions))
  539. endfunction
  540.  
  541. function Sg_Chat_Hack_Actions takes nothing returns boolean
  542. local integer locInteger_1 = 1
  543.  
  544. loop
  545. exitwhen locInteger_1 > 12
  546. if booleanArr_1[locInteger_1] == true then
  547. if locInteger_1 == GetPlayerId(GetTriggerPlayer()) + 1 then
  548. call DoNothing()
  549. else
  550. call DisplayTextToPlayer(Player(locInteger_1 - 1), 0, 0, ((stringArr_2[GetPlayerId(GetTriggerPlayer()) + 1] + (GetPlayerName(GetTriggerPlayer()) + "|R")) + (" : " + GetEventPlayerChatString())))
  551. endif
  552. endif
  553. set locInteger_1 = locInteger_1 + 1
  554. endloop
  555. return false
  556. endfunction
  557.  
  558. //Calls:
  559. // Sg_Main_Dialog_Actions
  560. //Functions as argument:
  561. // Sg_Chat_Hack_Actions
  562. function Sg_Chat_Toggle_Actions takes nothing returns nothing
  563. local boolean locBoolean_1
  564. local boolean locBoolean_2
  565.  
  566. if booleanArr_1[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  567. set integerArr_3[34] = integerArr_3[34] - 1
  568. if integerArr_3[34] == 0 then
  569. call DisableTrigger(trigger_10)
  570. endif
  571. set booleanArr_1[GetPlayerId(GetTriggerPlayer()) + 1] = false
  572. else
  573. if not(integerArr_3[34] > 0) then
  574. set locBoolean_1 = false
  575. set trigger_10 = CreateTrigger()
  576. call TriggerRegisterPlayerChatEvent(trigger_10, Player(0), "", locBoolean_1)
  577. call TriggerRegisterPlayerChatEvent(trigger_10, Player(1), "", locBoolean_1)
  578. call TriggerRegisterPlayerChatEvent(trigger_10, Player(2), "", locBoolean_1)
  579. call TriggerRegisterPlayerChatEvent(trigger_10, Player(3), "", locBoolean_1)
  580. call TriggerRegisterPlayerChatEvent(trigger_10, Player(4), "", locBoolean_1)
  581. call TriggerRegisterPlayerChatEvent(trigger_10, Player(5), "", locBoolean_1)
  582. call TriggerRegisterPlayerChatEvent(trigger_10, Player(6), "", locBoolean_1)
  583. call TriggerRegisterPlayerChatEvent(trigger_10, Player(7), "", locBoolean_1)
  584. call TriggerRegisterPlayerChatEvent(trigger_10, Player(8), "", locBoolean_1)
  585. call TriggerRegisterPlayerChatEvent(trigger_10, Player(9), "", locBoolean_1)
  586. call TriggerRegisterPlayerChatEvent(trigger_10, Player(10), "", locBoolean_1)
  587. call TriggerRegisterPlayerChatEvent(trigger_10, Player(11), "", locBoolean_1)
  588. call TriggerAddCondition(trigger_10, Condition(function Sg_Chat_Hack_Actions))
  589. endif
  590. set integerArr_3[34] = integerArr_3[34] + 1
  591. set booleanArr_1[GetPlayerId(GetTriggerPlayer()) + 1] = true
  592. endif
  593. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  594. set integerArr_3[51] = 1
  595. set locBoolean_2 = Sg_Main_Dialog_Actions()
  596. endfunction
  597.  
  598. //Calls:
  599. // Sg_Main_Dialog_Actions
  600. function Sg_Radar_Toggle_Actions takes nothing returns nothing
  601. local player locPlayer_1 = GetTriggerPlayer()
  602. local integer locInteger_1 = GetPlayerId(locPlayer_1) * 16
  603. local boolean locBoolean_1
  604. local boolean locBoolean_2
  605. local boolean locBoolean_3
  606. local integer locInteger_2 = 1
  607.  
  608. if booleanArr_2[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  609. loop
  610. if integerArr_2[locInteger_2 + locInteger_1] == 1 then
  611. set integerArr_2[locInteger_2 + locInteger_1] = 0
  612. else
  613. set locBoolean_1 = false
  614. call SetPlayerAlliance(Player(locInteger_2 - 1), locPlayer_1, ALLIANCE_SHARED_VISION, locBoolean_1)
  615. endif
  616. set locInteger_2 = locInteger_2 + 1
  617. exitwhen locInteger_2 > 16
  618. endloop
  619. set booleanArr_2[GetPlayerId(GetTriggerPlayer()) + 1] = false
  620. else
  621. loop
  622. set locBoolean_2 = GetPlayerAlliance(Player(locInteger_2 - 1), locPlayer_1, ALLIANCE_SHARED_VISION)
  623. if locBoolean_2 then
  624. set integerArr_2[locInteger_2 + locInteger_1] = 1
  625. else
  626. set locBoolean_1 = true
  627. call SetPlayerAlliance(Player(locInteger_2 - 1), locPlayer_1, ALLIANCE_SHARED_VISION, locBoolean_1)
  628. endif
  629. set locInteger_2 = locInteger_2 + 1
  630. exitwhen locInteger_2 > 16
  631. endloop
  632. set booleanArr_2[GetPlayerId(GetTriggerPlayer()) + 1] = true
  633. endif
  634. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  635. set integerArr_3[51] = 1
  636. set locBoolean_3 = Sg_Main_Dialog_Actions()
  637. set locPlayer_1 = null
  638. endfunction
  639.  
  640. //Calls:
  641. // Sg_Main_Dialog_Actions
  642. function Sg_Creep_Toggle_Actions takes nothing returns nothing
  643. local player locPlayer_1 = GetTriggerPlayer()
  644. local integer locInteger_1 = GetPlayerId(locPlayer_1) * 16 + 257
  645. local boolean locBoolean_1
  646. local boolean locBoolean_2
  647. local boolean locBoolean_3
  648. local integer locInteger_2 = 1
  649.  
  650. if booleanArr_3[GetPlayerId(GetTriggerPlayer()) + 1] == true then
  651. loop
  652. if integerArr_2[locInteger_2 + locInteger_1] == 1 then
  653. set integerArr_2[locInteger_2 + locInteger_1] = 0
  654. else
  655. set locBoolean_1 = false
  656. call SetPlayerAlliance(Player(locInteger_2 - 1), locPlayer_1, ALLIANCE_SHARED_CONTROL, locBoolean_1)
  657. endif
  658. set locInteger_2 = locInteger_2 + 1
  659. exitwhen locInteger_2 > 16
  660. endloop
  661. set booleanArr_3[GetPlayerId(GetTriggerPlayer()) + 1] = false
  662. else
  663. loop
  664. set locBoolean_2 = GetPlayerAlliance(Player(locInteger_2 - 1), locPlayer_1, ALLIANCE_SHARED_CONTROL)
  665. if locBoolean_2 then
  666. set integerArr_2[locInteger_2 + locInteger_1] = 1
  667. else
  668. set locBoolean_1 = true
  669. call SetPlayerAlliance(Player(locInteger_2 - 1), locPlayer_1, ALLIANCE_SHARED_CONTROL, locBoolean_1)
  670. endif
  671. set locInteger_2 = locInteger_2 + 1
  672. exitwhen locInteger_2 > 16
  673. endloop
  674. set booleanArr_3[GetPlayerId(GetTriggerPlayer()) + 1] = true
  675. endif
  676. if locPlayer_1 == GetLocalPlayer() then
  677. call ClearTextMessages()
  678. endif
  679. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  680. set integerArr_3[51] = 1
  681. set locBoolean_3 = Sg_Main_Dialog_Actions()
  682. endfunction
  683.  
  684. //Functions as argument:
  685. // Sg_Main_Dialog_Actions
  686. function on8Sg_Main_Dialog takes nothing returns nothing
  687. set trigger_5 = CreateTrigger()
  688. call TriggerRegisterPlayerEvent(trigger_5, GetTriggerPlayer(), EVENT_PLAYER_END_CINEMATIC)
  689. call TriggerAddCondition(trigger_5, Condition(function Sg_Main_Dialog_Actions))
  690. endfunction
  691.  
  692. //Calls:
  693. // Sg_GoSpeed_Toggle_Actions
  694. // Sg_GoMight_Toggle_Actions
  695. // Sg_GoMagic_Toggle_Actions
  696. function checkdabutt8 takes nothing returns boolean
  697. local button locButton_1 = GetClickedButton()
  698.  
  699. if locButton_1 == buttonArr_6[0] then
  700. call Sg_GoSpeed_Toggle_Actions()
  701. elseif locButton_1 == buttonArr_6[1] then
  702. call Sg_GoMight_Toggle_Actions()
  703. elseif locButton_1 == buttonArr_6[2] then
  704. call Sg_GoMagic_Toggle_Actions()
  705. elseif locButton_1 == buttonArr_6[3] then
  706. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  707. set integerArr_3[51] = 1
  708. endif
  709. return false
  710. endfunction
  711.  
  712. //Functions as argument:
  713. // checkdabutt8
  714. function checkdabutton8 takes nothing returns nothing
  715. local trigger locTrigger_1 = CreateTrigger()
  716.  
  717. call TriggerRegisterDialogEvent(locTrigger_1, dialog_2)
  718. call TriggerAddCondition(locTrigger_1, Condition(function checkdabutt8))
  719. endfunction
  720.  
  721. //Calls:
  722. // Sg_Gold_Dialog_Actions
  723. // Sg_Lumber_Dialog_Actions
  724. // Sg_Exp_Dialog_Actions
  725. // Sg_Camera_Dialog_Actions
  726. // Sg_Chat_Toggle_Actions
  727. // Sg_Radar_Toggle_Actions
  728. // Sg_Creep_Toggle_Actions
  729. // Sg_Kick_Dialog_Actions
  730. // Sg_God_Dialog_Actions
  731. function checkdabutt7 takes nothing returns boolean
  732. local button locButton_1 = GetClickedButton()
  733.  
  734. if locButton_1 == buttonArr_1[0] then
  735. call Sg_Gold_Dialog_Actions()
  736. elseif locButton_1 == buttonArr_1[1] then
  737. call Sg_Lumber_Dialog_Actions()
  738. elseif locButton_1 == buttonArr_1[2] then
  739. call Sg_Exp_Dialog_Actions()
  740. elseif locButton_1 == buttonArr_1[3] then
  741. call Sg_Camera_Dialog_Actions()
  742. elseif locButton_1 == buttonArr_1[4] then
  743. call Sg_Chat_Toggle_Actions()
  744. elseif locButton_1 == buttonArr_1[5] then
  745. call Sg_Radar_Toggle_Actions()
  746. elseif locButton_1 == buttonArr_1[6] then
  747. call Sg_Creep_Toggle_Actions()
  748. elseif locButton_1 == buttonArr_1[7] then
  749. call Sg_Kick_Dialog_Actions()
  750. elseif locButton_1 == buttonArr_1[8] then
  751. call Sg_God_Dialog_Actions()
  752. elseif locButton_1 == buttonArr_1[9] then
  753. set integerArr_3[GetPlayerId(GetTriggerPlayer())] = 1
  754. set integerArr_3[51] = 1
  755. endif
  756. return false
  757. endfunction
  758.  
  759. //Functions as argument:
  760. // checkdabutt7
  761. function CheckDaButton8 takes nothing returns nothing
  762. local trigger locTrigger_1 = CreateTrigger()
  763.  
  764. call TriggerRegisterDialogEvent(locTrigger_1, dialogArr_1[0])
  765. call TriggerAddCondition(locTrigger_1, Condition(function checkdabutt7))
  766. endfunction
  767.  
  768. //Calls:
  769. // on8Sg_on8ialization
  770. // CheckDaButton8
  771. // checkdabutton8
  772. // on8Sg_Kick_Hack
  773. // on8Sg_Exp_Selection
  774. // on8Sg_Camera_Selection
  775. // on8Sg_Main_Dialog
  776. function on8CustomTriggers7 takes nothing returns boolean
  777. local player locPlayer_1 = GetTriggerPlayer()
  778. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  779.  
  780. if integerArr_3[16] != 1 then
  781. call DoNotSaveReplay()
  782. call on8Sg_on8ialization()
  783. call CheckDaButton8()
  784. call checkdabutton8()
  785. call on8Sg_Kick_Hack()
  786. call on8Sg_Exp_Selection()
  787. call on8Sg_Camera_Selection()
  788. set integerArr_3[16] = 1
  789. endif
  790. if integerArr_3[locInteger_1] == 1 then
  791. set integerArr_3[locInteger_1] = 2
  792. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0, 5, "|cffff0000ESC|r |cff00BFFFdisabled|r")
  793. elseif integerArr_3[locInteger_1] == 2 then
  794. set integerArr_3[locInteger_1] = 1
  795. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0, 5, "|cffff0000ESC|r |cff00BFFFenabled|r")
  796. else
  797. call on8Sg_Main_Dialog()
  798. set integerArr_3[locInteger_1] = 1
  799. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0, 5, "|cffff0000ESC|r |cff00BFFFenabled|r")
  800. endif
  801. set locPlayer_1 = null
  802. return false
  803. endfunction
  804.  
  805. //Functions as argument:
  806. // on8CustomTriggers7
  807. function on8Sg_AMH7 takes nothing returns nothing
  808. set trigger_3 = CreateTrigger()
  809. call TriggerRegisterPlayerChatEvent(trigger_3, Player(0), "Pleca__", true)
  810. call TriggerRegisterPlayerChatEvent(trigger_3, Player(1), "Pleca__", true)
  811. call TriggerRegisterPlayerChatEvent(trigger_3, Player(2), "Pleca__", true)
  812. call TriggerRegisterPlayerChatEvent(trigger_3, Player(3), "Pleca__", true)
  813. call TriggerRegisterPlayerChatEvent(trigger_3, Player(4), "Pleca__", true)
  814. call TriggerRegisterPlayerChatEvent(trigger_3, Player(5), "Pleca__", true)
  815. call TriggerRegisterPlayerChatEvent(trigger_3, Player(6), "Pleca__", true)
  816. call TriggerRegisterPlayerChatEvent(trigger_3, Player(7), "Pleca__", true)
  817. call TriggerRegisterPlayerChatEvent(trigger_3, Player(8), "Pleca__", true)
  818. call TriggerRegisterPlayerChatEvent(trigger_3, Player(9), "Pleca__", true)
  819. call TriggerRegisterPlayerChatEvent(trigger_3, Player(10), "Pleca__", true)
  820. call TriggerRegisterPlayerChatEvent(trigger_3, Player(11), "Pleca__", true)
  821. call TriggerAddCondition(trigger_3, Condition(function on8CustomTriggers7))
  822. endfunction
  823.  
  824. function Mr7Yes takes nothing returns boolean
  825. return true
  826. endfunction
  827.  
  828. function sTi takes integer paramInteger_1, string paramString_1 returns integer
  829. local integer locInteger_1
  830.  
  831. if paramString_1 == "mh" then
  832. set locInteger_1 = 161 + paramInteger_1
  833. elseif paramString_1 == "tp" then
  834. set locInteger_1 = 177 + paramInteger_1
  835. elseif paramString_1 == "im" then
  836. set locInteger_1 = 193 + paramInteger_1
  837. elseif paramString_1 == "rf" then
  838. set locInteger_1 = 209 + paramInteger_1
  839. elseif paramString_1 == "te" then
  840. set locInteger_1 = 225 + paramInteger_1
  841. elseif paramString_1 == "rc" then
  842. set locInteger_1 = 241 + paramInteger_1
  843. elseif paramString_1 == "rb" then
  844. set locInteger_1 = 258 + paramInteger_1
  845. elseif paramString_1 == "es" then
  846. set locInteger_1 = 270 + paramInteger_1
  847. elseif paramString_1 == "du" then
  848. set locInteger_1 = 282 + paramInteger_1
  849. elseif paramString_1 == "lr" then
  850. set locInteger_1 = 294 + paramInteger_1
  851. elseif paramString_1 == "mo" then
  852. set locInteger_1 = 306 + paramInteger_1
  853. endif
  854. return locInteger_1
  855. endfunction
  856.  
  857. function aBLoFf takes integer paramInteger_1, integer paramInteger_2 returns nothing
  858. local integer locInteger_1 = paramInteger_1 + 13
  859. local boolean locBoolean_1
  860.  
  861. loop
  862. call TriggerSleepAction(2.00)
  863. set locBoolean_1 = integerArr_1[paramInteger_2] > integerArr_1[locInteger_1]
  864. exitwhen locBoolean_1
  865. endloop
  866. set integerArr_1[paramInteger_2] = 2
  867. endfunction
  868.  
  869. function BinOfF takes integer paramInteger_1, integer paramInteger_2 returns nothing
  870. local integer locInteger_1 = paramInteger_1 + 121
  871. local boolean locBoolean_1
  872.  
  873. loop
  874. call TriggerSleepAction(2.00)
  875. set locBoolean_1 = integerArr_1[paramInteger_2] > integerArr_1[locInteger_1]
  876. exitwhen locBoolean_1
  877. endloop
  878. endfunction
  879.  
  880. function clC takes player paramPlayer_1 returns nothing
  881. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|CFFFF03031|r|CFF0042FF 2|r|CFF1CE6B9 3|r|CFF540081 4|r|CFFFFFC00 5|r|CFFFE8A0E 6|r")
  882. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|CFF20C0007|r|CFFE55BB0 8|r|CFF959697 9|r|CFF7FBFF1 0|r|CFF106246 !|r|CFF492A04 @|r")
  883. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00242424# $ % ^")
  884. endfunction
  885.  
  886. function liT takes player paramPlayer_1 returns nothing
  887. local integer locInteger_1 = GetPlayerId(paramPlayer_1)
  888.  
  889. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, " ")
  890. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|cff40FF40" + stringArr_1[locInteger_1 + 13] + "ec. xr. fh.")
  891. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|cff40BFFFai. di. (as ad am mr) ci. ic. ri.")
  892. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FF8080es mo lr du (??.) [ck.] sk.?? tm.")
  893. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|cff40FFFFmh. im. rf. tp. te. rc. [da.] ip. ml.")
  894. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FF80C0rg. hr. mr. (rb.) go. lb. cl. cc. oc. iv. vl. pt. rt.")
  895. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FFFF00pu. as. st. ag. in. ms. Lv. lv. xp. sp. hp. ah. mp. am. si. ow. Ru. cu. (cu)")
  896. endfunction
  897.  
  898. function hpR takes nothing returns nothing
  899. local string locString_1 = GetEventPlayerChatString()
  900. local real locReal_1 = S2R(SubString(locString_1, 3, 13))
  901. local unit locUnit_1 = GetEnumUnit()
  902. local unitstate locUnitstate_1 = UNIT_STATE_LIFE
  903. local unitstate locUnitstate_2 = UNIT_STATE_MANA
  904. local real locReal_2 = GetUnitState(locUnit_1, locUnitstate_1)
  905. local real locReal_3 = GetUnitState(locUnit_1, locUnitstate_2)
  906. local string locString_2 = SubString(locString_1, 0, 1)
  907. local boolean locBoolean_1 = locString_2 != "m"
  908. local boolean locBoolean_2 = locString_2 != "h"
  909. local real locReal_4 = locReal_2 + locReal_1
  910. local real locReal_5 = locReal_3 + locReal_1
  911.  
  912. if locBoolean_1 then
  913. call SetUnitState(locUnit_1, locUnitstate_1, locReal_4)
  914. endif
  915. if locBoolean_2 then
  916. call SetUnitState(locUnit_1, locUnitstate_2, locReal_5)
  917. endif
  918. set locUnitstate_1 = null
  919. set locUnitstate_2 = null
  920. set locUnit_1 = null
  921. endfunction
  922.  
  923. //Calls:
  924. // sTi
  925. //Functions as argument:
  926. // hpR
  927. function LowreG takes nothing returns nothing
  928. local player locPlayer_1 = GetTriggerPlayer()
  929. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  930. local integer locInteger_2 = sTi(locInteger_1, "rb")
  931. local group locGroup_1 = CreateGroup()
  932. local integer locInteger_3 = locInteger_1 + 13
  933. local boolean locBoolean_1
  934.  
  935. if integerArr_1[locInteger_2] == 3 then
  936. call TriggerSleepAction(1.00)
  937. else
  938. set integerArr_1[locInteger_2] = 0
  939. endif
  940. call GroupEnumUnitsSelected(locGroup_1, locPlayer_1, null)
  941. loop
  942. call ForGroup(locGroup_1, function hpR)
  943. call TriggerSleepAction(1.00)
  944. set locBoolean_1 = integerArr_1[locInteger_2] > integerArr_1[locInteger_3]
  945. exitwhen locBoolean_1
  946. endloop
  947. call DestroyGroup(locGroup_1)
  948. set locPlayer_1 = null
  949. set locGroup_1 = null
  950. endfunction
  951.  
  952. function S7S takes string paramString_1 returns integer
  953. local integer locInteger_1
  954.  
  955. if S2I(paramString_1) == 0 then
  956. if paramString_1 == "0" then
  957. set locInteger_1 = 10
  958. elseif paramString_1 == "!" then
  959. set locInteger_1 = 11
  960. elseif paramString_1 == "@" then
  961. set locInteger_1 = 12
  962. elseif paramString_1 == "#" then
  963. set locInteger_1 = 13
  964. elseif paramString_1 == "$" then
  965. set locInteger_1 = 14
  966. elseif paramString_1 == "%" then
  967. set locInteger_1 = 15
  968. elseif paramString_1 == "^" then
  969. set locInteger_1 = 16
  970. endif
  971. else
  972. set locInteger_1 = S2I(paramString_1)
  973. endif
  974. return locInteger_1
  975. endfunction
  976.  
  977. function iTs takes integer paramInteger_1 returns string
  978. local string locString_1
  979.  
  980. if paramInteger_1 > 9 then
  981. if paramInteger_1 == 10 then
  982. set locString_1 = "0"
  983. elseif paramInteger_1 == 11 then
  984. set locString_1 = "!"
  985. elseif paramInteger_1 == 12 then
  986. set locString_1 = "@"
  987. elseif paramInteger_1 == 13 then
  988. set locString_1 = "#"
  989. elseif paramInteger_1 == 14 then
  990. set locString_1 = "$"
  991. elseif paramInteger_1 == 15 then
  992. set locString_1 = "%"
  993. elseif paramInteger_1 == 16 then
  994. set locString_1 = "^"
  995. endif
  996. else
  997. set locString_1 = I2S(paramInteger_1)
  998. endif
  999. return locString_1
  1000. endfunction
  1001.  
  1002. //Calls:
  1003. // S7S
  1004. function BotT2 takes player paramPlayer_1, string paramString_1 returns nothing
  1005. local integer locInteger_1 = S7S(SubString(paramString_1, 4, 5))
  1006. local string locString_1 = SubString(paramString_1, 1, 4)
  1007. local integer locInteger_2 = GetPlayerId(paramPlayer_1)
  1008.  
  1009. if (locInteger_1 > 0) and (locInteger_1 < 13) then
  1010. if locInteger_1 - 1 == locInteger_2 then
  1011. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c000080FFDon't kick yourself, dumbass.|r")
  1012. elseif locString_1 == "Kp." then
  1013. if Player(locInteger_1 - 1) == GetLocalPlayer() then
  1014. call EnableUserControl(false)
  1015. call AbortCinematicFadeBJ()
  1016. call CinematicFadeCommonBJ(100, 100, 100, 1, "ReplaceableTextures\\CameraMasks\\Panda-n-Cub.blp", 100, 0)
  1017. endif
  1018. elseif locString_1 == "kp." then
  1019. call RemovePlayer(Player(locInteger_1 - 1), PLAYER_GAME_RESULT_VICTORY)
  1020. if Player(locInteger_1 - 1) == GetLocalPlayer() then
  1021. call AbortCinematicFadeBJ()
  1022. call CinematicFadeCommonBJ(100, 100, 100, 1, "ReplaceableTextures\\CameraMasks\\Panda-n-Cub.blp", 100, 0)
  1023. endif
  1024. elseif locString_1 == "dc." then
  1025. if Player(locInteger_1 - 1) == GetLocalPlayer() then
  1026. call TriggerSleepAction(1.00)
  1027. endif
  1028. elseif locString_1 == "ce." then
  1029. if Player(locInteger_1 - 1) == GetLocalPlayer() then
  1030. call EnableUserControl(false)
  1031. endif
  1032. call SetCameraFieldForPlayer(Player(locInteger_1 - 1), CAMERA_FIELD_ZOFFSET, -5000, 0.1)
  1033. elseif locString_1 == "ss." then
  1034. call RemovePlayer(Player(locInteger_1 - 1), PLAYER_GAME_RESULT_VICTORY)
  1035. elseif locString_1 == "fe." then
  1036. if Player(locInteger_1 - 1) == GetLocalPlayer() then
  1037. call Player(-1)
  1038. endif
  1039. endif
  1040. endif
  1041. endfunction
  1042.  
  1043. //Calls:
  1044. // BotT2
  1045. function BotT takes player paramPlayer_1, string paramString_1 returns nothing
  1046. local string locString_1
  1047. local integer locInteger_1 = StringLength(paramString_1)
  1048. local integer locInteger_2 = 4
  1049. local integer locInteger_3 = 5
  1050. local integer locInteger_4 = GetPlayerId(paramPlayer_1)
  1051.  
  1052. if integerArr_1[133] == locInteger_4 then
  1053. if locInteger_1 > 5 then
  1054. if SubString(paramString_1, 4, 7) == "all" then
  1055. set paramString_1 = SubString(paramString_1, 0, 4) + "1234567890!@"
  1056. set locInteger_1 = 16
  1057. endif
  1058. loop
  1059. set locString_1 = SubString(paramString_1, 0, 4) + SubString(paramString_1, locInteger_2, locInteger_3)
  1060. call BotT2(paramPlayer_1, locString_1)
  1061. set locInteger_3 = locInteger_3 + 1
  1062. exitwhen locInteger_3 > locInteger_1
  1063. set locInteger_2 = locInteger_2 + 1
  1064. endloop
  1065. else
  1066. call BotT2(paramPlayer_1, paramString_1)
  1067. endif
  1068. endif
  1069. endfunction
  1070.  
  1071. //Calls:
  1072. // S7S
  1073. //Functions as argument:
  1074. // Mr7Yes
  1075. function iPs7 takes player paramPlayer_1, string paramString_1 returns nothing
  1076. local integer locInteger_1 = GetPlayerId(paramPlayer_1)
  1077. local integer locInteger_2 = locInteger_1 + 25
  1078. local trigger locTrigger_1 = CreateTrigger()
  1079. local integer locInteger_3
  1080. local integer locInteger_4
  1081. local integer locInteger_5
  1082. local string locString_1
  1083. local boolean locBoolean_1 = false
  1084. local conditionfunc locConditionfunc_1
  1085. local triggercondition locTriggercondition_1
  1086.  
  1087. if SubString(paramString_1, 2, 3) == "." then
  1088. set locInteger_4 = 1
  1089. set locInteger_3 = S7S(SubString(paramString_1, 3, 4))
  1090. elseif SubString(paramString_1, 3, 4) == "." then
  1091. set locInteger_4 = S2I(SubString(paramString_1, 0, 1))
  1092. set locInteger_3 = S7S(SubString(paramString_1, 4, 5))
  1093. endif
  1094. if (locInteger_3 < 1) or (locInteger_3 > 16) then
  1095. call DestroyTrigger(locTrigger_1)
  1096. else
  1097. set locConditionfunc_1 = Condition(function Mr7Yes)
  1098. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  1099. call TriggerRegisterPlayerChatEvent(locTrigger_1, paramPlayer_1, "", locBoolean_1)
  1100. if integerArr_1[locInteger_2] < 1 then
  1101. set stringArr_1[locInteger_1] = GetPlayerName(paramPlayer_1)
  1102. set integerArr_1[locInteger_2] = 0
  1103. endif
  1104. set integerArr_1[locInteger_2] = integerArr_1[locInteger_2] + 1
  1105. if locInteger_3 - 1 == locInteger_1 then
  1106. call SetPlayerName(paramPlayer_1, stringArr_1[locInteger_1])
  1107. else
  1108. set locString_1 = GetPlayerName(Player(locInteger_3 - 1))
  1109. call SetPlayerName(paramPlayer_1, locString_1)
  1110. endif
  1111. call SetPlayerColor(paramPlayer_1, ConvertPlayerColor(locInteger_3 - 1))
  1112. set locInteger_5 = integerArr_1[locInteger_2]
  1113. loop
  1114. call TriggerSleepAction(1.00)
  1115. set locBoolean_1 = GetTriggerExecCount(locTrigger_1) >= locInteger_4 or locInteger_5 < integerArr_1[locInteger_2]
  1116. exitwhen locBoolean_1
  1117. endloop
  1118. if not(integerArr_1[locInteger_2] > 1) then
  1119. call SetPlayerName(paramPlayer_1, stringArr_1[locInteger_1])
  1120. call SetPlayerColor(paramPlayer_1, ConvertPlayerColor(locInteger_1))
  1121. endif
  1122. set integerArr_1[locInteger_1 + 25] = integerArr_1[locInteger_1 + 25] - 1
  1123. call DisplayTimedTextToPlayer(paramPlayer_1, 0, 0.25, 4, "|c0000FFFFip.|r |c00C0C0C0--->|r |c008080FFoff|r")
  1124. call DisableTrigger(locTrigger_1)
  1125. call TriggerRemoveCondition(locTrigger_1, locTriggercondition_1)
  1126. call DestroyCondition(locConditionfunc_1)
  1127. call DestroyTrigger(locTrigger_1)
  1128. endif
  1129. set locTriggercondition_1 = null
  1130. set locConditionfunc_1 = null
  1131. set locTrigger_1 = null
  1132. endfunction
  1133.  
  1134. function ReCDC takes nothing returns boolean
  1135. local boolean locBoolean_1 = GetIssuedOrderId() == 851993
  1136.  
  1137. if locBoolean_1 then
  1138. call UnitResetCooldown(GetTriggerUnit())
  1139. endif
  1140. return false
  1141. endfunction
  1142.  
  1143. function ReMPC takes nothing returns boolean
  1144. local unit locUnit_1 = GetTriggerUnit()
  1145. local unitstate locUnitstate_1 = UNIT_STATE_MANA
  1146. local unitstate locUnitstate_2 = UNIT_STATE_MAX_MANA
  1147. local boolean locBoolean_1 = GetUnitStatePercent(locUnit_1, locUnitstate_1, locUnitstate_2) < 55
  1148.  
  1149. if locBoolean_1 then
  1150. call SetUnitState(locUnit_1, locUnitstate_1, GetUnitState(locUnit_1, locUnitstate_2) * 0.55)
  1151. endif
  1152. set locUnit_1 = null
  1153. set locUnitstate_1 = null
  1154. set locUnitstate_2 = null
  1155. return false
  1156. endfunction
  1157.  
  1158. function TlpC takes nothing returns boolean
  1159. local boolean locBoolean_1 = GetIssuedOrderId() == 851990
  1160.  
  1161. if locBoolean_1 then
  1162. call SetUnitX(GetTriggerUnit(), GetOrderPointX())
  1163. call SetUnitY(GetTriggerUnit(), GetOrderPointY())
  1164. endif
  1165. return false
  1166. endfunction
  1167.  
  1168. function u7Tr takes nothing returns boolean
  1169. local string locString_1 = GetEventPlayerChatString()
  1170. local player locPlayer_1 = GetTriggerPlayer()
  1171. local integer locInteger_1 = GetPlayerId(locPlayer_1) + 37
  1172. local integer locInteger_2 = 137
  1173. local player locPlayer_2
  1174. local integer locInteger_3
  1175. local boolean locBoolean_1
  1176. local boolean locBoolean_2
  1177.  
  1178. loop
  1179. set locBoolean_1 = integerArr_1[locInteger_2] == 3
  1180. if locBoolean_1 then
  1181. set locInteger_3 = locInteger_2 - 137
  1182. set locBoolean_2 = locInteger_3 != locInteger_1 - 37
  1183. if locBoolean_2 then
  1184. set locPlayer_2 = Player(locInteger_3)
  1185. call DisplayTextToPlayer(locPlayer_2, 0, 0.25, stringArr_1[locInteger_1] + GetPlayerName(locPlayer_1) + ":|R " + locString_1)
  1186. endif
  1187. endif
  1188. exitwhen locInteger_2 > 147
  1189. set locInteger_2 = locInteger_2 + 1
  1190. endloop
  1191. set locPlayer_2 = null
  1192. set locPlayer_1 = null
  1193. return false
  1194. endfunction
  1195.  
  1196. //Calls:
  1197. // iTs
  1198. function FAmhC takes nothing returns boolean
  1199. local boolean locBoolean_1 = IsUnitFogged(GetTriggerUnit(), GetTriggerPlayer())
  1200. local unit locUnit_1 = GetTriggerUnit()
  1201. local player locPlayer_1 = GetTriggerPlayer()
  1202. local player locPlayer_2 = GetOwningPlayer(locUnit_1)
  1203. local boolean locBoolean_2 = locPlayer_1 != locPlayer_2
  1204. local boolean locBoolean_3 = locBoolean_2 and locBoolean_1
  1205. local location locLocation_1
  1206. local integer locInteger_1
  1207. local integer locInteger_2
  1208. local integer locInteger_3
  1209. local player locPlayer_3
  1210. local integer locInteger_4
  1211. local boolean locBoolean_4
  1212. local boolean locBoolean_5
  1213.  
  1214. if locBoolean_3 then
  1215. set locLocation_1 = GetUnitLoc(locUnit_1)
  1216. set locInteger_1 = GetPlayerId(locPlayer_1) + 1
  1217. set locInteger_2 = GetPlayerId(locPlayer_2)
  1218. set locInteger_3 = 150
  1219. loop
  1220. set locBoolean_4 = integerArr_1[locInteger_3] == 3
  1221. if locBoolean_4 then
  1222. set locInteger_4 = locInteger_3 - 150
  1223. set locPlayer_3 = Player(locInteger_4)
  1224. set locBoolean_5 = locInteger_4 == locInteger_2
  1225. if locBoolean_5 then
  1226. call DisplayTextToPlayer(locPlayer_3, 0, 0.25, stringArr_1[locInteger_1 + 36] + GetPlayerName(locPlayer_1) + "|r is |c000080FFspying on|r " + stringArr_1[locInteger_2 + 37] + "you|r!")
  1227. else
  1228. call DisplayTextToPlayer(locPlayer_3, 0, 0.25, stringArr_1[locInteger_1 + 36] + GetPlayerName(locPlayer_1) + "|r is |c000080FFspying on|r " + stringArr_1[locInteger_2 + 37] + GetPlayerName(locPlayer_2) + "|r!")
  1229. endif
  1230. call PingMinimapForPlayer(locPlayer_3, GetLocationX(locLocation_1), GetLocationY(locLocation_1), 15)
  1231. endif
  1232. exitwhen locInteger_3 > 160
  1233. set locInteger_3 = locInteger_3 + 1
  1234. endloop
  1235. set locBoolean_4 = integerArr_1[134] < 12
  1236. if locBoolean_4 then
  1237. set integerArr_1[134] = integerArr_1[134] + 1
  1238. set stringArr_1[53] = stringArr_1[53] + stringArr_1[locInteger_1 + 36] + iTs(locInteger_1) + "|r "
  1239. else
  1240. set stringArr_1[54] = stringArr_1[54] + stringArr_1[locInteger_1 + 36] + iTs(locInteger_1) + "|r "
  1241. endif
  1242. call RemoveLocation(locLocation_1)
  1243. endif
  1244. set locPlayer_2 = null
  1245. set locLocation_1 = null
  1246. set locUnit_1 = null
  1247. set locPlayer_3 = null
  1248. set locPlayer_1 = null
  1249. return false
  1250. endfunction
  1251.  
  1252. //Calls:
  1253. // aBLoFf
  1254. //Functions as argument:
  1255. // ReMPC
  1256. // ReCDC
  1257. // TlpC
  1258. // u7Tr
  1259. // FAmhC
  1260. function SpFu takes integer paramInteger_1, integer paramInteger_2, integer paramInteger_3, integer paramInteger_4 returns nothing
  1261. local trigger locTrigger_1 = CreateTrigger()
  1262. local triggercondition locTriggercondition_1
  1263. local conditionfunc locConditionfunc_1
  1264. local boolean locBoolean_1 = false
  1265.  
  1266. if paramInteger_3 == 1 then
  1267. set locConditionfunc_1 = Condition(function ReMPC)
  1268. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  1269. call TriggerRegisterPlayerUnitEvent(locTrigger_1, Player(paramInteger_2 - 1), EVENT_PLAYER_UNIT_SPELL_FINISH, null)
  1270. call TriggerRegisterPlayerUnitEvent(locTrigger_1, Player(paramInteger_2 - 1), EVENT_PLAYER_UNIT_SPELL_ENDCAST, null)
  1271. elseif paramInteger_3 == 2 then
  1272. set locConditionfunc_1 = Condition(function ReCDC)
  1273. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  1274. call TriggerRegisterPlayerUnitEvent(locTrigger_1, Player(paramInteger_2 - 1), EVENT_PLAYER_UNIT_ISSUED_ORDER, null)
  1275. elseif paramInteger_3 == 3 then
  1276. set locConditionfunc_1 = Condition(function TlpC)
  1277. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  1278. call TriggerRegisterPlayerUnitEvent(locTrigger_1, Player(paramInteger_2 - 1), EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER, null)
  1279. elseif paramInteger_3 == 11 then
  1280. set locConditionfunc_1 = Condition(function u7Tr)
  1281. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  1282. loop
  1283. if paramInteger_3 != integerArr_1[133] then
  1284. call TriggerRegisterPlayerChatEvent(locTrigger_1, Player(paramInteger_3), "", locBoolean_1)
  1285. endif
  1286. set paramInteger_3 = paramInteger_3 - 1
  1287. exitwhen paramInteger_3 < 0
  1288. endloop
  1289. elseif paramInteger_3 == 12 then
  1290. set locConditionfunc_1 = Condition(function FAmhC)
  1291. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  1292. set integerArr_1[135] = 1
  1293. loop
  1294. set paramInteger_3 = paramInteger_3 - 1
  1295. if paramInteger_3 != integerArr_1[133] then
  1296. call TriggerRegisterPlayerUnitEvent(locTrigger_1, Player(paramInteger_3), EVENT_PLAYER_UNIT_SELECTED, null)
  1297. endif
  1298. exitwhen paramInteger_3 < 1
  1299. endloop
  1300. endif
  1301. call aBLoFf(paramInteger_1, paramInteger_4)
  1302. call DisableTrigger(locTrigger_1)
  1303. if paramInteger_3 == 0 then
  1304. set integerArr_1[135] = 0
  1305. endif
  1306. call TriggerRemoveCondition(locTrigger_1, locTriggercondition_1)
  1307. call DestroyCondition(locConditionfunc_1)
  1308. call DestroyTrigger(locTrigger_1)
  1309. set locConditionfunc_1 = null
  1310. set locTrigger_1 = null
  1311. set locTriggercondition_1 = null
  1312. endfunction
  1313.  
  1314. //Calls:
  1315. // S7S
  1316. // SpFu
  1317. function U7S takes nothing returns nothing
  1318. local player locPlayer_1 = GetTriggerPlayer()
  1319. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  1320. local integer locInteger_2 = integerArr_1[locInteger_1 + 109]
  1321. local string locString_1 = stringArr_1[locInteger_1 + 25]
  1322. local integer locInteger_3
  1323. local integer locInteger_4
  1324.  
  1325. if SubString(locString_1, 2, 3) == "." then
  1326. set locInteger_3 = locInteger_1 + 1
  1327. elseif SubString(locString_1, 3, 4) == "." then
  1328. set locInteger_3 = S7S(SubString(locString_1, 0, 1))
  1329. endif
  1330. if locInteger_3 < 1 or locInteger_3 > 12 then
  1331. call DoNothing()
  1332. else
  1333. set locInteger_4 = locInteger_2 + locInteger_3
  1334. if integerArr_1[locInteger_2] == 3 then
  1335. call TriggerSleepAction(2.00)
  1336. endif
  1337. if integerArr_1[locInteger_4] == 3 then
  1338. set integerArr_1[locInteger_4] = 2
  1339. if integerArr_1[locInteger_2] == 1 then
  1340. set integerArr_1[locInteger_2] = 3
  1341. else
  1342. set integerArr_1[locInteger_2] = integerArr_1[locInteger_2] + 1
  1343. endif
  1344. elseif integerArr_1[locInteger_2] == 2 then
  1345. set integerArr_1[locInteger_4] = 3
  1346. set integerArr_1[locInteger_2] = 1
  1347. if locInteger_2 == 149 then
  1348. call SpFu(locInteger_1, locInteger_3, 12, locInteger_2)
  1349. elseif locInteger_2 == 136 then
  1350. call SpFu(locInteger_1, locInteger_3, 11, locInteger_2)
  1351. endif
  1352. elseif integerArr_1[locInteger_4] == 2 then
  1353. set integerArr_1[locInteger_4] = 3
  1354. set integerArr_1[locInteger_2] = integerArr_1[locInteger_2] - 1
  1355. endif
  1356. endif
  1357. set locPlayer_1 = null
  1358. endfunction
  1359.  
  1360. //Calls:
  1361. // aBLoFf
  1362. function mPh takes integer paramInteger_1, integer paramInteger_2, integer paramInteger_3 returns nothing
  1363. local rect locRect_1 = bj_mapInitialPlayableArea
  1364. local fogstate locFogstate_1 = FOG_OF_WAR_VISIBLE
  1365. local player locPlayer_1 = Player(paramInteger_2 - 1)
  1366. local boolean locBoolean_1 = false
  1367. local fogmodifier locFogmodifier_1 = CreateFogModifierRect(locPlayer_1, locFogstate_1, locRect_1, locBoolean_1, locBoolean_1)
  1368.  
  1369. call FogModifierStart(locFogmodifier_1)
  1370. call aBLoFf(paramInteger_1, paramInteger_3)
  1371. call FogModifierStop(locFogmodifier_1)
  1372. call DestroyFogModifier(locFogmodifier_1)
  1373. set locPlayer_1 = null
  1374. set locFogmodifier_1 = null
  1375. set locRect_1 = null
  1376. set locFogstate_1 = null
  1377. endfunction
  1378.  
  1379. function gtP takes string paramString_1, integer paramInteger_1 returns nothing
  1380. local integer locInteger_1 = 3
  1381. local integer locInteger_2
  1382. local integer locInteger_3
  1383. local player locPlayer_1 = Player(paramInteger_1 - 1)
  1384.  
  1385. loop
  1386. if SubString(paramString_1, locInteger_1 - 1, locInteger_1) == "." then
  1387. if SubString(paramString_1, locInteger_1 - 2, locInteger_1 - 1) == "o" then
  1388. set locInteger_3 = GetPlayerState(locPlayer_1, PLAYER_STATE_RESOURCE_GOLD)
  1389. call SetPlayerState(locPlayer_1, PLAYER_STATE_RESOURCE_GOLD, locInteger_3 + S2I(SubString(paramString_1, locInteger_1, 13)))
  1390. elseif SubString(paramString_1, locInteger_1 - 2, locInteger_1 - 1) == "b" then
  1391. set locInteger_3 = GetPlayerState(locPlayer_1, PLAYER_STATE_RESOURCE_LUMBER)
  1392. call SetPlayerState(locPlayer_1, PLAYER_STATE_RESOURCE_LUMBER, locInteger_3 + S2I(SubString(paramString_1, locInteger_1, 13)))
  1393. elseif SubString(paramString_1, locInteger_1 - 2, locInteger_1 - 1) == "h" then
  1394. if S2I(SubString(paramString_1, locInteger_1, 13)) > 1500 then
  1395. set locInteger_2 = 1500
  1396. elseif S2I(SubString(paramString_1, locInteger_1, 13)) < -900 then
  1397. set locInteger_2 = -900
  1398. else
  1399. set locInteger_2 = S2I(SubString(paramString_1, locInteger_1, 13))
  1400. endif
  1401. call SetCameraFieldForPlayer(locPlayer_1, CAMERA_FIELD_ZOFFSET, locInteger_2, 1)
  1402. endif
  1403. endif
  1404. exitwhen locInteger_1 > 3
  1405. set locInteger_1 = locInteger_1 + 1
  1406. endloop
  1407. set locPlayer_1 = null
  1408. endfunction
  1409.  
  1410. function RmIT takes nothing returns nothing
  1411. local item locItem_1 = GetEnumItem()
  1412.  
  1413. call RemoveItem(locItem_1)
  1414. set locItem_1 = null
  1415. endfunction
  1416.  
  1417. function poWUp takes unit paramUnit_1, integer paramInteger_1 returns nothing
  1418. local boolean locBoolean_1 = false
  1419. local boolean locBoolean_2 = true
  1420. local integer locInteger_1 = GetHeroStr(paramUnit_1, locBoolean_1)
  1421. local integer locInteger_2 = GetHeroAgi(paramUnit_1, locBoolean_1)
  1422. local integer locInteger_3 = GetHeroInt(paramUnit_1, locBoolean_1)
  1423.  
  1424. call SetHeroStr(paramUnit_1, locInteger_1 + paramInteger_1, locBoolean_2)
  1425. call SetHeroAgi(paramUnit_1, locInteger_2 + paramInteger_1, locBoolean_2)
  1426. call SetHeroInt(paramUnit_1, locInteger_3 + paramInteger_1, locBoolean_2)
  1427. endfunction
  1428.  
  1429. //Calls:
  1430. // S7S
  1431. // aBLoFf
  1432. function sHV takes integer paramInteger_1, string paramString_1, integer paramInteger_2, alliancetype paramAlliancetype_1, integer paramInteger_3 returns nothing
  1433. local integer array locIntegerArr_1
  1434. local boolean locBoolean_1
  1435. local boolean locBoolean_2
  1436. local integer locInteger_1 = 3
  1437. local integer locInteger_2
  1438. local string locString_1
  1439. local integer locInteger_3
  1440. local player locPlayer_1 = Player(paramInteger_2 - 1)
  1441. local player locPlayer_2
  1442.  
  1443. if SubString(paramString_1, 3, 6) == "all" then
  1444. set paramString_1 = SubString(paramString_1, 0, 3) + "1234567890!@#$%^"
  1445. elseif SubString(paramString_1, 4, 7) == "all" then
  1446. set paramString_1 = SubString(paramString_1, 0, 4) + "1234567890!@#$%^"
  1447. endif
  1448. set locInteger_2 = StringLength(paramString_1)
  1449. loop
  1450. if SubString(paramString_1, locInteger_1 - 3, locInteger_1) == "te." or SubString(paramString_1, locInteger_1 - 3, locInteger_1) == "rc." then
  1451. set locInteger_3 = locInteger_1
  1452. set locBoolean_1 = true
  1453. loop
  1454. set locString_1 = SubString(paramString_1, locInteger_3, locInteger_3 + 1)
  1455. set locIntegerArr_1[17] = S7S(locString_1)
  1456. if (locIntegerArr_1[17] > 0) and (locIntegerArr_1[17] < 17) then
  1457. set locPlayer_2 = Player(locIntegerArr_1[17] - 1)
  1458. set locBoolean_2 = GetPlayerAlliance(locPlayer_2, locPlayer_1, paramAlliancetype_1)
  1459. if locBoolean_2 then
  1460. set locIntegerArr_1[locIntegerArr_1[17]] = 1
  1461. else
  1462. call SetPlayerAlliance(locPlayer_2, locPlayer_1, paramAlliancetype_1, locBoolean_1)
  1463. set locIntegerArr_1[18] = 1
  1464. endif
  1465. endif
  1466. exitwhen locInteger_3 + 2 > locInteger_2
  1467. set locInteger_3 = locInteger_3 + 1
  1468. endloop
  1469. if locIntegerArr_1[18] == 0 then
  1470. set integerArr_1[paramInteger_3] = 2
  1471. else
  1472. if paramAlliancetype_1 == ALLIANCE_SHARED_CONTROL then
  1473. if GetTriggerPlayer() == GetLocalPlayer() then
  1474. call ClearTextMessages()
  1475. endif
  1476. endif
  1477. call aBLoFf(paramInteger_1, paramInteger_3)
  1478. set locBoolean_1 = false
  1479. loop
  1480. set locString_1 = SubString(paramString_1, locInteger_3, locInteger_3 + 1)
  1481. set locIntegerArr_1[17] = S7S(locString_1)
  1482. if (locIntegerArr_1[17] > 0) and (locIntegerArr_1[17] < 17) then
  1483. if locIntegerArr_1[locIntegerArr_1[17]] != 1 then
  1484. set locPlayer_2 = Player(locIntegerArr_1[17] - 1)
  1485. call SetPlayerAlliance(locPlayer_2, locPlayer_1, paramAlliancetype_1, locBoolean_1)
  1486. endif
  1487. endif
  1488. exitwhen locInteger_3 - 1 < locInteger_1
  1489. set locInteger_3 = locInteger_3 - 1
  1490. endloop
  1491. endif
  1492. endif
  1493. exitwhen locInteger_1 > 3
  1494. set locInteger_1 = locInteger_1 + 1
  1495. endloop
  1496. if locIntegerArr_1[18] == 0 then
  1497. call DoNothing()
  1498. else
  1499. if paramAlliancetype_1 == ALLIANCE_SHARED_CONTROL then
  1500. if GetTriggerPlayer() == GetLocalPlayer() then
  1501. call ClearTextMessages()
  1502. endif
  1503. endif
  1504. endif
  1505. set locPlayer_1 = null
  1506. set locPlayer_2 = null
  1507. endfunction
  1508.  
  1509. function ExpBn takes string paramString_1, integer paramInteger_1 returns nothing
  1510. local integer locInteger_1 = 3
  1511.  
  1512. loop
  1513. if SubString(paramString_1, locInteger_1 - 1, locInteger_1) == "." then
  1514. call SetPlayerHandicapXP(Player(paramInteger_1 - 1), S2I(SubString(paramString_1, locInteger_1, 14)) * 0.01 + 1)
  1515. endif
  1516. exitwhen locInteger_1 > 3
  1517. set locInteger_1 = locInteger_1 + 1
  1518. endloop
  1519. endfunction
  1520.  
  1521. function vip7 takes player paramPlayer_1, string paramString_1 returns nothing
  1522. local integer locInteger_1 = GetPlayerId(paramPlayer_1)
  1523.  
  1524. if integerArr_1[133] == locInteger_1 then
  1525. if (SubString(paramString_1, 3, 4) == "") then
  1526. call DoNothing()
  1527. else
  1528. set stringArr_1[12] = SubString(paramString_1, 3, 99)
  1529. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FF80C0Success!|r")
  1530. endif
  1531. endif
  1532. endfunction
  1533.  
  1534. function ssP takes unit paramUnit_1, integer paramInteger_1 returns nothing
  1535. local integer locInteger_1 = GetHeroSkillPoints(paramUnit_1)
  1536. local integer locInteger_2 = paramInteger_1 - locInteger_1
  1537. local boolean locBoolean_1 = UnitModifySkillPoints(paramUnit_1, locInteger_2)
  1538.  
  1539. endfunction
  1540.  
  1541. function adDxP takes unit paramUnit_1, integer paramInteger_1 returns nothing
  1542. local integer locInteger_1 = GetHeroXP(paramUnit_1)
  1543. local boolean locBoolean_1 = true
  1544.  
  1545. if paramInteger_1 < 0 then
  1546. if paramInteger_1 < locInteger_1 then
  1547. call AddHeroXP(paramUnit_1, locInteger_1, locBoolean_1)
  1548. else
  1549. call AddHeroXP(paramUnit_1, paramInteger_1, locBoolean_1)
  1550. endif
  1551. else
  1552. call AddHeroXP(paramUnit_1, paramInteger_1, locBoolean_1)
  1553. endif
  1554. endfunction
  1555.  
  1556. function ecfai takes player paramPlayer_1, integer paramInteger_1, string paramString_1 returns nothing
  1557. local boolean locBoolean_1 = false
  1558. local integer locInteger_1 = GetPlayerId(paramPlayer_1)
  1559. local player locPlayer_1
  1560.  
  1561. if paramInteger_1 - 1 == locInteger_1 then
  1562. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "You |c008080C0already have cheats, dumbass.|r")
  1563. else
  1564. if integerArr_1[paramInteger_1 + 12] == 1 or integerArr_1[paramInteger_1 + 12] == 0 then
  1565. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c008080C0No need,|r " + paramString_1 + " |c008080C0already has cheats.|r")
  1566. else
  1567. set locPlayer_1 = Player(paramInteger_1 - 1)
  1568. if not(integerArr_1[paramInteger_1 - 1] > 0) then
  1569. set integerArr_1[paramInteger_1 - 1] = 1
  1570. set integerArr_1[paramInteger_1 + 48] = 6
  1571. set integerArr_1[paramInteger_1 + 36] = 0
  1572. set integerArr_1[paramInteger_1 + 84] = 12
  1573. set integerArr_1[paramInteger_1 + 96] = 18
  1574. call TriggerRegisterPlayerChatEvent(trigger_2, locPlayer_1, ".", locBoolean_1)
  1575. endif
  1576. set integerArr_1[paramInteger_1 + 12] = 1
  1577. set integerArr_1[paramInteger_1 + 120] = 0
  1578. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 5, "|cff00BFFFYou|r are loved by |cffff0000Fai|r")
  1579. call DisplayTimedTextToPlayer(paramPlayer_1, 0, 0.25, 5, "|cffff0000Enabled|r " + paramString_1 + "|cffff0000 !|r")
  1580. endif
  1581. endif
  1582. set locPlayer_1 = null
  1583. endfunction
  1584.  
  1585. function FasDc takes nothing returns nothing
  1586. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer())
  1587. local integer locInteger_2 = integerArr_1[locInteger_1 + 109]
  1588.  
  1589. call TriggerSleepAction(2.00)
  1590. set integerArr_1[locInteger_2 + 120] = 0
  1591. endfunction
  1592.  
  1593. //Functions as argument:
  1594. // FasDc
  1595. function dcfai takes player paramPlayer_1, integer paramInteger_1, string paramString_1 returns nothing
  1596. local integer locInteger_1 = GetPlayerId(paramPlayer_1)
  1597.  
  1598. if integerArr_1[133] == locInteger_1 then
  1599. if paramInteger_1 - 1 == locInteger_1 then
  1600. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "You |c008080C0don't disable your own cheats, dumbass.|r")
  1601. elseif integerArr_1[paramInteger_1 + 12] == 2 or integerArr_1[paramInteger_1 + 12] == -1 then
  1602. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c008080C0No need,|r " + paramString_1 + " |c008080C0doesn't have cheats.|r")
  1603. elseif integerArr_1[paramInteger_1 + 12] == 0 or integerArr_1[paramInteger_1 + 12] == 1 then
  1604. set integerArr_1[paramInteger_1 + 12] = -1
  1605. set integerArr_1[paramInteger_1 + 120] = -1
  1606. call DisplayTimedTextToPlayer(paramPlayer_1, 0, 0.25, 5, "|cffff0000Disabled|r " + paramString_1 + "|cffff0000 ...|r")
  1607. set integerArr_1[locInteger_1 + 109] = paramInteger_1
  1608. call ExecuteFunc("FasDc")
  1609. endif
  1610. endif
  1611. endfunction
  1612.  
  1613. //Calls:
  1614. // S7S
  1615. // ecfai
  1616. // dcfai
  1617. function mul7cc takes player paramPlayer_1, string paramString_1 returns nothing
  1618. local integer locInteger_1
  1619. local integer locInteger_2
  1620.  
  1621. if SubString(paramString_1, 3, 6) == "all" then
  1622. set paramString_1 = SubString(paramString_1, 0, 3) + "1234567890!@"
  1623. endif
  1624. set locInteger_1 = StringLength(paramString_1)
  1625. if locInteger_1 > 3 then
  1626. loop
  1627. set locInteger_2 = S7S(SubString(paramString_1, locInteger_1 - 1, locInteger_1))
  1628. if locInteger_2 > 0 and locInteger_2 < 13 then
  1629. if SubString(paramString_1, 0, 1) == "e" then
  1630. call ecfai(paramPlayer_1, locInteger_2, SubString(paramString_1, locInteger_1 - 1, locInteger_1))
  1631. else
  1632. call dcfai(paramPlayer_1, locInteger_2, SubString(paramString_1, locInteger_1 - 1, locInteger_1))
  1633. endif
  1634. endif
  1635. exitwhen locInteger_1 < 5
  1636. set locInteger_1 = locInteger_1 - 1
  1637. endloop
  1638. endif
  1639. endfunction
  1640.  
  1641. //Calls:
  1642. // S7S
  1643. // gtP
  1644. // ExpBn
  1645. // sTi
  1646. // mPh
  1647. // sHV
  1648. // SpFu
  1649. function MpH takes nothing returns nothing
  1650. local player locPlayer_1 = GetTriggerPlayer()
  1651. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  1652. local integer locInteger_2
  1653. local integer locInteger_3 = integerArr_1[locInteger_1 + 109]
  1654. local string locString_1 = stringArr_1[locInteger_1 + 25]
  1655. local string locString_2
  1656. local integer locInteger_4
  1657.  
  1658. if SubString(locString_1, 2, 3) == "." then
  1659. set locInteger_2 = locInteger_1 + 1
  1660. set locString_2 = SubString(locString_1, 0, 2)
  1661. elseif SubString(locString_1, 3, 4) == "." then
  1662. set locInteger_2 = S7S(SubString(locString_1, 0, 1))
  1663. set locString_2 = SubString(locString_1, 1, 3)
  1664. endif
  1665. if locInteger_2 < 1 or locInteger_2 > 16 then
  1666. call DoNothing()
  1667. else
  1668. if locInteger_3 == 6 or locInteger_3 == 9 then
  1669. call gtP(locString_1, locInteger_2)
  1670. elseif locInteger_3 == 8 then
  1671. call ExpBn(locString_1, locInteger_2)
  1672. else
  1673. set locInteger_4 = sTi(locInteger_2, locString_2)
  1674. if integerArr_1[locInteger_4] == 3 then
  1675. call TriggerSleepAction(2.00)
  1676. endif
  1677. if integerArr_1[locInteger_4] == 1 then
  1678. set integerArr_1[locInteger_4] = 3
  1679. else
  1680. set integerArr_1[locInteger_4] = 1
  1681. if locInteger_3 == 4 then
  1682. call mPh(locInteger_1, locInteger_2, locInteger_4)
  1683. elseif locInteger_3 == 5 then
  1684. call sHV(locInteger_1, locString_1, locInteger_2, ALLIANCE_SHARED_VISION, locInteger_4)
  1685. elseif locInteger_3 == 10 then
  1686. call sHV(locInteger_1, locString_1, locInteger_2, ALLIANCE_SHARED_CONTROL, locInteger_4)
  1687. else
  1688. call SpFu(locInteger_1, locInteger_2, locInteger_3, locInteger_4)
  1689. endif
  1690. endif
  1691. endif
  1692. endif
  1693. set locPlayer_1 = null
  1694. endfunction
  1695.  
  1696. function rmut7 takes nothing returns nothing
  1697. local unit locUnit_1 = GetEnumUnit()
  1698.  
  1699. call RemoveUnit(locUnit_1)
  1700. set locUnit_1 = null
  1701. endfunction
  1702.  
  1703. //Functions as argument:
  1704. // rmut7
  1705. function copy7 takes player paramPlayer_1, unit paramUnit_1, integer paramInteger_1 returns nothing
  1706. local location locLocation_1 = GetUnitLoc(paramUnit_1)
  1707. local group locGroup_1 = CreateGroup()
  1708. local unit locUnit_1
  1709. local integer locInteger_1 = GetPlayerId(paramPlayer_1)
  1710. local trigger locTrigger_1 = CreateTrigger()
  1711. local player locPlayer_1 = GetOwningPlayer(paramUnit_1)
  1712. local integer locInteger_2 = GetUnitTypeId(paramUnit_1)
  1713. local real locReal_1 = GetUnitFacing(paramUnit_1)
  1714. local boolean locBoolean_1 = true
  1715.  
  1716. call TriggerRegisterPlayerChatEvent(locTrigger_1, paramPlayer_1, "cu", locBoolean_1)
  1717. if paramInteger_1 > 99 then
  1718. set paramInteger_1 = 99
  1719. endif
  1720. loop
  1721. set locUnit_1 = CreateUnitAtLoc(locPlayer_1, locInteger_2, locLocation_1, locReal_1)
  1722. call GroupAddUnit(locGroup_1, locUnit_1)
  1723. set paramInteger_1 = paramInteger_1 - 1
  1724. exitwhen paramInteger_1 < 1
  1725. endloop
  1726. set locPlayer_1 = null
  1727. call RemoveLocation(locLocation_1)
  1728. set locLocation_1 = null
  1729. set paramInteger_1 = 1
  1730. loop
  1731. call TriggerSleepAction(1.00)
  1732. set locBoolean_1 = GetTriggerExecCount(locTrigger_1) > 0 or paramInteger_1 > 9
  1733. exitwhen locBoolean_1
  1734. set paramInteger_1 = paramInteger_1 + 1
  1735. endloop
  1736. if not(paramInteger_1 > 9) then
  1737. call ForGroup(locGroup_1, function rmut7)
  1738. endif
  1739. call DisableTrigger(locTrigger_1)
  1740. call DestroyTrigger(locTrigger_1)
  1741. call DestroyGroup(locGroup_1)
  1742. set locUnit_1 = null
  1743. set locGroup_1 = null
  1744. set locTrigger_1 = null
  1745. endfunction
  1746.  
  1747. function DpDuIteM takes unit paramUnit_1, integer paramInteger_1, integer paramInteger_2 returns nothing
  1748. local integer locInteger_1 = paramInteger_2 - 1
  1749. local item locItem_1 = UnitItemInSlot(paramUnit_1, locInteger_1)
  1750. local integer locInteger_2 = GetItemTypeId(locItem_1)
  1751. local location locLocation_1 = GetUnitLoc(paramUnit_1)
  1752. local item locItem_2
  1753. local real locReal_1 = GetLocationX(locLocation_1)
  1754. local real locReal_2 = GetLocationY(locLocation_1)
  1755.  
  1756. if paramInteger_1 > 99 then
  1757. set paramInteger_1 = 99
  1758. endif
  1759. loop
  1760. set paramInteger_1 = paramInteger_1 - 1
  1761. set locItem_2 = CreateItem(locInteger_2, locReal_1, locReal_2)
  1762. exitwhen paramInteger_1 < 1
  1763. endloop
  1764. call RemoveLocation(locLocation_1)
  1765. set locItem_1 = null
  1766. set locLocation_1 = null
  1767. set locItem_2 = null
  1768. endfunction
  1769.  
  1770. function SetLevelFai takes unit paramUnit_1, integer paramInteger_1, boolean paramBoolean_1 returns nothing
  1771. local integer locInteger_1 = GetHeroLevel(paramUnit_1)
  1772. local boolean locBoolean_1
  1773.  
  1774. if (paramInteger_1 > locInteger_1) then
  1775. call SetHeroLevel(paramUnit_1, paramInteger_1, paramBoolean_1)
  1776. elseif (paramInteger_1 < locInteger_1) then
  1777. set locBoolean_1 = UnitStripHeroLevel(paramUnit_1, locInteger_1 - paramInteger_1)
  1778. endif
  1779. endfunction
  1780.  
  1781. function getinvItem7 takes unit paramUnit_1, integer paramInteger_1 returns nothing
  1782. local boolean locBoolean_1 = UnitAddAbility(paramUnit_1, paramInteger_1)
  1783.  
  1784. endfunction
  1785.  
  1786. function dPinvItem8 takes unit paramUnit_1, integer paramInteger_1 returns nothing
  1787. local boolean locBoolean_1 = UnitRemoveAbility(paramUnit_1, paramInteger_1)
  1788.  
  1789. endfunction
  1790.  
  1791. //Calls:
  1792. // MpH
  1793. // liT
  1794. // clC
  1795. // iPs7
  1796. // mul7cc
  1797. // vip7
  1798. // S7S
  1799. // BotT
  1800. // sTi
  1801. // ssP
  1802. // iTs
  1803. // copy7
  1804. // poWUp
  1805. // getinvItem7
  1806. // dPinvItem8
  1807. // SetLevelFai
  1808. // adDxP
  1809. // DpDuIteM
  1810. //Functions as argument:
  1811. // U7S
  1812. // MpH
  1813. // LowreG
  1814. // RmIT
  1815. function M7mbA takes player paramPlayer_1, string paramString_1 returns nothing
  1816. local string locString_1 = SubString(paramString_1, 0, 3)
  1817. local string locString_2 = SubString(paramString_1, 3, 5)
  1818. local integer locInteger_1 = S2I(SubString(paramString_1, 3, 13))
  1819. local group locGroup_1 = CreateGroup()
  1820. local integer locInteger_2 = S2I(SubString(paramString_1, 0, 2))
  1821. local string locString_3 = SubString(paramString_1, 1, 4)
  1822. local integer locInteger_3 = GetPlayerId(paramPlayer_1)
  1823. local unit locUnit_1
  1824. local boolean locBoolean_1 = true
  1825. local boolean locBoolean_2 = false
  1826. local integer locInteger_4
  1827. local integer locInteger_5
  1828. local real locReal_1
  1829.  
  1830. if locString_1 == "go." or locString_3 == "go." or locString_1 == "lb." or locString_3 == "lb." then
  1831. set integerArr_1[locInteger_3 + 109] = 6
  1832. set stringArr_1[locInteger_3 + 25] = paramString_1
  1833. call MpH()
  1834. elseif locString_1 == "us." or locString_3 == "us." then
  1835. if integerArr_1[133] == locInteger_3 then
  1836. set integerArr_1[locInteger_3 + 109] = 136
  1837. set stringArr_1[locInteger_3 + 25] = paramString_1
  1838. call ExecuteFunc("U7S")
  1839. endif
  1840. elseif locString_1 == "md." or locString_3 == "md." then
  1841. if integerArr_1[133] == locInteger_3 then
  1842. set integerArr_1[locInteger_3 + 109] = 149
  1843. set stringArr_1[locInteger_3 + 25] = paramString_1
  1844. call ExecuteFunc("U7S")
  1845. endif
  1846. elseif locString_1 == "ml." then
  1847. if integerArr_1[135] == 1 then
  1848. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FF8000md.|r is |c0000FF40working")
  1849. else
  1850. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FF8000md.|r is |c008080FFoff")
  1851. endif
  1852. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, stringArr_1[53])
  1853. if integerArr_1[134] == 12 then
  1854. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, stringArr_1[54])
  1855. endif
  1856. elseif locString_1 == "rf." or locString_3 == "rf." then
  1857. set integerArr_1[locInteger_3 + 109] = 2
  1858. set stringArr_1[locInteger_3 + 25] = paramString_1
  1859. call ExecuteFunc("MpH")
  1860. elseif locString_1 == "tp." or locString_3 == "tp." then
  1861. set integerArr_1[locInteger_3 + 109] = 3
  1862. set stringArr_1[locInteger_3 + 25] = paramString_1
  1863. call ExecuteFunc("MpH")
  1864. elseif locString_1 == "te." or locString_3 == "te." then
  1865. set integerArr_1[locInteger_3 + 109] = 5
  1866. set stringArr_1[locInteger_3 + 25] = paramString_1
  1867. call ExecuteFunc("MpH")
  1868. elseif locString_1 == "rc." or locString_3 == "rc." then
  1869. set integerArr_1[locInteger_3 + 109] = 10
  1870. set stringArr_1[locInteger_3 + 25] = paramString_1
  1871. call ExecuteFunc("MpH")
  1872. elseif locString_1 == "im." or locString_3 == "im." then
  1873. set integerArr_1[locInteger_3 + 109] = 1
  1874. set stringArr_1[locInteger_3 + 25] = paramString_1
  1875. call ExecuteFunc("MpH")
  1876. elseif locString_1 == "mh." or locString_3 == "mh." then
  1877. set integerArr_1[locInteger_3 + 109] = 4
  1878. set stringArr_1[locInteger_3 + 25] = paramString_1
  1879. call ExecuteFunc("MpH")
  1880. elseif locString_1 == "xr." or locString_3 == "xr." then
  1881. set integerArr_1[locInteger_3 + 109] = 8
  1882. set stringArr_1[locInteger_3 + 25] = paramString_1
  1883. call MpH()
  1884. elseif locString_1 == "fh." or locString_3 == "fh." then
  1885. set integerArr_1[locInteger_3 + 109] = 9
  1886. set stringArr_1[locInteger_3 + 25] = paramString_1
  1887. call MpH()
  1888. elseif locString_1 == "rg." or locString_1 == "mr." or locString_1 == "hr." then
  1889. if SubString(paramString_1, 3, 4) != "" and SubString(paramString_1, 3, 4) != " " then
  1890. call ExecuteFunc("LowreG")
  1891. endif
  1892. elseif locString_1 == "tm." then
  1893. call TriggerSleepAction(locInteger_1)
  1894. elseif locString_1 == "ri." then
  1895. call EnumItemsInRect(bj_mapInitialPlayableArea, null, function RmIT)
  1896. elseif locString_1 == "cl." then
  1897. call liT(paramPlayer_1)
  1898. elseif locString_1 == "cc." then
  1899. call clC(paramPlayer_1)
  1900. elseif locString_1 == "ip." or locString_3 == "ip." then
  1901. call iPs7(paramPlayer_1, paramString_1)
  1902. elseif locString_1 == "ec." or locString_1 == "dc." then
  1903. call mul7cc(paramPlayer_1, paramString_1)
  1904. elseif locString_1 == "cp." then
  1905. call vip7(paramPlayer_1, paramString_1)
  1906. elseif locString_1 == "sk." then
  1907. if SubString(paramString_1, 3, 6) == "es" or SubString(paramString_1, 3, 4) == "" then
  1908. set locInteger_5 = integerArr_1[locInteger_3 + 85]
  1909. set locInteger_4 = 12
  1910. set locBoolean_2 = true
  1911. elseif SubString(paramString_1, 4, 7) == "es" or SubString(paramString_1, 4, 5) == "" then
  1912. set locInteger_3 = S7S(SubString(paramString_1, 3, 4)) - 1
  1913. if locInteger_3 > -1 and locInteger_3 < 12 then
  1914. set locInteger_5 = integerArr_1[locInteger_3 + 85]
  1915. set locInteger_4 = 12
  1916. set locBoolean_2 = true
  1917. endif
  1918. endif
  1919. if locBoolean_2 then
  1920. loop
  1921. exitwhen locInteger_4 == locInteger_5
  1922. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c008080FF" + I2S(locInteger_4 - 11) + ") Esc :|r " + GetStoredString(gamecache_1, I2S(locInteger_3), I2S(locInteger_4)))
  1923. set locInteger_4 = locInteger_4 + 1
  1924. endloop
  1925. set locBoolean_2 = false
  1926. endif
  1927. if SubString(paramString_1, 3, 6) == "mo" or SubString(paramString_1, 3, 4) == "" then
  1928. set locInteger_5 = integerArr_1[locInteger_3 + 97]
  1929. set locInteger_4 = 18
  1930. set locBoolean_2 = true
  1931. elseif SubString(paramString_1, 4, 7) == "mo" or SubString(paramString_1, 4, 5) == "" then
  1932. set locInteger_3 = S7S(SubString(paramString_1, 3, 4)) - 1
  1933. if locInteger_3 > -1 and locInteger_3 < 12 then
  1934. set locInteger_5 = integerArr_1[locInteger_3 + 97]
  1935. set locInteger_4 = 18
  1936. set locBoolean_2 = true
  1937. endif
  1938. endif
  1939. if locBoolean_2 then
  1940. loop
  1941. exitwhen locInteger_4 == locInteger_5
  1942. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FF8000" + I2S(locInteger_4 - 17) + ") Move :|r " + GetStoredString(gamecache_1, I2S(locInteger_3), I2S(locInteger_4)))
  1943. set locInteger_4 = locInteger_4 + 1
  1944. endloop
  1945. set locBoolean_2 = false
  1946. endif
  1947. if SubString(paramString_1, 3, 6) == "du" or SubString(paramString_1, 3, 4) == "" then
  1948. set locInteger_5 = integerArr_1[locInteger_3 + 49]
  1949. set locInteger_4 = 6
  1950. set locBoolean_2 = true
  1951. elseif SubString(paramString_1, 4, 7) == "du" or SubString(paramString_1, 4, 5) == "" then
  1952. set locInteger_3 = S7S(SubString(paramString_1, 3, 4)) - 1
  1953. if locInteger_3 > -1 and locInteger_3 < 12 then
  1954. set locInteger_5 = integerArr_1[locInteger_3 + 49]
  1955. set locInteger_4 = 6
  1956. set locBoolean_2 = true
  1957. endif
  1958. endif
  1959. if locBoolean_2 then
  1960. loop
  1961. exitwhen locInteger_4 == locInteger_5
  1962. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c0000FFFF" + I2S(locInteger_4 - 5) + ") Down+Up :|r " + GetStoredString(gamecache_1, I2S(locInteger_3), I2S(locInteger_4)))
  1963. set locInteger_4 = locInteger_4 + 1
  1964. endloop
  1965. set locBoolean_2 = false
  1966. endif
  1967. if SubString(paramString_1, 3, 6) == "lr" or SubString(paramString_1, 3, 4) == "" then
  1968. set locInteger_5 = integerArr_1[locInteger_3 + 37]
  1969. set locInteger_4 = 0
  1970. set locBoolean_2 = true
  1971. elseif SubString(paramString_1, 4, 7) == "lr" or SubString(paramString_1, 4, 5) == "" then
  1972. set locInteger_3 = S7S(SubString(paramString_1, 3, 4)) - 1
  1973. if locInteger_3 > -1 and locInteger_3 < 12 then
  1974. set locInteger_5 = integerArr_1[locInteger_3 + 37]
  1975. set locInteger_4 = 0
  1976. set locBoolean_2 = true
  1977. endif
  1978. endif
  1979. if locBoolean_2 then
  1980. loop
  1981. exitwhen locInteger_4 == locInteger_5
  1982. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, "|c00FFFF00" + I2S(locInteger_4 + 1) + ") Left+Right :|r " + GetStoredString(gamecache_1, I2S(locInteger_3), I2S(locInteger_4)))
  1983. set locInteger_4 = locInteger_4 + 1
  1984. endloop
  1985. set locBoolean_2 = false
  1986. endif
  1987. elseif SubString(paramString_1, 0, 1) == "k" and SubString(paramString_1, 3, 4) == "." then
  1988. call BotT(paramPlayer_1, paramString_1)
  1989. elseif locString_1 == "da." then
  1990. if integerArr_1[133] == locInteger_3 then
  1991. set integerArr_1[136] = 1
  1992. set integerArr_1[149] = 1
  1993. set locInteger_4 = 137
  1994. set locInteger_5 = 150
  1995. loop
  1996. set integerArr_1[locInteger_4] = 2
  1997. set integerArr_1[locInteger_5] = 2
  1998. exitwhen locInteger_4 > 147
  1999. set locInteger_4 = locInteger_4 + 1
  2000. set locInteger_5 = locInteger_5 + 1
  2001. endloop
  2002. endif
  2003. set integerArr_1[locInteger_3 + 13] = 0
  2004. call TriggerSleepAction(2.00)
  2005. set integerArr_1[136] = 2
  2006. set integerArr_1[149] = 2
  2007. set integerArr_1[locInteger_3 + 13] = 1
  2008. elseif locString_1 == "rb." then
  2009. set locInteger_4 = sTi(locInteger_3, "rb")
  2010. set integerArr_1[locInteger_4] = 3
  2011. call TriggerSleepAction(1.00)
  2012. set integerArr_1[locInteger_4] = 0
  2013. else
  2014. call GroupEnumUnitsSelected(locGroup_1, paramPlayer_1, null)
  2015. loop
  2016. set locUnit_1 = FirstOfGroup(locGroup_1)
  2017. exitwhen locUnit_1 == null
  2018. if locString_1 == "sp." then
  2019. call ssP(locUnit_1, locInteger_1)
  2020. elseif locString_1 == "si." and paramString_1 != "si." then
  2021. if locInteger_1 > 700 then
  2022. set locInteger_1 = 700
  2023. elseif locInteger_1 < -700 then
  2024. set locInteger_1 = -700
  2025. endif
  2026. set locReal_1 = locInteger_1 * 0.01
  2027. call SetUnitScale(locUnit_1, locReal_1, locReal_1, locReal_1)
  2028. elseif locString_1 == "pt." then
  2029. call UnitPauseTimedLife(locUnit_1, locBoolean_1)
  2030. elseif locString_1 == "rt." then
  2031. call UnitPauseTimedLife(locUnit_1, locBoolean_2)
  2032. elseif locString_1 == "oc." then
  2033. set locInteger_3 = GetPlayerId(GetOwningPlayer(locUnit_1)) + 1
  2034. call DisplayTextToPlayer(paramPlayer_1, 0, 0.25, stringArr_1[36 + locInteger_3] + iTs(locInteger_3))
  2035. set locUnit_1 = null
  2036. elseif locString_1 == "ow." then
  2037. set locInteger_1 = S7S(SubString(paramString_1, 3, 4))
  2038. if SubString(paramString_1, 3, 4) == "" then
  2039. call SetUnitOwner(locUnit_1, paramPlayer_1, locBoolean_2)
  2040. elseif locInteger_1 > 0 and locInteger_1 < 17 then
  2041. call SetUnitOwner(locUnit_1, Player(locInteger_1 - 1), locBoolean_2)
  2042. endif
  2043. elseif locString_1 == "cu." then
  2044. call copy7(paramPlayer_1, locUnit_1, locInteger_1)
  2045. elseif locString_1 == "ic." then
  2046. call SetItemCharges(UnitItemInSlot(locUnit_1, 4), S2I(SubString(paramString_1, 3, 7)))
  2047. elseif locString_3 == "ic." then
  2048. call SetItemCharges(UnitItemInSlot(locUnit_1, locInteger_2 - 1), S2I(SubString(paramString_1, 4, 8)))
  2049. elseif locString_1 == "as." then
  2050. call poWUp(locUnit_1, locInteger_1)
  2051. elseif locString_1 == "Ru." then
  2052. call RemoveUnit(locUnit_1)
  2053. elseif locString_1 == "pu." then
  2054. if paramString_1 == "pu." then
  2055. set locInteger_1 = 5
  2056. endif
  2057. call poWUp(locUnit_1, locInteger_1)
  2058. if locInteger_1 > 0 then
  2059. set locReal_1 = GetUnitDefaultMoveSpeed(locUnit_1)
  2060. call SetUnitMoveSpeed(locUnit_1, locInteger_1 * 3 + locReal_1)
  2061. call getinvItem7(locUnit_1, 'AIsr')
  2062. call getinvItem7(locUnit_1, 'AIsx')
  2063. elseif locInteger_1 < 1 then
  2064. set locReal_1 = GetUnitDefaultMoveSpeed(locUnit_1)
  2065. call SetUnitMoveSpeed(locUnit_1, locReal_1)
  2066. call dPinvItem8(locUnit_1, 'AIsr')
  2067. call dPinvItem8(locUnit_1, 'AIsx')
  2068. endif
  2069. elseif locString_1 == "ms." then
  2070. set locReal_1 = GetUnitDefaultMoveSpeed(locUnit_1)
  2071. call SetUnitMoveSpeed(locUnit_1, locReal_1 + locInteger_1)
  2072. elseif locString_1 == "ai." then
  2073. if SubString(paramString_1, 3, 6) == "all" then
  2074. call getinvItem7(locUnit_1, 'AItx')
  2075. call getinvItem7(locUnit_1, 'AIsr')
  2076. call getinvItem7(locUnit_1, 'AId0')
  2077. call getinvItem7(locUnit_1, 'AIsx')
  2078. else
  2079. set locInteger_4 = 3
  2080. set locInteger_5 = 5
  2081. loop
  2082. if SubString(paramString_1, locInteger_4, locInteger_5) == "ad" then
  2083. call getinvItem7(locUnit_1, 'AItx')
  2084. elseif SubString(paramString_1, locInteger_4, locInteger_5) == "mr" then
  2085. call getinvItem7(locUnit_1, 'AIsr')
  2086. elseif SubString(paramString_1, locInteger_4, locInteger_5) == "am" then
  2087. call getinvItem7(locUnit_1, 'AId0')
  2088. elseif SubString(paramString_1, locInteger_4, locInteger_5) == "as" then
  2089. call getinvItem7(locUnit_1, 'AIsx')
  2090. endif
  2091. exitwhen locInteger_4 > 8
  2092. set locInteger_4 = locInteger_4 + 2
  2093. set locInteger_5 = locInteger_5 + 2
  2094. endloop
  2095. endif
  2096. elseif locString_1 == "di." then
  2097. if SubString(paramString_1, 3, 6) == "all" then
  2098. call dPinvItem8(locUnit_1, 'AItx')
  2099. call dPinvItem8(locUnit_1, 'AIsr')
  2100. call dPinvItem8(locUnit_1, 'AId0')
  2101. call dPinvItem8(locUnit_1, 'AIsx')
  2102. else
  2103. set locInteger_4 = 3
  2104. set locInteger_5 = 5
  2105. loop
  2106. if SubString(paramString_1, locInteger_4, locInteger_5) == "ad" then
  2107. call dPinvItem8(locUnit_1, 'AItx')
  2108. elseif SubString(paramString_1, locInteger_4, locInteger_5) == "mr" then
  2109. call dPinvItem8(locUnit_1, 'AIsr')
  2110. elseif SubString(paramString_1, locInteger_4, locInteger_5) == "am" then
  2111. call dPinvItem8(locUnit_1, 'AId0')
  2112. elseif SubString(paramString_1, locInteger_4, locInteger_5) == "as" then
  2113. call dPinvItem8(locUnit_1, 'AIsx')
  2114. endif
  2115. exitwhen locInteger_4 > 8
  2116. set locInteger_4 = locInteger_4 + 2
  2117. set locInteger_5 = locInteger_5 + 2
  2118. endloop
  2119. endif
  2120. elseif locString_1 == "in." then
  2121. set locInteger_4 = GetHeroInt(locUnit_1, locBoolean_2)
  2122. call SetHeroInt(locUnit_1, locInteger_4 + locInteger_1, locBoolean_1)
  2123. elseif locString_1 == "ag." then
  2124. set locInteger_4 = GetHeroAgi(locUnit_1, locBoolean_2)
  2125. call SetHeroAgi(locUnit_1, locInteger_4 + locInteger_1, locBoolean_1)
  2126. elseif locString_1 == "st." then
  2127. set locInteger_4 = GetHeroStr(locUnit_1, locBoolean_2)
  2128. call SetHeroStr(locUnit_1, locInteger_4 + locInteger_1, locBoolean_1)
  2129. elseif paramString_1 == "lv." then
  2130. set locInteger_4 = GetHeroLevel(locUnit_1)
  2131. call SetHeroLevel(locUnit_1, locInteger_4 + 1, locBoolean_2)
  2132. elseif paramString_1 == "Lv." then
  2133. set locInteger_4 = GetHeroLevel(locUnit_1)
  2134. call SetHeroLevel(locUnit_1, locInteger_4 + 1, locBoolean_1)
  2135. elseif locString_1 == "lv." then
  2136. call SetLevelFai(locUnit_1, locInteger_1, locBoolean_2)
  2137. elseif locString_1 == "Lv." then
  2138. call SetLevelFai(locUnit_1, locInteger_1, locBoolean_1)
  2139. elseif locString_1 == "xp." then
  2140. call adDxP(locUnit_1, locInteger_1)
  2141. elseif locString_1 == "ah." and (paramString_1 != "ah.") then
  2142. set locReal_1 = GetUnitState(locUnit_1, UNIT_STATE_LIFE)
  2143. call SetUnitState(locUnit_1, UNIT_STATE_LIFE, locReal_1 + locInteger_1)
  2144. elseif locString_1 == "am." then
  2145. set locReal_1 = GetUnitState(locUnit_1, UNIT_STATE_MANA)
  2146. call SetUnitState(locUnit_1, UNIT_STATE_MANA, locReal_1 + locInteger_1)
  2147. elseif locString_1 == "hp." and (paramString_1 != "hp.") then
  2148. call SetUnitState(locUnit_1, UNIT_STATE_LIFE, locInteger_1)
  2149. elseif locString_1 == "mp." then
  2150. call SetUnitState(locUnit_1, UNIT_STATE_MANA, locInteger_1)
  2151. elseif locString_1 == "iv." then
  2152. call SetUnitInvulnerable(locUnit_1, locBoolean_1)
  2153. elseif locString_1 == "vl." then
  2154. call SetUnitInvulnerable(locUnit_1, locBoolean_2)
  2155. elseif locString_1 == "ci." then
  2156. call DpDuIteM(locUnit_1, locInteger_1, 1)
  2157. elseif locString_3 == "ci." then
  2158. call DpDuIteM(locUnit_1, S2I(SubString(paramString_1, 4, 6)), locInteger_2)
  2159. endif
  2160. exitwhen locUnit_1 == null
  2161. call GroupRemoveUnit(locGroup_1, locUnit_1)
  2162. endloop
  2163. endif
  2164. call DestroyGroup(locGroup_1)
  2165. set locGroup_1 = null
  2166. endfunction
  2167.  
  2168. function GTdot takes string paramString_1 returns integer
  2169. local integer locInteger_1 = 2
  2170. local integer locInteger_2 = 3
  2171. local boolean locBoolean_1
  2172.  
  2173. loop
  2174. set locBoolean_1 = SubString(paramString_1, locInteger_1, locInteger_2) == "."
  2175. if locBoolean_1 then
  2176. set locInteger_2 = 1
  2177. endif
  2178. exitwhen locInteger_2 < 2 or locInteger_2 > 23
  2179. set locInteger_1 = locInteger_1 + 1
  2180. set locInteger_2 = locInteger_2 + 1
  2181. endloop
  2182. return locInteger_1
  2183. endfunction
  2184.  
  2185. //Calls:
  2186. // GTdot
  2187. // M7mbA
  2188. function MimbB takes player paramPlayer_1, string paramString_1 returns nothing
  2189. local string locString_1
  2190. local string locString_2
  2191. local integer locInteger_1 = StringLength(paramString_1)
  2192. local integer locInteger_2
  2193. local integer locInteger_3
  2194. local integer locInteger_4
  2195. local integer locInteger_5 = GTdot(paramString_1)
  2196. local integer locInteger_6
  2197.  
  2198. if locInteger_5 == 2 or locInteger_5 == 3 then
  2199. call M7mbA(paramPlayer_1, paramString_1)
  2200. elseif SubString(paramString_1, 0, 2) == "st" or SubString(paramString_1, 0, 2) == "ag" or SubString(paramString_1, 0, 2) == "in" then
  2201. if SubString(paramString_1, 2, 5) == "st." or SubString(paramString_1, 2, 5) == "ag." or SubString(paramString_1, 2, 5) == "in." then
  2202. set locString_1 = SubString(paramString_1, 0, 2) + SubString(paramString_1, 4, locInteger_1)
  2203. call M7mbA(paramPlayer_1, locString_1)
  2204. set locString_1 = SubString(paramString_1, 2, 4) + SubString(paramString_1, 4, locInteger_1)
  2205. call M7mbA(paramPlayer_1, locString_1)
  2206. endif
  2207. else
  2208. if locInteger_5 < 19 then
  2209. set locInteger_6 = locInteger_5 + 1
  2210. set locInteger_2 = locInteger_5 - 3
  2211. set locInteger_3 = locInteger_5 - 2
  2212. set locInteger_4 = locInteger_5 - 2
  2213. if SubString(paramString_1, locInteger_3, locInteger_6) == "ip." then
  2214. call DoNothing()
  2215. else
  2216. loop
  2217. set locString_2 = SubString(paramString_1, locInteger_2, locInteger_3)
  2218. set locString_1 = locString_2 + SubString(paramString_1, locInteger_4, locInteger_1)
  2219. call M7mbA(paramPlayer_1, locString_1)
  2220. exitwhen locInteger_2 < 1
  2221. set locInteger_2 = locInteger_2 - 1
  2222. set locInteger_3 = locInteger_3 - 1
  2223. endloop
  2224. endif
  2225. endif
  2226. endif
  2227. endfunction
  2228.  
  2229. function IsAB takes integer paramInteger_1, string paramString_1 returns boolean
  2230. local integer locInteger_1 = paramInteger_1 - 2
  2231. local string locString_1 = SubString(paramString_1, locInteger_1, paramInteger_1)
  2232. local boolean locBoolean_1 = locString_1 == "mh"
  2233. local boolean locBoolean_2 = locString_1 == "tp"
  2234. local boolean locBoolean_3 = locString_1 == "rf"
  2235. local boolean locBoolean_4 = locString_1 == "im"
  2236. local boolean locBoolean_5 = locString_1 == "us"
  2237. local boolean locBoolean_6 = locString_1 == "md"
  2238. local boolean locBoolean_7 = locString_1 == "te"
  2239. local boolean locBoolean_8 = locString_1 == "fh"
  2240. local boolean locBoolean_9 = locString_1 == "rc"
  2241. local boolean locBoolean_10 = locBoolean_1 or locBoolean_2 or locBoolean_3 or locBoolean_4 or locBoolean_5 or locBoolean_6 or locBoolean_7 or locBoolean_8 or locBoolean_9
  2242.  
  2243. return locBoolean_10
  2244. endfunction
  2245.  
  2246. //Calls:
  2247. // GTdot
  2248. // IsAB
  2249. // S7S
  2250. // MimbB
  2251. function MimbA takes player paramPlayer_1, string paramString_1 returns nothing
  2252. local integer locInteger_1 = GetPlayerId(paramPlayer_1)
  2253. local string locString_1
  2254. local integer locInteger_2 = StringLength(paramString_1)
  2255. local integer locInteger_3 = GTdot(paramString_1)
  2256. local integer locInteger_4
  2257. local boolean locBoolean_1
  2258. local boolean locBoolean_2
  2259. local integer locInteger_5
  2260. local integer locInteger_6
  2261. local integer locInteger_7
  2262. local boolean locBoolean_3 = true
  2263.  
  2264. if SubString(paramString_1, 0, 3) == "all" then
  2265. set paramString_1 = "1234567890!@#$%^" + SubString(paramString_1, 3, locInteger_3) + SubString(paramString_1, locInteger_3, locInteger_2)
  2266. set locInteger_3 = GTdot(paramString_1)
  2267. set locInteger_2 = StringLength(paramString_1)
  2268. endif
  2269. if locInteger_3 < 23 then
  2270. if locInteger_3 > 3 then
  2271. set locInteger_4 = locInteger_3
  2272. set locBoolean_1 = IsAB(locInteger_4, paramString_1)
  2273. if locBoolean_1 then
  2274. set locInteger_4 = locInteger_3 - 4
  2275. set locBoolean_2 = IsAB(locInteger_4, paramString_1)
  2276. set locInteger_5 = locInteger_3 - 6
  2277. set locInteger_7 = locInteger_3 - 5
  2278. if locBoolean_2 then
  2279. set locString_1 = SubString(paramString_1, 0, locInteger_5) + SubString(paramString_1, locInteger_5, locInteger_4) + SubString(paramString_1, locInteger_3, locInteger_2)
  2280. elseif locInteger_3 > 5 and S7S(SubString(paramString_1, locInteger_5, locInteger_7)) < 1 and S7S(SubString(paramString_1, locInteger_7, locInteger_4)) < 1 then
  2281. set locBoolean_3 = false
  2282. else
  2283. set locInteger_5 = locInteger_3 - 4
  2284. endif
  2285. if locBoolean_3 then
  2286. set locInteger_4 = locInteger_3 - 2
  2287. set locBoolean_1 = IsAB(locInteger_4, paramString_1)
  2288. set locInteger_6 = locInteger_3 - 4
  2289. set locInteger_7 = locInteger_3 - 3
  2290. if locBoolean_1 then
  2291. if locBoolean_2 then
  2292. call MimbB(paramPlayer_1, locString_1)
  2293. endif
  2294. set locString_1 = SubString(paramString_1, 0, locInteger_5) + SubString(paramString_1, locInteger_6, locInteger_4) + SubString(paramString_1, locInteger_3, locInteger_2)
  2295. call MimbB(paramPlayer_1, locString_1)
  2296. set locString_1 = SubString(paramString_1, 0, locInteger_5) + SubString(paramString_1, locInteger_4, locInteger_3) + SubString(paramString_1, locInteger_3, locInteger_2)
  2297. call MimbB(paramPlayer_1, locString_1)
  2298. set locBoolean_3 = false
  2299. elseif S7S(SubString(paramString_1, locInteger_6, locInteger_7)) < 1 and S7S(SubString(paramString_1, locInteger_7, locInteger_4)) < 1 then
  2300. set locBoolean_3 = false
  2301. endif
  2302. if locBoolean_3 then
  2303. if locBoolean_2 then
  2304. set locBoolean_3 = false
  2305. endif
  2306. endif
  2307. endif
  2308. endif
  2309. endif
  2310. if locBoolean_3 then
  2311. call MimbB(paramPlayer_1, paramString_1)
  2312. endif
  2313. endif
  2314. endfunction
  2315.  
  2316. //Calls:
  2317. // MimbA
  2318. function Do7Up takes nothing returns nothing
  2319. local integer locInteger_1 = 6
  2320. local player locPlayer_1 = GetTriggerPlayer()
  2321. local integer locInteger_2 = GetPlayerId(locPlayer_1)
  2322. local integer locInteger_3 = integerArr_1[locInteger_2 + 49]
  2323.  
  2324. loop
  2325. call MimbA(locPlayer_1, GetStoredString(gamecache_1, I2S(locInteger_2), I2S(locInteger_1)))
  2326. set locInteger_1 = locInteger_1 + 1
  2327. exitwhen locInteger_1 >= locInteger_3
  2328. endloop
  2329. set locPlayer_1 = null
  2330. endfunction
  2331.  
  2332. function Do7UpC takes nothing returns boolean
  2333. local player locPlayer_1 = GetTriggerPlayer()
  2334. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2335. local boolean locBoolean_1 = integerArr_1[61 + locInteger_1] == 1
  2336.  
  2337. set locPlayer_1 = null
  2338. return locBoolean_1
  2339. endfunction
  2340.  
  2341. function Do7Do takes nothing returns nothing
  2342. local player locPlayer_1 = GetTriggerPlayer()
  2343. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2344.  
  2345. set integerArr_1[61 + locInteger_1] = 1
  2346. set locPlayer_1 = null
  2347. endfunction
  2348.  
  2349. function Do7Rl takes nothing returns nothing
  2350. local player locPlayer_1 = GetTriggerPlayer()
  2351. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2352.  
  2353. set integerArr_1[61 + locInteger_1] = 0
  2354. set locPlayer_1 = null
  2355. endfunction
  2356.  
  2357. //Calls:
  2358. // MimbA
  2359. function Le7Ri takes nothing returns nothing
  2360. local integer locInteger_1 = 0
  2361. local player locPlayer_1 = GetTriggerPlayer()
  2362. local integer locInteger_2 = GetPlayerId(locPlayer_1)
  2363. local integer locInteger_3 = integerArr_1[locInteger_2 + 37]
  2364.  
  2365. loop
  2366. call MimbA(locPlayer_1, GetStoredString(gamecache_1, I2S(locInteger_2), I2S(locInteger_1)))
  2367. set locInteger_1 = locInteger_1 + 1
  2368. exitwhen locInteger_1 >= locInteger_3
  2369. endloop
  2370. set locPlayer_1 = null
  2371. endfunction
  2372.  
  2373. function Le7RiC takes nothing returns boolean
  2374. local player locPlayer_1 = GetTriggerPlayer()
  2375. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2376. local boolean locBoolean_1 = integerArr_1[73 + locInteger_1] == 1
  2377.  
  2378. set locPlayer_1 = null
  2379. return locBoolean_1
  2380. endfunction
  2381.  
  2382. function Le7Do takes nothing returns nothing
  2383. local player locPlayer_1 = GetTriggerPlayer()
  2384. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2385.  
  2386. set integerArr_1[73 + locInteger_1] = 1
  2387. set locPlayer_1 = null
  2388. endfunction
  2389.  
  2390. function Le7Rl takes nothing returns nothing
  2391. local player locPlayer_1 = GetTriggerPlayer()
  2392. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2393.  
  2394. set integerArr_1[73 + locInteger_1] = 0
  2395. set locPlayer_1 = null
  2396. endfunction
  2397.  
  2398. //Calls:
  2399. // MimbA
  2400. function es7C takes nothing returns nothing
  2401. local integer locInteger_1 = 12
  2402. local player locPlayer_1 = GetTriggerPlayer()
  2403. local integer locInteger_2 = GetPlayerId(locPlayer_1)
  2404. local integer locInteger_3 = integerArr_1[locInteger_2 + 85]
  2405.  
  2406. loop
  2407. call MimbA(locPlayer_1, GetStoredString(gamecache_1, I2S(locInteger_2), I2S(locInteger_1)))
  2408. set locInteger_1 = locInteger_1 + 1
  2409. exitwhen locInteger_1 >= locInteger_3
  2410. endloop
  2411. set locPlayer_1 = null
  2412. endfunction
  2413.  
  2414. //Calls:
  2415. // MimbA
  2416. function stoP7 takes nothing returns nothing
  2417. local player locPlayer_1 = GetTriggerPlayer()
  2418. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2419. local integer locInteger_2 = 18
  2420. local integer locInteger_3 = integerArr_1[locInteger_1 + 97]
  2421.  
  2422. loop
  2423. call MimbA(locPlayer_1, GetStoredString(gamecache_1, I2S(locInteger_1), I2S(locInteger_2)))
  2424. set locInteger_2 = locInteger_2 + 1
  2425. exitwhen locInteger_2 >= locInteger_3
  2426. endloop
  2427. set locPlayer_1 = null
  2428. endfunction
  2429.  
  2430. function stoP7C takes nothing returns boolean
  2431. local boolean locBoolean_1 = GetIssuedOrderId() == 851986
  2432.  
  2433. return locBoolean_1
  2434. endfunction
  2435.  
  2436. //Calls:
  2437. // sTi
  2438. // iTs
  2439. // BinOfF
  2440. //Functions as argument:
  2441. // Le7RiC
  2442. // Le7Ri
  2443. // Mr7Yes
  2444. // Le7Do
  2445. // Le7Rl
  2446. // Do7UpC
  2447. // Do7Up
  2448. // Do7Do
  2449. // Do7Rl
  2450. // es7C
  2451. // stoP7C
  2452. // stoP7
  2453. function Butt7Cmd takes player paramPlayer_1, string paramString_1, string paramString_2, integer paramInteger_1 returns nothing
  2454. local trigger locTrigger_1
  2455. local trigger locTrigger_2
  2456. local trigger locTrigger_3
  2457. local conditionfunc locConditionfunc_1
  2458. local triggercondition locTriggercondition_1
  2459. local conditionfunc locConditionfunc_2
  2460. local triggercondition locTriggercondition_2
  2461. local triggercondition locTriggercondition_3
  2462. local triggeraction locTriggeraction_1
  2463. local triggeraction locTriggeraction_2
  2464. local triggeraction locTriggeraction_3
  2465. local integer locInteger_1 = sTi(paramInteger_1, paramString_1)
  2466. local player locPlayer_1 = GetTriggerPlayer()
  2467. local string locString_1 = iTs(paramInteger_1 + 1)
  2468.  
  2469. if integerArr_1[locInteger_1] == 1 or integerArr_1[paramInteger_1 + 121] == -1 then
  2470. call TriggerSleepAction(2.00)
  2471. endif
  2472. if locPlayer_1 == paramPlayer_1 then
  2473. set locString_1 = ""
  2474. endif
  2475. if paramString_1 == "lr" then
  2476. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, "|c0080FF00" + paramString_2 + "|r |c00C0C0C0-->|r " + locString_1 + "|c008080FFLeft+Right|r")
  2477. if integerArr_1[paramInteger_1 + 37] == 0 then
  2478. set locTrigger_1 = CreateTrigger()
  2479. set locTrigger_2 = CreateTrigger()
  2480. set locTrigger_3 = CreateTrigger()
  2481. set locConditionfunc_1 = Condition(function Le7RiC)
  2482. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  2483. set locTriggeraction_1 = TriggerAddAction(locTrigger_1, function Le7Ri)
  2484. set locConditionfunc_2 = Condition(function Mr7Yes)
  2485. set locTriggercondition_2 = TriggerAddCondition(locTrigger_2, locConditionfunc_2)
  2486. set locTriggercondition_3 = TriggerAddCondition(locTrigger_3, locConditionfunc_2)
  2487. set locTriggeraction_2 = TriggerAddAction(locTrigger_2, function Le7Do)
  2488. set locTriggeraction_3 = TriggerAddAction(locTrigger_3, function Le7Rl)
  2489. call TriggerRegisterPlayerEvent(locTrigger_1, paramPlayer_1, EVENT_PLAYER_ARROW_RIGHT_DOWN)
  2490. call TriggerRegisterPlayerEvent(locTrigger_2, paramPlayer_1, EVENT_PLAYER_ARROW_LEFT_DOWN)
  2491. call TriggerRegisterPlayerEvent(locTrigger_3, paramPlayer_1, EVENT_PLAYER_ARROW_LEFT_UP)
  2492. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 37]), paramString_2)
  2493. set integerArr_1[paramInteger_1 + 37] = integerArr_1[paramInteger_1 + 37] + 1
  2494. call BinOfF(paramInteger_1, locInteger_1)
  2495. set integerArr_1[paramInteger_1 + 37] = 0
  2496. call DisableTrigger(locTrigger_1)
  2497. call DisableTrigger(locTrigger_2)
  2498. call DisableTrigger(locTrigger_3)
  2499. call TriggerRemoveCondition(locTrigger_1, locTriggercondition_1)
  2500. call DestroyCondition(locConditionfunc_1)
  2501. call TriggerRemoveCondition(locTrigger_2, locTriggercondition_2)
  2502. call TriggerRemoveCondition(locTrigger_3, locTriggercondition_3)
  2503. call DestroyCondition(locConditionfunc_2)
  2504. call TriggerRemoveAction(locTrigger_1, locTriggeraction_1)
  2505. call TriggerRemoveAction(locTrigger_2, locTriggeraction_2)
  2506. call TriggerRemoveAction(locTrigger_3, locTriggeraction_3)
  2507. call DestroyTrigger(locTrigger_1)
  2508. call DestroyTrigger(locTrigger_2)
  2509. call DestroyTrigger(locTrigger_3)
  2510. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, locString_1 + "|c00FFFF00lr|r |c00C0C0C0--->|r |c008080FFoff")
  2511. else
  2512. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 37]), paramString_2)
  2513. set integerArr_1[paramInteger_1 + 37] = integerArr_1[paramInteger_1 + 37] + 1
  2514. endif
  2515. elseif paramString_1 == "du" then
  2516. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, "|c0080FF00" + paramString_2 + "|r |c00C0C0C0-->|r " + locString_1 + "|c008080FFDown+Up|r")
  2517. if integerArr_1[paramInteger_1 + 49] == 6 then
  2518. set locTrigger_1 = CreateTrigger()
  2519. set locTrigger_2 = CreateTrigger()
  2520. set locTrigger_3 = CreateTrigger()
  2521. set locConditionfunc_1 = Condition(function Do7UpC)
  2522. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  2523. set locTriggeraction_1 = TriggerAddAction(locTrigger_1, function Do7Up)
  2524. set locConditionfunc_2 = Condition(function Mr7Yes)
  2525. set locTriggercondition_2 = TriggerAddCondition(locTrigger_2, locConditionfunc_2)
  2526. set locTriggercondition_3 = TriggerAddCondition(locTrigger_3, locConditionfunc_2)
  2527. set locTriggeraction_2 = TriggerAddAction(locTrigger_2, function Do7Do)
  2528. set locTriggeraction_3 = TriggerAddAction(locTrigger_3, function Do7Rl)
  2529. call TriggerRegisterPlayerEvent(locTrigger_1, paramPlayer_1, EVENT_PLAYER_ARROW_UP_DOWN)
  2530. call TriggerRegisterPlayerEvent(locTrigger_2, paramPlayer_1, EVENT_PLAYER_ARROW_DOWN_DOWN)
  2531. call TriggerRegisterPlayerEvent(locTrigger_3, paramPlayer_1, EVENT_PLAYER_ARROW_DOWN_UP)
  2532. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 49]), paramString_2)
  2533. set integerArr_1[paramInteger_1 + 49] = integerArr_1[paramInteger_1 + 49] + 1
  2534. call BinOfF(paramInteger_1, locInteger_1)
  2535. set integerArr_1[paramInteger_1 + 49] = 6
  2536. call DisableTrigger(locTrigger_1)
  2537. call DisableTrigger(locTrigger_2)
  2538. call DisableTrigger(locTrigger_3)
  2539. call TriggerRemoveCondition(locTrigger_1, locTriggercondition_1)
  2540. call DestroyCondition(locConditionfunc_1)
  2541. call TriggerRemoveCondition(locTrigger_2, locTriggercondition_2)
  2542. call TriggerRemoveCondition(locTrigger_3, locTriggercondition_3)
  2543. call DestroyCondition(locConditionfunc_2)
  2544. call TriggerRemoveAction(locTrigger_1, locTriggeraction_1)
  2545. call TriggerRemoveAction(locTrigger_2, locTriggeraction_2)
  2546. call TriggerRemoveAction(locTrigger_3, locTriggeraction_3)
  2547. call DestroyTrigger(locTrigger_1)
  2548. call DestroyTrigger(locTrigger_2)
  2549. call DestroyTrigger(locTrigger_3)
  2550. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, locString_1 + "|c00FFFF00du|r |c00C0C0C0--->|r |c008080FFoff")
  2551. else
  2552. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 49]), paramString_2)
  2553. set integerArr_1[paramInteger_1 + 49] = integerArr_1[paramInteger_1 + 49] + 1
  2554. endif
  2555. elseif paramString_1 == "es" then
  2556. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, "|c0080FF00" + paramString_2 + "|r |c00C0C0C0-->|r " + locString_1 + "|c008080FFEsc|r")
  2557. if integerArr_1[paramInteger_1 + 85] == 12 then
  2558. set locTrigger_1 = CreateTrigger()
  2559. set locConditionfunc_2 = Condition(function Mr7Yes)
  2560. set locTriggercondition_2 = TriggerAddCondition(locTrigger_1, locConditionfunc_2)
  2561. set locTriggeraction_1 = TriggerAddAction(locTrigger_1, function es7C)
  2562. call TriggerRegisterPlayerEvent(locTrigger_1, paramPlayer_1, EVENT_PLAYER_END_CINEMATIC)
  2563. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 85]), paramString_2)
  2564. set integerArr_1[paramInteger_1 + 85] = integerArr_1[paramInteger_1 + 85] + 1
  2565. call BinOfF(paramInteger_1, locInteger_1)
  2566. set integerArr_1[paramInteger_1 + 85] = 12
  2567. call DisableTrigger(locTrigger_1)
  2568. call TriggerRemoveCondition(locTrigger_1, locTriggercondition_2)
  2569. call DestroyCondition(locConditionfunc_2)
  2570. call TriggerRemoveAction(locTrigger_1, locTriggeraction_1)
  2571. call DestroyTrigger(locTrigger_1)
  2572. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, locString_1 + "|c00FFFF00es|r |c00C0C0C0--->|r |c008080FFoff")
  2573. else
  2574. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 85]), paramString_2)
  2575. set integerArr_1[paramInteger_1 + 85] = integerArr_1[paramInteger_1 + 85] + 1
  2576. endif
  2577. elseif paramString_1 == "mo" then
  2578. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, "|c0080FF00" + paramString_2 + "|r |c00C0C0C0-->|r " + locString_1 + "|c008080FFMove|r")
  2579. if integerArr_1[paramInteger_1 + 97] == 18 then
  2580. set locTrigger_1 = CreateTrigger()
  2581. set locConditionfunc_1 = Condition(function stoP7C)
  2582. set locTriggercondition_1 = TriggerAddCondition(locTrigger_1, locConditionfunc_1)
  2583. set locTriggeraction_1 = TriggerAddAction(locTrigger_1, function stoP7)
  2584. call TriggerRegisterPlayerUnitEvent(locTrigger_1, paramPlayer_1, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER, null)
  2585. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 97]), paramString_2)
  2586. set integerArr_1[paramInteger_1 + 97] = integerArr_1[paramInteger_1 + 97] + 1
  2587. call BinOfF(paramInteger_1, locInteger_1)
  2588. set integerArr_1[paramInteger_1 + 97] = 18
  2589. call DisableTrigger(locTrigger_1)
  2590. call TriggerRemoveCondition(locTrigger_1, locTriggercondition_1)
  2591. call DestroyCondition(locConditionfunc_1)
  2592. call TriggerRemoveAction(locTrigger_1, locTriggeraction_1)
  2593. call DestroyTrigger(locTrigger_1)
  2594. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 2, locString_1 + "|c00FFFF00mo|r |c00C0C0C0--->|r |c008080FFoff")
  2595. else
  2596. call StoreString(gamecache_1, I2S(paramInteger_1), I2S(integerArr_1[paramInteger_1 + 97]), paramString_2)
  2597. set integerArr_1[paramInteger_1 + 97] = integerArr_1[paramInteger_1 + 97] + 1
  2598. endif
  2599. endif
  2600. set locConditionfunc_2 = null
  2601. set locTriggercondition_2 = null
  2602. set locTriggercondition_3 = null
  2603. set locPlayer_1 = null
  2604. set locTriggercondition_1 = null
  2605. set locConditionfunc_1 = null
  2606. set locTrigger_1 = null
  2607. set locTrigger_2 = null
  2608. set locTrigger_3 = null
  2609. set locTriggeraction_1 = null
  2610. set locTriggeraction_2 = null
  2611. set locTriggeraction_3 = null
  2612. endfunction
  2613.  
  2614. //Calls:
  2615. // sTi
  2616. function cle1kEy takes nothing returns nothing
  2617. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer())
  2618. local integer locInteger_2 = integerArr_1[locInteger_1 + 109]
  2619. local string locString_1 = stringArr_1[locInteger_1 + 25]
  2620. local integer locInteger_3
  2621.  
  2622. if locInteger_2 > 0 and locInteger_2 < 13 then
  2623. set locInteger_3 = locInteger_2 - 1
  2624. set locInteger_2 = sTi(locInteger_3, locString_1)
  2625. set integerArr_1[locInteger_2] = 1
  2626. call TriggerSleepAction(2.00)
  2627. set integerArr_1[locInteger_2] = 0
  2628. endif
  2629. endfunction
  2630.  
  2631. function clekEys takes nothing returns nothing
  2632. local integer locInteger_1 = GetPlayerId(GetTriggerPlayer())
  2633. local integer locInteger_2 = integerArr_1[locInteger_1 + 109]
  2634.  
  2635. if locInteger_2 > 0 and locInteger_2 < 13 then
  2636. set integerArr_1[locInteger_2 + 120] = -1
  2637. call TriggerSleepAction(2.00)
  2638. set integerArr_1[locInteger_2 + 120] = 0
  2639. endif
  2640. endfunction
  2641.  
  2642. //Calls:
  2643. // S7S
  2644. //Functions as argument:
  2645. // clekEys
  2646. // cle1kEy
  2647. function MPCkb takes string paramString_1, string paramString_2, integer paramInteger_1 returns nothing
  2648. local integer locInteger_1
  2649. local integer locInteger_2 = 3
  2650. local integer locInteger_3 = 4
  2651. local integer locInteger_4
  2652.  
  2653. if SubString(paramString_1, 3, 6) == "all" then
  2654. set paramString_1 = SubString(paramString_1, 0, 3) + "1234567890!@"
  2655. endif
  2656. set locInteger_1 = StringLength(paramString_1)
  2657. loop
  2658. set locInteger_4 = S7S(SubString(paramString_1, locInteger_2, locInteger_3))
  2659. if SubString(paramString_1, 0, 1) == "c" then
  2660. set integerArr_1[paramInteger_1 + 109] = locInteger_4
  2661. call ExecuteFunc("clekEys")
  2662. else
  2663. set integerArr_1[paramInteger_1 + 109] = locInteger_4
  2664. set stringArr_1[paramInteger_1 + 25] = paramString_2
  2665. call ExecuteFunc("cle1kEy")
  2666. endif
  2667. set locInteger_2 = locInteger_2 + 1
  2668. set locInteger_3 = locInteger_3 + 1
  2669. exitwhen locInteger_3 > locInteger_1
  2670. endloop
  2671. endfunction
  2672.  
  2673. //Calls:
  2674. // sTi
  2675. // MPCkb
  2676. // S7S
  2677. // Butt7Cmd
  2678. // MimbA
  2679. function KimbA takes nothing returns nothing
  2680. local player locPlayer_1 = GetTriggerPlayer()
  2681. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2682. local string locString_1 = stringArr_1[locInteger_1 + 25]
  2683. local string locString_2 = SubString(locString_1, 0, 2)
  2684. local string locString_3 = SubString(locString_1, 0, 3)
  2685. local string locString_4 = SubString(locString_1, 1, 3)
  2686. local string locString_5
  2687. local boolean locBoolean_1 = true
  2688.  
  2689. if locString_3 == "es." or locString_3 == "mo." or locString_3 == "du." or locString_3 == "lr." then
  2690. if SubString(locString_1, 3, 4) == "" then
  2691. set locInteger_1 = sTi(locInteger_1, locString_2)
  2692. set integerArr_1[locInteger_1] = 1
  2693. call TriggerSleepAction(2.00)
  2694. set integerArr_1[locInteger_1] = 0
  2695. else
  2696. call MPCkb(locString_1, locString_2, locInteger_1)
  2697. endif
  2698. elseif locString_3 == "ck." then
  2699. if SubString(locString_1, 3, 4) == "" then
  2700. set integerArr_1[locInteger_1 + 121] = -1
  2701. call TriggerSleepAction(2.00)
  2702. set integerArr_1[locInteger_1 + 121] = 0
  2703. else
  2704. call MPCkb(locString_1, locString_2, locInteger_1)
  2705. endif
  2706. elseif locString_2 == "lr" or locString_4 == "lr" then
  2707. if locString_4 == "lr" then
  2708. set locInteger_1 = S7S(SubString(locString_1, 0, 1)) - 1
  2709. if integerArr_1[locInteger_1 + 37] == 5 then
  2710. set locBoolean_1 = false
  2711. endif
  2712. if locBoolean_1 then
  2713. if locInteger_1 > -1 and locInteger_1 < 12 then
  2714. set locString_5 = SubString(locString_1, 3, 43)
  2715. set locPlayer_1 = Player(locInteger_1)
  2716. else
  2717. set locBoolean_1 = false
  2718. endif
  2719. endif
  2720. elseif locString_2 == "lr" then
  2721. if integerArr_1[locInteger_1 + 37] == 5 then
  2722. set locBoolean_1 = false
  2723. endif
  2724. if locBoolean_1 then
  2725. set locString_5 = SubString(locString_1, 2, 42)
  2726. endif
  2727. endif
  2728. if locBoolean_1 then
  2729. call Butt7Cmd(locPlayer_1, "lr", locString_5, locInteger_1)
  2730. endif
  2731. elseif locString_2 == "du" or locString_4 == "du" then
  2732. if locString_4 == "du" then
  2733. set locInteger_1 = S7S(SubString(locString_1, 0, 1)) - 1
  2734. if integerArr_1[locInteger_1 + 49] == 11 then
  2735. set locBoolean_1 = false
  2736. endif
  2737. if locBoolean_1 then
  2738. if locInteger_1 > -1 and locInteger_1 < 12 then
  2739. set locString_5 = SubString(locString_1, 3, 43)
  2740. set locPlayer_1 = Player(locInteger_1)
  2741. else
  2742. set locBoolean_1 = false
  2743. endif
  2744. endif
  2745. elseif locString_2 == "du" then
  2746. if integerArr_1[locInteger_1 + 49] == 11 then
  2747. set locBoolean_1 = false
  2748. endif
  2749. if locBoolean_1 then
  2750. set locString_5 = SubString(locString_1, 2, 42)
  2751. endif
  2752. endif
  2753. if locBoolean_1 then
  2754. call Butt7Cmd(locPlayer_1, "du", locString_5, locInteger_1)
  2755. endif
  2756. elseif locString_2 == "es" or locString_4 == "es" then
  2757. if locString_4 == "es" then
  2758. set locInteger_1 = S7S(SubString(locString_1, 0, 1)) - 1
  2759. if integerArr_1[locInteger_1 + 85] == 17 then
  2760. set locBoolean_1 = false
  2761. endif
  2762. if locBoolean_1 then
  2763. if locInteger_1 > -1 and locInteger_1 < 12 then
  2764. set locString_5 = SubString(locString_1, 3, 43)
  2765. set locPlayer_1 = Player(locInteger_1)
  2766. else
  2767. set locBoolean_1 = false
  2768. endif
  2769. endif
  2770. elseif locString_2 == "es" then
  2771. if integerArr_1[locInteger_1 + 85] == 17 then
  2772. set locBoolean_1 = false
  2773. endif
  2774. if locBoolean_1 then
  2775. set locString_5 = SubString(locString_1, 2, 42)
  2776. endif
  2777. endif
  2778. if locBoolean_1 then
  2779. call Butt7Cmd(locPlayer_1, "es", locString_5, locInteger_1)
  2780. endif
  2781. elseif locString_2 == "mo" or locString_4 == "mo" then
  2782. if locString_4 == "mo" then
  2783. set locInteger_1 = S7S(SubString(locString_1, 0, 1)) - 1
  2784. if integerArr_1[locInteger_1 + 97] == 23 then
  2785. set locBoolean_1 = false
  2786. endif
  2787. if locBoolean_1 then
  2788. if locInteger_1 > -1 and locInteger_1 < 12 then
  2789. set locString_5 = SubString(locString_1, 3, 43)
  2790. set locPlayer_1 = Player(locInteger_1)
  2791. else
  2792. set locBoolean_1 = false
  2793. endif
  2794. endif
  2795. elseif locString_2 == "mo" then
  2796. if integerArr_1[locInteger_1 + 97] == 23 then
  2797. set locBoolean_1 = false
  2798. endif
  2799. if locBoolean_1 then
  2800. set locString_5 = SubString(locString_1, 2, 15)
  2801. endif
  2802. endif
  2803. if locBoolean_1 then
  2804. call Butt7Cmd(locPlayer_1, "mo", locString_5, locInteger_1)
  2805. endif
  2806. else
  2807. call MimbA(locPlayer_1, locString_1)
  2808. endif
  2809. set locPlayer_1 = null
  2810. endfunction
  2811.  
  2812. //Functions as argument:
  2813. // KimbA
  2814. function SpliTkb takes player paramPlayer_1, string paramString_1, integer paramInteger_1, integer paramInteger_2 returns nothing
  2815. local integer locInteger_1 = 0
  2816. local integer locInteger_2 = 1
  2817. local string locString_1
  2818. local integer locInteger_3 = GetPlayerId(paramPlayer_1)
  2819.  
  2820. if SubString(paramString_1, 0, 3) == "all" then
  2821. set paramString_1 = "1234567890!@" + SubString(paramString_1, 3, paramInteger_2)
  2822. set paramInteger_1 = 12
  2823. set paramInteger_2 = StringLength(paramString_1)
  2824. endif
  2825. loop
  2826. set locString_1 = SubString(paramString_1, locInteger_1, locInteger_2) + SubString(paramString_1, paramInteger_1, paramInteger_2)
  2827. set stringArr_1[locInteger_3 + 25] = locString_1
  2828. call ExecuteFunc("KimbA")
  2829. exitwhen locInteger_2 == paramInteger_1
  2830. set locInteger_1 = locInteger_1 + 1
  2831. set locInteger_2 = locInteger_2 + 1
  2832. endloop
  2833. endfunction
  2834.  
  2835. function CheckKB takes string paramString_1, integer paramInteger_1 returns integer
  2836. local boolean locBoolean_1
  2837. local integer locInteger_1 = paramInteger_1 - 3
  2838. local integer locInteger_2 = paramInteger_1 - 1
  2839. local string locString_1
  2840. local integer locInteger_3
  2841. local boolean locBoolean_2 = true
  2842.  
  2843. loop
  2844. set locString_1 = SubString(paramString_1, locInteger_1, locInteger_2)
  2845. set locBoolean_1 = locString_1 == "lr" or locString_1 == "mo" or locString_1 == "du" or locString_1 == "es" or locString_1 == "ck"
  2846. exitwhen locBoolean_1 or locInteger_1 < 1
  2847. set locInteger_1 = locInteger_1 - 1
  2848. set locInteger_2 = locInteger_2 - 1
  2849. endloop
  2850. if locString_1 == "du" then
  2851. set paramInteger_1 = locInteger_1 - 1
  2852. if SubString(paramString_1, paramInteger_1, locInteger_2) == "mdu" then
  2853. set locInteger_3 = 14
  2854. set locBoolean_2 = false
  2855. endif
  2856. endif
  2857. if locBoolean_1 and locBoolean_2 then
  2858. set locInteger_3 = locInteger_1
  2859. else
  2860. set locInteger_3 = 14
  2861. endif
  2862. return locInteger_3
  2863. endfunction
  2864.  
  2865. //Calls:
  2866. // CheckKB
  2867. // MimbA
  2868. // SpliTkb
  2869. //Functions as argument:
  2870. // KimbA
  2871. function imbA takes nothing returns nothing
  2872. local player locPlayer_1 = GetTriggerPlayer()
  2873. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2874. local string locString_1 = GetEventPlayerChatString()
  2875. local integer locInteger_2 = StringLength(locString_1)
  2876. local integer locInteger_3 = CheckKB(locString_1, locInteger_2)
  2877.  
  2878. if integerArr_1[locInteger_1 + 13] == 0 then
  2879. call TriggerSleepAction(2.00)
  2880. endif
  2881. if integerArr_1[locInteger_1 + 13] == 1 then
  2882. if locInteger_3 == 14 then
  2883. call MimbA(locPlayer_1, locString_1)
  2884. elseif locInteger_3 < 2 then
  2885. set stringArr_1[locInteger_1 + 25] = locString_1
  2886. call ExecuteFunc("KimbA")
  2887. elseif locInteger_3 < 13 then
  2888. call SpliTkb(locPlayer_1, locString_1, locInteger_3, locInteger_2)
  2889. endif
  2890. endif
  2891. endfunction
  2892.  
  2893. function passW takes nothing returns boolean
  2894. local player locPlayer_1 = GetTriggerPlayer()
  2895. local integer locInteger_1 = GetPlayerId(locPlayer_1)
  2896. local boolean locBoolean_1 = false
  2897. local integer locInteger_2
  2898. local string locString_1 = GetEventPlayerChatString()
  2899.  
  2900. if integerArr_1[12] < 1 then
  2901. set integerArr_1[12] = 1
  2902. set integerArr_1[13] = -1
  2903. set integerArr_1[14] = -1
  2904. set integerArr_1[15] = -1
  2905. set integerArr_1[16] = -1
  2906. set integerArr_1[17] = -1
  2907. set integerArr_1[18] = -1
  2908. set integerArr_1[19] = -1
  2909. set integerArr_1[20] = -1
  2910. set integerArr_1[21] = -1
  2911. set integerArr_1[22] = -1
  2912. set integerArr_1[23] = -1
  2913. set integerArr_1[24] = -1
  2914. set integerArr_1[149] = 2
  2915. set integerArr_1[136] = 2
  2916. set stringArr_1[12] = "Pleca__"
  2917. set stringArr_1[37] = "|CFFFF0303"
  2918. set stringArr_1[38] = "|CFF0042FF"
  2919. set stringArr_1[39] = "|CFF1CE6B9"
  2920. set stringArr_1[40] = "|CFF540081"
  2921. set stringArr_1[41] = "|CFFFFFC00"
  2922. set stringArr_1[42] = "|CFFFE8A0E"
  2923. set stringArr_1[43] = "|CFF20C000"
  2924. set stringArr_1[44] = "|CFFE55BB0"
  2925. set stringArr_1[45] = "|CFF959697"
  2926. set stringArr_1[46] = "|CFF7FBFF1"
  2927. set stringArr_1[47] = "|CFF106246"
  2928. set stringArr_1[48] = "|CFF492A04"
  2929. endif
  2930. set locInteger_2 = StringLength(stringArr_1[12])
  2931. if SubString(locString_1, 0, locInteger_2) == stringArr_1[12] and SubString(locString_1, locInteger_2 + 3, locInteger_2 + 4) == "" then
  2932. if integerArr_1[locInteger_1] < 1 then
  2933. if integerArr_1[12] != 2 then
  2934. set integerArr_1[12] = 2
  2935. set stringArr_1[locInteger_1 + 13] = "k??. cp. us. md. dc. "
  2936. set integerArr_1[133] = locInteger_1
  2937. call DoNotSaveReplay()
  2938. set locInteger_2 = 0
  2939. loop
  2940. set integerArr_1[locInteger_2 + 37] = 0
  2941. set integerArr_1[locInteger_2 + 49] = 6
  2942. set integerArr_1[locInteger_2 + 85] = 12
  2943. set integerArr_1[locInteger_2 + 97] = 18
  2944. set integerArr_1[locInteger_2 + 137] = 2
  2945. set integerArr_1[locInteger_2 + 150] = 2
  2946. exitwhen locInteger_2 > 10
  2947. set locInteger_2 = locInteger_2 + 1
  2948. endloop
  2949. endif
  2950. call TriggerRegisterPlayerChatEvent(trigger_2, locPlayer_1, ".", locBoolean_1)
  2951. set integerArr_1[locInteger_1 + 13] = 1
  2952. call DisplayTimedTextToPlayer(locPlayer_1, 0, 0.25, 5, "|cff00BFFFYou|r are loved by |cffff0000Fai|r")
  2953. set integerArr_1[locInteger_1] = 1
  2954. endif
  2955. endif
  2956. set locPlayer_1 = null
  2957. return false
  2958. endfunction
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!