MTASA TÜRK
Türkiye'nin En Güncel MTA Platformu


[İSTEK] Acl'ye Göre Özel Silah Panel

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı UtkuReis

  • Yeni Üye
  • *
    • İleti: 86
: 05 Ocak 2018, 20:56:14
Benim Bir Polisiye Serverim Var Ona Göre Bir Silah Panel Arıyorum Mesela Polis Grubunda Olanlar /polispanel Yazıcak Ve Silah Listesi Çıkıcak Ordan Teargas Vb. Silahları Alabilicek By.Cash'in Vip Panelinde Yapmış Olduğu Panelin Silah Seç Bölümü Gibi Olucak Ben Yapmaya Çalıştım Yapamadım Yardım Ederseniz Sevinirim,Teşekkürler.

Not : Silahlar Parasız Alınıcak.
« Son Düzenleme: 06 Ocak 2018, 20:00:39 Gönderen: Narkoz »
 


MTASA TÜRK

[İSTEK] Acl'ye Göre Özel Silah Panel
« : 05 Ocak 2018, 20:56:14 »

Çevrimdışı Mahlukat

  • Scripter
  • *
    • İleti: 653
Yanıtla #1 : 05 Ocak 2018, 21:08:12
Varsa panel kodlarını atarsan fonksiyonlarda yardımcı olabilir
Linki görebilmek için Kayıt olun yada Giriş yapın.
 


Çevrimdışı UtkuReis

  • Yeni Üye
  • *
    • İleti: 86
Yanıtla #2 : 05 Ocak 2018, 21:12:36
Server.lua ;
Spoiler for Hiden:
Kod: lua
-----------------
-----Ön Ayar-----
-----------------
Komut = "vip"
Vip_Arac = 411
Vip_Karakter = 39
----------------------
-----Fonksiyonlar-----
----------------------
function PanelAc(source, commandName)
local accName = getAccountName(getPlayerAccount(source))
if isObjectInACLGroup ("user."..accName, aclGetGroup("Vip")) then
triggerClientEvent(source, "PanelAcma", source)
else
outputChatBox("Bu komutu kullanmak için Vip Üye olmalısınız.", source, 0, 150, 255, true)
end
end
addCommandHandler( Komut, PanelAc)

addEvent ("SilahKullan", true)
addEventHandler ("SilahKullan", getRootElement(),
function(id)
giveWeapon(source, tonumber(id),99999)
outputChatBox("Silah alındı. [İD:"..id.."]", source, 0, 200, 255, true)
end)

function dokunulmazlik ( source )
if ( isPedInVehicle ( source ) ) then
if ( isVehicleDamageProof ( getPedOccupiedVehicle ( source ) )  == false )    then
setVehicleDamageProof ( getPedOccupiedVehicle ( source ), true )
outputChatBox("Dokunulmazlık Modu açıldı.", source, 0, 200, 255, true)
end
end
end
addEvent("dokunulmazlik", true )
addEventHandler("dokunulmazlik", resourceRoot, dokunulmazlik )

function dokunulmazlik_kapat ( source )
if ( isPedInVehicle ( source ) ) then
setVehicleDamageProof ( getPedOccupiedVehicle ( source ), false )
outputChatBox("Dokunulmazlık Modu kapandı.", source, 0, 150, 255, true)
end
end
addEvent("dokunulmazlik2", true)
addEventHandler("dokunulmazlik2", resourceRoot, dokunulmazlik_kapat )

function Beceriler_Doldur()
setPedStat(source, 22, 1000)
setPedStat(source, 23, 1000)
setPedStat(source, 24, 1000)
setPedStat(source, 25, 1000)
setPedStat(source, 69, 1000)
setPedStat(source, 70, 1000)
setPedStat(source, 71, 1000)
setPedStat(source, 72, 1000)
setPedStat(source, 73, 1000)
setPedStat(source, 74, 1000)
setPedStat(source, 75, 1000)
setPedStat(source, 76, 1000)
setPedStat(source, 77, 1000)
setPedStat(source, 78, 1000)
setPedStat(source, 79, 1000)
setPedStat(source, 80, 1000)
setPedStat(source, 81, 1000)
setPedArmor(source, 100)
setElementHealth(source, 200)
outputChatBox("Beceriler doldurulmuştur.", source, 0, 200, 255,false)
end
addEvent( "Beceriler_event", true )
addEventHandler( "Beceriler_event", getRootElement(), Beceriler_Doldur)

