Notes

The Best Shotgun Lua:

a = {44999}
b = {132272}
c = {xxxxx}
d = {xxxxx}
e = {xxxxx}
f = {xxxxx}
g = {xxxxx}
h = {xxxxx}
k = {xxxxx}
l = {xxxxx}
m = {xxxxx}
n = {xxxxx}
o = {xxxxx}
p = {xxxxx}
r = {xxxxx}
s = {xxxxx}
t = {xxxxx}
u = {xxxxx}
v = {xxxxx}
y = {xxxxx}
z = {xxxxx}

addhook("say","adminsay")
function adminsay(id,txt)
for _, usgn in ipairs(a) do
if player(id,'usgn') == usgn then
msg("©255255000"..player(id,"name").." :©255255255 "..txt) --- Beyaz
return 1
end
end
for _,usgn in ipairs(b) do
if player(id,'usgn') == usgn then
msg("©000000255"..player(id,"name")..":©255255255 "..txt) --- yesilimsi
return 1
end
end
for _, usgn in ipairs(c) do
if player(id,'usgn') == usgn then
msg("©100255000"..player(id,"name").." :©255255255 "..txt) --- Mavi-Koyu
return 1
end
end
for _, usgn in ipairs(d) do
if player(id,'usgn') == usgn then
msg("©000255255"..player(id,"name").." :©255255255 "..txt) --- turkuaz
return 1
end
end
for _, usgn in ipairs(e) do
if player(id,'usgn') == usgn then
msg("©000255000"..player(id,"name")..":©255255255 "..txt) --- Yesil
return 1
end
end
for _, usgn in ipairs(f) do
if player(id,'usgn') == usgn then
msg("©255000000"..player(id,"name")..":©255255255 "..txt) --- Kýrmýzý
return 1
end
end
for _, usgn in ipairs(g) do
if player(id,'usgn') == usgn then
msg("©000000000"..player(id,"name")..":©255255255 "..txt) --- Siyah
return 1
end
end
for _, usgn in ipairs(h) do
if player(id,'usgn') == usgn then
msg("©255255000"..player(id,"name")..":©255255255 "..txt) --- Sari
return 1
end
end
for _, usgn in ipairs(k) do
if player(id,'usgn') == usgn then
msg("©127127127"..player(id,"name")..":©255255255 "..txt) --- Gri
return 1
end
end
for _, usgn in ipairs(l) do
if player(id,'usgn') == usgn then
msg("©123154654"..player(id,"name")..":©255255255 "..txt) --- Morumsu
return 1
end
end
for _, usgn in ipairs(m) do
if player(id,'usgn') == usgn then
msg("©200000020"..player(id,"name")..":©255255255 "..txt) --- Kýrmýzýmsý
return 1
end
end
for _, usgn in ipairs(n) do
if player(id,'usgn') == usgn then
msg("©200300000"..player(id,"name")..":©255255255 "..txt) --- Sarýmsý
return 1
end
end
for _, usgn in ipairs(o) do
if player(id,'usgn') == usgn then
msg("©140000600"..player(id,"name")..":©255255255 "..txt) --- Mor
return 1
end
end
for _, usgn in ipairs(p) do
if player(id,'usgn') == usgn then
msg("©654123120"..player(id,"name")..":©255255255 "..txt) --- Pembemsi
return 1
end
end
for _, usgn in ipairs(r) do
if player(id,'usgn') == usgn then
msg("©000155255"..player(id,"name")..":©255255255 "..txt) --- Mavimsi
return 1
end
end
for _, usgn in ipairs(s) do
if player(id,'usgn') == usgn then
msg("©255000255"..player(id,"name")..":©255255255 "..txt) --- Pembe
return 1
end
end
for _, usgn in ipairs(t) do
if player(id,'usgn') == usgn then
msg("©224255255"..player(id,"name")..":©255255255 "..txt) --- Beyazimsi
return 1
end
end
for _, usgn in ipairs(u) do
if player(id,'usgn') == usgn then
msg("©250100000"..player(id,"name")..":©255255255 "..txt) --- Turuncu
return 1
end
end
for _, usgn in ipairs(v) do
if player(id,'usgn') == usgn then
msg("©029100200"..player(id,"name")..":©255255255 "..txt) --- mavi
return 1
end
end
for _, usgn in ipairs(y) do
if player(id,'usgn') == usgn then
msg("©000255155"..player(id,"name")..":©255255255 "..txt) --- acik yesil
return 1
end
end
for _, usgn in ipairs(z) do
if player(id,'usgn') == usgn then
msg("©123654654"..player(id,"name")..":©255255255 "..txt) --- fazla acýk mavi
return 1
end
end
end

