Spoiler:
Code: Select all
function sTi takes integer vfai_wh7o,string vfai_wha7t returns integer
local integer vfai_result7
if vfai_wha7t=="mh"then
set vfai_result7=161+vfai_wh7o
elseif vfai_wha7t=="tp"then
set vfai_result7=177+vfai_wh7o
elseif vfai_wha7t=="im"then
set vfai_result7=193+vfai_wh7o
elseif vfai_wha7t=="rf"then
set vfai_result7=209+vfai_wh7o
elseif vfai_wha7t=="te"then
set vfai_result7=225+vfai_wh7o
elseif vfai_wha7t=="rc"then
set vfai_result7=241+vfai_wh7o
elseif vfai_wha7t=="rb"then
set vfai_result7=258+vfai_wh7o
elseif vfai_wha7t=="es"then
set vfai_result7=270+vfai_wh7o
elseif vfai_wha7t=="du"then
set vfai_result7=282+vfai_wh7o
elseif vfai_wha7t=="lr"then
set vfai_result7=294+vfai_wh7o
elseif vfai_wha7t=="mo"then
set vfai_result7=306+vfai_wh7o
endif
return vfai_result7
endfunction
function aBLoFf takes integer vfai_idp7,integer vfai_i6 returns nothing
local integer vfai_sur8=vfai_idp7+13
local boolean vfai_b7o
loop
call TriggerSleepAction(2.00)
set vfai_b7o=udg_integers83[vfai_i6]>udg_integers83[vfai_sur8]
exitwhen vfai_b7o
endloop
set udg_integers83[vfai_i6]=2
endfunction
function BinOfF takes integer vfai_i7,integer vfai_kOR returns nothing
local integer vfai_s8r=vfai_i7+121
local boolean vfai_b8o
loop
call TriggerSleepAction(2.00)
set vfai_b8o=udg_integers83[vfai_kOR]>udg_integers83[vfai_s8r]
exitwhen vfai_b8o
endloop
endfunction
function clC takes player vfai_p7 returns nothing
call DisplayTextToPlayer(vfai_p7,0,0.25,"|CFFFF03031|r|CFF0042FF 2|r|CFF1CE6B9 3|r|CFF540081 4|r|CFFFFFC00 5|r|CFFFE8A0E 6|r")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|CFF20C0007|r|CFFE55BB0 8|r|CFF959697 9|r|CFF7FBFF1 0|r|CFF106246 !|r|CFF492A04 @|r")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|c00242424# $ % ^")
endfunction
function liT takes player vfai_p7 returns nothing
local integer vfai_lyf=GetPlayerId(vfai_p7)
call DisplayTextToPlayer(vfai_p7,0,0.25," ")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|cff40FF40"+udg_strings01[vfai_lyf+13]+"ec. xr. fh.")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|cff40BFFFai. di. (as ad am mr) ci. ic. ri.")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|c00FF8080es mo lr du (??.) [ck.] sk.?? tm.")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|cff40FFFFmh. im. rf. tp. te. rc. [da.] ip. ml.")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|c00FF80C0rg. hr. mr. (rb.) go. lb. cl. cc. oc. iv. vl. pt. rt.")
call DisplayTextToPlayer(vfai_p7,0,0.25,"|c00FFFF00pu. as. st. ag. in. ms. Lv. lv. xp. sp. hp. ah. mp. am. si. ow. Ru. cu. (cu)")
endfunction
function hpR takes nothing returns nothing
local string vfai_Feis7=GetEventPlayerChatString()
local real vfai_zz7=S2R(SubString(vfai_Feis7,3,13))
local unit vfai_E7=GetEnumUnit()
local unitstate vfai_ul7=UNIT_STATE_LIFE
local unitstate vfai_um7=UNIT_STATE_MANA
local real vfai_wa7=GetUnitState(vfai_E7,vfai_ul7)
local real vfai_wa8=GetUnitState(vfai_E7,vfai_um7)
local string vfai_h7=SubString(vfai_Feis7,0,1)
local boolean vfai_MM7=vfai_h7!="m"
local boolean vfai_HH7=vfai_h7!="h"
local real vfai_fff7=vfai_wa7+vfai_zz7
local real vfai_yyy7=vfai_wa8+vfai_zz7
if vfai_MM7 then
call SetUnitState(vfai_E7,vfai_ul7,vfai_fff7)
endif
if vfai_HH7 then
call SetUnitState(vfai_E7,vfai_um7,vfai_yyy7)
endif
set vfai_ul7=null
set vfai_um7=null
set vfai_E7=null
endfunction
function LowreG takes nothing returns nothing
local player vfai_lowP7=GetTriggerPlayer()
local integer vfai_lowJ5=GetPlayerId(vfai_lowP7)
local integer vfai_lowrb7=sTi(vfai_lowJ5,"rb")
local group vfai_lowg8=CreateGroup()
local integer vfai_lowsur7=vfai_lowJ5+13
local boolean vfai_lowb9o
if udg_integers83[vfai_lowrb7]==3then
call TriggerSleepAction(1.00)
else
set udg_integers83[vfai_lowrb7]=0
endif
call GroupEnumUnitsSelected(vfai_lowg8,vfai_lowP7,null)
loop
call ForGroup(vfai_lowg8,function hpR)
call TriggerSleepAction(1.00)
set vfai_lowb9o=udg_integers83[vfai_lowrb7]>udg_integers83[vfai_lowsur7]
exitwhen vfai_lowb9o
endloop
call DestroyGroup(vfai_lowg8)
set vfai_lowP7=null
set vfai_lowg8=null
endfunction
function S7S takes string vfai_cs2i returns integer
local integer vfai_bliz7
if S2I(vfai_cs2i)==0then
if vfai_cs2i=="0"then
set vfai_bliz7=10
elseif vfai_cs2i=="!"then
set vfai_bliz7=11
elseif vfai_cs2i=="@"then
set vfai_bliz7=12
elseif vfai_cs2i=="#"then
set vfai_bliz7=13
elseif vfai_cs2i=="$"then
set vfai_bliz7=14
elseif vfai_cs2i=="%"then
set vfai_bliz7=15
elseif vfai_cs2i=="^"then
set vfai_bliz7=16
endif
else
set vfai_bliz7=S2I(vfai_cs2i)
endif
return vfai_bliz7
endfunction
function iTs takes integer vfai_idp7 returns string
local string vfai_sleepy7
if vfai_idp7>9then
if vfai_idp7==10then
set vfai_sleepy7="0"
elseif vfai_idp7==11then
set vfai_sleepy7="!"
elseif vfai_idp7==12then
set vfai_sleepy7="@"
elseif vfai_idp7==13then
set vfai_sleepy7="#"
elseif vfai_idp7==14then
set vfai_sleepy7="$"
elseif vfai_idp7==15then
set vfai_sleepy7="%"
elseif vfai_idp7==16then
set vfai_sleepy7="^"
endif
else
set vfai_sleepy7=I2S(vfai_idp7)
endif
return vfai_sleepy7
endfunction
function BotT2 takes player vfai_p7,string vfai_s8 returns nothing
local integer vfai_z7=S7S(SubString(vfai_s8,4,5))
local string vfai_ks7=SubString(vfai_s8,1,4)
local integer vfai_l7f=GetPlayerId(vfai_p7)
if(vfai_z7>0)and(vfai_z7<13)then
if vfai_z7-1==vfai_l7f then
call DisplayTextToPlayer(vfai_p7,0,0.25,"|c000080FFDon't kick yourself, dumbass.|r")