[SERVICE] Die Questkontrolle

Page 484 of 845 « First 384434474482483 484 485486494534584 Last »
12/06/2012 22:25 StaLL0#7246
Quote:
-------------------------------------------
--- Datei : Seal Of Loyalty
--- Datei version : 1.0.0.0
--- Erstellt von : DarealRefuse
-------------------------------------------
quest loyalty begin
state start begin

function convert(variable,value)
if(variable == "" or variable == nil) then
return error("Process Error")
elseif(variable == "hour") then
return math.floor(value*60*60)
elseif(variable == "seconds") then
return math.floor(value*60)
elseif(variable == "hour2") then
return math.floor(value/60/60)
elseif(variable == "seconds2") then
return math.floor(value/60)
end
end

when 20017.chat.'Karakter Kilidini Aç ' begin
say_title(mob_name(npc.get_race()))
say('')
---
say_reward('Karakter Adını Yazınız.. ')
local sname = input()
local search = find_pc_by_name(sname)
if(sname == pc.name or search == 0) then return end
say_title(mob_name(npc.get_race()))
say('')
---
local select = pc.select(search)
local password = global_getvarchar("loyalty_password")
pc.select(select)
say_reward('Karakter Şifresini Giriniz.. ')
local pass = input()
if(pass == "" or pass == nil) then
say_title(mob_name(npc.get_race()))
say('')
---
say_reward('işlem hatası kod : 2 ')
elseif(pass == password) then
say_title(mob_name(npc.get_race()))
say('')
---

local selectp = pc.select(search)
pc.delqf('loyalty_time_variable')
pc.delqf('loyalty_time')
pc.delqf('hours')
pc.delqf('seconds')
pc.delqf('sealof_loyalty')
pc.select(selectp)


say_reward('Karakter kilidi kaldırıldı. ')
say_reward('teşekkürler! ')
end
end


when login begin
setskin(NOWINDOW)

if(pc.getqf('sealof_loyalty') == 1) then
if(pc.getqf('hours') == 1) then
if(pc.getqf('loyalty_time_variable') > get_global_time() - pc.getqf('loyalty_time')) then
local convert = loyalty.convert("hours2",pc.getqf('loyalty_time_va riable'))
chat('Karakteriniz '..convert..' Saat daha kitli kalıcaktır.. ')
chat('Lütfen bekleyiniz! ')
chat('')
command('quit')
else
pc.delqf('loyalty_time')
pc.delqf('loyalty_time_variable')
pc.delqf('hours')
pc.delqf('sealof_loyalty')
end
elseif(pc.getqf('seconds') == 1) then
if(pc.getqf('loyalty_time_variable') > get_global_time() - pc.getqf('loyalty_time')) then
local convert = loyalty.convert("seconds2",pc.getqf('loyalty_time_ variable'))
chat('Karakteriniz '..convert..' Dakika Kitli kalıcaktır.. ')
chat('Lütfen bekleyiniz! ')
chat('')
command('quit')
else
pc.delqf('loyalty_time')
pc.delqf('loyalty_time_variable')
pc.delqf('hours')
pc.delqf('sealof_loyalty')
end
end
end
end

when 70019.use begin
say_title('Sadakat Mührü: ')
say('')
---
say_title('DarealRefuse Copyright 2012-2013')
say_title('Tüm Hakları Saklıdır.. ')
---
say_reward('Ne yapıcaksın? ')
local s = select('Güvenlik Şifresi','Karakteri Kitle','Kapat')

if(s == 1) then

say_title('Sadakat Mührü: ')
say('')
---
say_reward('Güvenlik Şifresi Giriniz.. ')
local pass = input()

--- ERROR ---
if(len(pass) == 0) then
say_title('Sadakat Mührü: ')
say('')
---
say_reward('işlem hatası kod : 1 ')
return
end
--- END OF ERROR ---

say_title('Sadakat Mührü: ')
say('')
---
say_title(pas..' Şifresini kabul ediyor musunuz? ')
local yesorno = select(locale.yes,locale.no)
if(2 == yesorno) then return end
say_title('Sadakat Mührü: ')
say('')
---
say_reward(pas..' Şifresi kabul edildi.. ')
say_reward('Teşekkürler! ')
global_setvarchar("loyalty_password",pass)
pc.setqf('loyalty_active',1)

elseif(s == 2) then

say_title('Sadakat Mührü: ')
say('')
---

--- ERROR ---
if(pc.getqf('loyalty_active') == 0) then return say_reward('Güvenlik Şifresi Belirlenmedi! ') end -
--- END OF ERROR ---

say_reward('Kitleme Yöntemini Seçiniz. ')
local crypt = select('Saat Cinsinden','Dakika Cinsinden','Kapat')

if(crypt == 1) then

say_title('Sadakat Mührü: ')
say('')
---
say_reward('Saat Giriniz.. ')
local hour = tonumber(input(""))

say_title('Sadakat Mührü: ')
say('')
---
say_title(hour..' Saat kitlemek istiyor musunuz? ')
local hour_yes = select(locale.yes,locale.no)
if(hour_yes == 2) then return end

say_title('Sadakat Mührü: ')
say('')
---
say_title(hour..' Saat karakter kitlendi! ')
say_title('çıkış yapılıyor teşekkürler.. ')
local convert = loyalty.convert("hour",hour)
pc.setqf('loyalty_time_variable',convert)
pc.setqf('loyalty_time',get_global_time())
pc.setqf('sealof_loyalty',1)
pc.setqf('hours')
command('quit')

elseif(crypt == 2) then

say_title('Sadakat Mührü: ')
say('')
---
say_reward('Dakika Giriniz.. ')
local second = tonumber(input(""))

say_title('Sadakat Mührü: ')
say('')
---
say_title(second..' Dakika kitlemek istiyor musunuz? ')
local second_yes = select(locale.yes,locale.no)
if(seconds_yes == 2) then return end

say_title('Sadakat Mührü: ')
say('')
---
say_title(second..' Dakika karakter kitlendi! ')
say_title('çıkış yapılıyor teşekkürler.. ')
local convert = loyalty.convert("seconds",second)
pc.setqf('loyalty_time_variable',convert)
pc.setqf('loyalty_time',get_global_time())
pc.setqf('sealof_loyalty',1)
pc.setqf('seconds')
command('quit')
end
end
end
end
end
.qc sadakatv22.quest

[Only registered and activated users can see links. Click Here To Register...]


