Quest 

 

 

quest cartemobi begin
    state start begin
        when 40008.use begin
            say_title("Cartea Mobilor:")
            say("Salut sefule, sunt manualul tau cu comenzi")
            say("eu iti spun toate codurile, la toti mobii existenti pe server.")
            say("Ce mai faci? Cum la tine?")
            say("Doresti sa afli niste coduri?")
            if select("Da,prietene","Nu Mersi.") == 1 then
                ---
                local vnums = mysql_query("select * from player.mob_proto")
                local vnums_table = {}
                j=0
                a=0
                for i = 1,table.getn(vnums)/10,1 do
                    j=j+1
                end
                say("Sunt "..j.." pagini cu monstri")
                say("Cu care vrei sa incepi?")
                local pgs = input()
                if pgs == "" or tostring(pgs)==nill then
                    say("Te rog sa introduci un cod corect.")
                elseif tostring(pgs)==1 then
                    for i = 11,table.getn(vnums),10 do
                        if a!=2 then
                            say(""..vnums.vnum[i-10]..":"..vnums.locale_name[i-10].."")   
                            say(""..vnums.vnum[i-9]..":"..vnums.locale_name[i-9].."")
                            say(""..vnums.vnum[i-8]..":"..vnums.locale_name[i-8].."")
                            say(""..vnums.vnum[i-7]..":"..vnums.locale_name[i-7].."")
                            say(""..vnums.vnum[i-6]..":"..vnums.locale_name[i-6].."")
                            say(""..vnums.vnum[i-5]..":"..vnums.locale_name[i-5].."")
                            say(""..vnums.vnum[i-4]..":"..vnums.locale_name[i-4].."")
                            say(""..vnums.vnum[i-3]..":"..vnums.locale_name[i-3].."")
                            say(""..vnums.vnum[i-2]..":"..vnums.locale_name[i-2].."")
                            say(""..vnums.vnum[i-1]..":"..vnums.locale_name[i-1].."")
                            say("Doresti sa continui?")
                            if select("Da","Nu") ==2 then
                            a=2
                            end
                        end
                    end
                else
                    for i = tostring(pgs),table.getn(vnums),10 do
                        if a!=2 then
                            say(""..vnums.vnum[i*10+10].."    :"..vnums.locale_name[i*10+10].."")
                            say(""..vnums.vnum[i*10+9].."    :"..vnums.locale_name[i*10+9].."")
                            say(""..vnums.vnum[i*10+8].."    :"..vnums.locale_name[i*10+8].."")
                            say(""..vnums.vnum[i*10+7].."    :"..vnums.locale_name[i*10+7].."")
                            say(""..vnums.vnum[i*10+6].."    :"..vnums.locale_name[i*10+6].."")
                            say(""..vnums.vnum[i*10+5].."    :"..vnums.locale_name[i*10+5].."")
                            say(""..vnums.vnum[i*10+4].."    :"..vnums.locale_name[i*10+4].."")
                            say(""..vnums.vnum[i*10+3].."    :"..vnums.locale_name[i*10+3].."")
                            say(""..vnums.vnum[i*10+2].."    :"..vnums.locale_name[i*10+2].."")
                            say(""..vnums.vnum[i*10+1].."    :"..vnums.locale_name[i*10+1].."")
                            say("Doresti sa continui?")
                            if select("Da","Nu") ==2 then
                            a=2
                            end
                        end
                    end
                end
            else
                say_title("Cartea Mobilor:")
                say("Cruel vede tot, o sa te pedepseasca. :((")
                say("RAULE!")
            end
        end
    end
end

 

Client

Item_Proto

 

 

<Item vnum="40008" hashName="Cartea Mobilor by Cruel" name="Cartea Mobilor" type="0" subtype="0" weight="0" size="1" antiflag="0" flag="0" wearflag="0" immuneflag="0" gold="0" buy_price="0" limittype0="0" limitvalue0="0" limittype1="0" limitvalue1="0" applytype0="0" applyvalue0="0" applytype1="0" applyvalue1="0" applytype2="0" applyvalue2="0" value0="0" value1="0" value2="0" value3="0" value4="0" value5="0" socket0="0" socket1="0" socket2="0" socket3="0" socket4="0" socket5="0" refine_vnum="0" refine_set="0" magic_pct="0" specular="0" socket_pct="0" />

 

Query

 

 

INSERT INTO `item_proto` VALUES (40008, 'Cartea Mobilor By Cruel', 'Cartea Mobilor', 18, 0, 0, 1, 0, 0, 0, '', 0, 10000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1, 0, 0, 0);

 

Item_list

 

 

40008    ETC    icon/item/cruel.tga

 

Item_desc

 

 

40008    Cartea monstrilor, in ea gasesti informatii despre codurile la toti mobii existenti pe serverul dat.

 

Tutorial instalare quest:

1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu cruel.quest .

2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc cruel.quest

5. Intraţi pe server şi scrieţi /reload q .

6. Testaţi quest-ul .