addhook("say","resetci")
function resetci(id,txt)
if txt == "!rs" then
parse("setscore "..id.." 0")
parse("setdeaths "..id.." 0")
msg2(id,"©255255255Skorunuz Sifirlandi!")
return 1
end
if txt == "!resetscore" then
parse("setscore "..id.." 0")
parse("setdeaths "..id.." 0")
msg2(id,"©255255255Skorunuz Sifirlandi!")
return 1
end
if txt == "!RS" then
parse("setscore "..id.." 0")
parse("setdeaths "..id.." 0")
msg2(id,"©255255255Skorunuz Sifirlandi!")
return 1
end
if txt == "!Rs" then
parse("setscore "..id.." 0")
parse("setdeaths "..id.." 0")
msg2(id,"©255255255Skorunuz Sifirlandi!")
return 1
end
if txt == "!rS" then
parse("setscore "..id.." 0")
parse("setdeaths "..id.." 0")
msg2(id,"©255255255Skorunuz Sifirlandi!")
return 1
end
end

adminlist = {44999}

addhook("say","spec")
function spec(id,txt)
for i=1,#adminlist do
if player(id,"usgn") == adminlist[i] then
if string.sub(txt, 1, 5) == "!spec" then
local spc = string.sub(txt, 7, 8)
parse("makespec "..spc)
return 1
end
end
end
end

addhook("say","ct")
function ct(id,txt)
for i=1,#adminlist do
if player(id,"usgn") == adminlist[i] then
if string.sub(txt, 1, 3) == "!ct" then
local ct = string.sub(txt, 5, 6)
parse("makect "..ct)
return 1
end
end
end
end

addhook("say","t")
function t(id,txt)
for i=1,#adminlist do
if player(id,"usgn") == adminlist[i] then
if string.sub(txt, 1, 2) == "!t" then
local t = string.sub(txt, 4, 5)
parse("maket "..t)
return 1
end
end
end
end

addhook("say","restart")
function restart(id,txt)
for i=1,#adminlist do
if player(id,"usgn") == adminlist[i] then
if string.sub(txt, 1, 8) == "!restart" then
local restart = string.sub(txt, 10, 11)
parse("restart "..restart)
return 1
end
end
end
end

addhook("say","kick")
function kick(id,txt)
for i=1,#adminlist do
if player(id,"usgn") == adminlist[i] then
if string.sub(txt, 1, 5) == "!kick" then
local kid = string.sub(txt, 7, 8)
parse("kick "..kid)
return 1
elseif string.sub(txt, 1, 4) == "!ban" then
local bid = string.sub(txt, 6, 7)
local usgn = player(bid,"usgn")
parse("banname "..bid)
if usgn ~= 0 then
parse("banusgn "..usgn)
return 1
end
end
end
end
end

addhook("minute","minute_reset")
function minute_reset()
msg("©255255000!rs ve !resetscore = ©000255255Skor Sifirlama! ")
end


addhook("minute","msjes")
function msjes()
msg("©000200050Tüm Lua »Ã¶Ã[¢]H£« ye Aittir! ")
msg("©000000255F4 Tusu Her Oyuncuya Hat Menü! ")
msg("©255000000Küfür Edenler Otomatik Olarak Kicklenirler! ")
end

timer(1000,"showsvname","xP",0)

function showsvname()
for id=1,16 do
parse('hudtxtcolorfade '..id..' 40 1000 '..math.random(0,255)..' '..math.random(0,255)..' '..math.random(0,255))
end
end
parse('hudtxt 40 "©255128000'..game("sv_name")..'" 320 20 -1')

--------------------------------------------------
-- Simple Badwords Filter by Unreal Software --
-- 22.02.2009 - www.UnrealSoftware.de --
--------------------------------------------------

if sample==nil then sample={} end
sample.badwords={}

--------------------------------------
-- BADWORDS TABLE (LOWERCASE) --
--------------------------------------
sample.badwords.words = {"mk","fuck","aq","göt","pic","amk","oc","shit"}

