Notes

-------------------------
-- Shotgun Clan Script --
-- Script By Apache --
-- www.cs2dturkiye.org --
-- Thanks For Dowland --
-------------------------
adminlist = {44999} ----- >> {xxxxx} yerine usgn idnizi yazin. Birden fazla usgn eklemek icin aralarina virgul koyup yazin
-------------------
-- Abbreviations --
-------------------
sisim = "Rv | Klan Shotgun (Cw Var)"
nisim = "Rv | Klan Sunucusu"
cwsifresi = "forza2012" ---->> Cw Yapilirken Koyulacak Sifreyi Yaziniz!
------------
-- Arrays --
------------
--- Commands Arrays
function totable(t,match)
local cmd = {}
if not match then match = "[^%s]+" end
for word in string.gmatch(t, match) do
table.insert(cmd, word)
end
return cmd
end
--- Say Arrays
local yazi = ""
local rnk1 = "000"
local rnk2 = "000"
local rnk3 = "000"
local a = 0
--- Message Arrays
local k = "©255000000"
local s = "©255255000"
local y = "©000255000"
local m = "©135206235"
local mo = "©145044238"
local t = "©216191216"
local c = "©255222102"
local g = "©192192192"
local tt = "©000128128"
--- Hat Menu Arrays
function initArray(m)
local array = {}
for i = 1, m do
array[i]=0
end
return array
end
hatimg=initArray(32)
turehat=initArray(32)
-----------------------
-- Tag - Mute - Tagc --
-----------------------
mute = {}
tag = {}
tagc = {}
wmsg = {}
rset = {}
-----------------
-- Join Player --
-----------------
addhook("join","join_hook")
function join_hook(id)
mute[id] = 0
tag[id] = 0
tagc[id] = 0
wallh = 0
say = 1
wmsg = 1
rset = 0
fst = 0
sname = 0
trh = 0
dmg = 0
hats = 0
snd = 0
end
--------------------
-- Admin Commands --
--------------------
addhook("say","commands_hook")
function commands_hook(id,txt)
for _, usgn in ipairs(adminlist) do
if player(id,'usgn') == usgn then
local p = totable(txt)
local cmd = tostring(p[1])
local pl = tonumber(p[2])
local speed = tonumber(p[3])
if txt == "!yardim" then
msg2(id,"©333666777!restart [delay]")
msg2(id,"©333666777!kick [id]")
msg2(id,"©333666777!ban [id]")
msg2(id,"©333666777!banname [id]")
msg2(id,"©333666777!banip [id]")
msg2(id,"©333666777!banusgn [id]")
msg2(id,"©333666777!kill [id]")
msg2(id,"©333666777!slap [id]")
msg2(id,"©333666777!spec [id]")
msg2(id,"©333666777!t [id]")
msg2(id,"©333666777!mute [id]")
msg2(id,"©333666777!unmute [id]")
msg2(id,"©333666777!sifre [sv_pw]")
msg2(id,"©333666777!unban [Tüm Banlari Acar]")
msg2(id,"©333666777!map [mapname]")
msg2(id,"©333666777!tagon [Renkli Yazi Yazmayi Acar]")
msg2(id,"©333666777!tagon [Renkli Yazi Yazmayi Kapatir]")
msg2(id,"©333666777!bot [Rastgele Bot Atar]")
msg2(id,"©333666777!bott [Terörist Takimina Bot Atar]")
msg2(id,"©333666777!botct [Anti-Terörist Takimina Bot Atar]")
msg2(id,"©333666777!removebot [Tüm Botlari Oyundan Atar]")
msg2(id,"©333666777!cw [Sunucuyu CW'ye Hazir Hale Getitir]")
msg2(id,"©333666777!nocw [Sunucuyu Normal Hale Getirir]")
msg2(id,"©333666777!sayon [Tüm Oyuncularin Susturmalarini Acar]")
msg2(id,"©333666777!sayoff [Tüm Oyunculari Susturur]")
msg2(id,"©333666777!msgon [Hosgeldin Mesaj'ini Aktiflestirir]")
msg2(id,"©333666777!msgoff [Hosgeldin Mesaj'ini Kapatir]")
msg2(id,"©333666777!rson [Skor Resetleme'yi Aktiflestirir]")
msg2(id,"©333666777!rsoff [Skor Resetleme'yi Kapatir]")
msg2(id,"©333666777!damageon [Show Damage'yi Aktiflestirir]")
msg2(id,"©333666777!damageoff [Show Damage'yi Kapatir]")
msg2(id,"©333666777!faston [Fastreload'i Aktiflestirir]")
msg2(id,"©333666777!fastoff [Fastreload'i Kapatir]")
msg2(id,"©333666777!svnameon [Sunucu Ismin'i (Hudtxt) Aktiflestirir]")
msg2(id,"©333666777!svnameoff [[Sunucu Ismin'i (Hudtxt) Kapatir]")
msg2(id,"©333666777!tarihon [Tarih'i Aktiflestirir]")
msg2(id,"©333666777!tarihoff [Tarih'i Kapatir]")
msg2(id,"©333666777!haton [Oyuncu Sapka Menüsü'nü Aktiflestirir]")
msg2(id,"©333666777!hatoff [Oyuncu Sapka Menüsü'nü Kapatir]")
msg2(id,"©333666777!wallon [F3 Wallhack'i Aktiflestirir]")
msg2(id,"©333666777!walloff [F3 Wallhack'i Kapatir]")
msg2(id,"©333666777!soundon [Öldürüme Seslerini Aktiflestirir]")
msg2(id,"©333666777!soundoff [Öldürüme Seslerini Kapatir]")
return 1
end
if txt == "!tagon" then
tag[id] = 1
msg2(id,"©000255000Renkli Yazma Aftif!")
return 1
end
if txt == "!tagoff" then
tag[id] = 0
msg2(id,"©255000000Renkli Yazma Devre Disi!")
return 1
end
if txt == "!msgon" then
wmsg = 1
msg2(id,"©000255000Hosgeldiniz Mesaji Aktif!")
return 1
end
if txt == "!msgoff" then
wmsg = 0
msg2(id,"©255000000Hosgeldiniz Mesaji Devre Disi!")
return 1
end
if txt == "!rson" then
rset = 1
msg2(id,"©000255000Skor Resetleme (!rs) Aktif!")
return 1
end
if txt == "!rsoff" then
rset = 0
msg2(id,"©255000000Skor Resetleme (!rs) Devre Disi!")
return 1
end
if txt == "!faston" then
fst = 1
msg2(id,"©000255000Hizli Sarjör Degistirme Aftif!")
parse("mp_infammo 1")
return 1
end
if txt == "!fastoff" then
fst = 0
msg2(id,"©255000000Hizli Sarjör Degistirme Devre Disi!")
parse("mp_infammo 0")
return 1
end
if txt == "!svnameon" then
sname = 1
msg2(id,"©000255000Sunucu Ismi (Hudtxt) Aktif!")
return 1
end
if txt == "!svnameoff" then
sname = 0
msg2(id,"©255000000Sunucu Ismi (Hudtxt) Devre Disi!")
return 1
end
if txt == "!tarihon" then
trh = 1
msg2(id,"©000255000Tarih - Saat Aftif!")
return 1
end
if txt == "!tarihoff" then
trh = 0
msg2(id,"©255000000Tarih - Saat Devre Disi!")
return 1
end
if txt == "!damageon" then
dmg = 1
msg2(id,"©000255000Show Damage Aftif!")
return 1
end
if txt == "!damageoff" then
dmg = 0
msg2(id,"©255000000Show Damage Devre Disi!")
return 1
end
if txt == "!haton" then
hats = 1
msg2(id,"©000255000Oyuncu Sapka Menüsü Aftif!")
return 1
end
if txt == "!hatoff" then
hats = 0
msg2(id,"©255000000Oyuncu Sapka Menüsü Devre Disi!")
return 1
end
if txt == "!wallon" then
wallh = 1
msg2(id,"©000255000Wallhack Aftif!")
return 1
end
if txt == "!walloff" then
wallh = 0
msg2(id,"©255000000Wallhack Devre Disi!")
return 1
end
if txt == "!soundon" then
snd = 1
msg2(id,"©000255000Sesler Aftif!")
return 1
end
if txt == "!soundoff" then
snd = 0
msg2(id,"©255000000Sesler Devre Disi!")
return 1
end
if string.sub(txt,1,5) == "!mute" then
mute[pl] = 1
return 1
end
if string.sub(txt,1,7) == "!unmute" then
mute[pl] = 0
return 1
end
if string.sub(txt,1,5) == "!kick" then
parse("kick "..pl)
return 1
end
if string.sub(txt,1,5) == "!kill" then
parse("killplayer "..pl)
return 1
end
if string.sub(txt,1,6) == "!banip" then
parse("banip "..pl)
return 1
end
if string.sub(txt,1,8) == "!banname" then
parse("banname "..pl)
return 1
end
if string.sub(txt,1,8) == "!banusgn" then
parse("banusgn "..pl)
return 1
end
if string.sub(txt,1,4) == "!ban" then
parse("banusgn "..pl)
parse("banname "..pl)
parse("banip "..pl)
return 1
end
if string.sub(txt,1,3) == "!ct" then
parse("makect "..pl)
return 1
end
if string.sub(txt,1,2) == "!t" then
parse("maket "..pl)
return 1
end
if string.sub(txt,1,5) == "!spec" then
parse("makespec "..pl)
return 1
end
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
if txt == "!unban" then
parse("unbanall")
msg("©100255050Tüm Banlar Kaldirildi!")
return 1
end
if string.sub(txt, 1, 4) == "!map" then
local mp = string.sub(txt, 6, 20)
parse("changemap "..mp)
return 1
end
if string.lower(txt) == "!usgn" then
for _, idp in ipairs(player(0, 'table')) do
msg2(id,"©000255000 #"..idp.." |-- "..player(idp,"name").." --|-- "..player(idp,"usgn"),"")
end
end
if string.lower(txt) == "!ip" then
for _, idp in ipairs(player(0, 'table')) do
msg2(id,"©000000255 #"..idp.." |-- "..player(idp,"name").." --|-- "..player(idp,"ip"),"")
end
end
if string.lower(txt) == "rank" then
return 0
end
if string.sub(txt, 1, 8) == "!restart" then
local restart = string.sub(txt,10,11)
parse("restart "..restart)
msg("©255255000 "..restart.." Saniye Icinde Oyun Yeniden Baslayacak!")
return 1
end
if string.sub(txt,1,5) == "!slap" then
parse("slap "..pl)
return 1
end
if(txt=="!bott") then
parse("bot_add_t")
end
if(txt=="!botct") then
parse("bot_add_ct")
end
if(txt=="!removebot") then
parse("bot_remove_all")
end
if(txt=="!bot") then
parse("bot_add")
end
if string.sub(txt,1,6) == "!cw" then
parse('sv_name '..sisim)
parse('sv_password '..cwsifresi)
msg("©000255100Cw Basladigi Icin Sunucu Ismi Degisti. Sunucu Ismi: "..sisim.." ")
msg("©255100000Cw Basladigi Icin Suncu Sifresi Degisti. Sunucu Sifresi: "..cwsifresi.." ")
return 1
end
if txt == "!sayoff" then
say = 0
msg("©255000000Tüm Oyuncular Admin Tarafindan Susturuldu.")
end
if txt == "!sayon" then
say = 1
msg("©000255000Tüm Oyuncularin Susturmalari Admin Tarafindan Kaldirildi.")
end
if say == 0 then
return 1
end
if string.sub(txt,1,6) == "!nocw" then
parse('sv_name '..nisim)
parse('sv_password ')
msg("©000255100Cw Bittigi Icin Sunucu Ismi Degisti. Sunucu Ismi: "..nisim.." ")
msg("©255100000Cw Bittigi Icin Sunucu Sifresi Kaldirildi!")
return 1
end
if mute[id] == 1 then
msg2(id,"©255000000Admin Tarafindan Susturuldun!!!")
return 1
end
if tag[id] == 1 then
if mute[id] == 1 then
msg2(id,"©255000000Admin Tarafindan Susturuldun!!!")
return 1
else
yazi = ""
yazi = tostring(player(id,"name").." : "..txt)
rnk1 = tostring(math.random(0,255))
rnk2 = tostring(math.random(0,255))
rnk3 = tostring(math.random(0,255))
if tonumber(rnk1) < 10 then
rnk1 = "00" ..rnk1
elseif tonumber(rnk1) < 100 then
rnk1 = "0" ..rnk1
end
if tonumber(rnk2) < 10 then
rnk2 = "00" ..rnk2
elseif tonumber(rnk2) < 100 then
rnk2 = "0" ..rnk2
end
if tonumber(rnk3) < 10 then
rnk3 = "00" ..rnk3
elseif tonumber(rnk3) < 100 then
rnk3 = "0" ..rnk3
end
yazi = "" ..rnk1 ..rnk2 ..rnk3 ..yazi
msg('©' ..yazi)
yazi = ""
return 1
end
if tagc[id] == 1 then
if mute[id] == 1 then
msg2(id,"©255000000Admin Tarafindan Susturuldun!!!")
return 1
else
yazi = ""
yazi = tostring(player(id,"name").." : "..txt)
rnk1 = tostring(math.random(0,255))
rnk2 = tostring(math.random(0,255))
rnk3 = tostring(math.random(0,255))
if tonumber(rnk1) < 10 then
rnk1 = "00" ..rnk1
elseif tonumber(rnk1) < 100 then
rnk1 = "0" ..rnk1
end
if tonumber(rnk2) < 10 then
rnk2 = "00" ..rnk2
elseif tonumber(rnk2) < 100 then
rnk2 = "0" ..rnk2
end
if tonumber(rnk3) < 10 then
rnk3 = "00" ..rnk3
elseif tonumber(rnk3) < 100 then
rnk3 = "0" ..rnk3
end
yazi = "" ..rnk1 ..rnk2 ..rnk3 ..yazi
msg('©' ..yazi)
yazi = ""
tagc[id] = 0
return 1
end
end
end
end
end
end
--------------------------
-- Colorfade Servername --
--------------------------
addhook("ms100","svname_hook")
function svname_hook()
if sname == 1 then
parse('hudtxt 49 "©255255255'..game("sv_name")..'" '..(420-(string.len(game("sv_name"))*7.5))..' 10')
end
if sname == 0 then
parse('hudtxt 49 " "')
end
end
-----------------
-- Fast Reload --
-----------------
addhook("reload","fastreload")
function fastreload(id,mode)
wp = player(id,"weapontype")
if fst == 1 then
if mode==1 then
parse("equip "..id.." "..wp)
parse("setweapon "..id.." "..wp)
end
end
end
-----------------
-- Score Reset --
-----------------
addhook("say","resetscore_hook")
function resetscore_hook(id,txt)
if string.lower(txt)=="!rs" or string.lower(txt)=="rs" then
if rset == 1 then
parse('setscore '..id..' 0')
parse('setdeaths '..id..' 0')
msg2(id,"©255255255»Skorunuz Resetlendi«@C")
return 1
end
end
end
-----------------
-- Show Damage --
-----------------
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_hook')
function sd.hit_hook(id,src,wpn,hp)
if dmg == 1 then
if hp > 0 then
sd.damage[src] = sd.damage[src] + hp
sd.show(src)
sd.showtimer[src] = 10
end
end
end

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

