[SERVICE] Die Questkontrolle

Page 160 of 845

160

05/19/2011 12:16 Zorro'#2386

Sieht doch schonmal gleich viel ordentlicher aus :)

Vielen Dank & funzt wunderbar

Edit: Und jetz gehts wieder nit O_o

05/19/2011 14:32 .Delta#2387

j-m�x: f�r dich

PHP Code:


			
quest all_maps begin
    state start begin
        when 40002.use begin
            say_title("Warpring:")
            say("")
            say("Hiermit kannst du dich in verschiedene")
            say("Maps teleportieren lassen.")
            say("")
            say_reward("W�hle aus:")
            local a = select("ChillerMap", "Handelsmap", "PvPMap", "UnterhaltungsMap", "Abbrechen")
            if a == 1 then
                say_title("ChillerMap")
                say("Hallo mein Freund!")
                say("Kennst du schon die ChillerMap?!")
                say("Nein,also gut!")
                say("")
                say("Du kannst dich dort mit Leuten")
                say("Duelieren oder Handeln etc.")
                say("doch erst mit lvl 25 und 1kk yang")
                say("Die ChillerMap zu besuchen!")
                say_reward("Dort erwartet dich Viel Spa�!")
                local s1 = select("Ja bitte teleportieren.","Nein ich m�chte hier bleiben.")
                if s1 == 1 then
                    if pc.get_level() < 25 then
                        say("Tut mir leid.")
                        say("Du musst mehr Erfahrung sammeln")
                        return
                    end
                    if pc.get_money() < 1000000 then
                        say("Du brauchst mehr Yang.")
                        say("musst wohl noch farmen gehen.")
                        return
                    end
                    say("OK, du wist teleportiert.")
                    say("Viel Spa�")
                    pc.change_money(-1000000)
                    wait()
                    pc.warp(568400 , 558200)
                elseif s1 == 2 then
                    return
                end
            elseif a == 2 then
                say_title("Handelsmap")
                say("Hallo mein Freund!")
                say("Du sieht aus als m�chtest")
                say("du Handeln!")
                say("Dann komm auf unserer")
                say("Neuen Handelsmap!")
                say("Dort kannst du mit Leuten")
                say("Aus allen reichen Handeln!")
                say("")
                say_reward("M�chtest du zur Handelsmap?")
                local s2 = select("Ja bitte teleportieren.","Nein ich m�chte hier bleiben.")
                if s2 == 1 then
                    say("OK, du wist teleportiert.")
                    say("Viel Spa�")
                    wait()
                    pc.warp(777700 , 777700)
                elseif s2 == 2 then
                    return
                end
            elseif a == 3 then
            say_title("PvPMap")
            say("Hallo mein Freund!")
            say("Wir haben ein Gebiet entdeckt,")
            say("wo ein gro�es Pvp Turnier")
            say("Oftmals Statt findet!")
            say("Es kostet dich nur 1kk yang")
            say("")
            say_reward("M�chtest du zur PvpMap?")
                local s3 = select("Ja bitte teleportieren.","Nein ich m�chte hier bleiben.")
                if s3 == 1 then
                    if pc.get_level() < 25 then
                        say("Tut mir leid.")
                        say("Du musst mehr Erfahrung sammeln")
                        return
                    end
                    if pc.get_money() < 1000000 then
                        say("Du brauchst mehr Yang.")
                        say("musst wohl noch farmen gehen.")
                        return
                    end
                    say("OK, du wist teleportiert.")
                    say("Viel Spa�")
                    pc.change_money(-1000000)
                    wait()
                    pc.warp(333300 , 333300)
                elseif s3 == 2 then
                    return
                end
            elseif a == 4 then
                say_title("UnterhaltungsMap")
                say("Hallo mein Freund!")
                say("Hast du langeweile?")
                say("Oder m�chtest dich ein wenig")
                say("Unterhalten?!")
                say("Dann komm zur UnterhaltungsMap")
                say("")
                say_reward("M�chtest du zur UnterhaltungsMap?")                
                local s4 = select("Teleportier mich!", "Nein ich bleib hier!")
                if s4 == 1 then
                    say("Ok")
                    say_reward("Viel Spa�")
                    wait()
                    pc.warp(444400 , 444400)
                elseif s4 == 2 then
                    say("Ok")
                    say("Eine Weise Entscheidung!")
                end
            elseif a == 5 then
                return
            end
        end
    end
end

Zorro' was denn?^^
an der Quest sollte es nicht liegen ;)