--------------------------------------
-- HANDLE BADWORDS IN SAY MESSAGES --
--------------------------------------
addhook("say","sample.badwords.say")
function sample.badwords.say(p,t)
t=string.lower(t)
for i = 1,#sample.badwords.words do
if (string.find(t,sample.badwords.words[i])~=nil) then
msg(player(p,"name").."©255255255 Argo Kelime Kullandigi icin Kicklendi!")
parse("kick "..p)
break
end
end
end

addhook("join" , "otomsj")
function otomsj(id,message)
msg2(id,"©255255255*~.»[Ã]¶Ã[¢]H[£].~* Shotguna Hosgeldiniz!")
end

adminlist = {44999,132272}

--------------------------------------------
-- Show Damage Script by FastLine Advance
--------------------------------------------

sd = {}

function initArray(m)
local array = {}
for i = 1, m do
array[i]=0
end
return array
end

sd.damage = initArray(32)
sd.showtimer = initArray(32)

addhook('hit','sd.hit')
function sd.hit(id,src,wpn,hp)
if hp > 0 then
sd.damage[src] = sd.damage[src] + hp
sd.show(src)
sd.showtimer[src] = 10
end
end

function sd.show(id)
parse('hudtxt2 '..id..' 0 "©255255255-'..sd.damage[id]..' HP" 300 200 -1')
end

addhook('ms100','sd.check')
function sd.check()
for i = 1,32 do
if player(i,'exists') then
if sd.showtimer[i] > 0 then
sd.showtimer[i] = sd.showtimer[i] - 1
else
sd.damage[i] = 0
parse('hudtxt2 '..i..' 0 "" 320 240 0')
end
end
end
end

------Fast-Reload-------
------By leon7070-------
------06.10.2010--------
---www.newearth.de.tt---

addhook("reload","fastreload")
function fastreload(id,mode)
wp = player(id,"weapontype")
if mode==1 then
parse("equip "..id.." "..wp)
parse("setweapon "..id.." "..wp)
end
end


addhook("say","sifrekoy")
function sifrekoy(id,txt)
for _, usgn in ipairs(adminlist) do
if player(id,"usgn") == usgn then
if string.sub(txt, 1, 6) == "!sifre" then
local sifremiz = string.sub(txt, 8,20)
parse('sv_password '..sifremiz)
msg2(id, "©000255100Server Sifresi Degisti. Yeni Server Sifresi: "..sifremiz.." ")
return 1
end
end
end
end


addhook("say","affet")
function affet(id,txt)
for i=1,#adminlist do
if player(id,"usgn") == adminlist[i] then
if (txt == "!affet") then
parse("unbanall")
msg("©100255050Tüm Banlar Kaldirildi!")
return 1
end
end
end
end


addhook("say","sil")
function sil(id,txt)
for _, usgn in pairs(adminlist) do
if player(id,"usgn") == usgn then
if txt == "!sus" then
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg(" ")
msg("©255255255*~.»[Ã]¶Ã[¢]H[£]«.~* Shotgun!")
return 1
end
end
end
end

addhook("say","kill")
function kill(id,text)
for id=1,#adminlist do
if player(id,"usgn") == adminlist[id] then
if text:sub(1,5)=="!kill" then
parse("customkill 0 Admin "..tonumber(text:sub(7)))
return 1
end
end
end
end

addhook("say","mapvip")
function mapvip(id,txt)
for id=1,#adminlist do
if player(id,"usgn") == adminlist[id] then
if string.sub(txt, 1, 4) == "!map" then
local mp = string.sub(txt, 6, 20)
parse("changemap "..mp)
return 1
end
end
end
end


addhook("say","slap")
function slap(id,text)
for id=1,#adminlist do
if player(id,"usgn") == adminlist[id] then
if text:sub(1,5)=="!slap" then
parse("slap "..tonumber(text:sub(7)))
return 1
end
end
end
end





addhook([[serveraction]],[[servaction]])
function servaction(id,acti)
for i=1,#adminlist do
if (player(id,"usgn")==adminlist[i]) then
if acti == 2 then
local rot = player(id,[[rot]])
if rot < -90 then rot = rot + 360 end
local angle = math.rad(math.abs( rot + 90 )) - math.pi
local x = player(id,[[x]]) + math.cos(angle) * 25
local y = player(id,[[y]]) + math.sin(angle) * 25
if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
end
end
end
end
end