veh= {}
function Araba()
if veh[source] and
isElement(veh[source]) then
destroyElement(veh[source])
veh[source] = nil
end
local x,y,z = getElementPosition(source)
local zx,zy,zz = getElementRotation(source)
veh[source] = createVehicle(Vip_Arac, x, y, z, zx, zy, zz)
setVehicleColor(veh[source], 0, 200, 255)
addVehicleUpgrade(veh[source], 1010)
warpPedIntoVehicle(source, veh[source])
outputChatBox("Araba alındı.", source, 0, 200, 255, true)
end
addEvent("araba_event", true)
addEventHandler("araba_event", getRootElement(), Araba)

function AracHata(thePlayer, seat, jacked)
if getElementModel(source) == Vip_Arac then
local accName = getAccountName(getPlayerAccount(thePlayer))
if isObjectInACLGroup("user."..accName, aclGetGroup("Vip"))then
else
cancelEvent()
outputChatBox("Bu arabaya binmek için VİP Üye olmalısınız.", thePlayer, 0, 150, 255, true)
end
end
end
addEventHandler("onVehicleStartEnter", getRootElement(), AracHata)

function karakter_fonksiyon()
setPedSkin(source, Vip_Karakter)
outputChatBox("Karakter alındı.", source, 0, 200, 255, true)
end
addEvent( "karakter_event", true )
addEventHandler( "karakter_event", getRootElement(), karakter_fonksiyon )

function JetPackModu()
local JetPackVar = doesPedHaveJetPack(source)
if (JetPackVar) then 
removePedJetPack(source)
outputChatBox("JetPack bırakıldı.", source, 0, 150, 255, true)
else
givePedJetPack(source)
outputChatBox("JetPack alındı.", source, 0, 200, 255, true)
end
end
addEvent( "JetPack_event", true )
addEventHandler( "JetPack_event", getRootElement(), JetPackModu)

Client.lua ;
Spoiler for Hiden:
Kod: lua
-----------------------------------------------------
--Script ByCash tarafından kodlanıp paylaşılmıştır.--
--wwww.MTASA-TURK.com'u ziyaret etmeyi unutmayınız.--
--------LS Gaming Freeroam /0.1 beta scripti.--------
-----------------------------------------------------
h1,h2,h3,h4,h5,h6 = "B","y","C","a","s","h"
Yapimci_ = h1..h2..h3..h4..h5..h6
------------------------
-----Panel Ortalama-----
------------------------
sC,sD = guiGetScreenSize()
C,D = 378,250
A = (sC/2) - (C/2)
B = (sD/2) - (D/2)
---------------
-----Panel-----
---------------
panel = guiCreateStaticImage(A, B, C, D, "Dosyalar/Resimler/siyah.png", false)
guiSetVisible(panel,false)