Help please :(
12/07/2012 13:31 devilamiron#7247
Die map hat den mapindex 207 und immer wenn ich mich hinporten(per NPC)will kommt(mit code geht es):
error occor on [dungeon_new_jump_all:285
cannot create dungeon 208
Quote:
quest map_ice begin
state start begin
when 20087.chat."Atlantis betreten" begin
say_title("Wächter von Atlantis:")
say("Ihr müsst ganz schön mutig sein")
say("hierher zu kommen.")
say("")
say_title("Ihr seid stark genug??")
say("")
say("Wollt ihr das vereiste Atlantis betreten?.")
say("")

local s = select("Aber klar!", "Nein, lieber nicht.")
if s == 1 then
--if party.get_near_count() >=5 then
--game.set_event_flag("besuchinheiligerhalle", game.get_event_flag("besuchinheiligerhalle")-1)
d.new_jump_all(208, 5106 , 4089)
d.regen_file("data/dungeon/icerun_regen.txt")
d.notice("Ungebetener Besuch!!")
d.notice("Verschwindet aus meinem Atlantis!")
d.notice("Wehe ihr berührt meinen Metin!")
--else
-- say_title("Wächter von Atlantis:")
-- say("Ihr müsst mit mindestens 6 Leuten")
-- say("in der Gruppe sein.")
-- say("")
-- say("Ihr seid aber nur "..party.get_near_count()+1.." Leute.")
-- say("Ich kann euch nicht reinlassen.")
-- return
--end
else
return
end
end
when 21552.chat."GM-Zutritt" with pc.get_map_index() == 207 and pc.is_gm() begin
say_title("Du kannst auch ohne Gruppe")
say_title("das vereiste Atlantis betreten.")
say("Wie ich sehe bist du stark genug =)")
say("Wollt ihr das vereiste Atlantis betreten?.")
say("")

local s = select("Aber klar!", "Nein, lieber nicht.")
if s == 1 then
d.new_jump_all(208, 5106 , 4089)
d.regen_file("data/dungeon/icerun_regen.txt")
d.notice("Ungebetener Besuch!!")
d.notice("Verschwindet aus meinem Atlantis!")
else
return
end
end
when 21552.chat."Heilige Halle verlassen" with pc.get_map_index() == 207 begin
say_title("Wächter von Atlantis:")
say("Ihr wollt die Heilige Halle verlassen?")
say("")


local s = select("Ja!", "Nein.")
if s == 1 then
local empire = pc.get_empire()
if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end
else
return
end
end
--when logout begin
-- if pc.get_map_index() == 207 then
-- game.set_event_flag("besuchinheiligerhalle", game.get_event_flag("besuchinheiligerhalle")-1)
-- end
--end
when login begin
--if pc.get_map_index() == 207 then
--game.set_event_flag("besuchinheiligerhalle", game.get_event_flag("besuchinheiligerhalle")+1)
--end
if pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 then
pc.set_warp_location(204, 37743,37743)
end
end
when 21578.kill with pc.get_map_index()>= 2080000 and pc.get_map_index() < 2090000 begin
timer("erster_metin", 6)
d.notice("NEEEIIIN!!Mein Stein..!")
d.notice("Ich verfluche euch!")
d.notice("Los tapfere barstigen, erledigt die Eindringlinge!!!")
d.notice("Ich hoffe ihr tötet nicht alle meine barstigen Krieger!")
end
when erster_metin.timer begin
d.jump_all(5380 , 4122)
d.regen_file("data/dungeon/icerun1_regen.txt")
d.setf("keule", 0)
d.set_warp_at_eliminate(4, d.get_map_index(), (5000+432), (4000+122), "data/dungeon/icerun2_regen.txt")
pc.give_item2(50152)
end
when 21581.chat."GM-Abkürzung BOSS" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 and pc.is_gm() begin
say("Du kommst zum Bossraum")
wait()
npc.purge()
d.setf("statue", 5)
timer("ice_jump", 6)
end
when 21581.chat."Wolang des Weges?" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 begin
say("...")
wait()
d.notice("Grantelbart:")
d.notice(".....")
d.notice("..Dieser Weg ist kalt..")
d.notice(".....")
d.notice("..Nehmt euch vor Neralex in Acht!....")
d.notice(".....")
d.notice("Neralex:")
d.notice("Was habt ihr hier verloren!")
d.notice("Sucht das Weite und zwar sofort!!")
npc.purge()
d.kill_all()
timer("erster_spruch", 10)
end
when erster_spruch.timer begin
d.jump_all(5000+685, 4000+82)
d.setf("insel1", 0)
d.setf("insel2", 0)
d.setf("insel3", 0)
d.setf("insel4", 0)
d.setf("alleinseln", 0)
d.regen_file("data/dungeon/icerun3_1_regen.txt")
d.notice("Besuche jede der 4 Inseln einmal. Beim wiederholten")
d.notice("erreichen einer Insel erscheinen Kämpfer die")
d.notice("dann getötet werden müssen, bevor man zur nächsten")
d.notice("Insel kommt.")
end
when 20350.chat."GM-Abkürzung Mini-Bossraum" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 and pc.is_gm() begin
say("Du kommst zum Mini-Bossraum")
wait()
npc.purge()
timer("inseln_fertigg", 10)
end
when 20350.chat."Die 4 Inseln" with pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 begin
npc.lock()
say_title("Väterchen Frost:")
say("Ich kann euch auf eine andere")
say("Insel befördern. Bitte wähle eine aus:")
local s=select ("1","2","3","4","Abbruch")
if s<=4 then
local positions = {
{685, 82},
{590, 82},
{590, 177},
{685, 177},
}
local fish = number(1,4)
if d.getf("insel"..fish) < 1 then
d.setf("insel"..fish, 1)
d.setf("alleinseln", d.getf("alleinseln")+1)
d.kill_all()
if d.getf("alleinseln")==4 then
d.notice("Väterchen Frost:")
d.notice("Dies war die letzte Insel.")
d.notice("Nun kann ich euch nicht mehr helfen.")
d.notice("Ihr müsst den Weg nun alleine finden.")
timer("inseln_fertig", 10)
return
end
d.notice("Väterchen Frost:")
d.notice("Ihr wart bisher auf "..d.getf("alleinseln").." Inseln.")
d.notice("Ihr müsst auf allen vier einmal gewesen sein.")
d.regen_file("data/dungeon/icerun3_"..fish.."_regen.txt")
else
d.purge()
d.regen_file("data/dungeon/icerun3_"..fish.."more_regen.txt")
d.set_warp_at_eliminate(4, d.get_map_index(), 5000 + positions[fish][1], 4000 + positions[fish][2], "data/dungeon/icerun3_"..fish.."_regen.txt")
end
npc.unlock()
d.jump_all(5000+positions[fish][1], 4000+positions[fish][2])
else
npc.unlock()
return
end
end
when 101.kill with pc.is_gm() begin
chat("Dein Mapindex: "..pc.get_map_index())
end
when 50152.use with pc.in_dungeon begin
pc.remove_item(50152)
local empire = pc.get_empire()
if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end
end
when inseln_fertig.timer begin
timer("inseln_fertigg", 10)
d.notice("Neralex:")
d.notice("So Freunde!! Jetzt ist aber Schluß!")
d.notice("Ich will hier KEINEN mehr sehen!!!")
end
when inseln_fertigg.timer begin
local positionss = {
{473, 441},
{483, 451},
{473, 461},
{464, 451},
}
local fissh = number(1,4)
d.jump_all(5000+positionss[fissh][1], 4000+positionss[fissh][2])
d.regen_file("data/dungeon/icerun_small_boss.txt")
--d.jump_all(5000+122, 4000+89)
--d.exit_all()
end
when 2702.kill begin
d.notice("Neralex:")
d.notice("Komm geht nach Hause!!")
d.notice("Ihr seid ja absolut lächerlich!!!")
d.notice("Ihr schafft es nicht die Krabben zu töten um")
d.notice("ein Eismedallion auf die Säulen zu ziehen...")
d.regen_file("data/dungeon/icerun_statue.txt")
timer("miniboss", 10)
end
when miniboss.timer begin
d.setf("statue", 0)
d.setf("keulenmann", 0)
d.setf("keule", 1)
d.jump_all(5000+705, 4000+519)
end
when 21579.take with item.vnum == 90003 begin
npc.purge()
item.remove()
d.setf("keulenmann", 0)
d.setf("statue", d.getf("statue")+1)
timer("ice_jump", 6)
if d.getf("statue")==5 then
d.notice("Neralex:")
d.notice("Ihr denkt wohl, ich sehe euch nicht!!")
d.notice("Seid jetzt ruhig und geht nach Hause!!!")
d.setf("keule", 0)
end
end
when 2627.kill with d.getf("keule")==1 begin
d.setf("keulenmann", d.getf("keulenmann")+1)
if d.getf("keulenmann")== 9 then
game.drop_item("90033")
end
end
when ice_jump.timer begin
local positionsss = {
{754, 494},
{705, 459},
{754, 424},
{705, 389},
{144, 449},
}
local fisssh = d.getf("statue")
d.jump_all(5000+positionsss[fisssh][1], 4000+positionsss[fisssh][2])
if fisssh==5 then
timer("ice_boss1", 20)
d.spawn_mob(2597, 124, 446)
d.spawn_mob(2597, 124, 450)
d.notice("Neralex:")
d.notice("Ah, da seid ihr ja. Ich freue mich auf die Show!")
else
d.regen_file("data/dungeon/icerun4_"..fisssh.."_regen.txt")
end
--d.jump_all(5000+122, 4000+89)
--d.exit_all()
end
when ice_boss1.timer begin
d.notice("Los Valons!! Ergreift die Eindringlinge!!! ")
for i = 1, 132 do
local firts= number(138, 231)
local secodn= number(413, 483)
d.spawn_mob(2633, firts, secodn)
end
d.setf("schild", 1)
d.setf("schildmann" , 0)
end
when 2715.kill with d.getf("schild")==1 begin
d.setf("schildmann", d.getf("schildmann")+1)
d.notice("Noch "..120-d.getf("schildmann").." Golems besiegen.")
if d.getf("schildmann")== 120 then
d.notice("Neralex:")
d.notice("Ihr denkt wohl, das war alles!!")
d.notice("Los Kristallfelsen!! Sperrt sie ein!!! ")
timer("ice_boss2", 15)
d.setf("schild", 0)
d.setf("kristallmann", 0)
end
end
when ice_boss2.timer begin
for i = 1, 220 do
local firts= number(138, 231)
local secodn= number(413, 483)
d.spawn_mob(21580, firts, secodn)
end
d.setf("kristall", 1)
end
when 21580.kill with d.getf("kristall")==1 begin
d.setf("kristallmann", d.getf("kristallmann")+1)
d.notice("Noch "..200-d.getf("kristallmann").." Kristalle zerschlagen.")
if d.getf("kristallmann")== 200 then
d.notice("Neralex:")
d.notice("WAS!? Ihr habt noch nicht genug?")
d.notice("Los Frau!! Geh die Kinder verprügeln!!!")
d.notice("Nerala:")
d.notice("-.-'")
timer("ice_boss3", 15)
d.setf("kristall", 0)
end
end
when ice_boss3.timer begin
d.purge()
d.spawn_mob(2597, 144, 449)
d.spawn_mob(2597, 124, 450)
d.setf("Nerala", 1)
end
when 2597.kill with d.getf("Nerala")==1 begin
d.notice("Neralex:")
d.notice("Wozu hat man heutzutage noch eine Frau...")
d.notice("Sie sind zu nichts Nutze!!!")
d.notice("Jetzt komme ich!!")
timer("ice_boss4", 15)
d.setf("Nerala", 0)
end
when ice_boss4.timer begin
d.purge()
d.spawn_mob(2625, 144, 449)
d.setf("Neralex", 1)
end
when 198.kill with d.getf("Neralex")==1 begin
d.notice("Neralex:")
d.notice("Ich bin noch längst nicht besiegt...")
d.notice("Spürt meine Drachenmacht!!")
timer("ice_boss5", 5)
d.setf("Neralex", 0)
end
when ice_boss5.timer begin
d.purge()
d.spawn_mob(204, 144, 449)
d.setf("Neralexdragon", 1)
end
when 204.kill with d.getf("Neralexdragon")==1 begin
for i= 1, 100 do
game.drop_item("1")
end
game.drop_item("71129")
d.notice("Neralex:")
d.notice("OK...Ihr seid würdig.")
notice_all("".. pc.get_name() .." + Team haben den Ice-Run gemeistert!")
--notice_all("Sie haben Neralex besiegt und seine Truhe bekommen.")
d.setf("Neralex", 0)
d.spawn_mob(21601, 154, 449)
server_timer('iceruns_boss', 60, pc.get_map_index())
server_timer('iceruns_boss2', 120, pc.get_map_index())
server_timer('iceruns_boss3', 180, pc.get_map_index())
server_timer('iceruns_boss4', 240, pc.get_map_index())
server_timer('iceruns_boss5', 300, pc.get_map_index())
end
when 21601.chat."Belohnung abholen" with pc.in_dungeon() and pc.get_map_index() >= 2080000 and pc.get_map_index() < 2090000 begin
end
when iceruns_boss.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch vier Minuten bis zum Verlassen!")
end
end
when iceruns_boss2.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch drei Minuten bis zum Verlassen!")
end
end
when iceruns_boss3.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch zwei Minuten bis zum Verlassen!")
end
end
when iceruns_boss4.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch eine Minute bis zum Verlassen!")
end
end
when iceruns_boss5.server_timer begin
if d.select(get_server_timer_arg()) then
d.exit_all()
end
end
end
end
pls help will die endlich benutzen :S
12/07/2012 14:43 hanistarker#7248
Habe mal wieder eine Frage , und zwar wollte ich jetzt die Quest machen das wenn man nen Mob killt nach 3 Min nach Map geportet wird jedoch funkt die nicht

PHP Code:
quest kill begin  
    state start begin        
        when 2493.kill with pc.get_map_index() >= 730000 and pc.get_map_index() < 740000 begin 
            pc.getqf("timer",pc.get_time()+5*2)
            if pc.getqf("timer") <1 then
                pc.warp(921600, 204800) 
            end
        end 
            end 
        end 
         
    end 
end 
Map Index ist 118
12/07/2012 17:05 ©by Noa#7249
Quote:
Originally Posted by hanistarker View Post
Habe mal wieder eine Frage , und zwar wollte ich jetzt die Quest machen das wenn man nen Mob killt nach 3 Min nach Map geportet wird jedoch funkt die nicht

PHP Code:
quest kill begin  
    state start begin        
        when 2493.kill with pc.get_map_index() >= 730000 and pc.get_map_index() < 740000 begin 
            pc.getqf("timer",pc.get_time()+5*2)
            if pc.getqf("timer") <1 then
                pc.warp(921600, 204800) 
            end
        end 
            end 
        end 
         
    end 
end 
Map Index ist 118
versuch es mal so, wenn es nicht geht sag bescheid ich teste das dann bei mir.
PHP Code:
quest kill begin  
    state start begin        
        when kill with pc.get_race()== 2493 and pc.get_map_index() == 118 begin 
            timer("zeit", 180)
        end
        when zeit.timer begin
            pc.warp(921600, 204800) 
        end 
    end 
end 
12/08/2012 14:07 yessiя#7250
Man kann den AntiExpring nicht benutzen seitdem ich ihn ab level 30 gemacht habe
Quote:
quest anti begin
state start begin
when 72501.use with pc.get_level < 30 begin
if pc.getqf("antiexp") == 0 then
pc.setqf("antiexp", 1)
chat("Anti EXP aktiviert. Deine Erfahrungspunkte werden jede Sekunde auf 0 gesetzt!")
local ep = pc.get_exp()
pc.give_exp2(-ep)
timer("erfahrung", 1)
elseif pc.getqf("antiexp") == 1 then
pc.setqf("antiexp", 0)
chat("Anti EXP deaktiviert. Viel Spaß auf Relevation3!")
end
end

when erfahrung.timer with pc.getqf("antiexp") == 1 begin
local ep = pc.get_exp()
pc.give_exp2(-ep)
timer("erfahrung1", 1)
pc.setqf("antiexp", 1)
end

when erfahrung1.timer with pc.getqf("antiexp") == 1 begin
local ep = pc.get_exp()
pc.give_exp2(-ep)
timer("erfahrung", 1)
pc.setqf("antiexp", 1)
end

when login with pc.getqf("antiexp") == 1 begin
local ep = pc.get_exp()
pc.give_exp2(-ep)
timer("erfahrung", 1)
pc.setqf("antiexp", 1)
end
end
end
12/08/2012 14:44 iSouli~#7251
Quote:
Originally Posted by yessiя View Post
Man kann den AntiExpring nicht benutzen seitdem ich ihn ab level 30 gemacht habe
PHP Code:
quest anti begin
    state start begin
        function return_exp()
            pc.give_exp2(-pc.get_exp())
        end
        
        when 72501.use  begin
            if pc.get_level > 29 then
                if pc.getqf("antiexp") == 0 then
                    pc.setqf("antiexp", 1)
                    chat("Anti EXP aktiviert. Deine Erfahrungspunkte werden jede Sekunde auf 0 gesetzt!")
                    anti.return_exp()
                    loop_timer("erfahrung", 1)
                elseif pc.getqf("antiexp") == 1 then
                    pc.setqf("antiexp", 0)
                    chat("Anti EXP deaktiviert. Viel Spaß auf Relevation3!")
                end
            end    
        end
        
        when erfahrung.timer with pc.getqf("antiexp") == 1 begin
            anti.return_exp()
            pc.setqf("antiexp", 1)
        end    

        when login with pc.getqf("antiexp") == 1 begin
            anti.return_exp()
            loop_timer("erfahrung", 1)    
        end    
    end
end 
12/08/2012 15:38 yessiя#7252
geht immernoch nicht
12/08/2012 16:15 Kriegergeist^^#7253
Tag auch,

ich hatte langeweile und habe schnell 2 neue quest befehle geschrieben. Aber leider habe ich mein server gerade nicht zur verfügung, um sie zu testen.
Hier ist der erste:
HTML Code:
function check_mob_type()
	local mobtype = mysql_query("SELECT type FROM player.mob_proto WHERE vnum='"..npc.get_race().."'")
	if mobtype[1][1] == 0 then
		return monster
	elseif mobtype[1][1] == 1 then
		return npc
	elseif mobtype[1][1] == 2 then
		return metin
	elseif mobtype[1][1] == 3 then
		return telefeld
	elseif mobtype[1][1] == 4 then
		return tore
	elseif mobtype[1][1] == 5 then
		return gilde
	else
		return false
	end
end
Und hier der zweite:
HTML Code:
function check_mob_rang()
	local mobrang = mysql_query("SELECT rang FROM player.mob_proto WHERE vnum='"..npc.get_race().."'")
	if mobrang[1][1] == 0 then
		return 1
	elseif mobrang[1][1] == 1 then
		return 2
	elseif mobrang[1][1] == 2 then
		return 3
	elseif mobrang[1][1] == 3 then
		return 4
	elseif mobrang[1][1] == 4 then
		return boss
	elseif mobrang[1][1] == 5 then
		return 5
	else
		return false
	end
end
Was die beiden bewirken sollen, kann man sich ja schon denken ;)
Bin mir wirklich unsicher, ob die beiden klappen würden. Wäre nett wen jemand mal drüber schauen könnte.

MfG
Kriegergeist^^
12/08/2012 18:18 CyberEnte#7254
Also ich hab jetzt alle quests bearbeitet usw und jetzt kommt das
PLAYER_MAX_LEVEL: 99LocalService locale/germany/locale_string.txt
locale/germany/quest/locale.lua:1340:`}expected near`LoLz´
Assertion failed: (ms_singleton), function instance,file ../../common singleton
.h, line 26.
lostmt2#connect: Operation Timed Out
MasterAuth6
HILFEEEEEEEEEEEEEE
12/08/2012 21:19 Sintiax#7255
Kann mir das jemand umschreiben das man ein normales Pferd kaufen kann für 50KK, ein KG für 250KK und bei Millitärpferd ein Rotes Monokel abgeben muss?

Code:
quest pony_buy begin
	state start begin
		when 20349.chat."Pferdeprüfung" with horse.get_grade()==0 begin
			if pc.level<=4 then
				say_title("Pferdeprüfung")
				say("")
				say("Du willst ein Pferd von mir?")
				say("Es tut mir leid aber dein")
				say("Level ist zu niedrig!")
				say("")
				say_reward("Ich bitte dich wieder zu kommen wenn du das Level 5 erreicht hast")
				say("")
			elseif pc.countitem("30027")<1 then
				say_title("Pferdeprüfung")
				say("")
				say("Du willst ein Pferd von mir?")
				say("Du bekommtst von mir ein Pferd aber")
				say("das kann ich dir nicht schenken! Da ich")
				say("hier immer im Kalten stehe, würde ich")
				say("mich über einen neuen Dicken Mantel freuen.")
				say("")
				say_reward("Geh und besorge mir ein Wolfsfell!")
				say("")
				setstate(need_item30027)
			elseif pc.countitem("30027")>=1 and pc.level>=4 then
				say_title("Pferdeprüfung")
				say("")
				say("Diese kälte lässt mich bald Erstarren..")
				say("Oh du bringst mir ein Wolfsfell für meinen")
				say("Mantel? Als Dank für deine Mühe, werde ich")
				say("dir ein Pony schenken.")
				say("")
				say_reward("Nimmst du mein Geschenk an?")
				say("")
				local b=select("Ja", "Nein ich brauch kein Pferd")
				if 1==b then
					if pc.countitem("30027")>=1 then
						pc.removeitem("30027", 1)
						horse.set_level("10")
						pc.change_money("100000")
						pc.give_exp2("10000")
						pc.give_item2("50051", 1)
						say_title("Pferdeprüfung Belohnung")
						say("")
						say("Du erhälst")
						say_reward("Pferd Level 10")
						say_reward("100.000 Yang")
						say_reward("10.000 Erfahrungspunkte")
						say_reward("Eine Pferdebild")
						say("")
						say_reward("Komm wieder wenn du das level 25 erreicht hast")
						say("")
					end
				elseif 2==b then
					say_title("Pferdeprüfung")
					say("")
					say_reward("Dann komm wieder wenn du es dir")
					say_reward("anders überlegt hast!")
					say("")
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say_title("Pferdeprüfung")
				say("")
				say_reward("Dann komm wieder wenn du es dir")
				say_reward("anders überlegt hast!")
				say("")
			end
		end
	end
	state need_item30027 begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Suche ein Wolfsfell")
			q.set_title("Suche ein Wolfsfell")
			q.start()
		end
		when button begin
			say_title("Pferdeprüfung")
			say("")
			say("Finde ein Wolfsfell für den Stallburschen")
			say("und bringe es zu ihm!")
			say("")
			setstate(start)
			q.done()
		end
		when info begin
			say_title("Pferdeprüfung")
			say("")
			say("Finde ein Wolfsfell für den Stallburschen")
			say("und bringe es zu ihm!")
			say("")
			setstate(start)
			q.done()
		end
	end
end
12/10/2012 08:09 II=ExclusivE=II#7256
Hallo,
Ich hab keine Ahnung echt.
Entweder schreibe ich immer viel zu schwere Quests.
(Lerne es seit ca. 5 Tagen)
Oder ich bin zu Dumm den Fehler zu finden.

Die Konsole sagt folgendes ->
PHP Code:
expecting ´when´ or ´function´
pvp_u_pvm.quest:66:Error occured on compile pvp_u_pvm.quest 
Zeile 66 ist aber der Abschnitt, indem der nächste state startet. Siehe hier ->
PHP Code:
state kill2 begin 
Natürlich .. habe Ich nicht vergessen den neuen State an zu geben.
Siehe hier ->
PHP Code:
set_state(kill2) 
Hier kriegt Ihr jetzt nochmal die Komplette Quest + Beschreibung.
---------------------------------------------------------------

Es ist eine PvP & PvM Quest.
Zuerst muss man 250 User klatschen. Wenn das erledigt ist, SOLLTE die quest einem eigentlich mitteilen, das man zudem noch 50 Jeonun klatschen muss.

Wenn das alles Erledigt ist, kann man seiner Klasse entprechend einen Preis auswählen zu dem Yang und der Exp die man Sowieso bekommt.

Joa,
Das ist die quest im großen und ganzen. Aber die FUNKTIONIERT halt nicht.
hier die Quest im PHP wenn jemand den Fehler findet und mir mitteilen kann. Wäre ich sehr dankbar. :):):):):)

