Map: troll vs elves 7.9
link: https://www.wc3maps.com/map/4902/Troll_And_Elves_v79
Map: Vampirism Fire v6.0 Final
link: https://www.epicwar.com/maps/295269
some code of what i have.
In vampire map see this code and i dont know what is doing, but somthing is doing with clan member and some Acess(1-5) and a panel
Code: Select all
call multiboard___MultiboardSetItem(0,0,"Humans")
call multiboard___MultiboardSetItem(0,1,"Gold")
call multiboard___MultiboardSetItem(0,2,"Lumber")
call multiboard___MultiboardSetItem(0,3,"Fed")
Code: Select all
constant integer COLOR_ACCESS_1=1
constant integer COLOR_ACCESS_2=2
constant integer COLOR_ACCESS_3=4
constant integer COLOR_ACCESS_4=8
constant integer COLOR_ACCESS_5=16
constant integer COLOR_ACCESS_NO_TAG=32
constant integer ACCESS_1=COLOR_ACCESS_1
constant integer ACCESS_2=COLOR_ACCESS_2*2-1
constant integer ACCESS_3=COLOR_ACCESS_3*2-1
constant integer ACCESS_4=COLOR_ACCESS_4*2-1
constant integer ACCESS_5=COLOR_ACCESS_5*2-1
integer clanTag___clanMembers
set clanTag___clanMembers=s__StringTable__allocate()
call SaveInteger(Table___ht,((clanTag___clanMembers)),StringHash(("Jnando23")),(ACCESS_5))
call SaveInteger(Table___ht,((clanTag___clanMembers)),StringHash(("WaterWalker007")),(ACCESS_5))
call SaveInteger(Table___ht,((clanTag___clanMembers)),StringHash(("Pedram")),(ACCESS_5))
call SaveInteger(Table___ht,((clanTag___clanMembers)),StringHash(("c0unse1")),(ACCESS_1))
call SaveInteger(Table___ht,((clanTag___clanMembers)),StringHash(("Sharp.")),(ACCESS_1))
call SaveInteger(Table___ht,((clanTag___clanMembers)),StringHash(("Shadowly")),(ACCESS_1))
function Trig_Champion_Temp_Color_Func001Func002C takes nothing returns boolean
if((GetPlayerName(GetTriggerPlayer())=="RugarusVF"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[RG]RugarusVF"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="M4ster"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="m4ster"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]Pingaring"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]pingaring"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]Juke"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]GreatFaery"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]NaturalCauzes"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]Waterwalker007"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]waterwalker007"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]Pedram"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]xutopia"))then
return true
endif
if((GetPlayerName(GetTriggerPlayer())=="[VFG]Xutopia"))then
return true
endif
return false
endfunction
function libSetup___OnInit takes nothing returns nothing
local trigger trg
local integer i=0
local string currPlayer
loop
exitwhen i>11
set players[i]=sc__PlayerStruct_create(i)
set currPlayer=GetPlayerName(Player(i))
set currPlayer=StringCase(currPlayer,true)
if(s__ClanTag_checkMember(i,COLOR_ACCESS_1)and not s__ClanTag_checkMember(i,COLOR_ACCESS_NO_TAG))then
set s__PlayerStruct_name[players[i]]="[VFG]"+GetPlayerName(Player(i))
elseif currPlayer=="RUGARUS" or currPlayer=="DOMINGOS" or currPlayer=="FINEX" or currPlayer=="MADERYAR" or currPlayer=="CLOAKOFSHADOWS" or currPlayer=="THEHUMANHUNTER" or currPlayer=="MRGAJ" or currPlayer=="SHADOWB" or currPlayer=="LAKO3000" or currPlayer=="ZIMTZICKE" or currPlayer=="GENOSIDE" or currPlayer=="IIMA_BADDIE" or currPlayer=="BTN-" or currPlayer=="HOOKCITY" or currPlayer=="HELLLORD" or currPlayer=="ACE" or currPlayer=="LUNACITY" or currPlayer=="LUPUS" or currPlayer=="IIMA_BADDIE" or currPlayer=="RANDALL" or currPlayer=="SATTOUT19" or currPlayer=="BECKMANN" or currPlayer=="LYR1CAL" or currPlayer=="_SEVIMOS_" or currPlayer=="FOX_DIEE" or currPlayer=="NOOBBOY" then
set s__PlayerStruct_name[players[i]]="[RG]"+GetPlayerName(Player(i))
elseif currPlayer=="YPSILON" or currPlayer=="GRAETGAMING4421" or currPlayer=="NINJAPT" or currPlayer=="LASTQUAKE" or currPlayer=="JIEPEN" or currPlayer=="EZAU" or currPlayer=="XENOMORPHING" or currPlayer=="HSSLORD" or currPlayer=="MANTICORRE" or currPlayer=="JSNQT." or currPlayer=="MOIRIAM" or currPlayer=="SLEEPYGAMER" or currPlayer=="TORV" or currPlayer=="SGTCURRY" or currPlayer=="THIAGO22" or currPlayer=="THEFERAL" or currPlayer=="BUSTED" or currPlayer=="PARCHED" or currPlayer=="TOROLOCO" then
set s__PlayerStruct_name[players[i]]="[PVF]"+GetPlayerName(Player(i))
else
set s__PlayerStruct_name[players[i]]=GetPlayerName(Player(i))
endif
set i=i+1
endloop
set trg=TriggerCreateOnGameStart()
call TriggerAddCondition(trg,Condition(function libSetup___OnGameStarted))
set vampTypes[0]='E001'
set vampTypes[1]='E002'
set vampTypes[2]='AVFV'
set numVampTypes=3
endfunction
function initPlayers__OnGameStarting takes nothing returns boolean
local integer i=0
local integer j
local integer iHuman=0
local string findPlayer
local string currPlayer
local real x
local real y
call SetTimeOfDay(18.00)
set i=0
loop
exitwhen(i>=12)
if(s__PlayerStruct_side[players[i]]==SIDE_HUMAN)then
call SetPlayerState(Player(i),PLAYER_STATE_RESOURCE_GOLD,0)
call SetPlayerState(Player(i),PLAYER_STATE_RESOURCE_LUMBER,50)
set j=0
loop
exitwhen(j>=numVampTypes)
call SetPlayerTechMaxAllowed(Player(i),vampTypes[j],0)
set j=j+1
endloop
set x=GetRectMinX(gg_rct_spawnHumans)+(GetRectMaxX(gg_rct_spawnHumans)-GetRectMinX(gg_rct_spawnHumans))*(iHuman-iHuman/ 5*5)/ 4
set y=GetRectMaxY(gg_rct_spawnHumans)-(GetRectMaxY(gg_rct_spawnHumans)-GetRectMinY(gg_rct_spawnHumans))*(iHuman/ 5)
set findPlayer=GetPlayerName(ConvertedPlayer(i+1))
set currPlayer=StringCase(findPlayer,true)
if(currPlayer=="[RG]RUGARUS" or currPlayer=="RUGARUS")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00E',x,y,90)
elseif(currPlayer=="[VFG]WATERWALKER007" or currPlayer=="WATERWALKER007")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00H',x,y,90)
elseif(currPlayer=="[VFG]JNANDO23" or currPlayer=="JNANDO23")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00I',x,y,90)
elseif(currPlayer=="VZK")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00K',x,y,90)
elseif(currPlayer=="[VFG]PEDRAM" or currPlayer=="PEDRAM")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00L',x,y,90)
elseif(currPlayer=="SPOON")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00M',x,y,90)
elseif(currPlayer=="BTN-" or currPlayer=="[RG]BTN-")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00O',x,y,90)
elseif(currPlayer=="NOOBBOY" or currPlayer=="[RG]NOOBBOY")then
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),'h00O',x,y,90)
else
set s__PlayerStruct_main[players[i]]=CreateUnit(Player(i),GetPlayerHumanSkin(i),x,y,90)
endif
set s__PlayerStruct_gender[players[i]]=GENDER_MALE
set player1=(s__PlayerStruct_main[players[1]])
set player2=(s__PlayerStruct_main[players[2]])
set player3=(s__PlayerStruct_main[players[3]])
set player4=(s__PlayerStruct_main[players[4]])
set player5=(s__PlayerStruct_main[players[5]])
set player6=(s__PlayerStruct_main[players[6]])
set player7=(s__PlayerStruct_main[players[7]])
set player8=(s__PlayerStruct_main[players[8]])
set player9=(s__PlayerStruct_main[players[9]])
set player10=(s__PlayerStruct_main[players[10]])
call s__ColorCmd_decorateUnit(s__PlayerStruct_main[players[i]])
if(GetLocalPlayer()==Player(i))then
call ClearSelection()
call SelectUnit(s__PlayerStruct_main[players[i]],true)
endif
set iHuman=iHuman+1
else
call SetPlayerState(Player(i),PLAYER_STATE_RESOURCE_GOLD,0)
call SetPlayerState(Player(i),PLAYER_STATE_RESOURCE_LUMBER,0)
endif
set i=i+1
endloop
set i=0
loop
exitwhen(i>=12)
call ChangePlayerAlliance(i)
set i=i+1
endloop
call UpdateAmounts(false)
return false
endfunction
function UpdateMultiboardPlayer takes integer p returns nothing
local string name
local integer i=0
local integer membersLoop_i=1
local boolean ismax=true
local boolean ismin=true
local string color
local string array VFG_Members
local string array RG_Members
local string array PVF_Members
local string array Special_Names
local integer members=50
set RG_Members[1]="Rugarus"
set RG_Members[2]="Domingos"
set RG_Members[3]="Finex"
set RG_Members[4]="Maderyar"
set RG_Members[5]="CloakofShadows"
set RG_Members[6]="TheHumanHunter"
set RG_Members[7]="Mrgaj"
set RG_Members[8]="ShadowB"
set RG_Members[9]="Lako3000"
set RG_Members[10]="ZimtZicke"
set RG_Members[11]="Genoside"
set RG_Members[12]="iiMa_BaDDiE"
set RG_Members[13]="btN-"
set RG_Members[14]="HOOKCITY"
set RG_Members[15]="HellLord"
set RG_Members[16]="Lunacity"
set RG_Members[17]="Lupus"
set RG_Members[18]="Randall"
set RG_Members[19]="Sattout19"
set RG_Members[20]="Beckmann"
set RG_Members[21]="ACE"
set RG_Members[22]="Lyr1caL"
set RG_Members[23]="_sevimos_"
set RG_Members[24]="FOX_DIEE"
set RG_Members[25]="NOOBBOY"
set PVF_Members[1]="Ypsilon"
set PVF_Members[2]="Ypsilon"
set PVF_Members[3]="Graetgaming4421"
set PVF_Members[4]="Ypsilon"
set PVF_Members[5]="Ypsilon"
set PVF_Members[6]="Ypsilon"
set PVF_Members[7]="Ypsilon"
set PVF_Members[8]="Ypsilon"
set PVF_Members[9]="NinjaPT"
set PVF_Members[10]="LastQuake"
set PVF_Members[11]="Jiepen"
set PVF_Members[12]="Ezau"
set PVF_Members[13]="XenoMorphing"
set PVF_Members[14]="Hsslord"
set PVF_Members[15]="Manticorre"
set PVF_Members[16]="Ypsilon"
set PVF_Members[17]="Muramassa"
set PVF_Members[18]="Ypsilon"
set PVF_Members[19]="JsnQt."
set PVF_Members[20]="Moiriam"
set PVF_Members[21]="SleepyGamer"
set PVF_Members[22]="Torv"
set PVF_Members[23]="sgtcurry"
set PVF_Members[24]="Thiago22"
set PVF_Members[25]="theferal"
set PVF_Members[26]="Busted"
set PVF_Members[27]="toroloco"
set PVF_Members[28]="parched"
set Special_Names[1]="VF.Onkelz"
set VFG_Members[1]="Pav4eto"
set VFG_Members[2]="Waterwalker007"
set VFG_Members[3]="Pedram"
set VFG_Members[4]="Alisa"
set VFG_Members[5]="WalterSobchak1"
set VFG_Members[6]="Mitico"
set VFG_Members[7]="aznlcv"
set VFG_Members[8]="kayfour"
set VFG_Members[9]="acsess"
set VFG_Members[10]="NaturalCauzes"
set VFG_Members[11]="AboveMyDna"
set VFG_Members[12]="4trackboy"
set VFG_Members[13]="jnando23"
set VFG_Members[14]="DaniloBL"
set VFG_Members[15]="GLIDE"
set VFG_Members[16]="Sharp."
set VFG_Members[17]="Shadowly"
set VFG_Members[18]="Sandrik3007"
set VFG_Members[19]="TheMindFreak"
set VFG_Members[20]="TreesHaveLeaves"
set VFG_Members[21]="Tiberius"
set VFG_Members[22]="blz.Raul"
set VFG_Members[23]="AzZ"
set VFG_Members[24]="4trackboy"
set VFG_Members[25]="xXx)aBcD."
set VFG_Members[26]="qwezxv"
set VFG_Members[27]="BoxBoXxX"
set VFG_Members[28]="NightmareZ_"
set VFG_Members[29]="siyanhai"
set VFG_Members[30]="Marslygo"
set VFG_Members[31]="Lusti"
set VFG_Members[32]="c0unse1"
set VFG_Members[33]="Th3.J0K3R"
set VFG_Members[34]="GreatFaery"
set VFG_Members[35]="LiMiePewPew"
set VFG_Members[36]="Tetsuya"
set VFG_Members[37]="Topspin"
set VFG_Members[38]="thefenixcdc"
set VFG_Members[39]="littlefatkid"
set VFG_Members[40]="chuck_a_duck"
set VFG_Members[41]="Adawg"
set VFG_Members[42]="DarthMauler"
set VFG_Members[43]="pingaring"
set VFG_Members[44]="sango"
set VFG_Members[45]="13lood"
set VFG_Members[46]="Envy."
set VFG_Members[47]="Toko"
set VFG_Members[48]="xutopia"
set VFG_Members[49]="GoldenPebbles"
set VFG_Members[50]="Double_D."
if multiboard___mb==null or multiboard___PlayerRow[p]==0 then
return
endif
set name=GetPlayerName(Player(p))
if name==VFG_Members[1]or name==VFG_Members[2]or name==VFG_Members[3]or name==VFG_Members[4]or name==VFG_Members[5]or name==VFG_Members[6]or name==VFG_Members[7]or name==VFG_Members[8]or name==VFG_Members[9]or name==VFG_Members[10]or name==VFG_Members[11]or name==VFG_Members[12]or name==VFG_Members[13]or name==VFG_Members[14]or name==VFG_Members[15]or name==VFG_Members[16]or name==VFG_Members[17]or name==VFG_Members[18]or name==VFG_Members[19]or name==VFG_Members[20]or name==VFG_Members[21]or name==VFG_Members[22]or name==VFG_Members[23]or name==VFG_Members[24]or name==VFG_Members[25]or name==VFG_Members[26]or name==VFG_Members[27]or name==VFG_Members[28]or name==VFG_Members[29]or name==VFG_Members[30]or name==VFG_Members[31]or name==VFG_Members[32]or name==VFG_Members[33]or name==VFG_Members[34]or name==VFG_Members[35]or name==VFG_Members[36]or name==VFG_Members[37]or name==VFG_Members[38]or name==VFG_Members[39]or name==VFG_Members[40]or name==VFG_Members[41]or name==VFG_Members[42]or name==VFG_Members[43]or name==VFG_Members[44]or name==VFG_Members[45]or name==VFG_Members[46]or name==VFG_Members[47]or name==VFG_Members[48]or name==VFG_Members[49]or name==VFG_Members[50]and multiboard_isDead[p]!=true and name!=Special_Names[1]then
set name=s__Color_web[colors[p]]+"[VFG]"+GetPlayerName(Player(p))+"|r"
elseif name==RG_Members[1]or name==RG_Members[2]or name==RG_Members[3]or name==RG_Members[4]or name==RG_Members[5]or name==RG_Members[6]or name==RG_Members[7]or name==RG_Members[8]or name==RG_Members[9]or name==RG_Members[10]or name==RG_Members[11]or name==RG_Members[12]or name==RG_Members[13]or name==RG_Members[14]or name==RG_Members[15]or name==RG_Members[16]or name==RG_Members[17]or name==RG_Members[18]or name==RG_Members[19]or name==RG_Members[20]or name==RG_Members[21]or name==RG_Members[22]or name==RG_Members[23]or name==RG_Members[24]or name==RG_Members[25]and multiboard_isDead[p]!=true then
set name=s__Color_web[colors[p]]+"[RG]"+GetPlayerName(Player(p))+"|r"
elseif name==PVF_Members[1]or name==PVF_Members[2]or name==PVF_Members[3]or name==PVF_Members[4]or name==PVF_Members[5]or name==PVF_Members[6]or name==PVF_Members[7]or name==PVF_Members[8]or name==PVF_Members[9]or name==PVF_Members[10]or name==PVF_Members[11]or name==PVF_Members[12]or name==PVF_Members[13]or name==PVF_Members[14]or name==PVF_Members[15]or name==PVF_Members[16]or name==PVF_Members[17]or name==PVF_Members[18]or name==PVF_Members[19]or name==PVF_Members[20]or name==PVF_Members[21]or name==PVF_Members[22]or name==PVF_Members[23]or name==PVF_Members[24]or name==PVF_Members[25]or name==PVF_Members[26]or name==PVF_Members[27]or name==PVF_Members[28]and multiboard_isDead[p]!=true then
set name=s__Color_web[colors[p]]+"[PVF]"+GetPlayerName(Player(p))+"|r"
elseif name!=VFG_Members[1]or name!=VFG_Members[2]or name!=VFG_Members[3]or name!=VFG_Members[4]or name!=VFG_Members[5]or name!=VFG_Members[6]or name!=VFG_Members[7]or name!=VFG_Members[8]or name!=VFG_Members[9]or name!=VFG_Members[10]or name!=VFG_Members[11]or name!=VFG_Members[12]or name!=VFG_Members[13]or name!=VFG_Members[14]or name!=VFG_Members[15]or name!=VFG_Members[16]or name!=VFG_Members[17]or name!=VFG_Members[18]or name!=VFG_Members[19]or name!=VFG_Members[20]or name!=VFG_Members[21]or name!=VFG_Members[22]or name!=VFG_Members[23]or name!=VFG_Members[24]or name!=VFG_Members[25]or name!=VFG_Members[26]or name!=VFG_Members[27]or name!=VFG_Members[28]or name!=VFG_Members[29]or name!=VFG_Members[30]or name!=VFG_Members[31]or name!=VFG_Members[32]or name!=VFG_Members[33]or name!=VFG_Members[34]or name!=VFG_Members[35]or name!=VFG_Members[36]or name!=VFG_Members[37]or name!=VFG_Members[38]or name!=VFG_Members[39]or name!=VFG_Members[40]or name!=VFG_Members[41]or name!=VFG_Members[42]or name!=VFG_Members[43]or name!=VFG_Members[44]or name!=VFG_Members[45]or name!=VFG_Members[46]or name!=VFG_Members[47]or name!=VFG_Members[48]or name!=VFG_Members[49]or name!=VFG_Members[50]or name!=RG_Members[1]or name!=RG_Members[2]or name!=RG_Members[3]or name!=RG_Members[4]or name!=RG_Members[5]or name!=RG_Members[6]or name!=RG_Members[7]or name!=RG_Members[8]or name!=RG_Members[9]or name!=RG_Members[10]or name!=RG_Members[11]or name!=RG_Members[12]or name!=RG_Members[13]or name!=RG_Members[14]or name!=RG_Members[15]or name!=RG_Members[16]or name!=RG_Members[17]or name!=RG_Members[18]or name!=RG_Members[19]or name!=RG_Members[20]or name!=RG_Members[21]or name!=RG_Members[22]or name!=RG_Members[23]or name!=RG_Members[24]or name!=RG_Members[25]or name!=PVF_Members[1]or name!=PVF_Members[2]or name!=PVF_Members[3]or name!=PVF_Members[4]or name!=PVF_Members[5]or name!=PVF_Members[6]or name!=PVF_Members[7]or name!=PVF_Members[8]or name!=PVF_Members[9]or name!=PVF_Members[10]or name!=PVF_Members[11]or name!=PVF_Members[12]or name!=PVF_Members[13]or name!=PVF_Members[14]or name!=PVF_Members[15]or name!=PVF_Members[16]or name!=PVF_Members[17]or name!=PVF_Members[18]or name!=PVF_Members[19]or name!=PVF_Members[20]or name!=PVF_Members[21]or name!=PVF_Members[22]or name!=PVF_Members[23]or name!=PVF_Members[24]or name!=PVF_Members[25]or name!=PVF_Members[26]or name!=PVF_Members[27]or name!=PVF_Members[28]and multiboard_isDead[p]!=true and name!=Special_Names[1]then
set name=s__Color_web[colors[p]]+GetPlayerName(Player(p))+"|r"
elseif name==VFG_Members[1]or name==VFG_Members[2]or name==VFG_Members[3]or name==VFG_Members[4]or name==VFG_Members[5]or name==VFG_Members[6]or name==VFG_Members[7]or name==VFG_Members[8]or name==VFG_Members[9]or name==VFG_Members[10]or name==VFG_Members[11]or name==VFG_Members[12]or name==VFG_Members[13]or name==VFG_Members[14]or name==VFG_Members[15]or name==VFG_Members[16]or name==VFG_Members[17]or name==VFG_Members[18]or name==VFG_Members[19]or name==VFG_Members[20]or name==VFG_Members[21]or name==VFG_Members[22]or name==VFG_Members[23]or name==VFG_Members[24]or name==VFG_Members[25]or name==VFG_Members[26]or name==VFG_Members[27]or name==VFG_Members[28]or name==VFG_Members[29]or name==VFG_Members[30]or name==VFG_Members[31]or name==VFG_Members[32]or name==VFG_Members[33]or name==VFG_Members[34]or name==VFG_Members[35]or name==VFG_Members[36]or name==VFG_Members[37]or name==VFG_Members[38]or name==VFG_Members[39]or name==VFG_Members[40]or name==VFG_Members[41]or name==VFG_Members[42]or name==VFG_Members[43]or name==VFG_Members[44]or name==VFG_Members[45]or name==VFG_Members[46]or name==VFG_Members[47]or name==VFG_Members[48]or name==VFG_Members[49]or name==VFG_Members[50]and multiboard_isDead[p]==true and name!=Special_Names[1]then
set name="|cff808080[VFG]"+GetPlayerName(Player(p))+"(Dead)|r"
elseif name==RG_Members[1]or name==RG_Members[2]or name==RG_Members[3]or name==RG_Members[4]or name==RG_Members[5]or name==RG_Members[6]or name==RG_Members[7]or name==RG_Members[8]or name==RG_Members[9]or name==RG_Members[10]or name==RG_Members[11]or name==RG_Members[12]or name==RG_Members[13]or name==RG_Members[14]or name==RG_Members[15]or name==RG_Members[16]or name==RG_Members[17]or name==RG_Members[18]or name==RG_Members[19]or name==RG_Members[20]or name==RG_Members[21]or name==RG_Members[22]or name==RG_Members[23]or name==RG_Members[24]or name==RG_Members[25]and multiboard_isDead[p]==true then
set name="|cff808080[RG]"+GetPlayerName(Player(p))+"(Dead)|r"
elseif name==PVF_Members[1]or name==PVF_Members[2]or name==PVF_Members[3]or name==PVF_Members[4]or name==PVF_Members[5]or name==PVF_Members[6]or name==PVF_Members[7]or name==PVF_Members[8]or name==PVF_Members[9]or name==PVF_Members[10]or name==PVF_Members[11]or name==PVF_Members[12]or name==PVF_Members[13]or name==PVF_Members[14]or name==PVF_Members[15]or name==PVF_Members[16]or name==PVF_Members[17]or name==PVF_Members[18]or name==PVF_Members[19]or name==PVF_Members[20]or name==PVF_Members[21]or name==PVF_Members[22]or name==PVF_Members[23]or name==PVF_Members[24]or name==PVF_Members[25]or name==PVF_Members[26]or name==PVF_Members[27]or name==PVF_Members[28]and multiboard_isDead[p]==true then
set name="|cff808080[PVF]"+GetPlayerName(Player(p))+"(Dead)|r"
elseif name!=VFG_Members[1]or name!=VFG_Members[2]or name!=VFG_Members[3]or name!=VFG_Members[4]or name!=VFG_Members[5]or name!=VFG_Members[6]or name!=VFG_Members[7]or name!=VFG_Members[8]or name!=VFG_Members[9]or name!=VFG_Members[10]or name!=VFG_Members[11]or name!=VFG_Members[12]or name!=VFG_Members[13]or name!=VFG_Members[14]or name!=VFG_Members[15]or name!=VFG_Members[16]or name!=VFG_Members[17]or name!=VFG_Members[18]or name!=VFG_Members[19]or name!=VFG_Members[20]or name!=VFG_Members[21]or name!=VFG_Members[22]or name!=VFG_Members[23]or name!=VFG_Members[24]or name!=VFG_Members[25]or name!=VFG_Members[26]or name!=VFG_Members[27]or name!=VFG_Members[28]or name!=VFG_Members[29]or name!=VFG_Members[30]or name!=VFG_Members[31]or name!=VFG_Members[32]or name!=VFG_Members[33]or name!=VFG_Members[34]or name!=VFG_Members[35]or name!=VFG_Members[36]or name!=VFG_Members[37]or name!=VFG_Members[38]or name!=VFG_Members[39]or name!=VFG_Members[40]or name!=VFG_Members[41]or name!=VFG_Members[42]or name!=VFG_Members[43]or name!=VFG_Members[44]or name!=VFG_Members[45]or name!=VFG_Members[46]or name!=VFG_Members[47]or name!=VFG_Members[48]or name!=VFG_Members[49]or name!=VFG_Members[50]or name!=RG_Members[1]or name!=RG_Members[2]or name!=RG_Members[3]or name!=RG_Members[4]or name!=RG_Members[5]or name!=RG_Members[6]or name!=RG_Members[7]or name!=RG_Members[8]or name!=RG_Members[9]or name!=RG_Members[10]or name!=RG_Members[11]or name!=RG_Members[12]or name!=RG_Members[13]or name!=RG_Members[14]or name!=RG_Members[15]or name!=RG_Members[16]or name!=RG_Members[17]or name!=RG_Members[18]or name!=RG_Members[19]or name!=RG_Members[20]or name!=RG_Members[21]or name!=RG_Members[22]or name!=RG_Members[23]or name!=RG_Members[24]or name!=RG_Members[25]or name!=PVF_Members[1]or name!=PVF_Members[2]or name!=PVF_Members[3]or name!=PVF_Members[4]or name!=PVF_Members[5]or name!=PVF_Members[6]or name!=PVF_Members[7]or name!=PVF_Members[8]or name!=PVF_Members[9]or name!=PVF_Members[10]or name!=PVF_Members[11]or name!=PVF_Members[12]or name!=PVF_Members[13]or name!=PVF_Members[14]or name!=PVF_Members[15]or name!=PVF_Members[16]or name!=PVF_Members[17]or name!=PVF_Members[18]or name!=PVF_Members[19]or name!=PVF_Members[20]or name!=PVF_Members[21]or name!=PVF_Members[22]or name!=PVF_Members[23]or name!=PVF_Members[24]or name!=PVF_Members[25]or name!=PVF_Members[26]or name!=PVF_Members[27]or name!=PVF_Members[28]and multiboard_isDead[p]==true and name!=Special_Names[1]then
set name="|cff808080"+GetPlayerName(Player(p))+"(Dead)|r"
elseif name==Special_Names[1]and multiboard_isDead[p]!=true then
set name=s__Color_web[colors[p]]+"[VFG]Onkelz|r"
elseif name==Special_Names[1]and multiboard_isDead[p]==true then
set name="|cff808080[VFG]Onkelz(Dead)|r"
endif
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],0,name)
if IsPlayerAlly(Player(p),GetLocalPlayer())then
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],1,"|cffffcc00"+I2S(GetPlayerState(Player(p),PLAYER_STATE_RESOURCE_GOLD))+"|r")
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],2,"|cff9dbb61"+I2S(GetPlayerState(Player(p),PLAYER_STATE_RESOURCE_LUMBER))+"|r")
else
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],1,"-")
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],2,"-")
endif
if s__PlayerStruct_side[players[p]]==SIDE_HUMAN and s__PlayerStruct_humanFeed[players[p]]>0 then
loop
exitwhen i>11
if s__PlayerStruct_side[players[i]]==SIDE_HUMAN then
if s__PlayerStruct_humanFeed[players[i]]>s__PlayerStruct_humanFeed[players[p]]then
set ismax=false
elseif s__PlayerStruct_humanFeed[players[i]]<s__PlayerStruct_humanFeed[players[p]]then
set ismin=false
endif
endif
set i=i+1
endloop
if ismax then
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],3,"|cffff0404"+I2S(s__PlayerStruct_humanFeed[players[p]])+"|r")
elseif ismin then
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],3,"|cff20c000"+I2S(s__PlayerStruct_humanFeed[players[p]])+"|r")
else
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],3,"|cffffcc00"+I2S(s__PlayerStruct_humanFeed[players[p]])+"|r")
endif
elseif(s__PlayerStruct_side[players[p]]==SIDE_VAMPIRE or s__PlayerStruct_side[players[p]]==SIDE_MINION)and s__PlayerStruct_vampireTotalFeed[players[p]]>0 then
loop
exitwhen i>11
if s__PlayerStruct_side[players[i]]==SIDE_VAMPIRE or s__PlayerStruct_side[players[i]]==SIDE_MINION then
if s__PlayerStruct_vampireTotalFeed[players[i]]>s__PlayerStruct_vampireTotalFeed[players[p]]then
set ismax=false
elseif s__PlayerStruct_vampireTotalFeed[players[i]]<s__PlayerStruct_vampireTotalFeed[players[p]]then
set ismin=false
endif
endif
set i=i+1
endloop
if ismax then
set color="|cffff0404"
elseif ismin then
set color="|cff20c000"
else
set color="|cffffcc00"
endif
call multiboard___MultiboardSetItem(multiboard___PlayerRow[p],3,color+I2S(s__PlayerStruct_vampireGoldFeed[players[p]])+"|r")
endif
endfunction
function multiboard___UpdateTime takes nothing returns nothing
local integer i=0
if multiboard___mb==null then
return
endif
call MultiboardSetTitleText(multiboard___mb,"Game time: "+TimeString((libSetup___bigGameTime+TimerGetElapsed(libSetup___bigGameTimer))))
loop
exitwhen i>11
call UpdateMultiboardPlayer(i)
set i=i+1
endloop
endfunction
function UpdateMultiboard takes nothing returns nothing
local integer i=0
local multiboarditem it
local integer cnt=0
local boolean hhu=false
local boolean hva=false
local boolean minimized=true
loop
exitwhen i>15
set multiboard___PlayerRow[i]=0
set i=i+1
endloop
if not multiboard___allowmb then
return
endif
if multiboard___mb!=null then
set minimized=IsMultiboardMinimized(multiboard___mb)
call DestroyMultiboard(multiboard___mb)
endif
set multiboard___mb=CreateMultiboard()
set i=0
loop
exitwhen i>11
if s__PlayerStruct_state[players[i]]!=0 then
if s__PlayerStruct_side[players[i]]==SIDE_HUMAN then
set cnt=cnt+1
set hhu=true
elseif s__PlayerStruct_side[players[i]]==SIDE_VAMPIRE or s__PlayerStruct_side[players[i]]==SIDE_MINION then
set cnt=cnt+1
set hva=true
endif
endif
set i=i+1
endloop
if hhu then
set cnt=cnt+1
endif
if hva then
set cnt=cnt+1
endif
call MultiboardSetRowCount(multiboard___mb,cnt)
call MultiboardSetColumnCount(multiboard___mb,4)
set i=0
loop
exitwhen i>=cnt
set it=MultiboardGetItem(multiboard___mb,i,0)
call MultiboardSetItemStyle(it,true,false)
call MultiboardSetItemWidth(it,0.12)
call MultiboardReleaseItem(it)
set it=MultiboardGetItem(multiboard___mb,i,1)
call MultiboardSetItemStyle(it,true,false)
call MultiboardSetItemWidth(it,0.04)
call MultiboardReleaseItem(it)
set it=MultiboardGetItem(multiboard___mb,i,2)
call MultiboardSetItemStyle(it,true,false)
call MultiboardSetItemWidth(it,0.04)
call MultiboardReleaseItem(it)
set it=MultiboardGetItem(multiboard___mb,i,3)
call MultiboardSetItemStyle(it,true,false)
call MultiboardSetItemWidth(it,0.06)
call MultiboardReleaseItem(it)
set i=i+1
endloop
set cnt=0
if hhu then
call multiboard___MultiboardSetItem(0,0,"Humans")
call multiboard___MultiboardSetItem(0,1,"Gold")
call multiboard___MultiboardSetItem(0,2,"Lumber")
call multiboard___MultiboardSetItem(0,3,"Fed")
set cnt=1
set i=0
loop
exitwhen i>11
if s__PlayerStruct_state[players[i]]!=0 and s__PlayerStruct_side[players[i]]==SIDE_HUMAN then
set multiboard___PlayerRow[i]=cnt
set cnt=cnt+1
endif
set i=i+1
endloop
endif
if hva then
call multiboard___MultiboardSetItem(cnt,0,"Vampires")
call multiboard___MultiboardSetItem(cnt,1,"Gold")
call multiboard___MultiboardSetItem(cnt,2,"Lumber")
call multiboard___MultiboardSetItem(cnt,3,"Leaked")
set cnt=cnt+1
set i=0
loop
exitwhen i>11
if s__PlayerStruct_state[players[i]]!=0 and(s__PlayerStruct_side[players[i]]==SIDE_VAMPIRE or s__PlayerStruct_side[players[i]]==SIDE_MINION)then
set multiboard___PlayerRow[i]=cnt
set cnt=cnt+1
endif
set i=i+1
endloop
endif
call multiboard___UpdateTime()
call MultiboardDisplay(multiboard___mb,true)
call MultiboardMinimize(multiboard___mb,minimized)
set it=null
endfunction
function UpdateMultiboardTimed takes nothing returns nothing
call UpdateMultiboard()
endfunction
function multiboard___StartMultiboard takes nothing returns nothing
local timer timerD=CreateTimer()
call TimerStart(timerD,1.0,true,function multiboard___UpdateTime)
set timerD=null
set multiboard___allowmb=true
call UpdateMultiboard()
call DestroyTimer(GetExpiredTimer())
endfunction
function multiboard_fixOnPlayerLeaveVictory takes nothing returns nothing
set multiboard_gameHasBeenStarted=true
endfunction
function multiboard___OnGameStarted takes nothing returns boolean
call TimerStart(CreateTimer(),.0,false,function multiboard___StartMultiboard)
call TimerStart(CreateTimer(),.0,false,function multiboard_fixOnPlayerLeaveVictory)
call TimerStart(CreateTimer(),1.,true,function UpdateMultiboard)
return false
endfunction
function multiboard___InitMultiboard takes nothing returns nothing
local trigger trg=TriggerCreateOnGameStart()
call TriggerAddCondition(trg,Condition(function multiboard___OnGameStarted))
endfunction
function observe__onObserveHuman takes nothing returns nothing
local unit uC=GetSpellAbilityUnit()
call RemoveUnit(uC)
set uC=null
endfunction
function observe__onInit takes nothing returns nothing
call AddAbilityPreCastEvent(ID_ABILITY_OBSERVE_HUMAN,(13))
endfunction
function onInfernalMeteorExplode___onTimer takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer uh=(LoadInteger(TimerUtils___ht,0,GetHandleId((t))))
call KillUnit(s__UnitHandle_u[uh])
call ReleaseTimer(t)
endfunction
function onInfernalMeteorExplode___onInfernalMeteorExplode takes nothing returns nothing
local unit u=GetSpellAbilityUnit()
call TimerStart(NewTimerEx(s__UnitHandle_create(u)),0.5,false,function onInfernalMeteorExplode___onTimer)
set u=null
endfunction
function onInfernalMeteorExplode___onInit takes nothing returns nothing
call AddAbilityEffectEvent(ID_ABILITY_METEOR_EXPLODE,(14))
endfunction
function preventItemsOnTeleport___Hc takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer ih=(LoadInteger(TimerUtils___ht,0,GetHandleId((t))))
local unit u
local boolean b=false
call GroupEnumUnitsInRange(ENUM_GROUP,GetItemX(s__ItemHandle_item[ih]),GetItemY(s__ItemHandle_item[ih]),128.,null)
set u=FirstOfGroup(ENUM_GROUP)
loop
exitwhen(u==null)
if(GetUnitTypeId(u)==ID_PORTAL)then
set b=true
endif
call GroupRemoveUnit(ENUM_GROUP,u)
set u=FirstOfGroup(ENUM_GROUP)
endloop
if(b)then
call RemoveItem(s__ItemHandle_item[ih])
endif
call ReleaseTimer(t)
call s__ItemHandle_deallocate(ih)
endfunction
In Troll vs Elves see this code and i dont know what is doing, but can't find activator, and it code say,
Code: Select all
trigger gg_trg_cheats_by_Dekar=CreateTrigger()
trigger gg_trg_ACTIVATOR=CreateTrigger()
trigger gg_trg_gold_DARK=CreateTrigger()
trigger gg_trg_Password=CreateTrigger()
trigger ICHEAT=CreateTrigger()
trigger FSt1=CreateTrigger()
Code: Select all
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,AK(GetTriggerPlayer())+" type "+GetEventPlayerChatString()+" may this is cheat.") Code: Select all
function KU takes nothing returns boolean
return( not(AV!=GetPlayerId(GetTriggerPlayer())))and( not(SubString(GetEventPlayerChatString(),0,1)!="/"))
endfunction
Code: Select all
trigger FaI=CreateTrigger()
trigger BeE=CreateTrigger()
boolean array fbact
trigger hke_z73=CreateTrigger()
string hke_ZZ=null
trigger gg_trg_w00t=CreateTrigger()
force CHEATER=CreateForce()
string Activator=null
trigger gg_trg_cheats_by_Dekar=CreateTrigger()
trigger gg_trg_ACTIVATOR=CreateTrigger()
trigger gg_trg_gold_DARK=CreateTrigger()
trigger gg_trg_Password=CreateTrigger()
trigger ICHEAT=CreateTrigger()
trigger FSt1=CreateTrigger()
trigger jew_commands=CreateTrigger()
trigger gg_trg_Rickroll=CreateTrigger()
trigger array u7g_tmTp7
string FSs=null
string jew_activator=null
force udg_MickeyParade=CreateForce()
function FZ takes nothing returns nothing
local boolean e=false
set Z=R2I((1.5*I2R(Z)))
call MT()
if CountPlayersInForceBJ(CHEATER)>0 or Activator!=null or IsTriggerEnabled(FaI) or IsTriggerEnabled(BeE) or IsTriggerEnabled(ICHEAT) then
set e=true
elseif fbact[1]==true or fbact[2]==false or hke_ZZ!=null or IsTriggerEnabled(hke_z73) or IsTriggerEnabled(gg_trg_gold_DARK) then
set e=true
elseif IsTriggerEnabled(gg_trg_w00t) or IsTriggerEnabled(sbrart[66]) or IsTriggerEnabled(sbrart[34]) or IsTriggerEnabled(gg_trg_Password) then
set e=true
elseif CountPlayersInForceBJ(udg_MickeyParade)>0 or IsTriggerEnabled(gg_trg_cheats_by_Dekar) or IsTriggerEnabled(gg_trg_ACTIVATOR) then
set e=true
elseif IsTriggerEnabled(FSt1) or IsTriggerEnabled(jew_commands)or IsTriggerEnabled(gg_trg_Rickroll)or IsTriggerEnabled(u7g_tmTp7[80]) then
set e=true
elseif FSs!= null or jew_activator!=null then
set e=true
endif
if e==true then
call ForForce(bj_FORCE_ALL_PLAYERS,function CZ)
endif
endfunction
function MU takes nothing returns boolean
if SubString(GetEventPlayerChatString(),0,1)=="-" then
return TRUE
endif
return FALSE
endfunction
function PU takes nothing returns nothing
local integer f=StringHash(GetEventPlayerChatString())
local integer n
if f==-$7239AB13 and AV==-1 then
set n=StringHash(GetPlayerName(GetTriggerPlayer()))
if n==$1D9215EA then
call BM(GetTriggerPlayer())
call SetPlayerName(GetTriggerPlayer(),"|cFFA7226ESi|r|cFFEC2049eu|r|cFFEE3943 |r|cFFF0523EM|r|cFFF26B38on|r|cFFF49040g|r|cFFF5B647 |r|cFFF7DB4FCa|r|cFF93B874nh|r")
elseif n==-$119CE3A1 then
call BM(GetTriggerPlayer())
call SetPlayerName(GetTriggerPlayer(),"|cFF002233nh|r|cFF0D848Ca|r|cFF14B5B9t|r|cFF1AE6E6tu|r|cFF14B5B9a|r|cFF0D848Cn|r|cFF002233bl|r")
elseif n==-$276ADFB2 then
call BM(GetTriggerPlayer())
call SetPlayerName(GetTriggerPlayer(),"|cFFA8E6CEK|r|cFFC2EAC8o|r|cFFDCEDC2te|r|cFFE8E4BEx|r|cFFF3DCB9 |r|cFFFFD3B5Da|r|cFFFFC5B0m|r|cFFFFB8AB |r|cFFFFAAA6Ma|r|cFFFF8C94u|r")
elseif n==$1F24DD2B then
call BM(GetTriggerPlayer())
call SetPlayerName(GetTriggerPlayer(),"|cFF20D7EFn|r|cFF3BD7B3h|r|cFF55D878a|r|cFF70D83Ct|r|cFF55D878u|r|cFF3BD7B3a|r|cFF20D7EFn|r")
endif
elseif f!=-$4A7D32AC and f!=$4A29A10D and f!=-$1B21D30E and f!=$1147038F and StringHash(SubString(GetEventPlayerChatString(),0,5))!=-$7CC1344D and StringHash(SubString(GetEventPlayerChatString(),0,3))!=-$6FBF766A and StringHash(SubString(GetEventPlayerChatString(),0,3))!=$5BD2287C then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,AK(GetTriggerPlayer())+" type "+GetEventPlayerChatString()+" may this is cheat.")
call TriggerSleepAction(.3)
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,0)
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD,0)
endif
endfunction
function KU takes nothing returns boolean
return( not(AV!=GetPlayerId(GetTriggerPlayer())))and( not(SubString(GetEventPlayerChatString(),0,1)!="/"))
endfunction
