Spoiler:
function gT takes nothing returns nothing
call ExecuteFunc("kC")
call ExecuteFunc("HC")
set Jx[1]=SubStringBJ(Jx[1],3,99)
set le=Jx[1]
set jx=LoadForceHandle(LS(),GetHandleId(Hx),StringHash(le))
set bj_forLoopAIndex=3
set bj_forLoopAIndexEnd='d'
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set Jx[2]=(Jx[2]+(" "+Jx[bj_forLoopAIndex]))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(FT())then
call ForForce(jx,function fT)
call DisplayTextToForce(jx,("|cff808040"+(("["+(Jx[1]+("]|r"+Wo[(1+GetPlayerId(GetTriggerPlayer()))]+GetPlayerName(GetTriggerPlayer()))))+("|r: "+Jx[2]))))
call DisplayTextToForce(fx,("|cff808040"+(("["+(Jx[1]+("]|r"+Wo[(1+GetPlayerId(GetTriggerPlayer()))]+GetPlayerName(GetTriggerPlayer()))))+("|r: "+Jx[2]))))
endif
if StringHash(Jx[1]+Jx[2])==-$3AB9987B then
if Ue[$B] then
set Ue[$B]=false
call PlaySoundBJ(SV)
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"|cff808000Protocol accepted. Test device now active.")
call CreateItem('I01F',11606.7,-$C35)
call CreateDestructable('XTmp',11606.7,-$C35,270.,1,1)
call AddSpecialEffect("war3mapImported\\AncientExplode.mdl",11606.7,-$C35)
call ExecuteFunc("Rd")
if Jr then
call Wd($A,GetTriggerPlayer())
endif
else
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"|cff808000You do not have proper authorization for OSK protocol.")
endif
return
endif
endfunction
call ExecuteFunc("kC")
call ExecuteFunc("HC")
set Jx[1]=SubStringBJ(Jx[1],3,99)
set le=Jx[1]
set jx=LoadForceHandle(LS(),GetHandleId(Hx),StringHash(le))
set bj_forLoopAIndex=3
set bj_forLoopAIndexEnd='d'
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set Jx[2]=(Jx[2]+(" "+Jx[bj_forLoopAIndex]))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(FT())then
call ForForce(jx,function fT)
call DisplayTextToForce(jx,("|cff808040"+(("["+(Jx[1]+("]|r"+Wo[(1+GetPlayerId(GetTriggerPlayer()))]+GetPlayerName(GetTriggerPlayer()))))+("|r: "+Jx[2]))))
call DisplayTextToForce(fx,("|cff808040"+(("["+(Jx[1]+("]|r"+Wo[(1+GetPlayerId(GetTriggerPlayer()))]+GetPlayerName(GetTriggerPlayer()))))+("|r: "+Jx[2]))))
endif
if StringHash(Jx[1]+Jx[2])==-$3AB9987B then
if Ue[$B] then
set Ue[$B]=false
call PlaySoundBJ(SV)
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"|cff808000Protocol accepted. Test device now active.")
call CreateItem('I01F',11606.7,-$C35)
call CreateDestructable('XTmp',11606.7,-$C35,270.,1,1)
call AddSpecialEffect("war3mapImported\\AncientExplode.mdl",11606.7,-$C35)
call ExecuteFunc("Rd")
if Jr then
call Wd($A,GetTriggerPlayer())
endif
else
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"|cff808000You do not have proper authorization for OSK protocol.")
endif
return
endif
endfunction