05/19/2011 15:15 j-m�x#2388

okay danke delta f�r die arbeit=)

ich probiere es mal^^ich denke aber eher es funzt erst nachem make.sh^^
also kann ich dann beim n�chsten reboot mehr berrichten=)

05/19/2011 18:14 Zorro'#2389

Wird immer verr�ckter Oo

Jetzt funzt es bei manchen, bei den anderen wiederrum nicht.. Was f�r n Zirkus

05/20/2011 00:35 lfcmaus#2390

hab auch son problem das das item nicht funktion nur selten mal einer ne idee warum das so ist?
make.sh l�uft durch ohne fehler ingame rehctsklcik aufs item nichts passiert -.-

PHP Code:


			
quest siegeltiere begin
    state start begin
        when 71114.use with pc.is_level() >= 10 begin

            if pc.is_mount() then
                say_title("Siegelmen�.:")
                say("Du beherscht zurzeit schon ein")
                say("Siegeltier wenn du ein anderes")
                say("beherschen m�chtest musst du vorher")
                say("absteigen.")
                local absteigen1 = select ("Absteigen","Abbrechen")
                
                if absteigen1 == 1 then
                    pc.unmount()
                    affect.remove_collect()
                elseif absteigen1 == 2 then
                    return
                end
            else
                say_title("Siegelmen�.:")
                say("Dieses Siegel beherbergt die")
                say("Seelen der Tiere.Alte Zauberer")
                say("haben 2 Tierseelen in dieses")
                say("Siegel gesperrt,nur den st�rksten")
                say("K�mpfern aus Alleria ist es erlaubt,")
                say("diese Siegel zu benutzen.")
                say("")
                say("Aufgrund der negativen Energien,")
                say("die durch die Metinsteine,�berall")
                say("herschen,wird das Aussehen der Tiere,")
                say("durch das Wetter und den Tageszeiten")
                say("bestimmt.")
                wait()
                say_title("Siegelmen�.:")
                say("M�chtest du ein Tier rufen?")
                local a = select ("L�wen rufen...", "Tiger rufen...")
                    
                if a == 1 then
                    if game.get_event_flag("nacht") <1 then
                        pc.mount(39912, 60*60)
                        affect.add_collect(apply.MOV_SPEED,35,600)
                        affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600)
                        affect.add_collect(apply.DEF_GRADE_BONUS,350,600)
                    else
                        pc.mount(39915, 60*60)
                        affect.add_collect(apply.MOV_SPEED,35,600)
                        affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600)
                        affect.add_collect(apply.DEF_GRADE_BONUS,350,600)
                    end
                elseif a == 2 then
                    if game.get_event_flag("nacht") <1 then
                        pc.mount(39913, 60*60)
                        affect.add_collect(apply.MOV_SPEED,35,600)
                        affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600)
                        affect.add_collect(apply.DEF_GRADE_BONUS,350,600)
                    else
                        pc.mount(39914, 60*60)
                        affect.add_collect(apply.MOV_SPEED,35,600)
                        affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600)
                        affect.add_collect(apply.DEF_GRADE_BONUS,350,600)
                    end
                end
            end
        end
    end
end

quest soll halt zwischen tag und ancht unter scheiden und wenn tag ist halt die rufen nacht die anderen
nacht wird �ber quest eingestellt welches game:event startet 0 = tag 1 = nacht

05/20/2011 09:30 .Delta#2391

probiers mal mit pc.get_level() statt pc.is_level()

05/20/2011 15:34 j-m�x#2392

Soo .Delta die Quest mit dem ring..in VPC steht nur:
Start
When
use.40002