mavi_kisim = guiCreateStaticImage(0, 0, 378, 25, "Dosyalar/Resimler/altin.png", false, panel)
-------------------
-----Panel Adı-----
-------------------
panel_adi = guiCreateLabel(165, 5, 120, 25, "Vip Panel", false, mavi_kisim)
guiSetFont(panel_adi, "default-bold-small")
guiLabelSetColor(panel_adi, 255, 255, 255)
--------------------------
-----Script Yapımcısı-----
--------------------------
Yapimci = guiCreateLabel(10, 5, 120, 25, Yapimci_, false, mavi_kisim)
guiSetFont(Yapimci, "default-bold-small")
--------------------
-----Seçenekler-----
--------------------
secenekler_label = guiCreateLabel(20, 50, 178, 16, "Seçenekler", false, panel)
guiSetFont(secenekler_label, "default-bold-small")
--------------------
-----Özellikler-----
--------------------
ozellik1 = guiCreateCheckBox(20, 70, 130, 25, "Dokunulmazlık Modu", false, false, panel)
ozellik2 = guiCreateCheckBox(20, 90, 110, 25, "Uçma Modu", false, false, panel)
ozellik3 = guiCreateCheckBox(20, 110, 110, 25, "Yüzme Modu", false, false, panel)
ozellik4 = guiCreateCheckBox(20, 130, 130, 25, "JetPack Modu", false, false, panel)
---------------------------
-----Becerileri Doldur-----
---------------------------
beceriler_buton = guiCreateStaticImage(20, 160, 120, 25, "Dosyalar/Resimler/altin.png", false, panel)
beceriler_label = guiCreateLabel(17, 5, 110, 25, "Becerileri Doldur", false, beceriler_buton)
guiSetFont(beceriler_label, "default-bold-small")
guiLabelSetColor(beceriler_label, 255, 255, 255)
-------------------------
-----Karakter Kullan-----
-------------------------
karakter_buton = guiCreateStaticImage(20, 190, 120, 25, "Dosyalar/Resimler/altin.png", false, panel)
karakter_label = guiCreateLabel(18, 5, 110, 25, "Karakter Kullan", false, karakter_buton)
guiSetFont(karakter_label, "default-bold-small")
guiLabelSetColor(karakter_label, 255, 255, 255)
----------------------
-----Araba Kullan-----
----------------------
araba_buton = guiCreateStaticImage(20, 220, 120, 25, "Dosyalar/Resimler/altin.png", false, panel)
araba_label = guiCreateLabel(23.5, 5, 110, 25, "Araba Kullan", false, araba_buton)
guiSetFont(araba_label, "default-bold-small")
guiLabelSetColor(araba_label, 255, 255, 255)
---------------------------
-----Silah Listesi-----
---------------------------
silah_listesi_label = guiCreateLabel(237, 50, 178, 16, "Silah Listesi", false, panel)
guiSetFont(silah_listesi_label, "default-bold-small")
--------------------------------
-----Silah Listesi Gridlist-----
--------------------------------
gizle = guiCreateStaticImage(180, 70, 178, 145, "Dosyalar/Resimler/siyah.png", false, panel)
silah_listesi = guiCreateGridList(-5, -24.5, 230, 188, false, gizle)
guiGridListSetSortingEnabled(silah_listesi, false)

guiGridListAddColumn(silah_listesi, "Silah", 0.9)
for i = 1, 6 do
guiGridListAddRow(silah_listesi)
end
----------------------
-----Silah Kullan-----
----------------------
silah_buton = guiCreateStaticImage(180, 220, 178, 25, "Dosyalar/Resimler/altin.png", false, panel)
silah_label = guiCreateLabel(57, 5, 110, 25, "Silahı Kullan", false, silah_buton)
guiSetFont(silah_label, "default-bold-small")
guiLabelSetColor(silah_label, 255, 255, 255)
----------------------
-----Paneli Kapat-----
----------------------
kapat_label = guiCreateLabel(360, 5, 60, 24, "X", false, mavi_kisim)
guiSetFont(kapat_label, "default-bold-small")
guiLabelSetColor(kapat_label, 255, 255, 255)

function kapat()
if source == kapat_label then
guiSetVisible(panel, false)
showCursor(false)
end
end
addEventHandler("onClientGUIClick", root, kapat)
---------------------
-----Buton Alpha-----
---------------------
addEventHandler ("onClientMouseEnter", root,
function ()
if source == silah_label then
guiSetAlpha(silah_label, 0.5)
else
if source == araba_label then
guiSetAlpha(araba_label, 0.5)
else
if source == karakter_label then
guiSetAlpha(karakter_label, 0.5)
else
if source == beceriler_label then
guiSetAlpha(beceriler_label, 0.5)
else
if source == kapat_label then
guiSetAlpha(kapat_label, 0.5)
end
end
end
end
end
end)

