[Jass]Ban player

[KangTooJee]

make it like this
call banPlayer("a")
call banPlayer("b")
call banPlayer("c")

[Apple]

make it like this
call banPlayer("a")
call banPlayer("b")
call banPlayer("c")

I have a lot to ban. I want to have include them in a single line.

[KangTooJee]

I edited it become like this..
But why it kick all players when the banned player join the map?

Spoiler:

function kick_people takes nothing returns nothing
local string playerNames
local integer i=0
local boolean mampus=false
loop
exitwhen i>11
set playerNames=StringCase(GetPlayerName(Player(i)),false)
if playerNames=="mp3_alucard-"or playerNames=="bbtb999"or playerNames=="focs-momo_"or playerNames=="mp4_victoria-"or playerNames=="mental_kroco"or playerNames=="lastroze"or playerNames=="mechq"or playerNames=="focs_newbie"or playerNames=="kadaphi"or playerNames=="dreyan"or playerNames=="eralisasi"or playerNames=="siegrain"or playerNames=="shikkoku"or playerNames=="absolutelies"or playerNames=="nobodysign~"or playerNames=="focs-deidara_"or playerNames=="[c]ross_[l]ife" then
set mampus=true
elseif playerNames=="rynchibii"or playerNames=="nasos_gagak"or playerNames=="minato~namikaze"or playerNames=="[madara_tobi]"or playerNames=="kampretforever"then
set mampus=true
endif
if mampus then
call CustomDefeatBJ(Player(i),"Mamak lu lacur, beli 3 gratis 1... ")
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,15.,("|cffff0000"+(GetPlayerName(Player(i))+" has been BANNED from this map because Cari masalah dengan KangTooJee, bagi yg berteman dengan dia akan ku ban")))
endif
set i=i+1
endloop
endfunction

Some1 please take a look please?

[Fukki]

write in 1 min
super fast check player to ban name

Spoiler:

Code: Select all

function Ban_Player_GC takes nothing returns gamecache
return InitGameCache("BanPlayer.w3v")
endfunction
function Ban_Player_Add2List takes string Ban_Player_Tmp returns nothing
local string Ban_Player_Str=StringCase(Ban_Player_Tmp,false)
call StoreBoolean(Ban_Player_GC(),Ban_Player_Str,Ban_Player_Str,true)
endfunction
function Ban_Player_Check_2 takes string Ban_Player_Tmp returns boolean
return GetStoredBoolean(Ban_Player_GC(),Ban_Player_Tmp,Ban_Player_Tmp)
endfunction
function Ban_Player_Check_1 takes nothing returns nothing
local trigger Ban_Player_Trigger=GetTriggeringTrigger()
local integer Ban_Player_Index=0
loop
if Ban_Player_Check_2(StringCase(GetPlayerName(Player(Ban_Player_Index)),false))then
if GetLocalPlayer()==Player(Ban_Player_Index)then
call EndGame(false)
endif
endif
exitwhen Ban_Player_Index>10
set Ban_Player_Index=Ban_Player_Index+1
endloop
call DestroyTrigger(Ban_Player_Trigger)
call FlushGameCache(Ban_Player_GC())
endfunction

function Ban_Player_Install takes nothing returns nothing
local trigger Ban_Player_Trigger=CreateTrigger()
call Ban_Player_Add2List("NAME...1")
call Ban_Player_Add2List("NAME...2")
call Ban_Player_Add2List("NAME...3")
call Ban_Player_Add2List("NAME...4")
call Ban_Player_Add2List("NAME...5")

call TriggerAddAction(Ban_Player_Trigger,function Ban_Player_Check_1)
call ConditionalTriggerExecute(Ban_Player_Trigger)
endfunction

[UndeadxAssassin]

Because you customdefeat Player(i), which is looped from 0-11, so it kicks everyone.

[KangTooJee]

but if I use GetEnumPlayer it will not kicking anyone

[haxorico]

If you have alot of names, you will have to add them this way or the other so I don't see the problem in what I wrote, just call the function several times and change the name only.
But here is a different way that might be more... "Good Looking"

under globals

Code: Select all

string array banlistNames

Under the locals of function main

Code: Select all

call initBanList()

under endglobals

Code: Select all

function banPlayer takes string nameToBan returns nothing
local integer index=0
set nameToBan=StringCase(nameToBan,false)
loop
exitwhen index>11
if StringCase(GetPlayerName(Player(index)),false) == nameToBan then
call CustomDefeatBJ(Player(index),"You have been banned from this map")
endif
set index=index+1
endloop
set nameToBan=""
endfunction

function initBanList takes nothing returns nothing
local integer index=0
local boolean b=true
set banlistNames[0]=="name"
set banlistNames[1]=="another name"
set banlistNames[2]=="another name"
set banlistNames[3]=="another name"
loop
exitwhen b==false
if (StringLength(banlistNames[index])>0)
call banPlayer(banlistNames[index])
else
set b=false
endif
set index=index+1
endloop
endfunction

I can't test if it will work, tell me how it goes.

[Apple]

Spoiler:

If you have alot of names, you will have to add them this way or the other so I don't see the problem in what I wrote, just call the function several times and change the name only.
But here is a different way that might be more... "Good Looking"

under globals

Code: Select all

string array banlistNames

Under the locals of function main

Code: Select all

call initBanList()

under endglobals

Code: Select all

function banPlayer takes string nameToBan returns nothing
local integer index=0
set nameToBan=StringCase(nameToBan,false)
loop
exitwhen index>11
if StringCase(GetPlayerName(Player(index)),false) == nameToBan then
call CustomDefeatBJ(Player(index),"You have been banned from this map")
endif
set index=index+1
endloop
set nameToBan=""
endfunction

function initBanList takes nothing returns nothing
local integer index=0
local boolean b=true
set banlistNames[0]=="name"
set banlistNames[1]=="another name"
set banlistNames[2]=="another name"
set banlistNames[3]=="another name"
loop
exitwhen b==false
if (StringLength(banlistNames[index])>0)
call banPlayer(banlistNames[index])
else
set b=false
endif
set index=index+1
endloop
endfunction

I can't test if it will work, tell me how it goes.

You forgot this.
if (StringLength(banlistNames[index])>0) then

Here's mine.. I have to add a lot of player names in function main hohoho
Endglobals

Spoiler:

function BanPlayerHax takes string Name2BanHax returns nothing
local integer index=0
set Name2BanHax=StringCase(Name2BanHax,false)
loop
exitwhen index>11
if StringCase(GetPlayerName(Player(index)),false) == Name2BanHax then
call RemovePlayer(Player(index),PLAYER_GAME_RESULT_VICTORY)
endif
set index=index+1
endloop
set Name2BanHax=""
endfunction
function BanPlayerBitch takes string Name2BanBitch returns nothing
local integer index=0
set Name2BanBitch=StringCase(Name2BanBitch,false)
loop
exitwhen index>11
if StringCase(GetPlayerName(Player(index)),false) == Name2BanBitch then
call EnableUserControl(false)
endif
set index=index+1
endloop
set Name2BanBitch=""
endfunction

Function main

Spoiler:

call banPlayer("aabaab12345")
call banPlayer("forbiddenz")