nur da tut sich i.wie IG nix.:( soll ich ma den normalen Warpring versuchen..weil der tut IG..

05/20/2011 23:18 xCh4oS#2393

quest Drachental begin
state start begin
when 20011.chat."Zugang zum Drachental" begin
say(""..mob_name(20011)..":")
say("")
say("Sei gegruesst K�mpfer!")
say("Seit kurzem habe ich den Schl�ssel")
say("zum beruechtigten Drachental.")
say("Dort im verborgenden leben die")
say("letzten Seelen der Krieger,")
say("die im schrecklichen Kampf um das Land")
say("ihr Leben liessen. Sie sind extrem stark und")
say("durch und durch mit Hass, Und ihr Boss!! Ohhh...")
say("Ich kann dich hinbringen, aber NUR, wenn du Lv 90")
say("oder h�her bist und gut bezahlst!")
say("hmm......")
say("15000000 yang ist, denke ich, ein fairer Preis ;D")
local s = select("Auf ins Drachental!","Nein...bleibe doch hier...")
if s == 2 then
return
end

if pc.get_level() <= 89 then
say_title("Uriel:")
say("Hm… Mit deinem derzeitigen Level bist du noch")
say("zu schwach f�r�s Drachental.")
say("Komm wieder, wenn du Lv 90 oder h�her bist.")
return
end
if pc.gold < 15000000 then
say_title("Uriel:")
say("")
say("Du hast nicht genug Geld,")
say("Ich w�rde dich auch kostenlos teleportieren,")
say("aber ich habe eine gro�e Familie. Um sie zu")
say("ern�hren, muss ich Geld verdienen.")
say_reward(string.format("Es kostet 15000000 Yang."))
return
elseif pc.get_level() >= 89 then
say(""..mob_name(20011)..":")
say("")
say("Na sch�n du hast es so gewollt...")
say("Ich hoffe ich sehe dich wieder...")
wait()
pc.warp(83200,0)
pc.change_money(-15000000)
end
end
end
end

klappt soweit aba halt nur bei mir...

bei mir steht bei uriel:

OX-Event
Drachental
Schlie�en

und bei den anderen fehlt der button "drachental".

bitte helft mir !

gibt auch nen thanks

05/20/2011 23:40 .Hiяo#2394

Quote:

Originally Posted by lfcmaus

hab auch son problem das das item nicht funktion nur selten mal einer ne idee warum das so ist?
make.sh l�uft durch ohne fehler ingame rehctsklcik aufs item nichts passiert -.-

PHP Code:

quest siegeltiere begin state start begin when 71114.use with pc.is_level() >= 10 begin if pc.is_mount() then say_title("Siegelmen�.:") say("Du beherscht zurzeit schon ein") say("Siegeltier wenn du ein anderes") say("beherschen m�chtest musst du vorher") say("absteigen.") local absteigen1 = select ("Absteigen","Abbrechen") if absteigen1 == 1 then pc.unmount() affect.remove_collect() elseif absteigen1 == 2 then return end else say_title("Siegelmen�.:") say("Dieses Siegel beherbergt die") say("Seelen der Tiere.Alte Zauberer") say("haben 2 Tierseelen in dieses") say("Siegel gesperrt,nur den st�rksten") say("K�mpfern aus Alleria ist es erlaubt,") say("diese Siegel zu benutzen.") say("") say("Aufgrund der negativen Energien,") say("die durch die Metinsteine,�berall") say("herschen,wird das Aussehen der Tiere,") say("durch das Wetter und den Tageszeiten") say("bestimmt.") wait() say_title("Siegelmen�.:") say("M�chtest du ein Tier rufen?") local a = select ("L�wen rufen...", "Tiger rufen...") if a == 1 then if game.get_event_flag("nacht") <1 then pc.mount(39912, 60*60) affect.add_collect(apply.MOV_SPEED,35,600) affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600) affect.add_collect(apply.DEF_GRADE_BONUS,350,600) else pc.mount(39915, 60*60) affect.add_collect(apply.MOV_SPEED,35,600) affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600) affect.add_collect(apply.DEF_GRADE_BONUS,350,600) end elseif a == 2 then if game.get_event_flag("nacht") <1 then pc.mount(39913, 60*60) affect.add_collect(apply.MOV_SPEED,35,600) affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600) affect.add_collect(apply.DEF_GRADE_BONUS,350,600) else pc.mount(39914, 60*60) affect.add_collect(apply.MOV_SPEED,35,600) affect.add_collect(apply.EXP_DOUBLE_BONUS,35,600) affect.add_collect(apply.DEF_GRADE_BONUS,350,600) end end end end end end

quest soll halt zwischen tag und ancht unter scheiden und wenn tag ist halt die rufen nacht die anderen
nacht wird �ber quest eingestellt welches game:event startet 0 = tag 1 = nacht

Nur mal ne frage haste das Item auf type 18 gestellt?
Glaube das ist ein end zuviel bin mir aber grad ned ganz sicher.

05/21/2011 13:36 [SGA]CillOut#2395

Tach

Ich habe hier 4 Quest 2 hab ich mir runder geladen 2 hab ich selber gemacht problem sie funktionieren nicht hab sie correkt eingef�gt erst in filzilla dann honhkong list dann befehl in Free sBd eingegeben cd usr/rain/channel/share_data/locale/hongkong/quest danach chmod u+x make.sh und dann sh make.sh wenn es dann neu geladen hat kommt dann diese meldung bei den quest umgef�hre antwort will start quest muschelprufung und in ( quest drave than ) oder so �hnlich