addEventHandler ("onClientMouseLeave", root,
function ()
if source == silah_label then
guiSetAlpha(silah_label, 1)
else
if source == araba_label then
guiSetAlpha(araba_label, 1)
else
if source == karakter_label then
guiSetAlpha(karakter_label, 1)
else
if source == beceriler_label then
guiSetAlpha(beceriler_label, 1)
else
if source == kapat_label then
guiSetAlpha(kapat_label, 1)
end
end
end
end
end
end)
----------------------
-----Fonksiyonlar-----
----------------------
function D_Modu()
if isPedInVehicle(localPlayer) == false then
outputChatBox("Dokunulmazlık Modu arabada değilken kullanılamaz.", 0, 150, 255, true)
end
if isPedInVehicle(localPlayer) == true then
if guiCheckBoxGetSelected(ozellik1) == true then
triggerServerEvent("dokunulmazlik", root, localPlayer)
else
triggerServerEvent("dokunulmazlik2", root, localPlayer)
end
else
guiCheckBoxSetSelected(ozellik1, false)
end
end
addEventHandler("onClientGUIClick", ozellik1, D_Modu, false)

function UcmaModu()
if isPedInVehicle(localPlayer) == false then
outputChatBox("Uçma Modu arabada değilken kullanılamaz.", 0, 150, 255, true)
end
if isPedInVehicle(localPlayer) == true then
if guiCheckBoxGetSelected(ozellik2) == true then
setWorldSpecialPropertyEnabled("aircars", true)
outputChatBox("Uçma Modu açıldı.", 0, 200, 255, true)
else
setWorldSpecialPropertyEnabled("aircars", false)
outputChatBox("Uçma Modu kapandı.", 0, 150, 255, true)
end
else
guiCheckBoxSetSelected(ozellik2, false)
end
end
addEventHandler("onClientGUIClick", ozellik2, UcmaModu, false)

function YuzmeModu()
if isPedInVehicle(localPlayer) == false then
outputChatBox("Yüzme Modu arabada değilken kullanılamaz.", 0, 150, 255, true)
end
if isPedInVehicle(localPlayer) == true then
if guiCheckBoxGetSelected(ozellik3) == true then
setWorldSpecialPropertyEnabled("hovercars", true)
outputChatBox("Yüzme Modu açıldı.", 0, 200, 255, true)
else
setWorldSpecialPropertyEnabled("hovercars", false)
outputChatBox("Yüzme Modu kapandı.", 0, 150, 255, true)
end
else
guiCheckBoxSetSelected(ozellik3, false)
end
end
addEventHandler("onClientGUIClick", ozellik3, YuzmeModu, false)

addEventHandler("onClientGUIClick",root,function()
if source == beceriler_label then
triggerServerEvent ("Beceriler_event", localPlayer)
end
end)

function JetPackModu()
if isPedInVehicle(localPlayer) == true then
outputChatBox("JetPack Modu sivil değilken kullanılamaz.", 0, 150, 255, true)
end
if isPedInVehicle(localPlayer) == false then
if guiCheckBoxGetSelected(ozellik4) == true then
triggerServerEvent ("JetPack_event", localPlayer, true)
else
triggerServerEvent ("JetPack_event", localPlayer, false)
end
else
guiCheckBoxSetSelected(ozellik4, false)
end
end
addEventHandler("onClientGUIClick", ozellik4, JetPackModu, false)

addEventHandler("onClientGUIClick",root,function()
if source == karakter_label then
triggerServerEvent ("karakter_event", localPlayer)
end
end)

addEventHandler("onClientGUIClick",root,function()
if source == araba_label then
triggerServerEvent ("araba_event", localPlayer)
end
end)

local Silahlar = {{34,99999},{31,99999},{30,99999},{29,99999},{32,99999},{28,99999},{27,99999},{26,99999},{25,99999},{24,99999},{23,99999},{22,99999},{5,99999}}
for i,v in ipairs (Silahlar) do
local itemName = getWeaponNameFromID (v[1])
local row = guiGridListAddRow(silah_listesi)
guiGridListSetItemText(silah_listesi, row, 1, itemName, false, true)
guiGridListSetItemText(silah_listesi, row, 2, tostring(v[2]), false, true)
end