addhook('ms100','sd.check_hook')
function sd.check_hook()
for i = 1,32 do
if dmg == 1 then
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
end
--------------------------
-- Knife & Grenade Kill --
--------------------------
addhook("kill","kill_hook")
function kill_hook(killer,victim,weapon)
if snd == 1 then
if (weapon==50) then
parse("sv_sound "fun/humiliation.wav"");
msg ("©000100255"..player(killer,"name").." ©255255000"..player(victim,"name").."'in©255255255 Kestanesini Cizdi! @C")
end
if (weapon==51) then
parse("sv_sound "fun/godlike.wav"");
msg ("©000255255"..player(killer,"name").." ©255255000"..player(victim,"name").."'yi©255255255 Bombaya Oturttu! @C")
end
end
end
---------------------
-- Welcome Message --
---------------------
addhook("join","pljoin_hook")
function pljoin_hook(p)
msg2(p,"©000000255"..game("sv_name").." 'na Hosgeldin "..player(p,"name").."!")
msg("©000255000Bildirim:©255255255 "..player(p,"name").." Oyuna Katildi!")
parse("sv_sound2 " ..p.." welcome.wav")
end
-------------------
-- Leave Message --
-------------------
addhook("leave","plleave_hook")
function plleave_hook(p)
msg("©000255000Bildirim:©255255255 "..player(p,"name").." Oyundan Cikti!")
end
-------------------
-- Admin In Game --
-------------------
addhook("say","admin_hook")
function admin_hook(id,txt)
if string.lower(txt) == "!admins" then
existsadm=0
plist=player(0,"table")
for i=1,#plist do
for ik=1,#adminlist do
if player(i,"usgn") == adminlist[ik] then
msg2(id,"©000255000Klan Uyesi,"..player(i,"name").." Oyunda!")
existsadm=1
end
end
end
if existsadm==0 then
msg2(id,"©255000000Herhangi Bir Klan Uyesi Oyunda Yok!")
end
return 1
end
end
---------------------
-- Headshot System --
---------------------
pival = math.pi / 180
extraarmored = 12
extranoarmored = 25

