4en3rgY Romania
[Tutorial] Panou GM 2z8bv910
Welcome To 4EN3RGY Romania
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. If you already have an account, login here - otherwise create an account for free today!

4en3rgY Romania


Nu sunteti conectat. Conectați-vă sau înregistrați-vă

[Tutorial] Panou GM

Vezi subiectul anterior Vezi subiectul urmator In jos  Mesaj [Pagina 1 din 1]

1[Tutorial] Panou GM Empty [Tutorial] Panou GM Lun 01 Mai 2017, 22:21

Viorel

ViorelFondator

M-am gândit că ar fi nevoie la un server un mic GameMaster Pannel Smile Ce face ? : Dă Ban și MUTE !
Cod:
COD: SELECTAŢI TOT
  quest ingamebann begin
    state start begin
        when ITEM_ID.use with pc.is_gm() begin
            say("Ce doresti sa faci?")
            local s = select('Baneaza','Debaneaza',"Nimic")
            if s == 3 then return end
            local ban,bantxt,bantxt2 = "BLOCK","baneaza","banat"
            if s == 2 then
                ban,bantxt,bantxt2 = "OK","debaneaza","debanat"
            end
            say(col.blue('Jucator '..bantxt)); say('[ENTER]Introdu numele jucatorului[ENTER](chiar si o parte din nume este de ajuns)')
            local inp = input(); inp = mysql_escape(inp)
            if inp == "" or inp == pc.get_name() then
                say(col.red('Numele nu exista.[ENTER]Inchide!'))
                return
            end
            local q = mysql_query('select * from player.player WHERE name LIKE \\"%'..inp..'%\\" AND name NOT like \\"%[%\\"')
            if q == "ERROR" then
                say(col.red('Tabelul player nu poate fi citit sau numele nu exista.'))
                return
            end
            say('Alege numele jucatorului care, sa fie '..bantxt2..' :')
            local wahl = q.name; table.insert(wahl,"-Inapoi-")
            table.insert(wahl,1,6)      -- 6 limita jucatorilor pe o pagina ^-^
            local auswahl = select2(wahl)
            if wahl[auswahl] == "-Inapoi-" then return end
            say('Esti sigur ca jucatorul  \\"'..q.name[auswahl]..'\\" sa fie '..bantxt..'?')
            if select("Da","Nu") == 2 then return end
        mysql_query('UPDATE account.account SET status = \\"'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1')
            say('Operatiune absolvita cu succes.')
        end
    end
end

quest mut begin
    state start begin
        when ITEM_ID.use with pc.is_gm() begin
        say_title("Mut")
            say("De aici poti da mute unui jucator sa i-l poti ridica!")
            say("")
        local a = select ( "Da mut" , "Ridica mut" ,  "Inapoi" )               
            if a == 1 then
            say("Introdu numele jucatorului care sa primeasca mute")
            say("Asigurate ca numele este corect!")
        local cblock = input()
            say("Este acesta numele corect?")
            say(" Nume : ".. cblock .." ")
            local m = select ( "Da", "Nu")
            if m == 1 then
            say("Timp in secunde!")
            say("Exemplu :")
            say("5 Min = 300")
            say("10 Min = 600")
            say("1 ora = 3600")
            say("Introdu cate secunde doresti:")
        local cbtime = input()
        command("block_chat ".. cblock .." ".. cbtime .."")
            notice_all("Jucatorul ".. cblock .." are mut pentru ".. cbtime .." secunde!")
        end
            if m == 2 then
            return
            end
      end
        if a == 2 then
            say("Introdu numele jucatorului carui sa ii fie ridicat mute.")
            say("Poti vedea lista jucatorilor cu mut folosind comanda")
            say("asta block_chat_list ")
        local cublock = input()
        command("block_chat ".. cublock .." 0")
        notice_all("Jucatorul ".. cublock .." Poate vorbi din nou")
        end
      end
  end
end 

P.S ! Nu este TESTAT !

Vezi subiectul anterior Vezi subiectul urmator Sus  Mesaj [Pagina 1 din 1]

Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum

 

Copyright @ 2010-2024 by 4en3rgY ~> All rights reserved.