[YARDIM] Vip Panel

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı furkan08

  • Yeni Üye
  • *
    • İleti: 75
: 17 Şubat 2020, 13:15:05
Slm Arkaşdaşlar Ben Vip Paneli Verdigimde 1000 Parada Vermesini İstiyororum Yardımcı Olurmusunuz  :-[

Linki görebilmek için Kayıt olun yada Giriş yapın.



Client

Kod
------------------------
-----Panel Ortalama-----
------------------------
sC,sD = guiGetScreenSize()
C,D = 400,290
A = (sC/2) - (C/2)
B = (sD/2) - (D/2)
---------------
-----Panel-----
---------------
panel = guiCreateStaticImage(A, B, C, D, "siyah.png", false)
guiSetVisible(panel,false)

altin_kisim = guiCreateStaticImage(0, 0, A, 25, "altin.png", false, panel)
-------------------
-----Panel Adı-----
-------------------
panel_adi = guiCreateLabel(165, 5, 120, 25, "Vip Panel", false, altin_kisim)
guiSetFont(panel_adi, "default-bold-small")
guiLabelSetColor(panel_adi, 255, 255, 255)
----------------
-----Panel2-----
----------------
panel2 = guiCreateStaticImage(A+410, B, C-400, D, "siyah.png", false)
guiSetVisible(panel2,false)

altin_kisim2 = guiCreateStaticImage(0, 0, A, 25, "altin.png", false, panel2)
--------------------
-----Panel2 Adı-----
--------------------
panel_adi2 = guiCreateLabel(165, 5, 120, 25, "Diğer Özellikler", false, altin_kisim2)
guiSetFont(panel_adi2, "default-bold-small")
guiLabelSetColor(panel_adi2, 255, 255, 255)
--------------------
-----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)
ozellik5 = guiCreateCheckBox(20, 150, 130, 25, "Gökkuşağı Modu", false, false, panel)
ozellik6 = guiCreateCheckBox(20, 170, 130, 25, "Renkli Far Modu", false, false, panel)
---------------------------
-----Becerileri Doldur-----
---------------------------
beceriler_buton = guiCreateStaticImage(20, 200, 120, 25, "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, 230, 120, 25, "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, 260, 120, 25, "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, 180, "siyah.png", false, panel)
silah_listesi = guiCreateGridList(-5, -24.5, 230, 223, 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, 260, 178, 25, "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)
----------------
-----Panel2-----
----------------
panel2 = guiCreateStaticImage(A+410, B, C-125, D, "siyah.png", false)
guiSetVisible(panel2,false)

altin_kisim2 = guiCreateStaticImage(0, 0, A, 25, "altin.png", false, panel2)
--------------------
-----Panel2 Adı-----
--------------------
panel_adi2 = guiCreateLabel(100, 5, 120, 25, "Diğer Özellikler", false, altin_kisim2)
guiSetFont(panel_adi2, "default-bold-small")
guiLabelSetColor(panel_adi2, 255, 255, 255)
-------------------
-----Neon Modu-----
-------------------
secenekler2_label = guiCreateLabel(120, 50, 178, 16, "Neon Modu", false, panel2)
guiSetFont(secenekler2_label, "default-bold-small")
-------------------------------
-----Neon Listesi Gridlist-----
-------------------------------
gizle2 = guiCreateStaticImage(60, 70, 178, 180, "siyah.png", false, panel2)
neon_listesi = guiCreateGridList(-5, -24.5, 230, 223, false, gizle2)
guiGridListSetSortingEnabled(neon_listesi, false)
guiGridListAddColumn(neon_listesi, "Neon", 0.5)

NeonListesi = {
{"Kırmızı"},
{"Mavi"},
{"Yeşil"},
{"Sarı"},
{"Pembe"},
{"Beyaz"}
}

local idNeon = {
[1] = 14399,
[2] = 14400,
[3] = 14401,
[4] = 14402,
[5] = 14403,
[6] = 14404
}

for _, data in pairs (NeonListesi) do
local row = guiGridListAddRow(neon_listesi)
guiGridListSetItemText (neon_listesi, row, 1, data [1], false, false)
    guiGridListSetSortingEnabled(neon_listesi, false)
end
---------------------
-----Neon Kullan-----
---------------------
neon_buton = guiCreateStaticImage(60, 260, 178, 25, "altin.png", false, panel2)
neon_label = guiCreateLabel(57, 5, 110, 25, "Neonu Kullan", false, neon_buton)
guiSetFont(neon_label, "default-bold-small")
guiLabelSetColor(neon_label, 255, 255, 255)

addEventHandler("onClientGUIClick", root,
function()
if source == neon_label then
guiSetVisible(neon_buton, false)
guiSetVisible(neon_buton2, true)
end
end)
----------------------
-----Neonu Kaldır-----
----------------------
neon_buton2 = guiCreateStaticImage(60, 260, 178, 25, "altin.png", false, panel2)
neon_label2 = guiCreateLabel(57, 5, 110, 25, "Neonu Kaldır", false, neon_buton2)
guiSetFont(neon_label2, "default-bold-small")
guiLabelSetColor(neon_label2, 255, 255, 255)
guiSetVisible(neon_buton2,false)

addEventHandler("onClientGUIClick", root,
function()
if source == neon_label2 then
guiSetVisible(neon_buton, true)
guiSetVisible(neon_buton2, false)
setElementData( localPlayer, "neon", 0)
outputChatBox("Neon başarıyla kaldırıldı.", 0, 100, 255, true)
local theVehicle = getPedOccupiedVehicle ( localPlayer )
triggerServerEvent ("detachNeon", getLocalPlayer(), theVehicle)
end
end)
---------------------
-----Menü Butonu-----
---------------------
menu_buton = guiCreateStaticImage(365, 25, 30, 265, "altin.png", false, panel)
menu_ok = guiCreateStaticImage(-10, 100, 50, 50, "sag_ok.png", false, menu_buton)

addEventHandler("onClientGUIClick", root,
function()
if source == menu_ok then
guiSetVisible(panel2, true)
end
end)
---------------------
-----Menü2 Butonu-----
---------------------
menu2_buton = guiCreateStaticImage(5, 25, 30, 265, "altin.png", false, panel2)
menu2_ok = guiCreateStaticImage(-10, 100, 50, 50, "sol_ok.png", false, menu2_buton)

addEventHandler("onClientGUIClick", root,
function()
if source == menu2_ok then
guiSetVisible(panel2, false)
end
end)
----------------------
-----Paneli Kapat-----
----------------------
kapat_label = guiCreateLabel(376, 5, 60, 24, "X", false, altin_kisim)
guiSetFont(kapat_label, "default-bold-small")
guiLabelSetColor(kapat_label, 255, 255, 255)

function kapat()
if source == kapat_label then
guiSetVisible(panel, false)
guiSetVisible(panel2, 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 == menu_ok then
guiSetAlpha(menu_ok, 0.5)
else
if source == menu2_ok then
guiSetAlpha(menu2_ok, 0.5)
else
if source == neon_label then
guiSetAlpha(neon_label, 0.5)
else
if source == neon_label2 then
guiSetAlpha(neon_label2, 0.5)
else
if source == kapat_label then
guiSetAlpha(kapat_label, 0.5)
end
end
end
end
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 == menu_ok then
guiSetAlpha(menu_ok, 1)
else
if source == menu2_ok then
guiSetAlpha(menu2_ok, 1)
else
if source == neon_label then
guiSetAlpha(neon_label, 1)
else
if source == neon_label2 then
guiSetAlpha(neon_label2, 1)
else
if source == kapat_label then
guiSetAlpha(kapat_label, 1)
end
end
end
end
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)

function GrenkModu()
if isPedInVehicle(localPlayer) == false then
outputChatBox("Gökkuşağı Modu arabada değilken kullanılamaz.", 0, 150, 255, true)
end
if isPedInVehicle(localPlayer) == true then
if guiCheckBoxGetSelected(ozellik5) == true then
triggerServerEvent("onColor", localPlayer, 600,false)
else
triggerServerEvent("onColorStop", localPlayer)
end
else
guiCheckBoxSetSelected(ozellik5, false)
end
end
addEventHandler("onClientGUIClick", ozellik5, GrenkModu, false)

function RfarModu()
if isPedInVehicle(localPlayer) == false then
outputChatBox("Renkli Far Modu arabada değilken kullanılamaz.", 0, 150, 255, true)
end
if isPedInVehicle(localPlayer) == true then
if guiCheckBoxGetSelected(ozellik6) == true then
triggerServerEvent("onStrb", localPlayer, 150, true)
else
triggerServerEvent("onStrb", localPlayer, 9999999999999999999999999999999999999999999999999999999999999999999999999999999999999, false)
end
else
guiCheckBoxSetSelected(ozellik6, false)
end
end
addEventHandler("onClientGUIClick", ozellik6, RfarModu, 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)

addEventHandler("onClientGUIClick",root,function()
if source == neon_label then
local menusec = guiGridListGetSelectedItem(neon_listesi)
local isim = guiGridListGetItemText (neon_listesi, menusec, 1)
if isim=="Kırmızı" then
setElementData( localPlayer, "neon", idNeon[1] )
outputChatBox("Neon başarıyla seçildi.", 0, 200, 255, true)
local theVehicle = getPedOccupiedVehicle ( localPlayer )
triggerServerEvent ("detachNeon", getLocalPlayer(), theVehicle)
triggerServerEvent ("attachNeon", getLocalPlayer(), theVehicle)
else
if isim=="Mavi" then
setElementData( localPlayer, "neon", idNeon[2] )
outputChatBox("Neon başarıyla seçildi.", 0, 200, 255, true)
local theVehicle = getPedOccupiedVehicle ( localPlayer )
triggerServerEvent ("detachNeon", getLocalPlayer(), theVehicle)
triggerServerEvent ("attachNeon", getLocalPlayer(), theVehicle)
else
if isim=="Yeşil" then
setElementData( localPlayer, "neon", idNeon[3] )
outputChatBox("Neon başarıyla seçildi.", 0, 200, 255, true)
local theVehicle = getPedOccupiedVehicle ( localPlayer )
triggerServerEvent ("detachNeon", getLocalPlayer(), theVehicle)
triggerServerEvent ("attachNeon", getLocalPlayer(), theVehicle)
else
if isim=="Sarı" then
setElementData( localPlayer, "neon", idNeon[4] )
outputChatBox("Neon başarıyla seçildi.", 0, 200, 255, true)
local theVehicle = getPedOccupiedVehicle ( localPlayer )
triggerServerEvent ("detachNeon", getLocalPlayer(), theVehicle)
triggerServerEvent ("attachNeon", getLocalPlayer(), theVehicle)
else
if isim=="Pembe" then
setElementData( localPlayer, "neon", idNeon[5] )
outputChatBox("Neon başarıyla seçildi.", 0, 200, 255, true)
local theVehicle = getPedOccupiedVehicle ( localPlayer )
triggerServerEvent ("detachNeon", getLocalPlayer(), theVehicle)
triggerServerEvent ("attachNeon", getLocalPlayer(), theVehicle)
else
if isim=="Beyaz" then
setElementData( localPlayer, "neon", idNeon[6] )
outputChatBox("Neon başarıyla seçildi.", 0, 200, 255, true)
local theVehicle = getPedOccupiedVehicle ( localPlayer )
triggerServerEvent ("detachNeon", getLocalPlayer(), theVehicle)
triggerServerEvent ("attachNeon", getLocalPlayer(), theVehicle)
end
end
end
end
end
end
end
end)

function replaceTXD()
txd = engineLoadTXD ( "Neonlar/MatTextures.txd" )
engineImportTXD ( txd, idNeon[1] )
engineImportTXD ( txd, idNeon[2] )
engineImportTXD ( txd, idNeon[3] )
engineImportTXD ( txd, idNeon[4] )
engineImportTXD ( txd, idNeon[5] )
engineImportTXD ( txd, idNeon[6] )

col = engineLoadCOL("Neonlar/RedNeonTube1.col")
engineReplaceCOL(col, idNeon[1])
col = engineLoadCOL("Neonlar/BlueNeonTube1.col")
engineReplaceCOL(col, idNeon[2])
col = engineLoadCOL("Neonlar/GreenNeonTube1.col")
engineReplaceCOL(col, idNeon[3])
col = engineLoadCOL("Neonlar/YellowNeonTube1.col")
engineReplaceCOL(col, idNeon[4])
col = engineLoadCOL("Neonlar/PinkNeonTube1.col")
engineReplaceCOL(col, idNeon[5])
col = engineLoadCOL("Neonlar/WhiteNeonTube1.col")
engineReplaceCOL(col, idNeon[6])

dff = engineLoadDFF ( "Neonlar/RedNeonTube1.dff", idNeon[1] )
engineReplaceModel ( dff, idNeon[1] )
dff = engineLoadDFF ( "Neonlar/BlueNeonTube1.dff", idNeon[2] )
engineReplaceModel ( dff, idNeon[2] )
dff = engineLoadDFF ( "Neonlar/GreenNeonTube1.dff", idNeon[3] )
engineReplaceModel ( dff, idNeon[3] )
dff = engineLoadDFF ( "Neonlar/YellowNeonTube1.dff", idNeon[4] )
engineReplaceModel ( dff, idNeon[4] )
dff = engineLoadDFF ( "Neonlar/PinkNeonTube1.dff", idNeon[5] )
engineReplaceModel ( dff, idNeon[5] )
dff = engineLoadDFF ( "Neonlar/WhiteNeonTube1.dff", idNeon[6] )
engineReplaceModel ( dff, idNeon[6] )
end
addEventHandler ( "onClientResourceStart", getResourceRootElement(getThisResource()), replaceTXD)

g_Me = getLocalPlayer()
function VipPanel()
if getElementData(getLocalPlayer(), "Hapiste") then return false end
if getElementData(g_Me, "Gorevde") then return false end
if getElementData(getLocalPlayer(), "Etkinlikte") then return false end
if guiGetVisible(panel) then
guiSetVisible(panel, false)
guiSetVisible(panel2, false)
showCursor(false)
else
guiSetVisible(panel, true)
showCursor(true)
end    
end
addEvent( "PanelAcma", true )
addEventHandler( "PanelAcma", getRootElement(), VipPanel)

« Son Düzenleme: 31 Aralık 2020, 17:42:04 Gönderen: Narkoz »
 


MTASATURK

[YARDIM] Vip Panel
« : 17 Şubat 2020, 13:15:05 »

Çevrimdışı musa62

  • Yeni Üye
  • *
    • İleti: 34
Yanıtla #1 : 17 Şubat 2020, 20:40:41
Boşa Bekleme Yapabilen Yok Gecen Bende Böyler Birsey Yapcaktım Kımse Yapacagını Sanmıyorum Başka Yolunu Bul Bence
 


Çevrimdışı furkan08

  • Yeni Üye
  • *
    • İleti: 75
Yanıtla #2 : 17 Şubat 2020, 23:41:04
Ben Bilmiyorum Bilsem Konu Acmam  Linki görebilmek için Kayıt olun yada Giriş yapın.  Peki Sen Yaptınmı Hacım Yaptıysan Sen Yardım Et
 


Çevrimdışı xMert

  • Bilişim Teknolojileri
  • Moderatör
  • *
    • İleti: 435
  • C++
    • MTASATURK
Yanıtla #3 : 18 Şubat 2020, 05:39:45
Yardımcı Olabilirim Anladığım Kadarı İle Vip Verdiğin Kişiye Para Vermek İstiyorsun Doğrumudur ?
 


Çevrimdışı musa62

  • Yeni Üye
  • *
    • İleti: 34
Yanıtla #4 : 22 Şubat 2020, 12:40:15
Olursa Bende İsterim
« Son Düzenleme: 22 Şubat 2020, 15:24:14 Gönderen: musa62 »