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  

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  

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