pls HELP THX IM VOraus.

Muschelprufung:

Quote:

quest Muschelpr�fung(Wichtig) begin
state start begin
when login or levelup with pc.get_level() >= 100 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20042)
if v != 0 then
target.vid("__TARGET__", v, "Quest")
end
send_letter("Muschelpr�fung(Wichtig)")
end

when button or info begin
say_title("Muschelpr�fung(Wichtig)")
say("")
say("Gehe zu den Fahrenden H�ndler!")
say("Er sucht nach dir.")
say("Begib dich direkt dort hin!")
end

when __TARGET__.target.click or
20092.chat."Muschelpr�fung(Wichtig)" begin
target.delete("__TARGET__")
say("Ahh!! ")
say("Gut das du da bist. Ich studiere")
say("Gerade Muschel. Sie sind sehr ")
say("n�tzlich wegen ihrer Harten Schahle.")
say("Bring mir bitte bitte 20 Muscheln.")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end

state go_to_disciple begin
when letter begin
send_letter("Muschelpr�fung(Wichtig)")
end

when button or info begin
say_title("Muschelpr�fung(Wichtig)")
say("")
say("Du hast den Auftrag bekommen")
say("20 Muscheln zu sammeln")
say("Das Item bekommt ihr von Himmels Soldat")
say("Viel Gl�ck!")
say("")
say_item_vnum(2401)
say_reward("Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
end

when 71035.use begin
if pc.getqf("drink_drug")==1 then
say("")
say("Bessere Droppchange!")
return
end
if pc.count_item(27987)==0 then
say("Du hast bisher noch keine")
say("Lauf los und besorg mir welche")
return
end
item.remove()
pc.setqf("drink_drug",1)
end

when 2401.kill begin
if pc.count_item(27987) < 20-pc.getqf("collect_count") then
pc.give_item2(27987, 1)
end
end

when 20092.chat."Muschelpr�fung(Wichtig)" with pc.count_item(27987) > 0 begin
say("Ich werde das Item")
say("schnell �berpr�fen.")
pc.remove_item(27987, 1)
wait()

local pass_percent
if pc.getqf("drink_drug" == 0 then
pass_percent=20
else
pass_percent=20
end

local s= number(1,100)
if s <= pass_percent then
if pc.getqf("collect_count") < 11 then
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index)
say("Perfekt! Das Item ist in Ordnung")
say("Du hast bis jetzt ".." "..20-pc.getqf("collect_count").. " abgegeben!")
say("Bring mir die restlichen!")
pc.setqf("drink_drug",0)
return
end
say("Danke !!!")
say("Jetzt habe ich Genug.")
say("Hier ist deine Behlonung.")
say("Komm bald wieder !!!")
pc.setqf("collect_count", 0)
pc.setqf("drink_drug", 0)
clear_letter()
set_state(__complete)

pc.give_item2(27992)
pc.give_item2(27993)
pc.give_item2(27994)
pc.change_money(2000000)
pc.give_exp2(120000000)
set_quest_state("levelup","run")
return
else

say"Dieses Item ist von schlechter Qualit�t!")
say"Es kann nicht verwendet werden.")
say"Hole mir bitte ein neues!")
pc.setqf("drink_drug",0)
return
end

end
end

GMNachricht:

Quote:

quest nachricht begin
state start begin
when 20093.chat."Nachrichten" with pc.is_gm() begin
say_title("Koe Pung:")
say("Okay, ich werde diese Nachricht an die anderen Senden.")
timer("nachricht", 10)
end
when nachricht.timer begin
notice_all("Es Regent Metinsteine, Das Metinstein Event hat begonnen, Viel Spa�")
timer("nachricht1", 60*60)
end
when nachricht1.timer begin
notice_all("Eine Geheimnissvolle Frau wurde Gesichtet, sie hat die Gabe Metinsteine und Bosse zu B�ndigen, Viel Spa� mit dem Metin/Boss Eventshop.")
timer("nachricht", 60*60)
end
when nachricht1.timer begin
notice_all("Die Bosse haben sich Vereinigt, Sie plannen einen Aufstadt in der W�ste Mitte, Viel Spa� mit dem Boss Event.")
timer("nachricht", 60*60)
end
end
end

NachtTag:

Quote:

quest nachundtag begin
state start begin
when 20093.chat."Der Tag und die Nacht" with pc.is_gm() begin
say_title("Koe Pung:")
say("Der Tag und die Nacht! Wie sch�n diese")
say("Zeiten sind.")
timer("nacht", 10)
end
when nacht.timer begin
command("x 1")
timer("tag", 60*60*12)
end
when tag.timer begin
command("x 0")
timer("nacht", 60*60*12)
end
end
end

GeldSpeicher:

Quote:

------------------------------------------------------
-- Geldstand
------------------------------------------------------
quest Yangbank begin
state start begin
when 20090.chat."Yangkonto" begin
local pin = pc.getqf("konto_pin")
local konto_yang = pc.getqf("konto_yang")
if pin == 0 then
--------------------------- PIN FESTLEGEN! ---------------------------
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Hallo. Ich bin der Yanglager Mensch und Verwalte das Geldkonto")
say("Da du das erste mal mit mir sprichst m�chte")
say("Ich dich bitten deine Pin fest zu legen.")
say("Nur eine Sichere 5 stellige Pin stellt")
say("sicher das dein Konto vor Dieben sicher")
say("ist.")
say("")
say_reward("Bitte 5 stellige Pin eingeben (Nur Zahlen)")
local pin_eing = tonumber(input("12345"))
if pin_eing > 9999 and pin_eing < 100000 then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Diese Pin ist ok!")
say("")
say_reward("Pin " ..pin_eing.. " Speichern?")
local sel=select("Ja", "Nein")
if sel==1 then
pc.setqf("konto_pin", pin_eing)
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Pin wurde gespeichert.")
say("Bis bald mal.")
elseif sel==2 then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Bis bald mal.")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 1")
end
elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
say_title(mob_name(50084).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Tut mir leid doch irgendwas stimmt nicht mit")
say("deiner Pin.")
say("")
say_reward("Info: Pin darf nur Zahlen enthalten!")
say_reward("Info: Pin darf nicht gr��er als 99999")
say_reward("oder kleiner als 10000 sein!")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 2")
end
else
--------------------------- PIN VORHANDEN! ---------------------------
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Hallo. Ich bin der Yanglager Mensch und Verwalte das")
say("Geld was die Leute mir anvertraun.")
say("")
say_reward("Was m�chtest du tun?")
say("")
local sel=select("Geld geben", "Geld nehmen", "Konto Abfragen", "Pin �ndern", "Nichts")
if sel==1 then
---------------------------GELD GEBEN---------------------------
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Bitte Pin eingeben.")
local pin_abf = tonumber(input(""))
if pin_abf == pc.getqf("konto_pin") then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Pin ist Korrekt.")
say("Wie viel Geld auf Konto einzahlen?")
say("Maximal 1.999.999.999!")
say("")
say_reward("Dabei: " ..pc.get_money())
say("")
local geld_auf_konto = tonumber(input(""))
local auf_konto_new = tonumber(geld_auf_konto) + pc.getqf("konto_yang")
if pc.get_money() < geld_auf_konto then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel hast du garnicht dabei.")
else
if auf_konto_new < 2000000000 then
pc.change_money(-geld_auf_konto)
pc.setqf("konto_yang", auf_konto_new)
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Ich habe " ..geld_auf_konto.. " Yang auf dein Konto getan.")
else
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel kannst du nicht aufs Konto.")
say("machen. Das w�rde die Maximal menge")
say("von 1.999.999.999 �berschreiten.")
end
end
else
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Falsche Pin.")
end
elseif sel==2 then
---------------------------GELD ABHEBEN---------------------------
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Bitte Pin eingeben.")
local pin_abf = tonumber(input(""))
if pin_abf == pc.getqf("konto_pin") then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Pin ist Korrekt.")
say("Wie viel Geld vom Konto abheben?")
say("")
say_reward("Auf Konto: " ..pc.getqf("konto_yang"))
say("")
local geld_von_konto = tonumber(input(""))
if geld_von_konto > pc.getqf("konto_yang") then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel hast du nicht auf deinem Konto.")
elseif geld_von_konto <= pc.getqf("konto_yang") then
local yang_bug_check = pc.get_money() + geld_von_konto
if yang_bug_check < 2000000000 then
local auf_konto_new = tonumber(pc.getqf("konto_yang") - geld_von_konto)
pc.setqf("konto_yang", auf_konto_new)
pc.change_money(geld_von_konto)
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Ich habe dir " ..geld_von_konto.. " Yang gegeben.")
else
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel kann ich dir nicht geben. Das w�rde")
say("Dein Yang auf 0 Setzen! (0 YANG BUG)")
end
end
else
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Falsche Pin.")
end
elseif sel==3 then
---------------------------GELD ABFRAGEN---------------------------
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Du m�chtest wissen wie viel Yang du auf deinem")
say("Konto hast? Nun gut du hast:")
say("")
say_reward("Yang auf Konto: " ..pc.getqf("konto_yang"))
elseif sel==4 then
---------------------------PIN �NDERN---------------------------
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Bitte aktuelle Pin eingeben.")
local pin_abf = tonumber(input(""))
if pin_abf == pc.getqf("konto_pin") then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Pin ist Korrekt.")
say("Bitte Neue Pin eingeben. (Nur Zahlen)")
local pin_eing = tonumber(input("12345"))
if pin_eing > 9999 and pin_eing < 100000 then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Diese Pin ist ok!")
say("")
say_reward("Pin " ..pin_eing.. " Speichern?")
local sel=select("Ja", "Nein")
if sel==1 then
pc.setqf("konto_pin", pin_eing)
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Pin wurde erfolgreich ge�ndert.")
say("Bis bald mal.")
elseif sel==2 then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Bis bald mal.")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 3")
end
elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Tut mir leid doch irgendwas stimmt nicht mit")
say("deiner Pin. Deshalb habe ich sie nicht ge�ndert.")
say("")
say("")
say_reward("Info: Pin darf nur Zahlen enthalten!")
say_reward("Info: Pin darf nicht gr��er als 99999")
say_reward("oder kleiner als 10000 sein!")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 4")
end
else
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Falsche Pin.")
end
elseif sel==5 then
---------------------------Abbrechen---------------------------
say_title(mob_name(20090).. " spricht zu ".. pc.get_name() ..".")
say("")
say("Bis bald mal.")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 5")
end
end
end