addEventHandler("onClientGUIClick",root,function()
if source == silah_label then
if (guiGridListGetSelectedItem (silah_listesi)) then
local itemName = guiGridListGetItemText (silah_listesi, guiGridListGetSelectedItem (silah_listesi), 1)
local itemID = getWeaponIDFromName (itemName)
triggerServerEvent ("SilahKullan", getLocalPlayer(), itemID, itemName)
end
end
end)

function VipPanel()
if guiGetVisible(panel) then
guiSetVisible(panel, false)
showCursor(false)
else
guiSetVisible(panel, true)
showCursor(true)
end    
end
addEvent( "PanelAcma", true )
addEventHandler( "PanelAcma", getRootElement(), VipPanel)
 


Çevrimdışı ByCash

  • Bilişim Teknolojileri
  • Admin
  • *
    • İleti: 983
  • ###
    • MTASATURK
Yanıtla #3 : 05 Ocak 2018, 21:25:50
Server.lua;
Spoiler for Hiden:
Kod: lua
-----------------
-----Ön Ayar-----
-----------------
Komut = "polis"
Acl_Grup = "Polis"
----------------------
-----Fonksiyonlar-----
----------------------
function PanelAc(source, commandName)
local accName = getAccountName(getPlayerAccount(source))
if isObjectInACLGroup ("user."..accName, aclGetGroup(Acl_Grup)) then
triggerClientEvent(source, "PanelAcma", source)
else
outputChatBox("Bu komutu kullanmak için Polis olmalısınız.", source, 0, 150, 255, true)
end
end
addCommandHandler( Komut, PanelAc)

addEvent ("SilahKullan", true)
addEventHandler ("SilahKullan", getRootElement(),
function(id)
giveWeapon(source, tonumber(id),99999)
outputChatBox("Silah alındı. [İD:"..id.."]", source, 0, 200, 255, true)
end)

Client.lua;
Spoiler for Hiden:
Kod: lua
-----------------------------------------------------
--Script ByCash tarafından kodlanıp paylaşılmıştır.--
--wwww.MTASA-TURK.com'u ziyaret etmeyi unutmayınız.--
--------LS Gaming Freeroam /0.1 beta scripti.--------
-----------------------------------------------------
h1,h2,h3,h4,h5,h6 = "B","y","C","a","s","h"
Yapimci_ = h1..h2..h3..h4..h5..h6
-----------------
-----Ön Ayar-----
-----------------
local Silahlar = {{34,99999},{31,99999},{30,99999},{29,99999},{32,99999},{28,99999},{27,99999},{26,99999},{25,99999},{24,99999},{23,99999},{22,99999},{5,99999}}
------------------------
-----Panel Ortalama-----
------------------------
sC,sD = guiGetScreenSize()
C,D = 378,250
A = (sC/2) - (C/2)
B = (sD/2) - (D/2)
---------------
-----Panel-----
---------------
panel = guiCreateStaticImage(A, B, C, D, "Dosyalar/Resimler/siyah.png", false)
guiSetVisible(panel,false)

mavi_kisim = guiCreateStaticImage(0, 0, 378, 25, "Dosyalar/Resimler/altin.png", false, panel)
-------------------
-----Panel Adı-----
-------------------
panel_adi = guiCreateLabel(165, 5, 120, 25, "Polis Paneli", false, mavi_kisim)
guiSetFont(panel_adi, "default-bold-small")
guiLabelSetColor(panel_adi, 255, 255, 255)
--------------------------
-----Script Yapımcısı-----
--------------------------
Yapimci = guiCreateLabel(10, 5, 120, 25, Yapimci_, false, mavi_kisim)
guiSetFont(Yapimci, "default-bold-small")
---------------------------
-----Silah Listesi-----
---------------------------
silah_listesi_label = guiCreateLabel(237, 50, 178, 16, "Silah Listesi", false, panel)
guiSetFont(silah_listesi_label, "default-bold-small")
--------------------------------
-----Silah Listesi Gridlist-----
--------------------------------
gizle = guiCreateStaticImage(180, 70, 178, 145, "Dosyalar/Resimler/siyah.png", false, panel)
silah_listesi = guiCreateGridList(-5, -24.5, 230, 188, false, gizle)
guiGridListSetSortingEnabled(silah_listesi, false)

