Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- Role Play v1.2 by Chunks / Weiwen / Beckerchen
- adminList = {14584}
- parse([[mp_dispenser_money 5]])
- 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 pay ".._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 take ".._bmoney.." from your Bank-account!")
- else
- msg2(id,"©255255255not enought 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
- elseif 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 RedFrix/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 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]])==[[192.168.0.119]] 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
- if rp_ct[id] == true then
- rp_msg([[050050255]],player(id,[[name]])..[[: ]]..txt)
- 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
- 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]+Bmon[id]*0.1)
- 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]],[[[RP] Command: !bring <player>]])
- rp_msg2(id,[[000255000]],[[[RP] Command: !goto <player>]])
- rp_msg2(id,[[000255000]],[[[RP] Command: !rp_arrest <player>]])
- rp_msg2(id,[[000255000]],[[[RP] Command: !rp_free <player>]])
- rp_msg2(id,[[000255000]],[[[RP] Command: !rp_give_money <player> <money>]])
- rp_msg2(id,[[000255000]],[[[RP] Command: !rp_admin <word>]])
- 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 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement