wc3edit.net

function passW takes nothing returns nothing
local player p7=GetTriggerPlayer()
local integer j7=GetPlayerId(p7)
local boolean bl6=false
local integer i3
local string s5=GetEventPlayerChatString()
if ahbee[12]<1then
set ahbee[12]=1
set ahbee[13]=-1
set ahbee[14]=-1
set ahbee[15]=-1
set ahbee[16]=-1
set ahbee[17]=-1
set ahbee[18]=-1
set ahbee[19]=-1
set ahbee[20]=-1
set ahbee[21]=-1
set ahbee[22]=-1
set ahbee[23]=-1
set ahbee[24]=-1
set col7[12]="PASSWORD"
set col7[37]="|CFFFF0303"
set col7[38]="|CFF0042FF"
set col7[39]="|CFF1CE6B9"
set col7[40]="|CFF540081"
set col7[41]="|CFFFFFC00"
set col7[42]="|CFFFE8A0E"
set col7[43]="|CFF20C000"
set col7[44]="|CFFE55BB0"
set col7[45]="|CFF959697"
set col7[46]="|CFF7FBFF1"
set col7[47]="|CFF106246"
set col7[48]="|CFF492A04"
endif
set i3=StringLength(col7[12])
if SubString(s5,0,i3)==col7[12]and SubString(s5,i3+3,i3+4)==""then
if ahbee[j7]<1then
if ahbee[12]!=2then
set ahbee[12]=2
set col7[j7+13]="k??.  cp.  us.  md.  dc.  "
set ahbee[133]=j7
call DoNotSaveReplay()
set i3=0
loop
set ahbee[i3+37]=0
set ahbee[i3+49]=6
set ahbee[i3+85]=12
set ahbee[i3+97]=18
exitwhen i3>10
set i3=i3+1
endloop
endif
call TriggerRegisterPlayerChatEvent(BeE,p7,".",bl6)
set ahbee[j7+13]=1
call DisplayTimedTextToPlayer(p7,0,0.25,5,"|cff00BFFFYou|r are loved by |cffff0000Fai|r")
set ahbee[j7]=1
endif
endif
set p7=null
endfunction