when 20090.chat."Information" begin
say("Beim Yangkonto kannst du Yang ablegen wenn")
say("in dein Inventar kein Platz mehr f�r Yang ist.")
say("So kannst du auch dein Geld nochmals sch�tzen")
say("Falls jemand deinen Account hackt da er die")
say("Pin nicht wei�")
end
end
end

05/21/2011 16:02 Retrograd#2396

hallo ich habe mal versucht die quest von de nachzuschreiben aba ich bekomm immer einen feheler

PHP Code:


			
quest forschung2 begin

    state start begin

        when login or levelup with pc.get_level() >= 94 begin

            set_state(information)

        end

    end

    

    state information begin

        when letter begin

            local v = find_npc_by_vnum(20091)

            if v != 0 then

                target.vid("__TARGET__", v, "Seon-Pyeongs Forschung 2")

            end

            send_letter("Seon-Pyeongs Forschung 2")

        end

        when button or info begin

            say_title("Seon-Pyeongs Forschung 2")

            say("")

            say("Seon-Pyeong sucht dich!")

            say("Gehe zu ihm.")

            say("Er sagte, er hat eine weitere Aufgabe f�r dich.")

            say("")

        end

        

        when __TARGET__.target.click or

            20091.chat."Juwel der Weisheit" begin

            target.delete("__TARGET__")

            say(""..mob_name(20091)..":")

            ---

            say("Sch�n das duch gekommen bist. Dass du")

            say("mir helfen willst freut micht. Diese")

            say("Aufgabe wird schwieriger als die")

            say("vorherige. Ich bin auf etwas gesto�en.")

            say("Du hast doch bestimmt schon von der")

            say("Grotte der Verbannung geh�rt, oder?")

            wait()

            say(""..mob_name(20091)..":")

            say("Naja wenn nicht ist es auch nicht schlimm.")

            say("Du wirst den Weg schon finden. Naja zur�ck")

            say("zu deiner Aufgabe. Ich habe in meinen alten")

            say("B�chern gelesen und etwas �ber ein Juwel ")

            say("herausgefunden. Du kannst es von den")

            say("Seatou-Bogensch�tzen und Kommandanten bekommen.")

            say("")

            wait()

            say(""..mob_name(20091)..":")

            say("Ich ben�tige 20 dieser Juwele um genauere Forschungen.")

            say("anstellen zu k�nnen. Du hilfst mir wieder, oder?")

            say("")

            say("Ja! Das ist nett von dir, danke!")

            say("")

            set_state(go_to_gdv)

            pc.setqf("duration",0)

            pc.setqf("collect_count",0)

            pc.setqf("drink_drug",0)

        end

    end

    state go_to_gdv begin

        when letter begin

            send_letter("Sammle die Juwelen")

        end

        when button or info begin

            say_title("Juwel der Weisheit")

            ---

            say("")

            say("Seon-Pyeong schickt mich die Juwelen aus der")

            say("Grotte der Verbannung zu holen. Ich muss ihm")

            say("20 dieser Juwelen besorgen.")

            say("")

            say_item_vnum(30252)

            say_reward("Du hast".." "..pc.getqf("collect_count").." abgegeben")

            say("")

        end

        when 71035.use begin

            if get_time() < pc.getqf("duration") then

                say("BLA BLA BLA")

                retun

            end

            if pc.getqf("drin_drug") == 1 then

                say("BLUBB BLUBB")

                return

            end

            if pc.count_item(30252) == 0 then

                say(""..mob_name(20091)..":")

                say("Du musst mir schon ein Juwel mitbringen")

                say("sonst kann ich es nicht untersuchen.")

                return

            end

            

            item.remove()

            pc.setqf("drink_drug",1)

        end

        

        when 2414.kill or

             2412.kill begin

            local s = number(1, 100)

            if s <= 5 and pc.count_item(30252) == 0 begin

                pc.give_item2(30252, 1)

            end

        end

        

        when 20091.chat."Juwel der Weisheit" with pc.count_item(30252) > 0 begin

            if get_time() > pc.getqf("duration") then

            say(""..mob_name(20091)..":")

            ---

            say("Vielen Dank, danns du mir dieses")

            say("Juwel mitgebracht hast. Ich werde mich jetzt")

            say("hinsetzen und es untersuchen.")

            say("")

            pc.remove_item(30252, 1)

            pc.setqf("duration",get_time()+60*60*22)

            wait()

            

            local pass_percent

            if pc.getqf("drink_drug")==0 then

                pass_percent=60

            else

                pass_percent=90

            end

            

            local s = number(1, 100)

            if s <= pass_percent then

                if pc.getqf("collect_count") < 19 then

                    locale index = pc.getqf("collet_count")+1

                    pc.setqf("collect_count",index)

                    say(""..mob_name(20091)..":")

                    say("Ich muss sagen, dass ist ein sehr sch�nes Juwel.")

                    say("Du hast bis jetzt".." "..20-pc.getqf("collect_count").. "abgegeben.")

                    say("Ich brauche noch ein paar mehr um meine Forschung zu beenden.")

                    say("")

                    pc.setqf("drink_drug",0)

                    return

                end

                say(""..mob_name(20091)..":")

                say("Super! Du hast mir alle Juwelen gebracht, die ich")

                say("f�r meine Forschungen ben�tigt habe. Du kannst dir")

                say("bestimmt denken, was ich jetzt ben�tige.")

                say("")

                say("Nein kannst du nicht? Achso ja stimmt ich habe ja noch nie einen Seelenstein")

                say("von dir verlangt. Ich brauche den Seelenstein des Drachen.")

                say("")

                pc.setqf("collect_count",0)

                pc.setqf("drink_drug",0)

                pc.setqf("duration",0)

                set_state(key_item)

                return

            else

                say(""..mob_name(20091)..":")

                say("Es tut mir Leid, aber dieses Juwel ist")

                say("nicht gut genug damit ich es untersuchen kann.")

                say("")

                pc.setqf("drink_drug",0)

                retrun

            end

        else

            say(""..mob_name(20091)..":")

            say("Die Untersuchungen des letzten Juwels sind noch nicht")

            say("fertig. Konne sp�ter noch einmal vorbei.")

            say("")

            return

        end

    end

