[İSTEK] Admin Para Kesme

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Prose

  • Deneyimli Üye
  • *
    • İleti: 454
  • Gökhan Türkoglu
: 15 Mart 2018, 18:01:41
Selamun Aleyküm Beyler,
Bana Admin aclsindeki kisilerin oyuncuların para kesecegi bir sript lazım örnegin
/parakes nick sebep gibi   para kesinde tüm swdekiler görmesini istiyorum chatte,Roleplay Gibi Yani
Şimdiden Teşekkürler.
« Son Düzenleme: 16 Mart 2018, 00:16:57 Gönderen: Narkoz »
 


MTASATURK

[İSTEK] Admin Para Kesme
« : 15 Mart 2018, 18:01:41 »

Çevrimdışı Mahlukat

  • Uzman Üye
  • *
    • İleti: 637
Yanıtla #1 : 15 Mart 2018, 18:20:10
server.lua
Kod: lua
addCommandHandler("parakes", function(oyuncu, _, kesilcek, miktar, sebep)
local hesapismi = getAccountName(getPlayerAccount(oyuncu))
if isObjectInACLGroup("user." ..hesapismi, aclGetGroup("Admin")) then
if kesilcek then
local kesilcekOyuncu = isimdenOyuncuBul(kesilcek)
if kesilcekOyuncu then
if miktar and type(tonumber(miktar)) == "number" then
if sebep then sebep = "Sebep: #CC0000"..sebep else sebep = "" end
local oyuncuPara = getPlayerMoney(kesilcekOyuncu)
setPlayerMoney(kesilcekOyuncu, oyuncuPara-miktar)
outputChatBox(getPlayerName(oyuncu).." #FFFFFFTarafından "..getPlayerName(kesilcekOyuncu).." #FFFFFFisimli oyuncudan #CC0000"..miktar.."#2aff00$ #FFFFFFpara kesildi. "..sebep, root, 255,0,0,true)
else
outputChatBox("Lütfen geçerli bir miktar giriniz.", oyuncu, 255,0,0)
end
else
outputChatBox("Oyuncu bulunamadı.", oyuncu, 255,0,0)
end
else
outputChatBox("Lütfen parasını kesmek istediğiniz oyuncu ismi giriniz.", oyuncu, 255,0,0)
outputChatBox("Kullanımı: /parakes nick miktar sebep", oyuncu, 255,0,0)
end
else
outputChatBox("Bu komutu kullanmak için yetkin yok.", oyuncu, 255,0,0)
end
end)

function isimdenOyuncuBul(name)
    local name = name and name:gsub("#%x%x%x%x%x%x", ""):lower() or nil
    if name then
        for _, player in ipairs(getElementsByType("player")) do
            local name_ = getPlayerName(player):gsub("#%x%x%x%x%x%x", ""):lower()
            if name_:find(name, 1, true) then
                return player
            end
        end
    end
end
Linki görebilmek için Kayıt olun yada Giriş yapın.
 


Çevrimdışı Prose

  • Deneyimli Üye
  • *
    • İleti: 454
  • Gökhan Türkoglu
Yanıtla #2 : 15 Mart 2018, 18:39:07
Eyw
@Konu Kilit
 


Çevrimdışı ByCash

  • Admin
  • *
    • İleti: 986
Yanıtla #3 : 15 Mart 2018, 18:42:14
İsteğiniz üzerine konunuz kilitlenmiştir.