PHP Code:
quest ow_panel begin
state start begin
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
if status==0 then
chat("~~Du wirst in der Spielersuche als Offline angezeigt!~~")
elseif status==1 then
chat("~~Du wirst in der Spielersuche als Online angezeigt!~~")
elseif status==2 then
chat("~~Du wirst in der Spielersuche als Abwesend angezeigt!~~")
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
when 20011.chat."Ich habe mein InfoPanel Verloren..." with pc.count_item(70044) == 0 begin
say_title("Uriel")
say("")
say_reward("Pass diesmal besser drauf auf...")
pc.give_item2(70044)
end
when 70044.use begin
say(InfoPanel)
--setbgimage('level_bg.tga')
say("LuxusMt2-Infopanel")
say("")
say_reward("Was willst du tun?")
say("")
local ow_panel_select = select("Informationen über andere Spieler!","Mobiler Lagerzugriff","Abbrechen")
if ow_panel_select == 9 then
return
end
if ow_panel_select == 1 then
if pc.get_level() > 19 then
say_title("Wilkommen bei der Spielersuche")
local a=select("Zur Suche", "Einstellungen", "Abbrechen")
if a==1 then
say_reward("Userpanel->Mitspieler")
local m=select("Informationen Abrufen", "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 APeichern
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("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 APielers wird ausgegeben
say_reward("Level "..level.."")
---Noch benötigte EXP für das nächste Level werden angebenen
if level==105 then
say("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("Reich: Rotes Reich")
elseif reich==2 then
say("Reich: Gelbes Reich")
elseif reich==3 then
say("Reich: Blaues Reich")
end
---Gilden Breich
if sex==0 then
if gilde==0 then
say("Gilde: Keine")
elseif gildenleader==1 then
say("Leader der Gilde: "..guild.name(gilde).."")
else
say("Member der Gilde: "..guild.name(gilde).."")
end
elseif sex==1 then
if gilde==0 then
say("Gilde: Keine")
elseif gildenleader==1 then
say("Leaderin der Gilde: "..guild.name(gilde).."")
else
say("Memberin der Gilde: "..guild.name(gilde).."")
end
end
--Hier alle mapindexe rein
if mapindex==1 then
say("Standort: Rotes Reich Map 1")
elseif mapindex==21 then
say("Standort: Gelbes Reich Map 1")
elseif mapindex==41 then
say("Standort: Blaues Reich Map 1")
elseif mapindex==220 then
say_reward("Standort: Devils Catacomb")
elseif mapindex==220000 then
say_reward("Standort: Devils Catacomb")
elseif mapindex==220001 then
say_reward("Standort: Devils Catacomb")
elseif mapindex==61 then
say_reward("Standort: Berg Sohan")
elseif mapindex==66 then
say_reward("Standort: Flammenturm")
elseif mapindex==66000 then
say_reward("Standort: Flammenturm")
elseif mapindex==66001 then
say_reward("Standort: Flammenturm")
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==220000 then
say_reward("Standort: Devils Catacomb")
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==226 then
say_reward("Standort: Drachenraum")
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==225 then
say_reward("Standort: Handelsmeile")
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("Status: Offline")
elseif status==1 then
say("Status: Online")
elseif status==2 then
say("Status: Abwesend")
end
---Wie lange man schon geAPielt 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("Yang: Kein Zugriff! Wurde abgeschalten")
else
say("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.."")
---VerwarnungAPunkte
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("Ist Offline oder existiert nicht.")
---Fehlermeldung wenn der Char unter Level 20 ist
elseif level<levelmin then
say("Der gesuchte Charakter: "..name.."")
say("Ist noch nicht Level "..levelmin.."")
end
elseif m==2 then
say_reward("Userpanel->MitAPieler->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("Die 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("Reich: Rotes Reich")
elseif reich==2 then
say("Reich: Gelbes Reich")
elseif reich==3 then
say("Reich: Blaues Reich")
end
say("Mögen sie den APieler 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("Reich: Rotes Reich")
elseif reich==2 then
say("Reich: Gelbes Reich")
elseif reich==3 then
say("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", "Status Ändern", "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("Die Geldanzeige ist momentan angeschalten")
elseif geldanzeige==1 then
say("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
if s==2 then
say_reward("Userpannel->Einstellungen->Onlinestatus")
local name=pc.get_name()
local status=""..name.."status"
local status=game.get_event_flag(status)
if status==0 then
say("Dein Status ist Offline!")
elseif status==1 then
say("Dein Status ist Online!")
elseif status==2 then
say("Dein Status ist Abwesend!")
end
local y = select("Online", "Abwesend", "Offline", "Abbrechen")
if y==1 then
local status=""..name.."status"
say("Du wirst nun als Online angezeigt!")
game.set_event_flag(status, 1)
elseif y==2 then
local status=""..name.."status"
say("Du wirst nun als Abwesend angezeigt!")
game.set_event_flag(status, 2)
elseif y==3 then
local status=""..name.."status"
say("Du wirst nun als Offline angezeigt!")
game.set_event_flag(status, 0)
end
end
end
else
say("Diese Funktion ist erst ab lv.20 verfügbar!")
end
end
if ow_panel_select == 2 then
say(256, 512)
--setbgimage('level_bg.tga')
say_title("Mobiler Lagerzugriff:")
say("Willst du dein Lager Öffnen?")
local ow_lager = select("Ja","Nein")
if ow_lager == 2 then
return
end
if ow_lager == 1 then
game.open_safebox()
end
end
end
end
end
Was bringt diese Quest? also kurze erklärung
:Per Item könnt ihr Chars suchen sprich Infos über ihm also wv Yang er besitzt,wv exp er benötigt für lvl up,sein lvl ,wo er sich befindet,ob er online ist,welches reich,welche gilde etc.
Mann kann Spielern Vertrauens Punkte geben und Mögen/nicht mögen punkte und zuverläsigskeit punkte.
Ob Yang angezeigt werden soll wenn jemand einen sucht und den Status-Also Online,Beschäftigt,Abwesend.
Rechtschreibfehler könnt ihr für euch behalten habs auf die schnelle geschrieben.
Nadan Have Fun mit der Quest
Kritik etc sind wilkommen