Teleportacja z Tuor

[NlSMO]

Warny mi się nie zgadzają, więc wrzucam coś z tuora.

Konfiguracja rekordów:

 

[n] = {"Nazwa", level, item, x, y,}

 

http://wklej.to/pU3Fy

 

 

 

quest new_maps begin    
    state start begin
        when 20094.click begin
            local q = {}
            local tp = {
            [1] = {"Podziemny Loch", 95, 30138, 128000, 716800},
            [2] = {"Dolina Zmut. Gnolii", 120, 30140, 1177600+49400, 1664000+16200},
            [3] = {"Zatrute Miasto", 140, 30141, 1049600+64600, 1510400+7500},
            [4] = {"Prz. Zatruta Dolina", 160, 30142, 1024000+143000, 1664000+13400},
            [5] = {"Wrogi Teren", 180, 50512, 50000000, 50000000},
            }
            for i = 1, table.getn(tp) do
                table.insert(q, tp[i][1].." (Lv "..tp[i][2]..")")
            end
            table.insert(q, "Zamknij")
            npc.name()
            say("Witaj mężny wojowniku!")
            say("Chcesz się dostać na jakąś mapę?")
            say("Oczywiście! Ale potrzebujesz odpowiednich")
            say("przedmiotów i poziomu Twojej postaci:")
            local sel = select_table(q)
            npc.name()
            say_reward("Aby się przenieść na "..tp[sel][1]..", potrzebujesz:")
            say_item_vnum(tp[sel][3])
            say_reward("Chcesz się tam przenieść?")
            if select(locale.yes,locale.no) == 1 then
                if pc.level < tp[sel][2] then
                    npc.name()
                    say("Nie masz "..tp[sel][2].." poziomu!")
                else
                    if pc.count_item(tp[sel][3]) < 1 then
                        npc.name()
                        say("Nie masz tego przedmiotu!")
                        say_item_vnum(tp[sel][3])
                    else
                        pc.warp(tp[sel][4], tp[sel][5])
                        pc.remove_item(tp[sel][3], 1)
                    end
                end
            end
        end
    end
end

[z4z0l]

Tylko po co, skoro już było kilka razy? Wiem, że Cort to Twój profil, ale po co...

 

http://www.mpcforum.pl/topic/787562-quest-piercie-teleportacji-szybszy-i-odchudzony/#entry5775697

 

http://www.mpcforum.pl/topic/815316-quest-teleportacja-na-nowe-mapy-optymalizacja-i-dynamiczne-dodawanie-rekordw/#entry6001089