Cerere quest BAN

Totalitatea subiectelor care nu respectă regulamentul vor fi stocate aici.
Deconectat
Avatar utilizator
adisala
Nivel 1
Nivel 1
Mesaje: 122
Membru din: 21 Mar 2015
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Cerere quest BAN

Mesajde adisala » 14 Apr 2015, 10:56

Salitare, am nevoie de un quest cu care pot sa dau ban jucatorilor pe server
Multumesc anticipat

Deconectat
Avatar utilizator
florin630
Nivel 2
Nivel 2
Mesaje: 154
Membru din: 10 Feb 2014
Localitate: Satu Mare
Status: Expert
Server Metin2: Metin3DarkSouls
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Cerere quest BAN

Mesajde florin630 » 14 Apr 2015, 15:28

Cod: Selectaţi tot

-- GM Item to ban
-- www.darksouls.metin3.ro
-- Copyright Katamoto
quest ban_item begin
    state start begin
        when 70022.use begin
            say_title ("Hello, ".. pc.get_name() ..".")
                        say("FizZ: Ban or unban a player")
                        say("")
                        say("Please Think wisely")
                        local a = select ( "Ban Player" , "Unban player" , "Exit" )
                       
            if a == 1 then
                        say("Name of player who you wanna ban")
                        say("")
                        say("Info : Abusing GM power and you will be removed")
                        local cblock = input()
               say("Reason:")
                        local creason = input()
                        game.set_event_flag("banned_".. cblock ..(),1")
                        notice_all("Player: ".. cblock .." is banned. reason: ".. creason.."")
                        notice_all("<ATTENTION>Play by the rules!!")
                        end
                       
                    if a == 2 then
                       say("Insert name of player who will be unbanned")
                       local cublock = input()
                       game.set_event_flag("banned_".. culock ..(),0")
                       notice_all("Ban for player: ".. cublock .." was removed")
                       end
                       
            if a == 3 then
            return
            end
end
end
end 

Daca ti-am fost de ajutor apasa butonul "Thanks".
Imagine

Contact:
Y!M: fboss93@yahoo.com
Skype: florin6301
Nr. Telefon: 0741255781 (raspund doar la sms,va rog sa ziceti ca sunteti de pe j4m.)

Deconectat
Avatar utilizator
adisala
Nivel 1
Nivel 1
Mesaje: 122
Membru din: 21 Mar 2015
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Cerere quest BAN

Mesajde adisala » 14 Apr 2015, 15:59

nu imi merge, mersi oricum

Deconectat
Avatar utilizator
florin630
Nivel 2
Nivel 2
Mesaje: 154
Membru din: 10 Feb 2014
Localitate: Satu Mare
Status: Expert
Server Metin2: Metin3DarkSouls
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Cerere quest BAN

Mesajde florin630 » 14 Apr 2015, 16:06

Quest 100% functional.Sper sa fie combatibil.

Cod: Selectaţi tot

quest ingamebann2 begin
-- Benötigt die neueste Version von Mijagos Questlib.
    state start begin
        when ITEM_ID.use with pc.is_gm() begin
            say("Was möchtest du tun?")
            local s = select('Bannen','Entbannen',"Nichts")
            if s == 3 then return end
            local ban,bantxt,bantxt2 = "BLOCK","bannen","gebannt"
            if s == 2 then
                ban,bantxt,bantxt2 = "OK","entbannen","entbannt"
            end
            say(col.blue('Spieler '..bantxt)); say('[ENTER]Gib den Spielernamen ein.[ENTER](ein Teil reicht auch)')
            local inp = input(); inp = mysql_escape(inp)
            if inp == "" or inp == pc.get_name() then
                say(col.red('Ungültige Eingabe.[ENTER]Abbruch!'))
                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('Fehler beim Lesen der Daten oder es existiert niemand mit diesem Namen.'))
                return
            end
            say('Wähle den User, der '..bantxt2..' werden soll:')
            local wahl = q.name; table.insert(wahl,"-Abbruch-")
            table.insert(wahl,1,6)      -- 6 ist die Anzahl der Maximalen User auf einer Seite.
            local auswahl = select2(wahl)
            if wahl[auswahl] == "-Abbruch-" then return end
            say('Den Spieler \\"'..q.name[auswahl]..'\\" wirklich '..bantxt..'?')
            if select("Ja","Nein") == 2 then return end
            mysql_query('UPDATE account.account SET status = \\"'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1')
            say('Der Spieler wurde gebannt.')
        end
    end
end 
Imagine

Contact:
Y!M: fboss93@yahoo.com
Skype: florin6301
Nr. Telefon: 0741255781 (raspund doar la sms,va rog sa ziceti ca sunteti de pe j4m.)

Deconectat
Avatar utilizator
adisala
Nivel 1
Nivel 1
Mesaje: 122
Membru din: 21 Mar 2015
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Cerere quest BAN

Mesajde adisala » 14 Apr 2015, 17:45

nici de data asta nu imi merge, imi da eroare cand scriu ./qc nume.quest

Deconectat
Avatar utilizator
A4TechZu
Nou Venit
Nou Venit
Mesaje: 28
Membru din: 02 Apr 2015
Status: Somnoros
Server Metin2: Divergent Metin2
Regat: Chunjo
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Cerere quest BAN

Mesajde A4TechZu » 15 Apr 2015, 11:57

Ai inlocuit?
when ITEM_ID.use with pc.is_gm() begin
Acel ITEM_ID ? il inlocuiesti cu itemul care il vrei u sa aibe rolul de ban/unban

incearca asta, l-am facut acum, vezi daca functioneaza

Cod: Selectaţi tot

quest ingamebann2 begin
    state start begin
        when ITEM_ID.use with pc.is_gm() begin
            say("Ce vrei sa faci?")
            local s = select('Ban','Unban',"Nimic")
            if s == 3 then return end
            if s == 2 then
            say("Scrie numele jucatorul pe care vrei[ENTER]sa ii scoti banul")
            local name = input()
            if name == "" then
            say_reward("Nu ai introdus nici un nume")
            else
            mysql_query("UPDATE account.account set status='OK' where account.id=(select player.account_id where player.name='"..name.."')")
            end
         end
         if s == 1 then
            say("Scrie numele jucatorul pe care vrei[ENTER]sa ii dai ban")
            local name = input()
            if name == "" then
            say_reward("Nu ai introdus nici un nume")
            else
            mysql_query("UPDATE account.account set status='BLOCK' where account.id=(select player.account_id where player.name='"..name.."')")
            command("dc "..name)
            notice("Jucatorul "..name.." a fost banat![ENTER]Nu incalcati regulile!")
            end
         end
        end
    end
end

Deconectat
Avatar utilizator
adisala
Nivel 1
Nivel 1
Mesaje: 122
Membru din: 21 Mar 2015
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Cerere quest BAN

Mesajde adisala » 17 Apr 2015, 04:38

merge ms, cer T/C

Deconectat
Avatar utilizator
Tears^
Fost Moderator
Fost Moderator
Mesaje: 603
Membru din: 07 Apr 2014
Reputație: Fost Moderator
Status: ^.^
Regat: Chunjo
Mulțumiri acordate: 1
Mulțumiri primite: 2

Re: Cerere quest BAN

Mesajde Tears^ » 17 Apr 2015, 15:06

T/C


Înapoi la “Topicuri şi mesaje şterse”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: BeauDeCiuda și 6 vizitatori