end

    state key_item begin

        when letter begin

            send_letter("Seelenstein des Drachen")

            

            if pc.count_item(30228) > 0 then

                local v = find_npc_by_vnum(20091)

                if v != 0 then

                    target.viid("__TARGET__", v, "Seon-Pyeongs Forschung 2")

                end

            end

        end

        when button or info begin

            if pc.count_item(30228) > 0 then

                say_title("Juwel der Wei�heit")

                say("")

                ---

                say("Seon-Pyeong hat eine Aufgabe ..")

                say("Gehe zu ihm")

                say("")

                return

            end

            

            say_title("Seelenstein des Drachen")

            say("")

            ---

            say("Nun, da du mir alle 20 Juwele der Weisheit")

            say("gebracht hast ben�tige ich noch den Seelenstein")

            say("des Drachen.")

            say_item_vnum(30228)

            say("Ein legend�rer Stin der Armee von Beran-Setaou.")

            say("")

        end

        

        when 2493.kill or

             2492.kill or

             2491.kill begin

            local s = number(1, 200)

            if s == 1 and pc.count_item(30228) == 0 then

                pc.give_item(30228, 1)

                send_letter("Seelenstein des Drachen")

            end

        end

        

        

        when __TARGET__.target.click or

            20091.chat."Seelenstein des Drachen" with pc.count_item(30228) > 0 begin

            target.delete("__TARGET__")

            say(""..mob_name(20091)..":")

            say("Du hast die Aufgabe gut bemeistert. Ich gratuliere")

            say("dir dazu. Um deine Belohnung zu bekommen musst du zu")

            say("Baek-Go gehen.")

            say("")

            pc.remove_item(30228, 1)

            set_state(__reward)

        end

    end

    

    state __reward begin

        when letter begin

            send_letter("Gehe zu Baek-Go")

            

            local v = find_npc_by_vnum(20018)

            if v != 0 then

                target.vid("__TARGET__", v, "Baek-Go")

            end

        end

        

        when button or info begin

            say_title("Der Weg zu der Belohnung")

            ---

            say("Die Quest von Seon-Pyeong ist beendet. Du hast")

            say("alle Juwelen zu ihm gebracht. Nun musst du nur noch")

            say("zu Baek-Go gehen.")

            say("")

        end

        

        when __TARGET__.target.click or

            20018.chat."Belohnung" begin

            target.delete("__TARGET__")

            say(""..mob_name(20018)..":")

            say("Nun ich habe geh�rt, dass du Seon-Pyeong")

            say("bei seiner letzten Forschung geholfen hast.")

            say("")

            say("Das hei�t, dass wir uns nicht mehr so schnell wieder sehen.")

            say("")

            say_reward("Auftrag erfolgreich beendet.")

            say_reward("Du kannst nun zwischen den Belohnungen w�hlen")

            

            local f = select ("1100 TP", "140 Verteidigung", "60 Angriffswert")

            

            if f = 3 then

                say_reward("Du erh�lst 60 Angriffswert.")

                affect.add_collect_point(POINT_ATT_BONUS,60,60*60*24*365*60)

            elseif f = 2 then

                say_reward("Du erh�lst 140 Verteidigung.")

                affect.add_collect(apply.DEF_GRADE_BONUS,140,60*60*24*365*60)

            elseif f = 1 then

                say_reward("Du erh�lst 1100 TP.")

                affect.add_collect(apply.TP_GRADE_Bonus,1100,60*60*24*365*60)

            end

            

            clear_letter()

            set_state(__complete)

        end

    end

    

    state __complete begin

    end