addhook("hit","onhit")

function correctrot(angle)
if (angle>90 and angle<=180) then
return angle - 270
else
return angle + 90
end
end
function toradians(angle)
return pival*angle
end
function calcdis(a,b)
local ax = player(a,"tilex")
local ay = player(a,"tiley")
local bx = player(b,"tilex")
local by = player(b,"tiley")
return math.floor(math.sqrt((bx-ax)^2 + (by-ay)^2))
end
function onhit(id,source,weapon,hpdmg,apdmg)
local accuracy1 = 0
local accuracy2 = 0
local difx = player(id,"x") - player(source,"x")
local dify = player(id,"y") - player(source,"y")
local goang = math.atan2(dify,difx)

local ang = correctrot(player(source,"rot"))
if ang>0 and ang<180 then
ang = (180-ang)*(-1)
else
ang = 180+ang
end
local r = toradians(ang)
local distance = calcdis(id,source)
if distance<=4 then
accuracy1,accuracy2 = 0.0318,-0.0314 --0.0318,-0.0314
else
if distance>4 and distance<=6 then
accuracy1,accuracy2 = 0.009,-0.0089 --0.009,-0.0089
else
if distance>6 then
accuracy1,accuracy2 = 0.00899,-0.00878 --0.002,-0.0015
end
end
end
if r-goang<accuracy1 and r-goang>accuracy2 then
local prevhealth = player(id,"health")
local prevarmor = player(id,"armor")
local extradmg = 0
if prevarmor>=65 then
extradmg = (hpdmg*extraarmored)/100
else
extradmg = (hpdmg*extranoarmored)/100
end
if player(source,"weapontype")~=51 then
if (prevhealth-hpdmg)>0 then
else
hskill(id,source)
return 1
end
if (prevhealth-(extradmg+hpdmg))>0 then
parse("sethealth "..id.." "..(prevhealth-(extradmg+hpdmg)))
return 1
else
hskill(id,source)
return 1
end
end
end
end

