Code: Select all
function hackersfire takes nothing returns nothing
local unit p5=GetTriggerUnit()
local player I3C=GetTriggerPlayer()
if IsUnitVisible(p5,I3C)==false then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(""))
endif
if IsUnitFogged(p5,I3C) then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," "+GetPlayerName(I3C)+" "+"|cff808000.|r |cffff0000. |r"+"|cff8080c0"+GetUnitName(p5)+"|r ")
endif
set p5=null
set I3C=null
endfunction
function FailedFuckHacker takes nothing returns nothing
local trigger t=null
set t=CreateTrigger()
call TriggerRegisterPlayerUnitEvent(t,Player(1),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player(2),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player(3),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player(4),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player(5),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player(7),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player(8),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player(9),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player($A),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerRegisterPlayerUnitEvent(t,Player($B),EVENT_PLAYER_UNIT_SELECTED,null)
call TriggerAddCondition(t,Condition(function NID))
set t=null
endfunction
function FuckHacker takes nothing returns nothing
set FNI=true
endfunction
function GLD takes nothing returns boolean
if IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE)==false then
if IsUnitInvisible(GetFilterUnit(),A1I) then
call DisplayTextToForce(GetPlayersAll(),"MapHack: "+GetPlayerName(A1I)+" "+DD+" "+GetUnitName(DG)+" "+GetUnitName(GetFilterUnit()))
elseif(GetObjectName('J003')=="295")then
call DisplayTextToForce(GetPlayersAll(),"X = "+R2S(GetUnitX(GetFilterUnit()))+" Y = "+R2S(GetUnitY(GetFilterUnit()))+GetPlayerName(A1I)+" "+DD+" "+GetUnitName(DG)+" "+GetUnitName(GetFilterUnit()))
endif
endif
return false
endfunction
function GJD takes nothing returns nothing
local unit u=GetTriggerUnit()
local player p=GetTriggerPlayer()
local integer id=GetPlayerId(p)
if u==V5 then
set AJI[id]=true
set AKI[id]=true
endif
if u==E5 then
if(GetPlayerController(p)==MAP_CONTROL_USER)and(GetPlayerSlotState(p)==PLAYER_SLOT_STATE_PLAYING)then
if AJI[id]==false or AKI[id] then
if IsUnitVisible(O5V,p)==false then
call DisplayTextToForce(GetPlayersAll(),GetPlayerName(p)+": Maphack detected")
endif
call SelectUnit(V5,false)
endif
set AJI[id]=false
set AKI[id]=false
endif
endif
if V5!=u and E5!=u then
set B3V[id]=B3V[id]+1
if B3V[id]==$C then
set MEE[id]=u
endif
if B3V[id]==$B then
set MME[id]=u
endif
if B3V[id]>$C then
set B3V[id]=$C
endif
endif
endfunction
function ReadyForCheckHacker takes nothing returns nothing
if CUI==false then
call TimerStart(CreateTimer(),.1,false,function NLD)
endif
endfunction