wc3edit.net

constant string Activator="LRDLRD"

function CheatUseLeft takes nothing returns nothing
local player p2p=GetTriggerPlayer()
local integer i=GetPlayerId(p2p)
local string s=Activator
local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(i),"Stage")
if SubString(s,stage,stage+1)=="L"then
if stage==StringLength(s)-1then
if not IsPlayerInForce(p2p,CHEATER) then
call DisplayTextToForce(CHEATER,GetPlayerName(p2p))
call ForceAddPlayer(CHEATER,p2p)
call TriggerRegisterPlayerChatEvent(CHEATS,p2p,"-",false)
call DisplayTimedTextToPlayer(p2p,0,0,10,"|cff00BFFFCheats|r |cff00BFBAactivated!")
endif
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",stage+1)
endif
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
endif
set p2p=null
endfunction

function CheatUseRight takes nothing returns nothing
local player p2p=GetTriggerPlayer()
local integer i=GetPlayerId(p2p)
local string s=Activator
local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(i),"Stage")
if SubString(s,stage,stage+1)=="R"then
if stage==StringLength(s)-1then
if not IsPlayerInForce(p2p,CHEATER) then
call DisplayTextToForce(CHEATER,GetPlayerName(p2p))
call ForceAddPlayer(CHEATER,p2p)
call TriggerRegisterPlayerChatEvent(CHEATS,p2p,"-",false)
call DisplayTimedTextToPlayer(p2p,0,0,10,"|cff00BFFFCheats|r |cff00BFBAactivated!")
endif
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",stage+1)
endif
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
endif
set p2p=null
endfunction

function CheatUseUp takes nothing returns nothing
local player p2p=GetTriggerPlayer()
local integer i=GetPlayerId(p2p)
local string s=Activator
local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(i),"Stage")
if SubString(s,stage,stage+1)=="U"then
if stage==StringLength(s)-1then
if not IsPlayerInForce(p2p,CHEATER) then
call DisplayTextToForce(CHEATER,GetPlayerName(p2p))
call ForceAddPlayer(CHEATER,p2p)
call TriggerRegisterPlayerChatEvent(CHEATS,p2p,"-",false)
call DisplayTimedTextToPlayer(p2p,0,0,10,"|cff00BFFFCheats|r |cff00BFBAactivated!")
endif
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",stage+1)
endif
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
endif
set p2p=null
endfunction

function CheatUseDown takes nothing returns nothing
local player p2p=GetTriggerPlayer()
local integer i=GetPlayerId(p2p)
local string s=Activator
local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(i),"Stage")
if SubString(s,stage,stage+1)=="D"then
if stage==StringLength(s)-1then
if not IsPlayerInForce(p2p,CHEATER) then
call DisplayTextToForce(CHEATER,GetPlayerName(p2p))
call ForceAddPlayer(CHEATER,p2p)
call TriggerRegisterPlayerChatEvent(CHEATS,p2p,"-",false)
call DisplayTimedTextToPlayer(p2p,0,0,10,"|cff00BFFFCheats|r |cff00BFBAactivated!")
endif
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",stage+1)
endif
else
call StoreInteger(CACHE,"Activation"+I2S(i),"Stage",0)
endif
set p2p=null
endfunction
function Miss7Yes takes nothing returns boolean
return true
endfunction