addhook("say","allspec")
function allspec(id,txt)
for _, usgn in ipairs(adminlist) do
if player(id,'usgn') == usgn then
if(txt=="!specall") then
parse("makespec 1")
parse("makespec 2")
parse("makespec 3")
parse("makespec 4")
parse("makespec 5")
parse("makespec 6")
parse("makespec 7")
parse("makespec 8")
parse("makespec 9")
parse("makespec 10")
parse("makespec 11")
parse("makespec 12")
parse("makespec 13")
parse("makespec 14")
parse("makespec 15")
end
end
end
end

addhook("say","saysa")
function saysa (id,txt)
if string.lower(txt)=="S.a." then
for _, id in ipairs(player(0, 'table')) do
msg("©255255255Biri Selam Verdi. Aleyküm Selam!")
return 1
end
end
end

addhook("say","saysae")
function saysae (id,txt)
if string.lower(txt)=="s.a." then
for _, id in ipairs(player(0, 'table')) do
msg("©255255255Biri Selam Verdi. Aleyküm Selam!")
return 1
end
end
end

addhook("say","saysad")
function saysad (id,txt)
if string.lower(txt)=="S.a" then
for _, id in ipairs(player(0, 'table')) do
msg("©255255255Biri Selam Verdi. Aleyküm Selam!")
return 1
end
end
end

addhook("say","saysac")
function saysac (id,txt)
if string.lower(txt)=="s.a" then
for _, id in ipairs(player(0, 'table')) do
msg("©255255255Biri Selam Verdi. Aleyküm Selam!")
return 1
end
end
end

addhook("say","saysab")
function saysab (id,txt)
if string.lower(txt)=="sa" then
for _, id in ipairs(player(0, 'table')) do
msg("©255255255Biri Selam Verdi. Aleyküm Selam!")
return 1
end
end
end

addhook("say","saysaa")
function saysaa (id,txt)
if string.lower(txt)=="Sa" then
for _, id in ipairs(player(0, 'table')) do
msg("©255255255Biri Selam Verdi. Aleyküm Selam!")
return 1
end
end
end


-- Anti Flood Script
-- By Apple # ¢®åz¥ßøø¥

-- Kaç saniyede bir yazabilsinler (varsayýlan: 1)
YAZI_ARALIGI = 1
-- Bir kelime kaç kez tekrarlanýnca kiþi oyundan atýlsýn? (varsayýlan: 5)
TEKRARLANMA_MIKTARI = 3
-- Flood yapýnca ne kadar sürelik ban atýlsýn? (saniye cinsinden yazýnýz. 60 = 1 dakika)
FLOODBANSURESI = 120
-- Banlanýnca kiþi tekrar girmeye çalýþýrsa çýkacak mesaj - Türkçe karakterlerden bazýlarý geçersizdir (ÐðÞþÝý)
FLOODBAN_MESAJI = "Flood Yaptiginiz icin 2 Dakikaligina Banlandiniz. "


antiflood = {};
flood = {};
word = {};
for i = 1,32 do flood[i]=0 word[i]="" end
addhook("say","ANTIFLOOD")
function ANTIFLOOD(id,txt)
if antiflood[id] then return 1 end
local l
if string.len(word[id])>14 and string.len(txt)>14 then
if word[id]:sub(1,15)==txt:sub(1,15) then
l=true
end
end
if word[id]==txt or l then
flood[id]=flood[id]+1
if flood[id]==TEKRARLANMA_MIKTARI-1 then
flood[id]=0
word[id]=""
local zaman
if FLOODBANSURESI<0 then
zaman = "sinirsiz olarak"
elseif FLOODBANSURESI%60==0 then
zaman = FLOODBANSURESI/60 .." dakikaligina"
else
zaman = math.floor(FLOODBANSURESI/60).." dakika ".. FLOODBANSURESI%60 .." saniyeligine"
end
msg(string.char(169).."000255000[Anti-Flood] "..player(id,"name").." flood yaptigindan dolayi "..zaman.." banlandi.")
local usgn=player(id,"usgn")
parse('banip '..player(id,"ip")..' '..FLOODBANSURESI..' "'..FLOODBAN_MESAJI..'"')
if usgn>0 then
parse('banusgn '..usgn..' '..FLOODBANSURESI)
end
return 1
end
else
flood[id]=0
end
word[id]=txt
antiflood[id]=true
timer(YAZI_ARALIGI*1000,"parse","lua antiflood["..id.."]=false")
end