guiGridListAddColumn(silah_listesi, "Silah", 0.9)
for i = 1, 6 do
guiGridListAddRow(silah_listesi)
end
----------------------
-----Silah Kullan-----
----------------------
silah_buton = guiCreateStaticImage(180, 220, 178, 25, "Dosyalar/Resimler/altin.png", false, panel)
silah_label = guiCreateLabel(57, 5, 110, 25, "Silahı Kullan", false, silah_buton)
guiSetFont(silah_label, "default-bold-small")
guiLabelSetColor(silah_label, 255, 255, 255)
----------------------
-----Paneli Kapat-----
----------------------
kapat_label = guiCreateLabel(360, 5, 60, 24, "X", false, mavi_kisim)
guiSetFont(kapat_label, "default-bold-small")
guiLabelSetColor(kapat_label, 255, 255, 255)

function kapat()
if source == kapat_label then
guiSetVisible(panel, false)
showCursor(false)
end
end
addEventHandler("onClientGUIClick", root, kapat)
---------------------
-----Buton Alpha-----
---------------------
addEventHandler ("onClientMouseEnter", root,
function ()
if source == silah_label then
guiSetAlpha(silah_label, 0.5)
else
if source == kapat_label then
guiSetAlpha(kapat_label, 0.5)
end
end
end)

addEventHandler ("onClientMouseLeave", root,
function ()
if source == silah_label then
guiSetAlpha(silah_label, 1)
else
if source == kapat_label then
guiSetAlpha(kapat_label, 1)
end
end
end)
----------------------
-----Fonksiyonlar-----
----------------------
for i,v in ipairs (Silahlar) do
local itemName = getWeaponNameFromID (v[1])
local row = guiGridListAddRow(silah_listesi)
guiGridListSetItemText(silah_listesi, row, 1, itemName, false, true)
guiGridListSetItemText(silah_listesi, row, 2, tostring(v[2]), false, true)
end

addEventHandler("onClientGUIClick",root,function()
if source == silah_label then
if (guiGridListGetSelectedItem (silah_listesi)) then
local itemName = guiGridListGetItemText (silah_listesi, guiGridListGetSelectedItem (silah_listesi), 1)
local itemID = getWeaponIDFromName (itemName)
triggerServerEvent ("SilahKullan", getLocalPlayer(), itemID, itemName)
end
end
end)

function PolisPaneli()
if guiGetVisible(panel) then
guiSetVisible(panel, false)
showCursor(false)
else
guiSetVisible(panel, true)
showCursor(true)
end    
end
addEvent( "PanelAcma", true )
addEventHandler( "PanelAcma", getRootElement(), PolisPaneli)
« Son Düzenleme: 05 Ocak 2018, 21:38:11 Gönderen: ByCash »
 
Mesajı Beğenenler: UtkuReis


Çevrimdışı UtkuReis

  • Yeni Üye
  • *
    • İleti: 86
Yanıtla #4 : 05 Ocak 2018, 21:32:58
Çok Teşekkür Ederim Linki görebilmek için Kayıt olun yada Giriş yapın.
« Son Düzenleme: 06 Ocak 2018, 19:48:36 Gönderen: Narkoz »
 


Çevrimdışı ByCash

  • Bilişim Teknolojileri
  • Admin
  • *
    • İleti: 983
  • ###
    • MTASATURK
Yanıtla #5 : 05 Ocak 2018, 21:34:14
Rica ederim dostum, pc geçtiğimde daha düzenli bir şekilde paylaşırım.
 
Mesajı Beğenenler: UtkuReis


MTASA TÜRK

Ynt: [İSTEK] Acl Özel Silah Panel
« Yanıtla #5 : 05 Ocak 2018, 21:34:14 »