Nop klappt leider nicht.Quote:
Ungetestet! Sollte meiner Meinung jedoch das erfüllen was du willst.
PHP Code:quest changegold begin
when item.use begin --Item anpassen
local rand = number(1,10)
local gold = pc.get_gold()
if rand >=5 then
local newgold = gold - 1000
pc.change_gold(newgold)
else
local newgold = gold + 1000
pc.change_gold(newgold)
end
end
end
[SERVICE] Die Questerstellung
11/12/2013 16:55
.SliceR#811
11/12/2013 17:45
Nedross#812
Ah ich sollte nicht während der Arbeit questen... Es kommt einfach nicht gut raus.Quote:
Hier, diese funktioniert hab sie eben getestet...
PHP Code:
quest changegold begin
state start begin
when 30025.use begin
local rand = number(1, 2)
if rand <= 1 then
pc.change_gold(1000)
pc.remove_item(30025, 1)
else
pc.change_gold(-1000)
pc.remove_item(30025, 1)
end
end
end
end
11/12/2013 18:16
Noa_#813
Quote:
Hier, diese funktioniert hab sie eben getestet...
PHP Code:quest changegold begin
state start begin
when 30025.use begin
local rand = number(1, 2)
if rand <= 1 then
pc.change_gold(1000)
pc.remove_item(30025, 1)
else
pc.change_gold(-1000)
pc.remove_item(30025, 1)
end
end
end
end
PHP Code:
quest changegold begin
when vnum.use begin --Item anpassen
pc.change_gold((number(0,1)==1 and -1000 or 1000))
pc.remove_item(item.vnum, 1)
end
end
11/12/2013 20:45
hsvfanno1#814
Hallo
hat jemand eine unverbuggt flammenrun quest noch zu verfügung , die muss nicht 100% de like sein , sie soll z.b nur die mobs aus meiner regen dateien spawnen was bei anderen quests die hier releast worden sind ,nicht der fall ist, weil die quests irgendwie nicht so funktionieren.
Ich hoffe auf eine hilfe, der kann mich auch per PN anschreiben
danke im vorraus ! :)
mfg
hat jemand eine unverbuggt flammenrun quest noch zu verfügung , die muss nicht 100% de like sein , sie soll z.b nur die mobs aus meiner regen dateien spawnen was bei anderen quests die hier releast worden sind ,nicht der fall ist, weil die quests irgendwie nicht so funktionieren.
Ich hoffe auf eine hilfe, der kann mich auch per PN anschreiben
danke im vorraus ! :)
mfg
11/12/2013 22:17
Red Firestar#815
Kann mal bitte jemand helfen.Quote:
Kleines Beispiel
Wäre toll wenn es jemand verarbeiten könnte.Code:quest vipname begin state start begin when itemvnum.use begin say_title("Hallo "..pc.get_name().."!") say("") say("bla") say("") local aw = select("Ja", "Nein") if aw == 2 then return else mysql_query("UPDATE player.player SET name='[VIP]"..pc.get_name().."' WHERE name='"..pc.get_name().."'") say_title("Änderung erfolgreich!") say("") say("Bla") say("") end end end end
11/12/2013 22:50
Noa_#816
Sofort den namen eintragen würde über pc.set_name gehen, jedoch klappt das mit den klammern [..] nichtQuote:
das der User Automatisch [VIP] vor den Namen bekommt
11/12/2013 23:00
Red Firestar#817
hm gibt es da keine Möglichkeit ?Quote:
Das es funktioniert ?
11/14/2013 16:37
Xaphieron#818
Code:
-------------------------------------
-- Multi GM Panel Quest by Xaphieron V1.0
-------------------------------------
quest gm_panel begin
state start begin
when letter with pc.is_gm() begin
send_letter("GM Multi Panel")
end
when button or info begin
say_title("GM Panel")
say("Die meisten Inhalte dieses Panels")
say("dürfen nur in absprache mit einem GA/SA")
say("benutzt werden.")
say("")
say_reward("Bitte wähle deine Option")
local head = select("Online Meldung", "Event Panel", "GM Status", "Lager", "Teleport", "Abbrechen")
if head == 1 then
say_title("Online Meldung")
say("Hier kannst du eine Meldung auswählen die du senden kannst")
say("wenn du den Spielern sagen möchtest das du da bist oder noch")
say("erreichbar bist")
say_reward("Bitte wähle deine Option")
local on = select("... ist Online", "... ist noch erreichbar", "... verabschieded sich", "Abbrechen")
if on == 1 then
notice_all("".. pc.get_name() .." ist online")
notice_all("Er/Sie steht für eure Fragen zur verfügung")
elseif on == 2 then
notice_all("".. pc.get_name() .." steht euch immer noch zur verfügung")
elseif on == 3 then
notice_all("".. pc.get_name() .." verabschieded sich")
notice_all("und wünscht euch noch viel spaß auf Eternia2 Online")
elseif on == 4 then
return
end
elseif head == 2 then
say_title("Event Panel")
say("Dieses Panel darf nur mit absprache eines GA/SA benutzt werden")
say("")
say_reward("Bitte wähle deine Option")
local event = select("Event Rates", "Tag/Nacht", "Abbrechen")
if event == 1 then
say_title("Event Rates")
say_reward("Bitte wähle die Rate die du erhöhen möchtest")
local rateset = select ("EXP","Yang","Yang Bombe","Gegenstände","Abbrechen")
if rateset == 1 then
say_title("EXP Rate:")
say_reward("Wie hoch soll die EXP Rate werden?")
local w =select ("50","100","150","200","Abbrechen")
if w == 1 then
command("priv_empire 0 4:exp 50 24")
elseif w == 2 then
command("priv_empire 0 4:exp 100 24")
elseif w == 3 then
command("priv_empire 0 4:exp 150 24")
elseif w == 4 then
command("priv_empire 0 4:exp 200 24")
elseif w == 5 then
return
end
elseif rateset == 2 then
say_title("Yang Rate:")
say_reward("Wie hoch soll die Yang Rate werden?")
local x =select ("50","100","150","200","Abbrechen")
if x == 1 then
command("priv_empire 0 2:gold_drop 50 24")
elseif x == 2 then
command("priv_empire 0 2:gold_drop 100 24")
elseif x == 3 then
command("priv_empire 0 2:gold_drop 150 24")
elseif x == 4 then
command("priv_empire 0 2:gold_drop 200 24")
send_letter("GM Panel by Imbattle")
elseif x == 5 then
return
end
elseif rateset == 3 then
say_title("Yang Bomben Rate:")
say_reward("Wie hoch soll die Yangbomben Rate werden?")
local y =select ("50","100","150","200","Abbrechen")
if y == 1 then
command("priv_empire 0 3:gold10_drop 50 24")
elseif y == 2 then
command("priv_empire 0 3:gold10_drop 100 24")
elseif y == 3 then
command("priv_empire 0 3:gold10_drop 150 24")
elseif y == 4 then
command("priv_empire 0 3:gold10_drop 200 24")
elseif y == 5 then
return
end
elseif rateset == 4 then
say_title("Gegenstände Rate:")
say("Wie hoch soll die Gegenstand Rate werden?")
local z =select ("50","100","150","200","Abbrechen")
if z == 1 then
command("priv_empire 0 1:item_drop 50 24")
elseif z == 2 then
command("priv_empire 0 1:item_drop 100 24")
elseif z == 3 then
command("priv_empire 0 1:item_drop 150 24")
elseif z == 4 then
command("priv_empire 0 1:item_drop 200 24")
elseif z == 5 then
return
end
elseif rateset == 5 then
return
end
elseif event == 2 then
say_title("Tag/Nacht")
say_reward("Hier kannst du Tag und Nacht einstellen")
say_reward("Bitte wähle was du machen möchtest")
local zeit = select("Tag", "Nacht", "Abbrechen")
if zeit == 1 then
command("x 2")
elseif zeit == 2 then
command("x 1")
elseif zeit == 3 then
return
end
elseif event == 3 then
return
end
elseif head == 3 then
say_title("GM Stuff")
say_reward("Bitte wähle deine Option")
local set = select ("GM Set", "Militärgaul", "P Skills", "GM Gottmodus" "Abbrechen")
if set == 1 then
say_title("Gm Set")
say_reward("Du wurdest Ritterlich")
say_reward("Kaiserschild Verstärkt erhalten.")
say_reward("Kaiserhelm erhalten.")
say_reward("Kaiserohrringe erhalten.")
say_reward("Kaiserarmband.")
say_reward("Kaiserschuhe erhalten.")
say_reward("Kaiserhalskette erhalten.")
pc.give_item2(90040,1)
pc.give_item2(90050,1)
pc.give_item2(90060,1)
pc.give_item2(90070,1)
pc.give_item2(90080,1)
pc.give_item2(90090,1)
pc.change_alignment(200000)
elseif set == 2 then
say_title("Militärgaul")
pc.set_skill_level(131, 10)
horse.set_level(21)
horse.summon()
horse.ride()
pc.give_item2(50053, 1)
say_reward("Dein Pferd ist stufe max")
say_reward("Dein Pferderufen ist nun auf stufe max")
say_reward("Dein Pferd wurde gerufen")
say_reward("Du hast Waffenperfdebuch erhalten")
elseif set == 3 then
say_title("P Skills")
say_reward("Hier kannst du alle deine Fertigkeiten auf Perfekt setzen")
if pc.job ==0 then
say_reward("Wähle bitte deine Lehre aus")
local krieger=select("Körper","Mental")
if krieger==1 then
pc.set_skill_group(1)
pc.set_skill_level(1 ,59)
pc.set_skill_level(2 ,59)
pc.set_skill_level(3 ,59)
pc.set_skill_level(4 ,59)
pc.set_skill_level(5 ,59)
say_reward("Alle deine Skills sind nun auf Perfekt ")
end
if krieger==2 then
pc.set_skill_group(2)
pc.set_skill_level(16 ,59)
pc.set_skill_level(17 ,59)
pc.set_skill_level(18 ,59)
pc.set_skill_level(19 ,59)
pc.set_skill_level(20 ,59)
say_reward("Alle deine Skills sind nun auf Perfekt")
end
elseif pc.job ==1 then
say_reward("Wähle bitte deine Lehre aus")
local ninja=select("Nahkampf","Bogen")
if ninja==1 then
pc.set_skill_group(3)
pc.set_skill_level(31 ,59)
pc.set_skill_level(32 ,59)
pc.set_skill_level(33 ,59)
pc.set_skill_level(34 ,59)
pc.set_skill_level(35 ,59)
say_reward("Alle deine Skills sind nun auf Perfekt")
end
if ninja==2 then
pc.set_skill_group(4)
pc.set_skill_level(46 ,59)
pc.set_skill_level(47 ,59)
pc.set_skill_level(48 ,59)
pc.set_skill_level(49 ,59)
pc.set_skill_level(50 ,59)
say_reward("Alle deine Skills sind nun auf Perfekt")
end
elseif pc.job ==2 then
say_reward("Wähle bitte deine Lehre aus")
local sura=select("Magie","Waffe")
if sura==1 then
pc.set_skill_group(5)
pc.set_skill_level(76 ,59)
pc.set_skill_level(77 ,59)
pc.set_skill_level(78 ,59)
pc.set_skill_level(79 ,59)
pc.set_skill_level(80 ,59)
pc.set_skill_level(81, 59)
say_reward("Alle deine Skills sind nun auf Perfekt")
end
if sura==2 then
pc.set_skill_group(6)
pc.set_skill_level(61 ,59)
pc.set_skill_level(62 ,59)
pc.set_skill_level(63 ,59)
pc.set_skill_level(64 ,59)
pc.set_skill_level(65 ,59)
pc.set_skill_level(66 ,59)
say_reward("Alle deine Skills sind nun auf Perfekt")
end
elseif pc.job ==3 then
say_reward("Wähle bitte deine Lehre aus")
local schami=select("Heil","Drachen")
if schami==1 then
pc.set_skill_group(7)
pc.set_skill_level(106 ,59)
pc.set_skill_level(107 ,59)
pc.set_skill_level(108 ,59)
pc.set_skill_level(109 ,59)
pc.set_skill_level(110 ,59)
pc.set_skill_level(111 ,59)
say_reward("Alle deine Skills sind nun auf Perfekt")
end
if schami==2 then
pc.set_skill_group(8)
pc.set_skill_level(91 ,59)
pc.set_skill_level(92 ,59)
pc.set_skill_level(93 ,59)
pc.set_skill_level(94 ,59)
pc.set_skill_level(95 ,59)
pc.set_skill_level(96 ,59)
say_reward("Alle deine Skills sind nun auf Perfekt")
end
end
elself set == 4
say_title("GM Gottmodus")
say_reward("Wähle deine Option)
local gottmodus =select("Gottmodus aktivieren", "Kein Gottmodus")
if gottmodus==1 then
affect.add_collect(apply.CRITICAL_PCT, 100, 0*5*0*0*0)
affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 1000, 0*5*0*0*0)
affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 1000, 0*5*0*0*0)
affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 1000, 0*5*0*0*0)
affect.add_collect(apply.ATT_BONUS_TO_SURA, 1000, 0*5*0*0*0)
affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 1000, 0*5*0*0*0)
affect.add_collect(apply.RESIST_ASSASSIN, 100, 0*5*0*0*0)
affect.add_collect(apply.RESIST_SHAMAN, 100, 0*5*0*0*0)
affect.add_collect(apply.RESIST_WARRIOR, 100, 0*5*0*0*0)
affect.add_collect(apply.RESIST_SURA, 100, 0*5*0*0*0)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 0*5*0*0*0)
say_reward("Du hast die Kraft eines Eternia Gott erhalten für 5 Minuten")
end
if gottmodus==2 then
return
end
end
elseif set == 5 then
return
end
elseif head == 4 then
say_title("Lager")
say_reward("Wähle deine Option")
local lager = select("Lager öffnen", "Itemshop Lager öffnen", "Abbrechen")
if lager ==1 then
game.open_safebox()
setskin(NOWINDOW)
elseif lager == 2 then
game.open_mall()
setskin(NOWINDOW)
elseif lager == 3 then
return
end
elseif head == 5 then
say_title("Teleport")
say_reward("Wohin möchtes du teleportiert werde")
local on = select (" Map1", "Map2", "Eisland", "Orktal", "Wüste", "Weiter","Abbrechen")
if on == 1 then
say_red("Wähle deine Map1 aus!")
local map1 = select ("Rot", "Blau", "Gelb", "Doch nicht")
if map1 == 1 then
pc.warp(474462, 954500)
end
if map1 == 2 then
pc.warp(959913, 269179)
end
if map1 == 3 then
pc.warp(63369, 166149)
end
if map1 == 4 then
return
end
end
if on == 2 then
say_red("Wähle deine Map2 aus!")
local map2 = select ("Rot", "Blau", "Gelb", "Doch nicht")
if map2 == 1 then
pc.warp(352967, 882032)
end
if map2 == 2 then
pc.warp(145310, 240385)
end
if map2 == 3 then
pc.warp(863763, 245995)
end
if map2 == 4 then
return
end
end
if on == 3 then
say_red("Wähle aus!")
local eis = select ("Anfang", "Mitte", "Doch nicht")
if eis == 1 then
pc.warp(434200, 290600)
end
if eis== 2 then
pc.warp(436034, 215898)
end
if eis == 3 then
return
end
end
if on == 4 then
say_red("Wähle aus!")
local ot = select ("Anfang", "Telporter", "Doch nicht")
if ot == 1 then
pc.warp(321021, 808291)
end
if ot == 2 then
pc.warp(332909, 746464)
end
if ot == 3 then
return
end
end
if on == 5 then
say_red("Wähle aus!")
local desert = select("Anfang", "Mitte", "Doch nicht")
if desert == 1 then
pc.warp(343785, 501175)
end
if desert == 2 then
pc.warp(296767, 548004)
end
if desert == 3 then
return
end
end
if on == 6 then
say_red("Wähle aus!")
local seite2 = select ("Roter Wald", "Geisterwald", "Dämonenturm", "Feuerland", "Abbrechen")
if seite2 == 1 then
say_red("Wähle aus!")
local rw = select("Anfang", "Ende", "Doch nicht")
if rw == 1 then
pc.warp(1118955, 69589)
end
if rw == 2 then
pc.warp(1108038, 39610)
end
if rw == 3 then
return
end
end
if seite2 == 2 then
say_red("Wähle aus!")
local gw = select("Anfang", "Ende", "Doch nicht")
if gw == 1 then
pc.warp(290226, 5657)
end
if gw == 2 then
pc.warp(286815, 43787)
end
if gw == 3 then
return
end
end
if seite2 == 3 then
pc.warp(591000, 111000)
end
if seite2 == 4 then
local feuer = select ("Anfang", "Ende", "Doch nicht")
if feuer == 1 then
pc.warp (599400, 756300)
end
if feuer == 2 then
pc.warp (600814, 687653)
end
if feuer == 3 then
return
end
end
if seite2 == 5 then
return
end
end
if on == 7 then
return
elseif head == 6 then
return
end
end
end
end
end
11/14/2013 17:46
DerForenLeser#819
Quote:
------------------------------------- -- Multi GM Panel Quest by Xaphieron V1.0 ------------------------------------- quest gm_panel begin state start begin when letter with pc.is_gm() begin send_letter("GM Multi Panel") end when button or info begin say_title("GM Panel") say("Die meisten Inhalte dieses Panels") say("dürfen nur in absprache mit einem GA/SA") say("benutzt werden.") say("") say_reward("Bitte wähle deine Option") local head = select("Online Meldung", "Event Panel", "GM Status", "Lager", "Teleport", "Abbrechen") if head == 1 then say_title("Online Meldung") say("Hier kannst du eine Meldung auswählen die du senden kannst") say("wenn du den Spielern sagen möchtest das du da bist oder noch") say("erreichbar bist") say_reward("Bitte wähle deine Option") local on = select("... ist Online", "... ist noch erreichbar", "... verabschieded sich", "Abbrechen") if on == 1 then notice_all("".. pc.get_name() .." ist online") notice_all("Er/Sie steht für eure Fragen zur verfügung") elseif on == 2 then notice_all("".. pc.get_name() .." steht euch immer noch zur verfügung") elseif on == 3 then notice_all("".. pc.get_name() .." verabschieded sich") notice_all("und wünscht euch noch viel spaß auf Eternia2 Online") elseif on == 4 then return end elseif head == 2 then say_title("Event Panel") say("Dieses Panel darf nur mit absprache eines GA/SA benutzt werden") say("") say_reward("Bitte wähle deine Option") local event = select("Event Rates", "Tag/Nacht", "Abbrechen") if event == 1 then say_title("Event Rates") say_reward("Bitte wähle die Rate die du erhöhen möchtest") local rateset = select ("EXP","Yang","Yang Bombe","Gegenstände","Abbrechen") if rateset == 1 then say_title("EXP Rate:") say_reward("Wie hoch soll die EXP Rate werden?") local w =select ("50","100","150","200","Abbrechen") if w == 1 then command("priv_empire 0 4:exp 50 24") elseif w == 2 then command("priv_empire 0 4:exp 100 24") elseif w == 3 then command("priv_empire 0 4:exp 150 24") elseif w == 4 then command("priv_empire 0 4:exp 200 24") elseif w == 5 then return end elseif rateset == 2 then say_title("Yang Rate:") say_reward("Wie hoch soll die Yang Rate werden?") local x =select ("50","100","150","200","Abbrechen") if x == 1 then command("priv_empire 0 2:gold_drop 50 24") elseif x == 2 then command("priv_empire 0 2:gold_drop 100 24") elseif x == 3 then command("priv_empire 0 2:gold_drop 150 24") elseif x == 4 then command("priv_empire 0 2:gold_drop 200 24") send_letter("GM Panel by Imbattle") elseif x == 5 then return end elseif rateset == 3 then say_title("Yang Bomben Rate:") say_reward("Wie hoch soll die Yangbomben Rate werden?") local y =select ("50","100","150","200","Abbrechen") if y == 1 then command("priv_empire 0 3:gold10_drop 50 24") elseif y == 2 then command("priv_empire 0 3:gold10_drop 100 24") elseif y == 3 then command("priv_empire 0 3:gold10_drop 150 24") elseif y == 4 then command("priv_empire 0 3:gold10_drop 200 24") elseif y == 5 then return end elseif rateset == 4 then say_title("Gegenstände Rate:") say("Wie hoch soll die Gegenstand Rate werden?") local z =select ("50","100","150","200","Abbrechen") if z == 1 then command("priv_empire 0 1:item_drop 50 24") elseif z == 2 then command("priv_empire 0 1:item_drop 100 24") elseif z == 3 then command("priv_empire 0 1:item_drop 150 24") elseif z == 4 then command("priv_empire 0 1:item_drop 200 24") elseif z == 5 then return end elseif rateset == 5 then return end elseif event == 2 then say_title("Tag/Nacht") say_reward("Hier kannst du Tag und Nacht einstellen") say_reward("Bitte wähle was du machen möchtest") local zeit = select("Tag", "Nacht", "Abbrechen") if zeit == 1 then command("x 2") elseif zeit == 2 then command("x 1") elseif zeit == 3 then return end elseif event == 3 then return end elseif head == 3 then say_title("GM Stuff") say_reward("Bitte wähle deine Option") local set = select ("GM Set", "Militärgaul", "P Skills", "GM Gottmodus" "Abbrechen") if set == 1 then say_title("Gm Set") say_reward("Du wurdest Ritterlich") say_reward("Kaiserschild Verstärkt erhalten.") say_reward("Kaiserhelm erhalten.") say_reward("Kaiserohrringe erhalten.") say_reward("Kaiserarmband.") say_reward("Kaiserschuhe erhalten.") say_reward("Kaiserhalskette erhalten.") pc.give_item2(90040,1) pc.give_item2(90050,1) pc.give_item2(90060,1) pc.give_item2(90070,1) pc.give_item2(90080,1) pc.give_item2(90090,1) pc.change_alignment(200000) elseif set == 2 then say_title("Militärgaul") pc.set_skill_level(131, 10) horse.set_level(21) horse.summon() horse.ride() pc.give_item2(50053, 1) say_reward("Dein Pferd ist stufe max") say_reward("Dein Pferderufen ist nun auf stufe max") say_reward("Dein Pferd wurde gerufen") say_reward("Du hast Waffenperfdebuch erhalten") elseif set == 3 then say_title("P Skills") say_reward("Hier kannst du alle deine Fertigkeiten auf Perfekt setzen") if pc.job ==0 then say_reward("Wähle bitte deine Lehre aus") local krieger=select("Körper","Mental") if krieger==1 then pc.set_skill_group(1) pc.set_skill_level(1 ,59) pc.set_skill_level(2 ,59) pc.set_skill_level(3 ,59) pc.set_skill_level(4 ,59) pc.set_skill_level(5 ,59) say_reward("Alle deine Skills sind nun auf Perfekt ") end if krieger==2 then pc.set_skill_group(2) pc.set_skill_level(16 ,59) pc.set_skill_level(17 ,59) pc.set_skill_level(18 ,59) pc.set_skill_level(19 ,59) pc.set_skill_level(20 ,59) say_reward("Alle deine Skills sind nun auf Perfekt") end elseif pc.job ==1 then say_reward("Wähle bitte deine Lehre aus") local ninja=select("Nahkampf","Bogen") if ninja==1 then pc.set_skill_group(3) pc.set_skill_level(31 ,59) pc.set_skill_level(32 ,59) pc.set_skill_level(33 ,59) pc.set_skill_level(34 ,59) pc.set_skill_level(35 ,59) say_reward("Alle deine Skills sind nun auf Perfekt") end if ninja==2 then pc.set_skill_group(4) pc.set_skill_level(46 ,59) pc.set_skill_level(47 ,59) pc.set_skill_level(48 ,59) pc.set_skill_level(49 ,59) pc.set_skill_level(50 ,59) say_reward("Alle deine Skills sind nun auf Perfekt") end elseif pc.job ==2 then say_reward("Wähle bitte deine Lehre aus") local sura=select("Magie","Waffe") if sura==1 then pc.set_skill_group(5) pc.set_skill_level(76 ,59) pc.set_skill_level(77 ,59) pc.set_skill_level(78 ,59) pc.set_skill_level(79 ,59) pc.set_skill_level(80 ,59) pc.set_skill_level(81, 59) say_reward("Alle deine Skills sind nun auf Perfekt") end if sura==2 then pc.set_skill_group(6) pc.set_skill_level(61 ,59) pc.set_skill_level(62 ,59) pc.set_skill_level(63 ,59) pc.set_skill_level(64 ,59) pc.set_skill_level(65 ,59) pc.set_skill_level(66 ,59) say_reward("Alle deine Skills sind nun auf Perfekt") end elseif pc.job ==3 then say_reward("Wähle bitte deine Lehre aus") local schami=select("Heil","Drachen") if schami==1 then pc.set_skill_group(7) pc.set_skill_level(106 ,59) pc.set_skill_level(107 ,59) pc.set_skill_level(108 ,59) pc.set_skill_level(109 ,59) pc.set_skill_level(110 ,59) pc.set_skill_level(111 ,59) say_reward("Alle deine Skills sind nun auf Perfekt") end if schami==2 then pc.set_skill_group(8) pc.set_skill_level(91 ,59) pc.set_skill_level(92 ,59) pc.set_skill_level(93 ,59) pc.set_skill_level(94 ,59) pc.set_skill_level(95 ,59) pc.set_skill_level(96 ,59) say_reward("Alle deine Skills sind nun auf Perfekt") end end elself set == 4 say_title("GM Gottmodus") say_reward("Wähle deine Option) local gottmodus =select("Gottmodus aktivieren", "Kein Gottmodus") if gottmodus==1 then affect.add_collect(apply.CRITICAL_PCT, 100, 0*5*0*0*0) affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 1000, 0*5*0*0*0) affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 1000, 0*5*0*0*0) affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 1000, 0*5*0*0*0) affect.add_collect(apply.ATT_BONUS_TO_SURA, 1000, 0*5*0*0*0) affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 1000, 0*5*0*0*0) affect.add_collect(apply.RESIST_ASSASSIN, 100, 0*5*0*0*0) affect.add_collect(apply.RESIST_SHAMAN, 100, 0*5*0*0*0) affect.add_collect(apply.RESIST_WARRIOR, 100, 0*5*0*0*0) affect.add_collect(apply.RESIST_SURA, 100, 0*5*0*0*0) affect.add_collect(apply.ATT_GRADE_BONUS, 100, 0*5*0*0*0) say_reward("Du hast die Kraft eines Eternia Gott erhalten für 5 Minuten") end if gottmodus==2 then return end end elseif set == 5 then return end elseif head == 4 then say_title("Lager") say_reward("Wähle deine Option") local lager = select("Lager öffnen", "Itemshop Lager öffnen", "Abbrechen") if lager ==1 then game.open_safebox() setskin(NOWINDOW) elseif lager == 2 then game.open_mall() setskin(NOWINDOW) elseif lager == 3 then return end elseif head == 5 then say_title("Teleport") say_reward("Wohin möchtes du teleportiert werde") local on = select (" Map1", "Map2", "Eisland", "Orktal", "Wüste", "Weiter","Abbrechen") if on == 1 then say_red("Wähle deine Map1 aus!") local map1 = select ("Rot", "Blau", "Gelb", "Doch nicht") if map1 == 1 then pc.warp(474462, 954500) end if map1 == 2 then pc.warp(959913, 269179) end if map1 == 3 then pc.warp(63369, 166149) end if map1 == 4 then return end end if on == 2 then say_red("Wähle deine Map2 aus!") local map2 = select ("Rot", "Blau", "Gelb", "Doch nicht") if map2 == 1 then pc.warp(352967, 882032) end if map2 == 2 then pc.warp(145310, 240385) end if map2 == 3 then pc.warp(863763, 245995) end if map2 == 4 then return end end if on == 3 then say_red("Wähle aus!") local eis = select ("Anfang", "Mitte", "Doch nicht") if eis == 1 then pc.warp(434200, 290600) end if eis== 2 then pc.warp(436034, 215898) end if eis == 3 then return end end if on == 4 then say_red("Wähle aus!") local ot = select ("Anfang", "Telporter", "Doch nicht") if ot == 1 then pc.warp(321021, 808291) end if ot == 2 then pc.warp(332909, 746464) end if ot == 3 then return end end if on == 5 then say_red("Wähle aus!") local desert = select("Anfang", "Mitte", "Doch nicht") if desert == 1 then pc.warp(343785, 501175) end if desert == 2 then pc.warp(296767, 548004) end if desert == 3 then return end end if on == 6 then say_red("Wähle aus!") local seite2 = select ("Roter Wald", "Geisterwald", "Dämonenturm", "Feuerland", "Abbrechen") if seite2 == 1 then say_red("Wähle aus!") local rw = select("Anfang", "Ende", "Doch nicht") if rw == 1 then pc.warp(1118955, 69589) end if rw == 2 then pc.warp(1108038, 39610) end if rw == 3 then return end end if seite2 == 2 then say_red("Wähle aus!") local gw = select("Anfang", "Ende", "Doch nicht") if gw == 1 then pc.warp(290226, 5657) end if gw == 2 then pc.warp(286815, 43787) end if gw == 3 then return end end if seite2 == 3 then pc.warp(591000, 111000) end if seite2 == 4 then local feuer = select ("Anfang", "Ende", "Doch nicht") if feuer == 1 then pc.warp (599400, 756300) end if feuer == 2 then pc.warp (600814, 687653) end if feuer == 3 then return end end if seite2 == 5 then return end end if on == 7 then return elseif head == 6 then return end end end end end
Deine Version:
say_title("GM Gottmodus")
say_reward("Wähle deine Option)
Geänderte Version:
say_title("GM Gottmodus")
say_reward("Wähle deine Option")
Es fehlen also die " nach Option.
Ist übrigens auch daran zu erkennen, dass alles danach grün wird, anstatt schwarz und blau, wie es bei selects eigentlich sein sollte.
Liebe Grüße
11/14/2013 20:05
.yorliK#820
ich hab mich mal drangesetzt, kann natürlich auch total mist sein aber hierQuote:
ist der Code, Ingame die Zeichen länge getestet, der rest ist untested!
PHP Code:
quest vipname begin
state start begin
when itemvalue.use begin
say_title("Hallo "..pc.get_name().."!")
say("Mit diesem Item kannst du den VIP Status aktivieren.")
say("")
say("")
say("Möchtest du?")
say(pc.get_name(), " -----------> (VIP)", pc.get_name())
local aw = select("Ja", "Nein")
if aw == 2 then
return
end
name = pc.get_name()
zahl = string.len(name)
if aw == 1 and zahl <= 7 then
mysql_query("UPDATE player.player SET name='[VIP]"..pc.get_name().."' WHERE name='"..pc.get_name().."'")
say_title("Erfolgreich!")
say("Herzlichen Glückwunsch, du bist nun VIP auf")
say("Servername!")
say("")
say("")
say("Info")
say_reward("Die Änderung des (VIP) kann 10-20 Minuten dauern.")
elseif zahl > 7 then
say_title("Deine Name!")
say("Deine Name ist zu lang.")
say("Er darf nicht mehr als 7 Buchstaben haben.")
say("Es könnte sonst zum verschlingen von Buchtstaben")
say("kommen, z.B. Apfelsaft --> (VIP)Apfelsa")
say("")
say("")
say_reward("Möchtest du ihn ändern um VIP zuwerden?")
local a = select("Ja", "Nein")
if a == 2 then
return
end
say_title("Name wechseln")
say("Gib bitte deinen Wunschnamen ein:")
say_reward("Beachte! Nicht mehr als 7 Buchstaben.")
local inp = input()
if string.len(inp) > 7 or inp == "" then
say("Dein neuer Name hat mehr als 7 Buchstaben.")
say("Tut mir echt leid.")
return
else
say_title("Ok")
say("Dein Name erfüllt alle Voraussetzungen.")
say("")
say("Letzter Check, möchtest du wirklich mit dem")
say("Namen (VIP)", inp," dein vip status aktivieren?")
local b = select("Ja", "Nein")
if b == 2 then
return
else
mysql_query("UPDATE player.player SET name='[VIP]"..inp.."' WHERE name='"..pc.get_name().."'")
say_title("Erfolgreich!")
say("Herzlichen Glückwunsch, du bist nun VIP auf")
say("Servername!")
say("")
say("")
say("Info")
say_reward("Die Änderung des (VIP) kann 10-20 Minuten dauern.")
end
end
end
end
end
end
11/16/2013 18:33
.Syno#821
Hey Leute,
wollte mal jemanden bitten mir eine Quest zu schreiben wo man ein Item z.B ein Kostüm nur 1x mal anziehen kann und nachdem ich es wieder ausziehen will das es verschwindet.
wollte mal jemanden bitten mir eine Quest zu schreiben wo man ein Item z.B ein Kostüm nur 1x mal anziehen kann und nachdem ich es wieder ausziehen will das es verschwindet.
11/17/2013 01:39
sokiii#822
hallo Leute, ich hab ein Problem mit meiner autom. Yangwandlerquest...
er gibt mir immer 1kkk Speicher ob ich die 1kkk habe oder nicht... kann wer helfen?
er gibt mir immer 1kkk Speicher ob ich die 1kkk habe oder nicht... kann wer helfen?
Quote:
quest yangwandler begin
state start begin
when 480044.use begin
if pc.getqf("yang") == 0 then
pc.setqf("yang", 1)
chat("Automatisches Umwandeln des Yangs aktiviert.")
chat("Deine Yang wird ab 1KKK in einen Yangstein umgewandelt")
local Geld = pc.get_gold(1000000000)
pc.changemoney(-1000000000)
pc.give_item2("480042", 1)
timer("Umwandeln", 20)
elseif pc.getqf("yang") == 1 then
pc.setqf("yang", 0)
chat("Auto Yang deaktiviert. Viel Spaß auf Stormriders Akt III!")
end
end
when Umwandeln.timer with pc.getqf("yang") == 1 begin
local Geld = pc.get_gold(1000000000)
pc.changemoney(-1000000000)
pc.give_item2("480042", 1)
timer("Umwandeln1", 20)
pc.setqf("yang", 1)
end
when Umwandeln1.timer with pc.getqf("yang") == 1 begin
local Geld = pc.get_gold(1000000000)
pc.changemoney(-1000000000)
pc.give_item2("480042", 1)
timer("Umwandeln", 20)
pc.setqf("yang", 1)
end
end
end
11/17/2013 16:00
Yiv#823
PHP Code:
local Geld = pc.get_gold(1000000000)
PHP Code:
local geld = pc.get_gold()
if geld < 1000000000 then return end
11/17/2013 20:42
Zbysze#824
Looks nice
11/18/2013 02:18
sokiii#825
ok geht nun halb, allerdings macht er das nun nur einmal und danach checkt er nix mehr und die quest geht nach dem ersten Mal umwandeln nicht.....
Quote:
quest yangwandler begin
state start begin
when 480044.use begin
if pc.getqf("yang") == 0 then
pc.setqf("yang", 1)
chat("Automatisches Umwandeln des Yangs aktiviert.")
chat("Deine Yang wird ab 1KKK in einen Yangstein umgewandelt")
local Geld = pc.get_gold(1000000000)
if geld < 1000000000 then return end
pc.changemoney(-1000000000)
pc.give_item2("480042", 1)
timer("Umwandeln", 20)
elseif pc.getqf("yang") == 1 then
pc.setqf("yang", 0)
chat("Auto Yang deaktiviert. Viel Spaß auf Stormriders Akt III!")
end
end
when Umwandeln.timer with pc.getqf("yang") == 1 begin
local Geld = pc.get_gold(1000000000)
if geld < 1000000000 then return end
pc.changemoney(-1000000000)
pc.give_item2("480042", 1)
timer("Umwandeln1", 20)
pc.setqf("yang", 1)
end
when Umwandeln1.timer with pc.getqf("yang") == 1 begin
local Geld = pc.get_gold(1000000000)
if geld < 1000000000 then return end
pc.changemoney(-1000000000)
pc.give_item2("480042", 1)
timer("Umwandeln", 20)
pc.setqf("yang", 1)
end
end
end