Geht trotzdem nicht :(
Achja AutoitScript mach mal das q.done weg, das ist unnötig, vielleicht liegts daran.
Achja AutoitScript mach mal das q.done weg, das ist unnötig, vielleicht liegts daran.
[SERVICE] Die Questkontrolle
02/11/2011 19:29
V8II#1456
02/11/2011 20:04
~shaylan~#1457
@ V8II
Da fehlt nur nen punkt am anfang ^^
Der nächste Fehler der kommen wird ist das es umlaute mit "?" ersetzt hat.
Da musst du selber dich mal durchklicken :)
@ AutoitScript
Dieser Fehler heißt nicht das nen end fehlt. Es heißt das eine Gruppe nicht erkannt wurde weil etwas fehlerhaft gesetzt wurde ^^
Deine quest
habs jez ni getestet.
Bitte das nächste mal in [PHP] posten :)
Grüße
Da fehlt nur nen punkt am anfang ^^
PHP Code:
quest userpanel begin
state start begin
when 20095.chat."Userpanel" begin
Da musst du selber dich mal durchklicken :)
@ AutoitScript
Dieser Fehler heißt nicht das nen end fehlt. Es heißt das eine Gruppe nicht erkannt wurde weil etwas fehlerhaft gesetzt wurde ^^
Deine quest
PHP Code:
quest gluck_2 begin
state start begin
when levelup with pc.get_level() == 92 begin
say_title("Glueckwunsch des Thunderbird Teams")
say("Herzlichen Glueckwunsch, du hast Level 92")
say("erreicht!")
say("Das Thunderbird-Team gratuliert dir")
say("und dankt dir, das du dich fuer")
say("Thunderbird entschieden hast!")
say("In den naechsten Leveln erhaeltst du")
say("Teile eines Geheimnisses, das du einem")
say("GM sagen kannst, um eine Belohung zu")
say("erhalten. Teil 2: ... Vogel kommt zurueck")
say_reward("Du erhaeltst 50kk Yang!")
say_reward("Du erhaeltst 20000 Rangpunkte!")
pc.give_gold(50000000)
pc.change_alignment(20000)
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
end
end
Bitte das nächste mal in [PHP] posten :)
Grüße
02/11/2011 20:17
V8II#1458
Danke!
Du bist der/die beste!
Thx!
Du bist der/die beste!
Thx!
02/11/2011 23:32
jussel19#1459
ist die quest richtig? weil bie mir geht sie nichtQuote:
quest pvp start
state start begin
when kill begin
if npc.is_pc() and npc.empire != pc.empire then
local count = pc.getqf("state") - 1
if count <= 1 then
pc.setqf("state", count)
q.set_counter("kills", -count)
end
if count == 0 then
pc.give_item2(19,1)
end
end
end
end
end
02/12/2011 18:59
CanbiZ#1460
Quote:
Quest:
Fehler: WHEN : 20095.chat
when doesn`t have begin-end clause. ("Userpanel")
userpanel.quest:3:Abort trap (core dumped)
DIE QUEST IST NICHT VON MIR!
Danke an alle Helfer!
Versuchs mal so, ich habs getestet,
bei mir gehts.
PHP Code:
quest userpanel begin
state start begin
when 20095.chat."Userpanel" begin
say_title("Wilkommen im Userpanel")
local a=select("Mitspieler", "Einstellungen", "Abbrechen")
if a==1 then
say_reward("Userpanel->Mitspieler")
local m=select("Suche", "Mögen/Hassen", "Zuverläsigkeit", "Abbrechen")
if m==1 then
---Welches Level der gesuchte haben muss um gesucht zu werden
local levelmin=20
say_reward("Userpanel->Mitspieler->Suche")
say("Der Char muss mindestens Level "..levelmin.." sein")
say("Gebe den Namen ein des Spielers!")
local name=input()
---Eventflag abrufen und in neue Variable speichern
local level=""..name.."level"
local level=game.get_event_flag(level)
local nextlevel=level+1
local status=""..name.."status"
local status=game.get_event_flag(status)
local reich=""..name.."reich"
local reich=game.get_event_flag(reich)
local mapindex=""..name.."mapindex"
local mapindex=game.get_event_flag(mapindex)
local geld=""..name.."geld"
local geld=game.get_event_flag(geld)
local geldanzeige=""..name.."geldanzeige"
local geldanzeige=game.get_event_flag(geldanzeige)
local gilde=""..name.."gilde"
local gilde=game.get_event_flag(gilde)
local gildenleader=""..name.."gildenleader"
local gildenleader=game.get_event_flag(gildenleader)
local rüstung=""..name.."rüstung"
local rüstung=game.get_event_flag(rüstung)
local waffe=""..name.."waffe"
local waffe=game.get_event_flag(waffe)
local exp=""..name.."exp"
local exp=game.get_event_flag(exp)
local rang=""..name.."rang"
local rang=game.get_event_flag(rang)
local time=""..name.."time"
local time=game.get_event_flag(time)
local sex=""..name.."sex"
local sex=game.get_event_flag(sex)
local horse=""..name.."horse"
local horse=game.get_event_flag(horse)
local skill=""..name.."skill"
local skill=game.get_event_flag(skill)
local handel=""..name.."handel"
local handel=game.get_event_flag(handel)
local bewertungpro=""..name.."bewertungpro"
local bewertungpro=game.get_event_flag(bewertungpro)
local bewertungcontra=""..name.."bewertungcontra"
local bewertungcontra=game.get_event_flag(bewertungcontra)
local meldung=""..name.."meldung"
local meldung=game.get_event_flag(meldung)
if level>=levelmin then
---größe des Fensters ändern
say("[WINDOW_SIZE width;350|height;380]")
---Name des Spielers wird ausgegeben
say_reward("Name: "..name.."")
---Geschlecht des Spielers
if sex==0 then
say_reward("Geschlecht: männlich")
elseif sex==1 then
say_reward("Geschlecht: weiblich")
end
---Welche Klasse er gewählt hat
if skill==0 then
say_reward("Klasse: Noch nicht ausgewählt")
elseif skill==1 then
say_reward("Klasse: Körper Kriger")
elseif skill==2 then
say_reward("Klasse: Mental Kriger")
elseif skill==3 then
say_reward("Klasse: Nahkampf Ninja")
elseif skill==4 then
say_reward("Klasse: Fernkampf Ninja")
elseif skill==5 then
say_reward("Klasse: Waffen Sura")
elseif skill==6 then
say_reward("Klasse: Magie Sura")
elseif skill==7 then
say_reward("Klasse: Drachen Schamane")
elseif skill==5 then
say_reward("Klasse: Heil Schamne")
end
---Level des Spielers wird ausgegeben
say_reward("Level "..level.."")
---Noch benötigte EXP für das nächste Level werden angebenen
if level==127 then
say_reward("Benötigte EXP: Maximales Level ereicht!")
else
say_reward("Benötigte EXP für Lv "..nextlevel..": "..exp.."")
end
---Rang Punkte ausgeben
say_reward("Rangpunkte: "..rang.."")
---Pferde Level ausgeben
say_reward("Pferdelevel: "..horse.."")
---Namen der Reiche
if reich==1 then
say_reward("Reich: Rotes Reich")
elseif reich==2 then
say_reward("Reich: Gelbes Reich")
elseif reich==3 then
say_reward("Reich: Blaues Reich")
end
---Gilden Breich
if sex==0 then
if gilde==0 then
say_reward("Gilde: keine")
elseif gildenleader==1 then
say_reward("Leader der Gilde: "..guild.name(gilde).."")
else
say_reward("Member der Gilde: "..guild.name(gilde).."")
end
elseif sex==1 then
if gilde==0 then
say_reward("Gilde: keine")
elseif gildenleader==1 then
say_reward("Leaderin der Gilde: "..guild.name(gilde).."")
else
say_reward("Memberin der Gilde: "..guild.name(gilde).."")
end
end
--Hier alle mapindexe rein
if mapindex==1 then
say_reward("Standort: Rotes Reich Map 1")
elseif mapindex==21 then
say_reward("Standort: Gelbes Reich Map 1")
elseif mapindex==41 then
say_reward("Standort: Blaues Reich Map 1")
elseif mapindex==200 then
say_reward("Standort: Drachental")
elseif mapindex==61 then
say_reward("Standort: Berg Sohan")
elseif mapindex==66 then
say_reward("Standort: Dämonenturm")
elseif mapindex==65 then
say_reward("Standort: Hwang-Tempel")
elseif mapindex==3 then
say_reward("Standort: Rotes Reich Map 2")
elseif mapindex==23 then
say_reward("Standort: Gelbes Reich Map 2")
elseif mapindex==204 then
say_reward("Standort: New Map Burg")
elseif mapindex==112 then
say_reward("Standort: Duell-Arena")
elseif mapindex==181 then
say_reward("Standort: Burgschlacht Schnee")
elseif mapindex==182 then
say_reward("Standort: Burgschlacht ")
elseif mapindex==183 then
say_reward("Standort: Burgschlacht Wüste")
elseif mapindex==63 then
say_reward("Standort: Yongbi-Wüste")
elseif mapindex==67 then
say_reward("Standort: Lungsam")
elseif mapindex==24 then
say_reward("Standort: Gelbes Reich Gildenzone")
elseif mapindex==44 then
say_reward("Standort: Blaues Reich Gildenzone")
elseif mapindex==4 then
say_reward("Standort: Rotes Reich Gildenzone")
elseif mapindex==107 then
say_reward("Standort: Affendungeon Anfänger")
elseif mapindex==108 then
say_reward("Standort: Affendungeon Normal")
elseif mapindex==109 then
say_reward("Standort: Affendungeon Experten")
elseif mapindex==5 then
say_reward("Standort: Affendungeon Anfänger")
elseif mapindex==25 then
say_reward("Standort: Affendungeon Anfänger")
elseif mapindex==45 then
say_reward("Standort: Affendungeon Anfänger")
elseif mapindex==62 then
say_reward("Standort: Flammenland")
elseif mapindex==77 then
say_reward("Standort: Feuerland")
elseif mapindex==70 then
say_reward("Standort: Tal der Riesen")
elseif mapindex==113 then
say_reward("Standort: OX Event")
elseif mapindex==72 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==73 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==184 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==186 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==188 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==185 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==187 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==189 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==104 then
say_reward("Standort: Spinnendungeon Ebene1")
elseif mapindex==71 then
say_reward("Standort: Spinnendungeon Ebene2")
elseif mapindex==103 then
say_reward("Standort: Reichsduell")
elseif mapindex==105 then
say_reward("Standort: Winterland")
elseif mapindex==110 then
say_reward("Standort: Gildenkrieg")
elseif mapindex==111 then
say_reward("Standort: Gildenkrieg")
elseif mapindex==205 then
say_reward("Standort: Neue Stadt")
elseif mapindex==68 then
say_reward("Standort: Lungson")
elseif mapindex==203 then
say_reward("Standort: Neues Dorf")
elseif mapindex==69 then
say_reward("Standort: Schlangenfeld")
elseif mapindex==81 then
say_reward("Standort: Hochzeit")
elseif mapindex==64 then
say_reward("Standort: Orktal")
end
---Hier den Status eintragen
if status==0 then
say_reward("Status: Offline")
elseif status==1 then
say_reward("Status: Online")
end
---Wie lange man schon gespielt hat
say_reward("Spielzeit in Minuten: "..time.."")
---Yang anzeigen ja oder nein
if geldanzeige==0 then
say_reward("Yang: "..geld.."")
elseif geldanzeige==1 then
say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
else
say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
end
---User Bewertung
if sex==0 then
say_reward("Spieler mögen ihn: "..bewertungpro.."")
say_reward("Spieler hassen ihn: "..bewertungcontra.."")
elseif sex==1 then
say_reward("Spieler mögen sie: "..bewertungpro.."")
say_reward("Spieler hassen sie: "..bewertungcontra.."")
end
---Zuverlässigkeit Punkte
say_reward("Zuverlässigkeits Punkte: "..handel.."")
---Verwarnungspunkte
say_reward("Verwarnungs Punkte: "..meldung.."")
---Was ausgegeben wir wenn waffe und Rüstung nicht ausgerüstet ist
if waffe==0 and rüstung==0 then
say_reward("Waffe: Keine Ausgerüstet")
say_reward("Rüstung: Keine Ausgerüstet")
else
---Auswahl menü wen eine Waffe oder eine Rüstung oder beides Ausgerüstet ist
local s = select("Ausrüstung", "Schließen")
if s==1 then
---Wenn man den ersten button drückt! hier wird auch die gröe de fenstern geändert! breite ist standert nur höhe um 20 verschoben
if waffe==0 or rüstung==0 then
say("[WINDOW_SIZE width;350|height;260]")
else
say("[WINDOW_SIZE width;350|height;370]")
end
if waffe==0 then
say_reward("Waffe: Keine Ausgerüstet")
else
say_reward(" Waffe")
say_item_vnum(waffe)
end
if rüstung==0 then
say_reward("Rüstung: Keine Ausgerüstet")
else
say_reward(" Rüstung")
say_item_vnum(rüstung)
end
end
end
---Fehlermeldung wenn der char Level 0 ist also nicht existiert!
elseif level==0 then
say("Der gesuchte Charakter "..name.."")
say("Existiert nicht oder war noch nie eingelogt!")
---Fehlermeldung wenn der Char unter Level 20 ist
elseif level<levelmin then
say("Der gesuchte Charakter: "..name.."")
say("Ist noch nicht Level "..levelmin.."")
---Fehlerabfang mann sol den Fehler einem admin melden
else
say("Fehler 001")
say("Name des gesuchten Charakters ist: "..name.."")
say("Mele den Fehler bitte sofort einem Admin!")
say("Sag ihm auch welchen Charaktername du eingeben hast")
end
elseif m==2 then
say_reward("Userpanel->Mitspieler->Mögen/Hassen")
say("Gib den Namen des Users ein den")
say("Du magst/hasst:")
local eigname=pc.get_name()
local name=input()
local level=""..name.."level"
local level=game.get_event_flag(level)
local status=""..name.."status"
local status=game.get_event_flag(status)
local reich=""..name.."reich"
local reich=game.get_event_flag(reich)
local savename=""..name.."punkte"
local bewertungpro=""..name.."bewertungpro"
local bewertungcontra=""..name.."bewertungcontra"
local search = find_pc_by_name(name)
local bewertungpronow=game.get_event_flag(bewertungpro)+1
local bewertungcontranow=game.get_event_flag(bewertungcontra)+1
if search==0 then
say("Du suche nach dem Charakter: "..name.."")
say("ergab kein Ergebnis!")
say(""..name.." ist offline oder existiert nicht!")
say("Versuche es erneut !")
elseif pc.getqf(savename)==1 then
say("Sie haben den User: "..name.."")
say("Schon einmal bewertet")
say("Sie können ihr nich nocheinmal bewerten")
elseif level<20 then
say("Der User: "..name.."")
say("ist noch unter Level 20!")
say("Sie können ihn erst ab Level 20 bewerten")
elseif name==eigname then
say("Sie können sich nicht selbst bewerten!")
elseif pc.getqf(savename)==0 then
say("Sie wollen disen User bewerten:")
say_reward("Name: "..name.."")
say_reward("Level: "..level.."")
if reich==1 then
say_reward("Reich: Rotes Reich")
elseif reich==2 then
say_reward("Reich: Gelbes Reich")
elseif reich==3 then
say_reward("Reich: Blaues Reich")
end
say("Mögen sie den Spieler oder hassen sie ihn:")
local s = select("Ich mag ihn", "Ich hasse ihn", "Abbrechen")
if s==1 then
pc.setqf(savename, 1)
game.set_event_flag(bewertungpro, game.get_event_flag(bewertungpro)+1)
say("Sie haben dem User: "..name.."")
say("Einen Ich mag ihn Punkt gegeben!")
say("Er hat jetzt "..bewertungpronow.." Gute Bewertungen")
elseif s==2 then
pc.setqf(savename, 1)
game.set_event_flag(bewertungcontra, game.get_event_flag(bewertungcontra)+1)
say("Sie haben dem User: "..name.."")
say("Einen Ich hasse ihn Punkt gegeben!")
say("Er hat jetzt "..bewertungcontranow.." Schlechte Bewertungen")
else
say("Dann eben nicht!")
end
end
elseif m==3 then
say_reward("Userpanel->Mitspieler->Zuverläsigkeit")
say("Wenn du mit einem Handel zufrienden warst")
say("und dem User einen Zuverlässigkeit Punkte")
say("geben willst kannst du das hier machen")
say("Gebe den Namen des Users hier ein")
local eigname=pc.get_name()
local name=input()
local level=""..name.."level"
local level=game.get_event_flag(level)
local status=""..name.."status"
local status=game.get_event_flag(status)
local reich=""..name.."reich"
local reich=game.get_event_flag(reich)
local savename=""..name.."handelpunkt"
local handel=""..name.."handel"
local handelnow=game.get_event_flag(handel)+1
local search = find_pc_by_name(name)
if search==0 then
say("Du suche nach dem Charakter: "..name.."")
say("ergab kein Ergebnis! Versuche es erneut !")
elseif pc.getqf(savename)==1 then
say("Sie haben den den User: "..name.."")
say("schon einmal einen Punkt gegeben!")
say("Das können Sie nicht zwei mal")
elseif level<20 then
say("Der User: "..name.."")
say("ist noch unter Level 20!")
say("Sie können ihn erst ab Level 20 bepunkten")
elseif name==eigname then
say("Sie können sich nicht selbst bepunkten!")
elseif pc.getqf(savename)==0 then
say("Sie wollen disen User einen Punkt geben:")
say_reward("Name: "..name.."")
say_reward("Level: "..level.."")
if reich==1 then
say_reward("Reich: Rotes Reich")
elseif reich==2 then
say_reward("Reich: Gelbes Reich")
elseif reich==3 then
say_reward("Reich: Blaues Reich")
end
say("Sind sie sicher das es dier User war?")
say("Wenn ja dann klicken sie auf ja um")
say("ihm ein punkt zu geben!")
local s = select("Ja", "Abbrechen")
if s==1 then
pc.setqf(savename, 1)
game.set_event_flag(handel, game.get_event_flag(handel)+1)
say("Sie haben dem User: "..name.."")
say("Einen Zuverlässigkeit Punktet gegebn")
say("Er hat jetzt "..handelnow.." Punkte")
else
say("Dann eben nicht!")
end
end
end
elseif a==2 then
say_reward("Userpannel->Einstellungen")
local s = select("Yanganzeige", "Abbrechen")
---Yanganzeige
if s==1 then
say_reward("Userpannel->Einstellungen->Yanganzeige")
local name=pc.get_name()
local geldanzeige=""..name.."geldanzeige"
local geldanzeige=game.get_event_flag(geldanzeige)
if geldanzeige==0 then
say_reward("Die Geldanzeige ist momentan angeschalten")
elseif geldanzeige==1 then
say_reward("Die Geldanzeige ist momentan abgeschalten")
end
local y = select("Anschalten", "Abschalten")
if y==1 then
local geldanzeige=""..name.."geldanzeige"
say("Yanganzeige eingeschalten")
game.set_event_flag(geldanzeige, 0)
elseif y==2 then
local geldanzeige=""..name.."geldanzeige"
say("Yanganzeige abgeschalten")
game.set_event_flag(geldanzeige, 1)
else
---eigentlich unötig^^
say("Fehler im Userverpannel CODE 0001")
say("Einem Admin bitte melden")
end
end
end
end
when login begin
timer("update1", 2)
end
when update1.timer begin
local name=pc.get_name()
local nlevel=""..name.."level"
local wlevel=pc.level
local nmapindex=""..name.."mapindex"
local wmapindex=pc.get_map_index()
local nstatus=""..name.."status"
local nreich=""..name.."reich"
local wreich=pc.get_empire()
local ngeld=""..name.."geld"
local wgeld=pc.get_money()
local ngilde=""..name.."gilde"
local wgilde=pc.get_guild()
local ngildenleader=""..name.."gildenleader"
local wgildenleader=1
local nrüstung=""..name.."rüstung"
local wrüstung=pc.getarmor()
local nwaffe=""..name.."waffe"
local wwaffe=pc.getweapon()
local nexp=""..name.."exp"
local wexp=pc.get_next_exp()
local nrang=""..name.."rang"
local wrang=pc.get_alignment()
local ntime=""..name.."time"
local wtime=pc.getplaytime()
local job=pc.get_job()
local skill=pc.get_skill_group()
local nskill=""..name.."skill"
local nsex=""..name.."sex"
local wsex=pc.get_sex()
local nhorse=""..name.."horse"
local whorse=pc.get_horse_level()
game.set_event_flag(nstatus, 1)
game.set_event_flag(nlevel, wlevel)
game.set_event_flag(nmapindex, wmapindex)
game.set_event_flag(nreich, wreich)
game.set_event_flag(ngeld, wgeld)
game.set_event_flag(ngilde, wgilde)
game.set_event_flag(nrüstung, wrüstung)
game.set_event_flag(nwaffe, wwaffe)
game.set_event_flag(nexp, wexp)
game.set_event_flag(nrang, wrang)
game.set_event_flag(ntime, wtime)
game.set_event_flag(nsex, wsex)
game.set_event_flag(nhorse, whorse)
if pc.is_guild_master() then
game.set_event_flag(ngildenleader, wgildenleader)
end
if job==0 and skill==1 then
game.set_event_flag(nskill, 1)
elseif job==0 and skill==2 then
game.set_event_flag(nskill, 2)
elseif job==1 and skill==1 then
game.set_event_flag(nskill, 3)
elseif job==1 and skill==2 then
game.set_event_flag(nskill, 4)
elseif job==2 and skill==1 then
game.set_event_flag(nskill, 5)
elseif job==2 and skill==2 then
game.set_event_flag(nskill, 6)
elseif job==3 and skill==1 then
game.set_event_flag(nskill, 7)
elseif job==3 and skill==2 then
game.set_event_flag(nskill, 8)
end
timer("update2", 60)
end
when update2.timer begin
timer("update1", 60)
end
when logout or shutdown or disconnect begin
local name=pc.get_name()
local nstatus=""..name.."status"
local nmapindex=""..name.."mapindex"
local wmapindex=pc.get_map_index()
game.set_event_flag(nstatus, 0)
game.set_event_flag(nmapindex, wmapindex)
end
end
end
02/13/2011 06:30
©Aerodynamik#1461
quest yang begin
state yang begin
when 2.use begin
local yang = select("100.000.000 Yang","200.000.000 Yang","300.000.000 Yang","400.000.000 Yang","500.000.000 Yang","Abbruch")
if yang == 6 then
return
if yang == 1 then
pc.change_money(100000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("100.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 2 then
pc.change_money(200000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("200.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 3 then
pc.change_money(300000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("300.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 4 then
pc.change_money(400000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("400.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 5 then
pc.change_money(500000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("500.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
end
Habs versucht mit paar end mehr und geht jetzt
NE frage
wo bekomme ich eine "neuere" qc datei her? wie kan die meine quest in der qc datei beschreiben?
state yang begin
when 2.use begin
local yang = select("100.000.000 Yang","200.000.000 Yang","300.000.000 Yang","400.000.000 Yang","500.000.000 Yang","Abbruch")
if yang == 6 then
return
if yang == 1 then
pc.change_money(100000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("100.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 2 then
pc.change_money(200000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("200.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 3 then
pc.change_money(300000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("300.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 4 then
pc.change_money(400000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("400.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
if yang == 5 then
pc.change_money(500000000)
say_title("Geldautomat")
say("Du hast erfolgreich:")
say("")
say("500.000.000 Yang abgehoben")
say("")
say("Viel Spass mit dem Geld")
end
end
Habs versucht mit paar end mehr und geht jetzt
NE frage
wo bekomme ich eine "neuere" qc datei her? wie kan die meine quest in der qc datei beschreiben?
02/13/2011 14:05
DarthBane#1462
Ich hab hab versucht dem Teleporter zwei neue qest hinzuzufügen wodurch man sich Warpring kaufen kann. Jedoch passiert nun gar nichts mehr wenn ich ihn anklicke.
PHP Code:
---- Teleporter
quest map_warp begin
state start begin
when 9012.chat."Warpring" begin
say_title("Ein Warpring kostet dich 20kk Yang")
say("Wenn du eine Warpring kaufen möchtest,")
say("drücke Ja")
local main_set == ("Ja", "Nein")
if main_set == 2 then
return
end
if pc.get_gold() < 20000000 then
say("Du hast nicht genügend Yang.")
say("Komm wieder wenn du mehr hast.")
return
end
else
say_title("Glückwunsch!")
say("Du bist nun im Besitz eines Warpringes!")
say("Du kannst mit ihm in viel Gebiete reisen")
say("")
pc.changegold(-20000000)
pc.give_item2(70007)
say_item("Warpring", 70007, "")
end
end
when 9012.chat."Warpring²" begin
say_title("Ein Warpring² kostet dich 200kk Yang")
say("Wenn du eine Warpring² kaufen möchtest,")
say("drücke Ja")
local main_set == ("Ja", "Nein")
if main_set == 2 then
return
end
if pc.get_gold() < 200000000 then
say("Du hast nicht genügend Yang.")
say("Komm wieder wenn du mehr hast.")
return
end
else
say_title("Glückwunsch!")
say("Du bist nun im Besitz eines Warpringes²!")
say("Du kannst mit ihm in viel Gebiete reisen")
say("Pass auf dich auf!")
say("")
pc.changegold(-200000000)
pc.give_item2(40002)
say_item("Warpring", 40002, "")
end
end
when 9012.chat."Teleportieren" begin
say_title("Teleporter:")
say("Dies ist eine faszinierende Gegend. Aber")
say("passiert hier denn auch mal etwas")
say("Außergewöhnliches? Eher wohl nicht. In anderen")
say("Teilen des Landes sieht es mitunter ganz anders.")
say("aus! Es gibt daher sicher einen intressanten")
say("Ort, an den ich dich teleportieren könnte. Da")
say("jedoch die Kräfte des Bösen wieder stärker")
say("geworden sind, wurden Raum und Zeit ins Chaos")
say("gestürzt. Dadurch kann es passieren, dass deine")
say("Rückkehr nicht immer augenblicklich funktioniert.")
say("Möchtest du dennoch teleportiert werden?")
local main_set = select("Ja","Nein")
if main_set == 2 then
return
end
if pc.get_level() <= 10 then
say_title("Teleporter:")
say("Hm… Mit deinem derzeitigen Level bist du noch")
say("zu schwach für die Reise durch Zeit und Raum.")
say("Komm wieder, wenn du höher als Level 10 bist.")
return
end
local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()
local cost = math.floor(level / 5) * 1000
-- ?? ????
if cost < 1000 then
cost = 1000
end
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))
-- ?? ?? ???? ?? ?? (? ?? 1,2 ??)
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
local guild_map_names = {
"Gildenzone",
"Gildenzone",
"Gildenzone",
}
guild_map_name = guild_map_names[empire]
local empire_castle={
"Burgschlacht",
"Burgschlacht",
"Burgschlacht",
}
empire_castle =empire_castle[empire]
local sub_set = 0
if level < 60 then -- 60?? : ?????, ???, ????, ???
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
return
end
else -- 61?? : ????, ???, ????, ????
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select("Doyyumhwaji", "Dämonenturm", "Zurück", "Abbrechen") + 5
if sub_set == 9 then -- ??
return
end
if sub_set == 8 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
--- l
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
say_reward(string.format("Das kostet dich %d Yang.", cost))
sub_set = select("Doyyumhwaji", "Dämonenturm", "Abbrechen") + 5
if sub_set == 8 then -- ??
return
end
end
end
end
end
if pc.gold < cost then
say("Du hast nicht genug Geld,")
say_title("Teleporter:")
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 %d Yang.", cost))
return
end
pc.changegold(-cost)
local warp = {
-- guild_map
{
{ 128500, 1000 },
{ 179500, 1000 },
{ 271800, 13000 },
},
-- 64 map_n_threeway
{
{ 402100, 673900 },
{ 270400, 739900 },
{ 321300, 808000 },
},
-- 63 metin2_map_n_desert_01
{
{ 217800, 627200 },
{ 221900, 502700 },
{ 344000, 502500 },
},
-- 61 map_n_snowm_01
{
{ 434200, 290600 },
{ 375200, 174900 },
{ 491800, 173600 },
},
{--empire_castle
{975200, 133000},
{977200, 185000},
{923900, 183600},
} ,
-- 62 metin2_map_n_flame_01
{
{ 599400, 756300 },
{ 597800, 622200 },
{ 730700, 689800 },
},
-- devil_tower
{
{ 590500, 110500 },
{ 590500, 110500 },
{ 590500, 110500 },
},
}
test_chat(warp[sub_set][empire][1]..warp[sub_set][empire][2])
say_title("Teleporter:")
say("Achtung, ich teleportiere dich jetzt. Du wirst")
say("an einem gefährlichen Ort landen, also pass auf")
say("dich auf. Viel Glück!")
wait()
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])
else -- ? ?? 1,2 ? ??? ?????? ? ?? 1,2 ? ??? ?? ??
local sub_set2 = 3
--sub_set2 = select(locale.vileage1_name[empire], locale.vileage2_name[empire], locale.cancel)
if empire==1 then
sub_set2 = select("Yongan","Jayang" , locale.cancel)
elseif empire ==2 then
sub_set2 = select("Joan","Bokjung" , locale.cancel)
elseif empire ==3 then
sub_set2 = select("Pyungmoo","Bakra" , locale.cancel)
end
if sub_set2 != 3 then
if pc.gold < cost then
say_title("Teleporter:")
say("Ich würde dich auch umsonst 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 %d Yang.", cost))
else
if sub_set2 == 1 then
say_title("Teleporter:")
say("Ich teleportiere dich dorthin.")
wait()
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
elseif sub_set2 == 2 then
say_title("Teleporter:")
say("Ich teleportiere dich dorthin.")
wait()
if empire == 1 then
pc.warp(353100,882900)
elseif empire == 2 then
pc.warp(145500,240000)
elseif empire == 3 then
pc.warp(863900,246000)
end
end
pc.changegold(-cost)
end
end
end
end
end -- end_of_chat
end-- end_of_state
end -- end_of_quest
02/13/2011 14:46
xsebipuckx#1463
Halllo bin hier neu und will ma was zu einem anderen Thema fragen :
Also Habe Metin 2 p-server gemacht. Client + serverfilde von Computerkrank.
jetz hab ich 2 Fragen:
1. Bei mir steht , wenn ich mich einloggen will Verbindung zum Server wird aufgebaut. Dabei habe ich server und alles offen und ein.
2.Wie bekomme ich Datenbank ( online durch Hamachi gestellt also das spiel )
Bitte helft mir habe skype leider bin ich neu hier.
und noch was wenn ihr sagen müsst: wenn du das nicht hinkriegst wie willst dann Server leiten?
Pls spart euch diesen Sche*ß. Und noch was : wie kann ich neues Thema verfassen also hier ?
Thx im Vorraus
Also Habe Metin 2 p-server gemacht. Client + serverfilde von Computerkrank.
jetz hab ich 2 Fragen:
1. Bei mir steht , wenn ich mich einloggen will Verbindung zum Server wird aufgebaut. Dabei habe ich server und alles offen und ein.
2.Wie bekomme ich Datenbank ( online durch Hamachi gestellt also das spiel )
Bitte helft mir habe skype leider bin ich neu hier.
und noch was wenn ihr sagen müsst: wenn du das nicht hinkriegst wie willst dann Server leiten?
Pls spart euch diesen Sche*ß. Und noch was : wie kann ich neues Thema verfassen also hier ?
Thx im Vorraus
02/13/2011 14:49
DarthBane#1464
omg du bist ein bisschen falsch hier
hier geh es um quest wenn du keine frage zu einer hast oder keine lösung/tipps dann geh bitte weg
1. Hast Port map an?
2. keine ahnung was du damit meinst? erklär bitte genauer
hier geh es um quest wenn du keine frage zu einer hast oder keine lösung/tipps dann geh bitte weg
1. Hast Port map an?
2. keine ahnung was du damit meinst? erklär bitte genauer
02/13/2011 14:55
Legend2007#1465
Netter gehts auch, nicht?Quote:
hier geh es um quest wenn du keine frage zu einer hast oder keine lösung/tipps dann geh bitte weg
1. Hast Port map an?
2. keine ahnung was du damit meinst? erklär bitte genauer
@vorposter: Stelle bitte deine frage hier in dieser Sektion: [Only registered and activated users can see links. Click Here To Register...]
Um einen neuen thema zu erstellen, scrolle ganz nach unten. Auf der linken seite ist da ein button womit du ein neues thema eröffnen kannst.
------------------------------------
Frage an die Quest schreib profis:
Ich war grad am basteln einer PvP quest aber Ich wollte da auch eine level begrenzung reinbauen sodass man nur spieler in einen bestimmten level bereich angreifen soll ansonsten werde die kills nicht gezählt. Gibt es einen weg um dies umzuschreiben?
Gruß
Legend
02/13/2011 14:59
.Delta#1466
hätt jez gesagt
so müsstest du player in deinem lvl oder darüber töten ,glaube ich
PHP Code:
when kill begin with npc.get_level() >= pc.get_level() begin
02/14/2011 20:26
_Speedbreak_#1467
die quest hat i wie einen Fehler habe mich schon daran versucht aber den Fehler nicht gefunden
virtualpc sagt :
PHP Code:
------------------------------------
--Quest by
-- _Speedbreak_ @ epvp
------------------------------------
quest mirinie begin
state start begin
when login or levelup with pc.get_level() >= 30 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(20006)
if v != 0 then
target.vid("__TARGET", v, "Mirinie brauch deine Hilfe")
end
send_letter("Mirinie brauch deine Hilfe")
end
when button or info begin
say_title("Mirinie brauch deine Hilfe")
say("Du musst Mirinie helfen.")
say("Gehe zu ihr!")
end
when __TARGET__.target.click begin
target.delete("__TARGET__")
say("")
say("Mirinie:")
say("")
say("Hey, ich habe bei Ebay eine Hightech-Haarbürste für")
say("nur 1.-€ ersteigert ! Unglaublich oder ? Leider ist ")
say("das schicke Teil nur per Selbstabholer. Könntest du")
say("mir die Haarbürste holen? Die Adresse ist :")
say("")
say("Soon Bücherwurm")
say("Holzfällerweg 10")
say("OceanWorld2 Reloaded Map 1")
set_state(gotoblacksmith)
end
end
state gotoblacksmith begin
when letter begin
local v = find_npc_by_vnum(20023)
if v != 0 then
target.vid("__TARGET__", v, "Gehe zu Soon")
end
send_letter("Gehe zu Soon")
end
when button or info begin
say_title("Gehe zu Soon")
say("und hole die Hightech-Haarbürste für Mirinie")
say("ab.")
say("Die Adresse ist :")
say("")
say("Soon Bücherwurm")
say("Holzfällerweg 10")
say("OceanWorld2 Reloaded Map 1")
end
when __TARGET__.target.click or
20023.chat."Date" begin
target.delete("__TARGET__")
say("Soon:")
say("Was ist los?")
say("Achso du willst die Hightech-Haarbürste für Mirinie")
say("moment ich suche sie...")
wait()
say("So hier hast du sie!")
say("Bitteschön.")
set_state(gotogemi)
end
end
state gotogemi begin
when letter begin
local v = find_npc_by_vnum(20006)
if v != 0 then
target.vid("__TARGET__", v, "Antwort")
end
send_letter("Gehe zu Mirinie zurück")
end
when button or info begin
say_title("Gehe zu Mirinie zurück")
say("und bringe ihr die Hightech-Haarbürste von Soon.")
say("")
end
when __TARGET__.target.click begin
target.delete("__TARGET__")
say("Mirinie:")
say("Ohh cool endlich habe ich eine tolle")
say("Hightech-Haarbürste womit ich mir die Haare")
say("bürsten kann..")
say("vielen Dank !")
say("Kleinen moment ich hole deine Belohnung.")
wait()
say_reward("Du hast ein Pferdelevelup erhalten!")
say_reward("Du hast 10.000.000 exp erhalten!")
clear_letter()
set_state(__complete)
horse.unride()
horse.advance()
pc.give_exp2(10.000.000)
set_quest_state("levelup", "run")
end
end
state __complete begin
end
end
PHP Code:
syntax error : [string "gotogemi"]:15: `)' expected near `0'
mirinie.quest:111:Abort trap (core dumped)
02/14/2011 22:35
Brodan#1468
Hallo miteinander,
habe bei folgender Quest, folgendes Problem, also:
Aus einem mir unbegreiflichen Grund startet diese Quest nicht, sie ist nicht beim Stalli verfügbar.
Diese Quest soll eig. 5 Pm's gegen einen KG+ Buch tauschen.
habe bei folgender Quest, folgendes Problem, also:
Aus einem mir unbegreiflichen Grund startet diese Quest nicht, sie ist nicht beim Stalli verfügbar.
Diese Quest soll eig. 5 Pm's gegen einen KG+ Buch tauschen.
02/15/2011 13:56
ganzliebe#1469
Hi Freunde
wie kann man die 2 quest zusammen schreiben,damit man nur 1 npc braucht ?
[Only registered and activated users can see links. Click Here To Register...]
LG:ganzliebe
wie kann man die 2 quest zusammen schreiben,damit man nur 1 npc braucht ?
[Only registered and activated users can see links. Click Here To Register...]
LG:ganzliebe
02/15/2011 17:02
'oShet#1470
Was daran falsch?
Diese quest soll machen, dass der Npc Yang für den Silberbarren gibt.Quote:
quest barren begin
state start begin
when 20095.chat."50k Barren" with pc.countitem("80003")>=1 begin
say("Wie ich sehe hast du 1")
say("50k Silberbarren")
say("Ich Tausche sie gegen")
say("50k Yang")
local b=select("Okay", "Nein danke")
if 1==b then
if pc.countitem("80003")>=1 then
pc.removeitem("80003", 1)
pc.change_money(50000)
say("Hier hast du deine 50k Yang.")
end
elseif 2==b then
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
end
end