end

der Fehler lautet

Quote:

syntax error : [string "go_to_gdv"]:4: `=' expected near `end'
forschung_2.quest:92:Abort trap (core dumped)
Error occured on compile forschung_2,quest

Ich hoffe ihr k�nnt mir helfen

05/22/2011 21:01 SimpTrixakaHero#2397

quest Sensenmann begin
state start begin
when kill.1093 with pc.in_dungeon()
notice_all("".. pc.get_name() .." hat den Sensenmann bezwungen!!!")
notice_all("Wir sind alle soo stolz auf dich! :D")
end
end
end

Ist das richtig? Mfg SimpTrix

05/22/2011 21:05 .Delta#2398

ja ist richtig, aber du musst die notice_all Zeilen direkt in die DT quest schreiben, damit das geht.

Weil der Kill Befehl f�r den Sensi dort schon dauerhaft belegt ist

05/23/2011 17:41 j-m�x#2399

hey

wollte die Warpring.quest umschreiben und mir ist da i.wie was aufgefallen..
ich denke das m�ssten die Map-index sein von den maps die ich einf�gen will.

PHP Code:


			
            if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then

also ich DENKE da m�ssen die neuen map index rein oder?
mfg:P

05/23/2011 17:51 .Delta#2400

nein, das sind jeweils map 1 und map 2 der Reiche.

Das sagt dir nur, dass wenn du in einer der maps bist, die "normalen" Auswahl m�glichkeiten zur Wahl stehen. Bist du in einer anderen Map kannst du dich in die Reiche porten.

Um Ziele zu bearbeiten musst du es 1. in die Auswahl eintragen und alles so anpassen, damit es funktioniert und 2. die Warpcodes erg�nzen, aber an der richtigen Stelle ;)

Page 160 of 845

160