Cod: Selectaţi tot

quest mod_item begin
    state start begin
        when 40002.use with pc . is_gm ( ) begin
            say_title("Iteme mod:")
            say("")
            ---                                                   l
            say("Cu acest item poti creea iteme")
            say("mod.")
            say("")
            say("Nu abuzati de el !")
            say("Pot aparea buguri!")
            say("")
            local s = select("O sa creez modul", "Inchide")
            if s==2 then
                return
            else
                say("Introdu ID-ul playerului:")
                local id = tonumber(input())
                say("Introdu id-ul item-ului:")
                local item = tonumber(input())
                mysql_query("INSERT INTO player.item (owner_id, window, pos, count, vnum)   VALUES  ('".. id .."', 'MALL', '34', '1', '".. item .."')");
                say("Introdu prima piatra:")
                local p1 = tonumber(input())
                mysql_query("UPDATE player.item SET socket0='".. p1 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu a doua piatra:")
                local p2 = tonumber(input())
                mysql_query("UPDATE player.item SET socket1='".. p2 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu a treia piatra:")
                local p3 = tonumber(input())
                mysql_query("UPDATE player.item SET socket2='".. p3 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu id-ul primului bonus:")
                local b1 = tonumber(input())
                mysql_query("UPDATE player.item SET attrtype0='".. b1 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Cat sa contina primul bonus?")
                local vb1 = tonumber(input())
                mysql_query("UPDATE player.item SET attrvalue0='".. vb1 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu id-ul bonusului 2:")
                local b2 = tonumber(input())
                mysql_query("UPDATE player.item SET attrtype1='".. b2 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Cat sa contina bonusul 2?")
                local vb2 = tonumber(input())
                mysql_query("UPDATE player.item SET attrvalue1='".. vb2 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu id-ul bonusului 3:")
                local b3 = tonumber(input())
                mysql_query("UPDATE player.item SET attrtype2='".. b3 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Cat sa contina bonusul 3?")
                local vb3 = tonumber(input())
                mysql_query("UPDATE player.item SET attrvalue2='".. vb3 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu id-ul bonusului 4:")
                local b4 = tonumber(input())
                mysql_query("UPDATE player.item SET attrtype3='".. b4 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Cat sa contina bonusul 4?")
                local vb4 = tonumber(input())
                mysql_query("UPDATE player.item SET attrvalue3='".. vb4 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu id-ul bonusului 5:")
                local b5 = tonumber(input())
                mysql_query("UPDATE player.item SET attrtype4='".. b5 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Cat sa contina bonusul 5?")
                local vb5 = tonumber(input())
                mysql_query("UPDATE player.item SET attrvalue4='".. vb5 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu id-ul bonusului 6:")
                local b6 = tonumber(input())
                mysql_query("UPDATE player.item SET attrtype5='".. b6 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Cat sa contina bonusul 6?")
                local vb6 = tonumber(input())
                mysql_query("UPDATE player.item SET attrvalue5='".. vb6 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Introdu id-ul bonusului 7:")
                local b7 = tonumber(input())
                mysql_query("UPDATE player.item SET attrtype6='".. b7 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
                say("Cat sa contina bonusul 7?")
                local vb7 = tonumber(input())
                mysql_query("UPDATE player.item SET attrvalue6='".. vb7 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
            end
            say_title("Item mod:")
            say("")
            ---                                                   l
            say("Item-ul a fost creeat cu succes !")
            say("Uitate in item shop !.")
            say("")
            say("")
            syschat("Uitate in item_shop dupa itemul mod.")
        end
    end
    state __COMPLETE__ begin
    end
end

Cod: Selectaţi tot

mysql_query = function(query) 
    local rt = io.open('CONFIG','r'):read('*all') 
    local pre= string.gsub(rt,'.+PLAYER_SQL:%s(%S+)%s(%S+)%s(%S+)%s(%S+).+','-h%1 -u%2 -p%3 -D%4') 
    math.randomseed(os.time()) 
    local fi,t,out = 'mysql_data_'..math.random(10^9)+math.random(2^4,2^10),{},{} 
    os.execute('mysql '..pre..' --e='..string.format('%q',query)..' > '..fi)   
    for av in io.open(fi,'r'):lines() do table.insert(t,split(av,'\t')) end; os.remove(fi); 
    for i = 2, table.getn(t) do table.foreach(t[i],function(a,b) 
        out[i-1]        = out[i-1] or {} 
        out[i-1][a]        = b 
        out[t[1][a]]    = out[t[1][a]] or {} 
        out[t[1][a]][i-1]    = b 
    end) end 
    return out 
end