PHP Code:
------------------------------------
-- PvP_PvM Quest
-- Copyright by, II=ExclusivE=II
------------------------------------
quest pvp begin
    state start begin
        when login or levelup with pc.get_level()>= 80 begin
            set_state(pvp)
        end
    end

    state pvp begin
        when letter begin
            send_letter("Die Gegner")
        end

        when button or info begin
            say_title("Die Gegner")
            say("Da du bereits Level 80 erreicht hast,")
            say("Wird es Zeit das du für Unser Reich kämpfst!")
            say("Der Kaiser hat dir auferlegt")
            say("250 Feinde nieder zu strecken!")
            say("")
            say_reward("Akzeptierst du die Herrausforderrung?")
            local s = select("Ja", "Nein")
            if s == 2 then
                return
            elseif s == 1 then
                say_title("Die Gegner")
                say("Du hast die Herrausforderrung akzeptiert!")
                say("")
                say_reward("Töte 250 Gegnerische User")
                pc.setqf("state", 250)
                set_state(killpvp)
            end
        end
    end

    state killpvp begin
        when button or info begin
            say_reward("Du musst noch ".." "..pc.getqf("state").."Gegner Eleminieren.")
        end

        when kill begin
            if npc.is_pc() and npc.empire != pc.empire then
            local count = pc.getqf("state") - 1
            if count <= 250 then
                pc.setqf("state", count)
            end    
            if count == 0 then
                say("Super!")
                say("Du hast es geschafft 250 Gegner zu")
                say("Eleminieren!")
                say("")
                say("Der Kaiser hat aber noch eine Dringende")
                say("Bitte an dich. Du sollst dieses Land sicherer machen.")
                say("Nur Du bist dazu in der lage. Zerstöre nun 50 Jeonun")
                say("Um diese Quest erfolgreich ab zu schlißen!")
                say("")
                say_reward("Zerstöre nun 50 Jeonun!")
                set_state(kill2)
            end
        end
    end
    
    state kill2 begin
        when letter begin
            send_letter("Die 50 Jeonun")
        end
        
        when button or info begin
            say_title("Die 50x Jeonun")
            say("Komme der Bitte des Kaisers nach")
            say("und Zerstöre die 50 Jeonun.")
            say("Um dieser Welt wieder Frieden zu bringen!")
            say("")
            say_reward("Zerstöre nun die 50 Jeonun!")
            pc.setqf("jeonun", 50)
        end

        when button or info begin
            say_reward("Du musst noch ".." "..pc.getqf("jeonun").." von 50 Zerstören!")
        end    

        when kill with npc.get_race()== 8027 begin
            pc.setqf("jeonun", pc.getqf("jeonun") - 1)
            if pc.getqf("jeonun") == 0 then
                say_title("PvP und PvM")
                say("Du bist Unglaublich erlich!")
                say("Du hast es nicht nur geschafft 250")
                say("Feinde zu Eleminieren, sondern auch 50")
                say("Jeonun zu Zerstören! das Land ist dank dir,")
                say("viel sicherer geworden!")
                say("Und dafür wirst du jetzt Reich belohnt!")
                say("")
                say_reward("Du hast 50.000.000 Yang erhalten.")
                say_reward("Du hast 500.000 Erfahrungspunkte erhalten.")
                local b = select("Weiter")
                if b == 1 then
                    say("Du kannst jetzt noch zwischen einen")
                    say("Preis deiner Wahl entscheiden:")
                    if pc.job == 0 then
                        say("Da du ein Krieger bist, kannst du zwischen")
                        say("folgenden Preisen entscheiden:")
                        say("")
                        local d = select("Giftschwert+0", "Schlachtschwert+0", "Partisane+0")
                        if d == 1 then
                            say("Gut, du hast dich für das Giftschwert+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(180, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if d == 2 then
                            say("Gut, du hast dich für das Schlachtschwert+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(140, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if d == 3 then
                            say("Gut, du hast dich für die Partisane+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(3130, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                    elseif pc.job == 1 then
                        say("Da du ein Ninja bist, kannst du zwischen")
                        say("folgenden Preisen entscheiden:")
                        local g = select("Drachenmesser+0", "Seelenlose Messer+0", "Großgelbdrachenbogen+0", "Geisterbogen+0")
                        if g == 1 then
                            say("Gut, du hast dich für die Drachenmesser+7 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(1100, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if g == 2 then
                            say("Gut, du hast die für die Seelenlosen Messer+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item(4040, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if g == 3 then
                            say("Gut, du hast dich für den Großgelbdrachenbogen+0")
                            say("entschieden! Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(2140, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if g == 4 then
                            say("Gut, du hast dich für den Geisterbogen+0")
                            say("entschieden! Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(2190, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                    elseif pc.job == 2 then
                        say("Da du ein Sura bist, kannst du zwischen")
                        say("folgenden Preisen entscheiden:")
                        local f = select("Schlachtschwert+0", "Tritonschwert+0", "Geisterzahnklinge+0", "Heiliges Schwert+0")
                        if f == 1 then
                            say("Gut, du hast dich für das Schlachtschwert+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(147, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if f == 2 then
                            say("Gut, du hast dich für das Tritonschwert+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(270, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if f == 3 then
                            say("Gut, du hast dich für die Geisterzahnklinge+0")
                            say("entschieden. Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(150, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if f == 4 then
                            say("Gut, du hast dich für das Heilige Schwert+0")
                            say("entschieden. Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(280, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                    elseif pc.job == 3 then
                        say("Da du eine Schamane bist, kannst du zwischen")
                        say("folgenden Preisen entscheiden:")
                        local a = select("Erlösungsfächer+0", "Dämonenfächer+0", "Himmel und Erde Glocke+0", "Drachenmaulglocke+0")
                        if a == 1 then
                            say("Gut, du hast dich für den Erlösungsfächer+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(7130, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if a == 2 then
                            say("Gut, du hast dich für den Dämonenfächer+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(7190, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if a == 3 then
                            say("Gut, du hast dich für die Himmel und Erde Glocke+0")
                            say("entschieden. Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(5100, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                        if a == 4 then
                            say("Gut, du hast dich für die Drachenmaulglocke+0 entschieden!")
                            say("Viel Spaß mit deinem Gewinn!")
                            pc.give_item2(5330, 1)
                            pc.give_gold(50000000)
                            pc.give_exp(500000)
                            notice_all(""..pc.get_name().." hat soeben 250 Gegner Eleminiert!")
                            notice_all("außerdem hat "..pc.get_name().." 50x Jeonun Zerstört!")
                            notice_all(""..pc.get_name().." hat die Quest erfolgreich absolviert!")
                            notice_all("Wir sagen Herzlichen Glückwunsch!")
                            clear_letter()
                            set_state(__COMPLETE__)
                        end
                    end
                end
            end
        end
    end
    state __COMPLETE__ begin
    end
end 
Ps:
Wenn mir her jemand damit kommen sollte;
"Öhyy, der letzte abschnitt ist aus der quest von MrViDeOLiKe"

solle sich die Person doch bitte gleich mit ALT + F4 aus dem Staub machen.
Diese quest Funktion ist nur als zu bekannt. Und MrViDeOLiKe hat diese nicht gepachtet.
12/10/2012 15:07 ηєχσ™#7257
Mein Problem ist, dass bei Siegeln immer das falsche Pet kommt, habe mir sagen lassen das es evtl. an der Quest liegen kann.

PHP Code:
quest official_pets begin
    state start begin
        when 53001.use with pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("firephoenix_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("firephoenix_use", 1)
                pc.setqf("firephoenix", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.ATT_MAX_HP, 100, 60*60*8)
                horse.set_level("22")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8) 
                affect.remove_collect(apply.ATT_MAX_HP, 100, 60*60*8)                 
                horse.unsummon()
                pc.setqf("firephoenix_use", 0)
                pc.setqf("firephoenix", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("firephoenix_use") == 1 begin
            
            pc.setqf("firephoenix_use", 0)
            pc.setqf("firephoenix", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier ging alleine fort!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)  
        end
        when 53003.use with pc.getqf("firephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("icephoenix_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("icephoenix_use", 1)
                pc.setqf("icephoenix", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("23")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("icephoenix_use", 0)
                pc.setqf("icephoenix", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("icephoenix_use") == 1 begin
            
            pc.setqf("icephoenix_use", 0)
            pc.setqf("icephoenix", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Eisphönix verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53002.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("reindeer") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("reindeer_use", 1)
                pc.setqf("reindeer", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("24")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)        
                horse.unsummon()
                pc.setqf("reindeer_use", 0)
                pc.setqf("reindeer", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("reindeer_use") == 1 begin
            
            pc.setqf("reindeer_use", 0)
            pc.setqf("reindeer", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53005.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            if pc.getqf("pwahuang") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("pwahuang_use", 1)
                pc.setqf("pwahuang", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("25")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("pwahuang_use", 0)
                pc.setqf("pwahuang", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("pwahuang_use") == 1 begin
            
            pc.setqf("pwahuang_use", 0)
            pc.setqf("pwahuang", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53006.use with pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("dog_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("dog_use", 1)
                pc.setqf("dog", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("26")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)                   
                horse.unsummon()
                pc.setqf("dog_use", 0)
                pc.setqf("dog", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("dog_use") == 1 begin
            
            pc.setqf("dog_use", 0)
            pc.setqf("dog", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)  
        end
        when 53007.use with pc.getqf("dog") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("lion_use") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("lion_use", 1)
                pc.setqf("lion", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("27")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("lion_use", 0)
                pc.setqf("lion", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("lion_use") == 1 begin
            
            pc.setqf("lion_use", 0)
            pc.setqf("lion", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53008.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("pig") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("pig_use", 1)
                pc.setqf("pig", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("28")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)        
                horse.unsummon()
                pc.setqf("pig_use", 0)
                pc.setqf("pig", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("pig_use") == 1 begin
            
            pc.setqf("pig_use", 0)
            pc.setqf("pig", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
        when 53009.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            if pc.getqf("tiger") == 0 then
                local old_horse_name = horse.get_name() ;
                    if string.len(old_horse_name) == 0 then
                        chat("Dein Haustier hat noch keinen Namen!")
                    end
                chat("Dein Haustier wurde gerufen!")
                local your_horse_level = horse.get_level()
                pc.setqf("horse_level_save", your_horse_level)
                pc.setqf("tiger_use", 1)
                pc.setqf("tiger", 1)
                affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
                affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
                horse.set_level("29")
                horse.unsummon() horse.summon()
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            else
                chat("Dein Haustier verabschiedet sich nun von dir!")
                affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
                affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
                affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)       
                horse.unsummon()
                pc.setqf("tiger_use", 0)
                pc.setqf("tiger", 0)
                
                local horse_settings = pc.getqf("horse_level_save")
                horse.set_level(horse_settings)
            
            end
        end
        when logout or login with pc.getqf("tiger_use") == 1 begin
            
            pc.setqf("tiger_use", 0)
            pc.setqf("tiger", 0)
                
            local horse_settings = pc.getqf("horse_level_save")
            horse.set_level(horse_settings)
            
            chat("Dein Haustier verlässt dich nun!")
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
            affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)   
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
        end
    end
end 
12/10/2012 16:33 plechito#7258
## delete
12/10/2012 17:10 iSouli~#7259
Quote:
Originally Posted by plechito View Post
Hello all..
i have problem wtih this quest..

PHP Code:
------------------------
--Líhe&#328; pavoučí baronky
--By plechito
------------------------
quest pavouci_lihen_itemy begin
  state start begin 
    when 20355.chat."Chtěl bych do líhně " with pc.getqf("lihen_item") == 0 and pc.get_level() <= 54 begin
      say("Promiň bojovníku, vím, že by jsi")
      say("rád bojoval proti takové nestvůře, ale")
      say("tvůj level ti to nedovoluje.")
      say("Pavoučí baronka je příliš silná.")
    end
    
    when 20355.chat."Chtěl bych do líhně " with pc.getqf("lihen_item") == 0 and pc.get_level() >= 55 begin
      say_title("Vysloužilý legionář ")
      say("")
      say_gold("Zdravím tě legionáři!")
      say_gold("Vidím, že se už k tobě objev líhně ")
      say_gold("pavoučí baronky donesl. Byla oběvena")
      say_gold("teprve nedávno, když jeden legionář ")
      say_gold("projížděl pavoučím podzemím..")
      wait()
      say_title("Vysloužilý legionář ")
      say("")
      say_gold("Kdyby jsi chtěl, ty a tvá skupina")
      say_gold("ukázat, co ve vás vězí a jít společně ")
      say_gold("proti Baronce bojovat. V jednotě je totiž ")
      say_gold("síla!")
      say_reward("Chceš se utkat s Pavoučí baronkou?")
          local s=select("Jsem s mou skupinou odhodlán", "Zavřít")
          if s==1 then
              say_gold("Výborně, pro vstup do líhně pavoučí ")
              say_gold("baronky budeš potřebovat Pavoučí klíč.")
              say_gold("Tady máš propustku, běž za zraněným")
              say_gold("legionářem. Najdeš ho na konci 2. patra")
              say_gold("pavoučího podzemí.")
              say_gold("Odevzdej mu propustku a popros o přemístění ")
              say_gold("do 3. patra pavoučího podzemí. Tam mi sežeň ")
              say_gold("3 kusy Kopií nápisu.")
              pc.give_item2(71095, 1)
          pc.getqf("lihen_item", 1)
          return
          end
      end
      
    when 20501.take with item.vnum == 71095 begin      
      say_gold("Ahhh....")      
      say_gold("Vítám tě legionáři..")      
      say_gold("Proč na mě tak zíráš?")      
      say_gold("Ano, jsem zraněný, jsem a nakažený..")      
      say_gold("Mám v sobě tolik pavoučího jedu, že")      
      say_gold("už je pro mne vlastně neškodný.. ")      
      say_gold("Umřít nemůžu, ovšem dobře se také nemám.")
      say("")      
      say("No nic, pošlu tě dál, ale dávej pozor!")      
      say("Ať se ti nestane to co mě!")
      pc.remove_item(71095, 1)
      pc.getqf("drop_kopii", 1)
    end
      
    when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("drop_kopii") == 1 begin
            local s = number(1, 70)
              if s == 1 and pc.count_item(31001) == 0 then
                  pc.give_item2(31001, 1)
                  say_gold("Výborně, našel jsi jednu Kopii nápisu.")        
                  say_gold("Již zbývají jen 2.")
          pc.getqf("drop_kopii", 0)
          pc.getqf("drop_kopii1", 1)
      end        

    when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("drop_kopii1") == 1 begin
            local s = number(1, 70)
              if s == 1 and pc.count_item(31001) == 1 then
                  pc.give_item2(31001, 1)
                  say_gold("Výborně, našel jsi druhou Kopii nápisu.")        
                  say_gold("Již zbývá jen 1.")
          pc.getqf("drop_kopii1", 0)
          pc.getqf("drop_kopii2", 1)
      end        


    when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("drop_kopii2") == 1 begin
            local s = number(1, 70)
              if s == 1 and pc.count_item(31001) == 2 then
                  pc.give_item2(31001, 1)
                  say_gold("Výborně, našel jsi poslední Kopii nápisu.")        
                  say_gold("Nyní se vrať k Vysloužilému Legionáři.")
          pc.getqf("drop_kopii2", 0)
          set_state( zpatky_k_legionari )
      end
     end        
          
  state zpatky_k_legionari begin    
    when letter begin
      send_letter("Zpět k Vysloužilému legionáři")          
      local npc = find_npc_by_vnum(20355)
      target.vid("__TARGET__", npc, "Vysloužilý legionář ")
    end  

    when button or info begin
      say_gold("Našel jsi všechny 3 Kopie nápisu.")
      say_gold("Nyní se vrať za Vysloužilím legionářem,")
      say_gold("Řekne ti, co dál.")
    end
      
    when 20355.chat."Mám všechny kopie" begin
      say_title("Vysloužilý legionář:")
      say_gold("Ukaž?!")
      say_gold("Hmm... zajímavé..")
      say_gold("Tohle není pro mne, ale spíše pro")
      say_gold("někoho učenějšího. Tomuhle nerozumím")
      say_gold("ano trochu.")
      say_gold("Zkus zajít za učencem Urielem.")
      target.delete("__TARGET__")
      pc.remove_item(31001, 3) 
      set_state( jdi_za_urielem )
    end
  end

  state jdi_za_urielem begin   
    when letter begin
      send_letter("Jdi za Urielem")          
      local npc = find_npc_by_vnum(20011)
      target.vid("__TARGET__", npc, "Uriel")
    end  
    
    when button or info begin
      say_gold("Vysloužilý legionář si se svitky")
      say_gold("nevěděl rady, běž se zeptat Uriela.")
    end
    
    when 20011.chat."Kopie nápisu" begin
      target.delete("__TARGET__")
      say_gold("Hmmm.. zajímavé..")
      say_gold("Velitel si s tím nevěděl rady?")
      say_gold("To se divím, nezdá se mi to něják")
      say_gold("obtížné.")
      say_gold("Jestli je pravda, co říkáš a chceš ")
      say_gold("se se svou skupinou vydat ba lov ")
      say_gold("Pavoučí baronky, budeš toho potřebovat")
      say_gold("mnohem více.")
      wait()
      say_gold("Vrať se zpět k Veliteli pro propustku.")
      say_gold("Budeš se muset vrátit do patra")
      say_gold("pavoučího podzemí")
      set_state( zpet_k_veliteli )
    end
  end

  state zpet_k_veliteli begin   
    when letter begin
      send_letter("Zpět za vysloužilým legionářem")          
      local npc = find_npc_by_vnum(20355)
      target.vid("__TARGET__", npc, "Vysoužilý legionář")
    end  
    
    when button or info begin
      say_gold("Vrať se k vysloužilému legionáři pro")
      say_gold("propustku.")
    end

    when 20355.chat."Zpráva od Uriela" begin
      say_gold("Vážně?")     
      say_gold("Budu mu  věřit, přece jen je")     
      say_gold("mnohem učenější než já..")
      pc.give_item2(71095, 1)     
      set_state( na_kralovnu )
    end
  end

  state na_kralovnu begin   
    when letter begin
      send_letter("Vrať se do pavoučího dungeonu")          
    end  
    
    when button or info begin
      say_gold("Byl si pověřen vrátit se do")
      say_gold("3. patra pavoučího dungeonu.")
      say_gold("Než se tam ale vypravíš, budeš ")
      say_gold("muset porazit Pavoučí královnu")
      say_gold("a získat Jed pavoučí královny.")
      wait()
      say_gold("Po té se vypravíš do 3. patra")
      say_gold("pavoučího dungeonu a přineseš ")
      say_gold("Oči pavouka, Pavoučí nohy, Pytlík s pav.")
      say_gold("jedem, pavučinu  a pytlík s pavoučími vajíčky.")
      pc.setqf("need_items", 1)
    end
    
    when 2091.kill with pc.setqf("need_items") == 1 begin
      pc.give_item2(30326, 1)
      say_gold("Výborně, získal jsi Jed pavoučí královny.")               
      say_gold("Nyní se vyprav do 3. patra pavoučího")               
      say_gold("dungeonu a získej z tamních pavouků ")               
      say_gold("Oči pavouka, Pavoučí nohy, Pytlík s pav.")
      say_gold("jedem, pavučinu  a pytlík s pavoučími vajíčky.")
      say_gold("Jeden kus od každého. Nemělo by být těžké předměty")
      say_gold("získat.")
      pc.setqf("need_items", 0)
      pc.setqf("need_items_dung", 1)
    end
    
    when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung") == 1 begin
            local s = number(1, 30)
              if s == 1 and pc.count_item(30059) == 0 then
                  pc.give_item2(30059, 1)
                  say_gold("Získal jsi pavoučí nohy!")        
                  say_gold("Výborně, jen tak dál..")
          pc.getqf("need_items_dung", 0)
          pc.getqf("need_items_dung1", 1)
     end        


    when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung1") == 1 begin
            local s = number(1, 30)
              if s == 1 and pc.count_item(30058) == 0 then
                  pc.give_item2(30058, 1)
                  say_gold("Získal jsi Pytlík s pavouč. vajíčky!")        
                  say_gold("Výborně, jen tak dál..")
          pc.getqf("need_items_dung1", 0)
          pc.getqf("need_items_dung2", 1)
     end        


    when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung2") == 1 begin
            local s = number(1, 30)
              if s == 1 and pc.count_item(30057) == 0 then
                  pc.give_item2(30057, 1)
                  say_gold("Získal jsi Oči pavouka!")        
                  say_gold("Výborně, už máš skoro vše..")
          pc.getqf("need_items_dung2", 0)
          pc.getqf("need_items_dung3", 1)
     end        

    when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung3") == 1 begin
            local s = number(1, 30)
              if s == 1 and pc.count_item(30056) == 0 then
                  pc.give_item2(30056, 1)
                  say_gold("Získal jsi Pavučina!")        
                  say_gold("Výborně, máš všechno!")
                  say_gold("Nyní se vrať za Vysloužilým legionářem")
                  say_gold("a promluv si s ním.")
          pc.getqf("need_items_dung4", 0)
          pc.getqf("need_items_dung4", 1)
      set_state( navrat_k_veliteli )
    end
  end

  state navrat_k_veliteli begin   
    when letter begin
      send_letter("Zpět za legionářem")          
      local npc = find_npc_by_vnum(20355)
      target.vid("__TARGET__", npc, "Vysoužilý legionář ")
    end  
    
    when button or info begin
      say_gold("Máš všechny potřebné věci..")
      say_gold("Běž za Vysloužilým legionářem")
      say_gold("a oznam mu to. Jistě si s tebou")
      say_gold("bude chtít promluvit.")
    end
    
    when 20355.chat."Mám všechny potřebné věci"
      say_gold("To už jsi tady?")
      say_gold("Nečekal jsem, že budeš tak rychlý.")
      say_gold("Jsi dobrý legionář, mám z tebe radost..")
      say_gold("Vidím, že máš všechny potřebné věci..")
      say_gold("No, přece jen tomu nerozumím tolik")
      say_gold("jako Uriel.. běž tedy za ním..")
      set_state( opet_za_urielem )
    end
  end

  state opet_za_urielem begin   
    when letter begin
      send_letter("Běž za Urielem")          
      local npc = find_npc_by_vnum(20011)
      target.vid("__TARGET__", npc, "Uriel")
    end  
    
    when button or info begin
      say_gold("Vysloužilý legionář tě poslal")
      say_gold("za Urielem.. pospěš si.")
    end

    when 20011.chat."Mám všechny věci"
      say_gold("Výborně milý legionáři..")
      say_gold("Nyní máš všecny potřebné věci, které ")      
      say_gold("potřebuješ na výrobu Pavoučího klíče.")      
      say_gold("Pouze mi dej všechny potřebné předměty,")      
      say_gold("které jsi sbíral.")
      wait()
      say_gold("Měli by to být tyto:")     
      say_gold("Jed pavoučí královny - 1 ks")     
      say_gold("Pavoučí nohy - 1 ks")     
      say_gold("Oči pavouka - 1 ks")     
      say_gold("Pytlík s pavoučím jedem - 1 ks")     
      say_gold("Jed s pavoučími vajíčky - 1 ks")     
      say_gold("Kopie nápisu - 3 ks")
      wait()
      say_gold("Po té běž společně se svou skupinou")     
      say_gold("na konec 3. patra pavoučího dungeonu.")     
      say_gold("Pozor! Musíš být zakladatelem skupiny")
      say_gold("Na konci 3. patra leží další zraněný ")     
      say_gold("legionář, nakažený jedem Pavoučí baronky.")     
      say_gold("Dám ti propustku, aby jsi se mohl teleportovat")     
      say_gold("zadarmo. Ostatí členové skupiny ovšem")
      say_gold("budou muset za přemístění zaplatit.")
     end
    end
   end 
This is error from putty:
PHP Code:
WHEN  : 2071.kill or
WHEN  : 2072.kill or
WHEN  : 2073.kill or
WHEN  : 2074.kill or
WHEN  : 2075.kill or
WHEN  : 2076.kill
        with pc . setqf ( "drop_kopii" ) == 1
qc in malloc(): error: allocation failed 
Thanks for your help!
PHP Code:
------------------------ 
--Líhe&#328; pavoucí baronky 
--By plechito 
------------------------ 
quest pavouci_lihen_itemy begin 
    state start begin  
        when 20355.chat."Chtel bych do líhne " with pc.getqf("lihen_item") == 0 and pc.get_level() <= 54 begin 
            say("Promin bojovníku, vím, že by jsi") 
            say("rád bojoval proti takové nestvure, ale") 
            say("tvuj level ti to nedovoluje.") 
            say("Pavoucí baronka je príliš silná.") 
        end 

        when 20355.chat."Chtel bych do líhne " with pc.getqf("lihen_item") == 0 and pc.get_level() >= 55 begin 
            say_title("Vysloužilý legionár ") 
            say("") 
            say_gold("Zdravím te legionári!") 
            say_gold("Vidím, že se už k tobe objev líhne ") 
            say_gold("pavoucí baronky donesl. Byla obevena") 
            say_gold("teprve nedávno, když jeden legionár ") 
            say_gold("projíždel pavoucím podzemím..") 
            wait() 
            say_title("Vysloužilý legionár ") 
            say("") 
            say_gold("Kdyby jsi chtel, ty a tvá skupina") 
            say_gold("ukázat, co ve vás vezí a jít spolecne ") 
            say_gold("proti Baronce bojovat. V jednote je totiž ") 
            say_gold("síla!") 
            say_reward("Chceš se utkat s Pavoucí baronkou?") 
            local s=select("Jsem s mou skupinou odhodlán", "Zavrít") 
            if s==1 then 
                say_gold("Výborne, pro vstup do líhne pavoucí ") 
                say_gold("baronky budeš potrebovat Pavoucí klíc.") 
                say_gold("Tady máš propustku, bež za zraneným") 
                say_gold("legionárem. Najdeš ho na konci 2. patra") 
                say_gold("pavoucího podzemí.") 
                say_gold("Odevzdej mu propustku a popros o premístení ") 
                say_gold("do 3. patra pavoucího podzemí. Tam mi sežen ") 
                say_gold("3 kusy Kopií nápisu.") 
                pc.give_item2(71095, 1) 
                pc.getqf("lihen_item", 1) 
                return 
            end 
        end 

        when 20501.take with item.vnum == 71095 begin       
            say_gold("Ahhh....")       
            say_gold("Vítám te legionári..")       
            say_gold("Proc na me tak zíráš?")       
            say_gold("Ano, jsem zranený, jsem a nakažený..")       
            say_gold("Mám v sobe tolik pavoucího jedu, že")       
            say_gold("už je pro mne vlastne neškodný.. ")       
            say_gold("Umrít nemužu, ovšem dobre se také nemám.") 
            say("")       
            say("No nic, pošlu te dál, ale dávej pozor!")       
            say("At se ti nestane to co me!") 
            pc.remove_item(71095, 1) 
            pc.getqf("drop_kopii", 1) 
        end 

        when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("drop_kopii") == 1 begin 
            local s = number(1, 70) 
            if s == 1 and pc.count_item(31001) == 0 then 
                pc.give_item2(31001, 1) 
                say_gold("Výborne, našel jsi jednu Kopii nápisu.")         
                say_gold("Již zbývají jen 2.") 
                pc.getqf("drop_kopii", 0) 
                pc.getqf("drop_kopii1", 1) 
            end
        end

        when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("drop_kopii1") == 1 begin 
            local s = number(1, 70) 
            if s == 1 and pc.count_item(31001) == 1 then 
                pc.give_item2(31001, 1) 
                say_gold("Výborne, našel jsi druhou Kopii nápisu.")         
                say_gold("Již zbývá jen 1.") 
                pc.getqf("drop_kopii1", 0) 
                pc.getqf("drop_kopii2", 1) 
            end    
        end

        when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("drop_kopii2") == 1 begin 
            local s = number(1, 70) 
            if s == 1 and pc.count_item(31001) == 2 then 
                pc.give_item2(31001, 1) 
                say_gold("Výborne, našel jsi poslední Kopii nápisu.")         
                say_gold("Nyní se vrat k Vysloužilému Legionári.") 
                pc.getqf("drop_kopii2", 0) 
                set_state( zpatky_k_legionari ) 
            end 
        end
    end

    state zpatky_k_legionari begin     
        when letter begin 
            send_letter("Zpet k Vysloužilému legionári")           
            local npc = find_npc_by_vnum(20355) 
            target.vid("__TARGET__", npc, "Vysloužilý legionár ") 
        end   

        when button or info begin 
            say_gold("Našel jsi všechny 3 Kopie nápisu.") 
            say_gold("Nyní se vrat za Vysloužilím legionárem,") 
            say_gold("Rekne ti, co dál.") 
        end 

        when 20355.chat."Mám všechny kopie" begin 
            say_title("Vysloužilý legionár:") 
            say_gold("Ukaž?!") 
            say_gold("Hmm... zajímavé..") 
            say_gold("Tohle není pro mne, ale spíše pro") 
            say_gold("nekoho ucenejšího. Tomuhle nerozumím") 
            say_gold("ano trochu.") 
            say_gold("Zkus zajít za ucencem Urielem.") 
            target.delete("__TARGET__") 
            pc.remove_item(31001, 3)  
            set_state( jdi_za_urielem ) 
        end
    end

    state jdi_za_urielem begin    
        when letter begin 
            send_letter("Jdi za Urielem")           
            local npc = find_npc_by_vnum(20011) 
            target.vid("__TARGET__", npc, "Uriel") 
        end   

        when button or info begin 
            say_gold("Vysloužilý legionár si se svitky") 
            say_gold("nevedel rady, bež se zeptat Uriela.") 
        end 

        when 20011.chat."Kopie nápisu" begin 
            target.delete("__TARGET__") 
            say_gold("Hmmm.. zajímavé..") 
            say_gold("Velitel si s tím nevedel rady?") 
            say_gold("To se divím, nezdá se mi to neják") 
            say_gold("obtížné.") 
            say_gold("Jestli je pravda, co ríkáš a chceš ") 
            say_gold("se se svou skupinou vydat ba lov ") 
            say_gold("Pavoucí baronky, budeš toho potrebovat") 
            say_gold("mnohem více.") 
            wait() 
            say_gold("Vrat se zpet k Veliteli pro propustku.") 
            say_gold("Budeš se muset vrátit do patra") 
            say_gold("pavoucího podzemí") 
            set_state( zpet_k_veliteli ) 
        end 
    end 

    state zpet_k_veliteli begin    
        when letter begin 
            send_letter("Zpet za vysloužilým legionárem")           
            local npc = find_npc_by_vnum(20355) 
            target.vid("__TARGET__", npc, "Vysoužilý legionár") 
        end   

        when button or info begin 
            say_gold("Vrat se k vysloužilému legionári pro") 
            say_gold("propustku.") 
        end 

        when 20355.chat."Zpráva od Uriela" begin 
            say_gold("Vážne?")      
            say_gold("Budu mu  verit, prece jen je")      
            say_gold("mnohem ucenejší než já..") 
            pc.give_item2(71095, 1)      
            set_state( na_kralovnu ) 
        end 
    end 

    state na_kralovnu begin    
        when letter begin 
            send_letter("Vrat se do pavoucího dungeonu")           
        end   

        when button or info begin 
            say_gold("Byl si poveren vrátit se do") 
            say_gold("3. patra pavoucího dungeonu.") 
            say_gold("Než se tam ale vypravíš, budeš ") 
            say_gold("muset porazit Pavoucí královnu") 
            say_gold("a získat Jed pavoucí královny.") 
            wait() 
            say_gold("Po té se vypravíš do 3. patra") 
            say_gold("pavoucího dungeonu a prineseš ") 
            say_gold("Oci pavouka, Pavoucí nohy, Pytlík s pav.") 
            say_gold("jedem, pavucinu  a pytlík s pavoucími vajícky.") 
            pc.setqf("need_items", 1) 
        end 

        when 2091.kill with pc.setqf("need_items") == 1 begin 
            pc.give_item2(30326, 1) 
            say_gold("Výborne, získal jsi Jed pavoucí královny.")                
            say_gold("Nyní se vyprav do 3. patra pavoucího")                
            say_gold("dungeonu a získej z tamních pavouku ")                
            say_gold("Oci pavouka, Pavoucí nohy, Pytlík s pav.") 
            say_gold("jedem, pavucinu  a pytlík s pavoucími vajícky.") 
            say_gold("Jeden kus od každého. Nemelo by být težké predmety") 
            say_gold("získat.") 
            pc.setqf("need_items", 0) 
            pc.setqf("need_items_dung", 1) 
        end 

        when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung") == 1 begin 
            local s = number(1, 30) 
            if s == 1 and pc.count_item(30059) == 0 then 
                pc.give_item2(30059, 1) 
                say_gold("Získal jsi pavoucí nohy!")         
                say_gold("Výborne, jen tak dál..") 
                pc.getqf("need_items_dung", 0) 
                pc.getqf("need_items_dung1", 1)
            end
        end         


        when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung1") == 1 begin 
            local s = number(1, 30) 
            if s == 1 and pc.count_item(30058) == 0 then 
                pc.give_item2(30058, 1) 
                say_gold("Získal jsi Pytlík s pavouc. vajícky!")         
                say_gold("Výborne, jen tak dál..") 
                pc.getqf("need_items_dung1", 0) 
                pc.getqf("need_items_dung2", 1)
            end
        end         


        when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung2") == 1 begin 
            local s = number(1, 30) 
            if s == 1 and pc.count_item(30057) == 0 then 
                pc.give_item2(30057, 1) 
                say_gold("Získal jsi Oci pavouka!")         
                say_gold("Výborne, už máš skoro vše..") 
                pc.getqf("need_items_dung2", 0) 
                pc.getqf("need_items_dung3", 1)
            end
        end         

        when 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill with pc.setqf("need_items_dung3") == 1 begin 
            local s = number(1, 30) 
            if s == 1 and pc.count_item(30056) == 0 then 
                pc.give_item2(30056, 1) 
                say_gold("Získal jsi Pavucina!")         
                say_gold("Výborne, máš všechno!") 
                say_gold("Nyní se vrat za Vysloužilým legionárem") 
                say_gold("a promluv si s ním.") 
                pc.getqf("need_items_dung4", 0) 
                pc.getqf("need_items_dung4", 1) 
                set_state( navrat_k_veliteli ) 
            end 
        end
    end

    state navrat_k_veliteli begin    
        when letter begin 
            send_letter("Zpet za legionárem")           
            local npc = find_npc_by_vnum(20355) 
            target.vid("__TARGET__", npc, "Vysoužilý legionár ") 
        end   

        when button or info begin 
            say_gold("Máš všechny potrebné veci..") 
            say_gold("Bež za Vysloužilým legionárem") 
            say_gold("a oznam mu to. Jiste si s tebou") 
            say_gold("bude chtít promluvit.") 
        end 

        when 20355.chat."Mám všechny potrebné veci" 
            say_gold("To už jsi tady?") 
            say_gold("Necekal jsem, že budeš tak rychlý.") 
            say_gold("Jsi dobrý legionár, mám z tebe radost..") 
            say_gold("Vidím, že máš všechny potrebné veci..") 
            say_gold("No, prece jen tomu nerozumím tolik") 
            say_gold("jako Uriel.. bež tedy za ním..") 
            set_state( opet_za_urielem ) 
        end 
    end 

    state opet_za_urielem begin    
        when letter begin 
            send_letter("Bež za Urielem")           
            local npc = find_npc_by_vnum(20011) 
            target.vid("__TARGET__", npc, "Uriel") 
        end   

        when button or info begin 
            say_gold("Vysloužilý legionár te poslal") 
            say_gold("za Urielem.. pospeš si.") 
        end 

        when 20011.chat."Mám všechny veci" 
            say_gold("Výborne milý legionári..") 
            say_gold("Nyní máš všecny potrebné veci, které ")       
            say_gold("potrebuješ na výrobu Pavoucího klíce.")       
            say_gold("Pouze mi dej všechny potrebné predmety,")       
            say_gold("které jsi sbíral.") 
            wait() 
            say_gold("Meli by to být tyto:")      
            say_gold("Jed pavoucí královny - 1 ks")      
            say_gold("Pavoucí nohy - 1 ks")      
            say_gold("Oci pavouka - 1 ks")      
            say_gold("Pytlík s pavoucím jedem - 1 ks")      
            say_gold("Jed s pavoucími vajícky - 1 ks")      
            say_gold("Kopie nápisu - 3 ks") 
            wait() 
            say_gold("Po té bež spolecne se svou skupinou")      
            say_gold("na konec 3. patra pavoucího dungeonu.")      
            say_gold("Pozor! Musíš být zakladatelem skupiny") 
            say_gold("Na konci 3. patra leží další zranený ")      
            say_gold("legionár, nakažený jedem Pavoucí baronky.")      
            say_gold("Dám ti propustku, aby jsi se mohl teleportovat")      
            say_gold("zadarmo. Ostatí clenové skupiny ovšem") 
            say_gold("budou muset za premístení zaplatit.") 
        end 
    end 
end 
12/10/2012 18:24 Fuzzy111#7260
Hallo COM,
bekomme bei meiner Quest einen Fehler. Die Konsole sagt mir irgendwas mit: 'unexpected Symbol near 'when'.
Hier ist die Quest:

Danke im vorraus (;

mfg. Fuzzy
Page 484 of 845 « First 384434474482483 484 485486494534584 Last »