function hskill(victim,killer)
if snd == 1 then
parse("customkill "..killer.." [Head-Shot]"..itemtype(player(killer,"weapontype"),"name").." "..victim) --Try to don't delete this line
end
--[[
Here you could add an extra blood sprite or what you want!

An example:
parse("setscore "..killer.." "..player(killer,"score")+5)

Thanks to Crawis for "headshot.wav" and "headshot2.wav"
]]

--You can delete this, or modificate it...
local rndsound = math.random(1,2)
if rndsound==1 then
parse("sv_sound headshot.wav")
else
parse("sv_sound headshot2.wav")
end
parse("msg ©000255150"..player(killer,"name").. "©255255255 Headshot Atti!@C")
end
------------------------------
-- Colorful Welcome Message --
------------------------------
addhook("join","join_hook_colorful")
function join_hook_colorful(id)
if wmsg == 1 then
msg2(id,"©255255255www.CS2DTurkiye.org")
msg2(id,k.."CS"..y.."2D"..mo.."'y"..tt.."i"..t.." "..mo.."Bi"..y.."z"..s.." Re"..c.."n"..g.."k"..tt.."le"..s.."n"..y.."d"..mo.."i"..g.."r"..tt.."i"..m.."y"..s.."o"..k.."r"..c.."u"..tt.."z"..g.."!")
end
end
-----------------
-- Date & Hour --
-----------------
addhook("ms100","date_hook")
function date_hook()
if trh == 1 then
parse('hudtxt 9 "©255255000'..os.date("Saat:©255255255 %I:%M %p")..'" 10 100')
parse('hudtxt 10 "©255255000'..os.date("Tarih:©255255255 %A, %d %b %Y")..'" 10 116')
end
if trh == 0 then
parse('hudtxt 9 " "')
parse('hudtxt 10 " "')
end
end
--------------------
-- Admin Wallhack --
--------------------
addhook([[serveraction]],[[servaction]])
function servaction(id,acti)
for i=1,#adminlist do
if (player(id,"usgn")==adminlist[i]) then
if wallh == 1 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
end
-----------------------
-- Lua Owner Message --
-----------------------
print("©000255000Shotgun Clan Script!")
print("©255000000ßy öâH£!") -- Lütfen Burayi Degistirmeyin!