[SERVICE] Die Questkontrolle

Page 243 of 845

243

10/02/2011 14:03 NightCrash#3631

Quote:

Originally Posted by .Delta

hast uznten in deiner hongkong_list / locale_list ne freizeile?
wenn nein mach eine hin.
oder die quest, die den fault ausl�st ist nicht in deinem quest ordner.
Das sind die M�glichkeiten.,

Freizeile drinne
und die Querst ist im Quest Ordner.

Lg. Nighti

10/02/2011 14:13 Pαıп#3632

PHP Code:


			
quest hair begin 

    state start begin 

        function My_hair_item(vnum,index)     

            hair_list={} 

                 --   vnum    /hair/ option  /  howmuch / duration  

            hair_list [74001] = {1001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74002] = {1002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74003] = {1003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74004] = {1004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74005] = {1005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74006] = {1006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74007] = {1007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74008] = {1008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74009] = {1009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74010] = {1010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74011] = {1011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74012] = {1012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74013] = {1013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [74014] = {1014, apply.ATTBONUS_HUMAN,    5, 2592000}     

         

            hair_list [74251] = {2001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74252] = {2002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74253] = {2003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74254] = {2004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74255] = {2005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74256] = {2006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74257] = {2007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74258] = {2008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74259] = {2009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74260] = {2010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74261] = {2011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74262] = {2012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74263] = {2013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [74264] = {2014, apply.ATTBONUS_HUMAN,    5, 2592000}     

  

            hair_list [74501] = {3001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74502] = {3002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74503] = {3003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74504] = {3004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74505] = {3005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74506] = {3006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74507] = {3007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74508] = {3008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74509] = {3009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74510] = {3010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74511] = {3011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74512] = {3012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74513] = {3013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [74514] = {3014, apply.ATTBONUS_HUMAN,    5, 2592000}     



            hair_list [74751] = {4001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74752] = {4002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74753] = {4003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74754] = {4004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74755] = {4005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74756] = {4006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74757] = {4007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74758] = {4008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74759] = {4009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [74760] = {4010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [74761] = {4011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [74762] = {4012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [74763] = {4013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [74764] = {4014, apply.ATTBONUS_HUMAN,    5, 2592000}     

         

            hair_list [75001] = {1001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75002] = {1002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75003] = {1003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75004] = {1004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75005] = {1005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75006] = {1006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75007] = {1007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75008] = {1008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75009] = {1009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75010] = {1010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75011] = {1011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75012] = {1012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75013] = {1013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [75014] = {1014, apply.ATTBONUS_HUMAN,    5, 2592000}     

         

            hair_list [75201] = {2001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75202] = {2002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75203] = {2003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75204] = {2004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75205] = {2005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75206] = {2006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75207] = {2007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75208] = {2008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75209] = {2009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75210] = {2010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75211] = {2011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75212] = {2012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75213] = {2013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [75214] = {2014, apply.ATTBONUS_HUMAN,    5, 2592000}     

  

            hair_list [75401] = {3001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75402] = {3002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75403] = {3003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75404] = {3004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75405] = {3005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75406] = {3006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75407] = {3007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75408] = {3008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75409] = {3009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75410] = {3010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75411] = {3011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75412] = {3012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75413] = {3013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [75414] = {3014, apply.ATTBONUS_HUMAN,    5, 2592000}     



            hair_list [75601] = {4001, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75602] = {4002, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75603] = {4003, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75604] = {4004, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75605] = {4005, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75606] = {4006, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75607] = {4007, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75608] = {4008, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75609] = {4009, apply.ATTBONUS_WARRIOR,    10, 2592000}     

            hair_list [75610] = {4010, apply.ATTBONUS_ASSASSIN,    10, 2592000}     

            hair_list [75611] = {4011, apply.ATTBONUS_SURA,        10, 2592000}     

            hair_list [75612] = {4012, apply.ATTBONUS_SHAMAN,    10, 2592000}     

            hair_list [75613] = {4013, apply.ATTBONUS_HUMAN,    5, 2592000}     

            hair_list [75614] = {4014, apply.ATTBONUS_HUMAN,    5, 2592000}     

            return hair_list[vnum][index] 

        end 

         

        function leave_log(item_vnum) 

             

            char_log(0, "CHANGE_HAIR", string.format("USE_ITEM(%d)",item_vnum)) 



            char_log(0, "CHANGE_HAIR", string.format("END_SEC(%d)",get_time()+ hair.My_hair_item(item_vnum,4)) ) 



            char_log(0, "CHANGE_HAIR", "CHANGE_HAIR_END") 



        end 

                                                                                 

     

        when  74001.use or 

              74002.use or  

              74003.use or  

              74004.use or  

              74005.use or  

              74006.use or  

              74007.use or  

              74008.use or  

              74009.use or  

              74010.use or  

              74011.use or  

              74012.use or 

              74013.use or  

              74014.use or 

              75001.use or 

              75002.use or  

              75003.use or  

              75004.use or  

              75005.use or  

              75006.use or  

              75007.use or  

              75008.use or  

              75009.use or  

              75010.use or  

              75011.use or  

              75012.use or  

              75013.use or  

              75014.use with pc.get_job()==0 begin 

             

            pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1)) 

            affect.remove_hair() 

            affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4)) 



            pc.setqf("limit_time",get_time()+ hair.My_hair_item(item.vnum,4)) 

            hair.leave_log(item.vnum) 

            item.remove() 

        end 

     

        when  74251.use or 

              74252.use or  

              74253.use or  

              74254.use or  

              74255.use or  

              74256.use or  

              74257.use or  

              74258.use or  

              74259.use or  

              74260.use or  

              74261.use or  

              74262.use or 

              74263.use or  

              74264.use or 

              75201.use or 

              75202.use or  

              75203.use or  

              75204.use or  

              75205.use or  

              75206.use or  

              75207.use or  

              75208.use or  

              75209.use or  

              75210.use or  

              75211.use or  

              75212.use or  

              75213.use or  

              75214.use with pc.get_job()==1 begin 

         

            pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1)) 

            affect.remove_hair() 

            affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4)) 



            pc.setqf("limit_time",get_time()+hair.My_hair_item(item.vnum,4)) 



            hair.leave_log(item.vnum) 

            item.remove() 

        end 



        when  74501.use or 

              74502.use or  

              74503.use or  

              74504.use or  

              74505.use or  

              74506.use or  

              74507.use or  

              74508.use or  

              74509.use or  

              74510.use or  

              74511.use or  

              74512.use or 

              74513.use or  

              74514.use or 

              75401.use or 

              75402.use or  

              75403.use or  

              75404.use or  

              75405.use or  

              75406.use or  

              75407.use or  

              75408.use or  

              75409.use or  

              75410.use or  

              75411.use or  

              75412.use or  

              75413.use or  

              75414.use with pc.get_job()==2 begin 

               

             

            pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1)) 

            affect.remove_hair() 

            affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4)) 



            pc.setqf("limit_time",get_time()+hair.My_hair_item(item.vnum,4)) 



            hair.leave_log(item.vnum) 

            item.remove() 

        end 

     

        when  74751.use or 

              74752.use or  

              74753.use or  

              74754.use or  

              74755.use or  

              74756.use or  

              74757.use or  

              74758.use or  

              74759.use or  

              74760.use or  

              74761.use or  

              74762.use or 

              74763.use or  

              74764.use or 

              75601.use or 

              75602.use or  

              75603.use or  

              75604.use or  

              75605.use or  

              75606.use or  

              75607.use or  

              75608.use or  

              75609.use or  

              75610.use or  

              75611.use or  

              75612.use or  

              75613.use or  

              75614.use with pc.get_job()==3 begin 

               

             

            pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1)) 

            affect.remove_hair() 

            affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4)) 



            pc.setqf("limit_time",get_time()+ hair.My_hair_item(item.vnum,4)) 



            hair.leave_log(item.vnum) 

            item.remove() 

        end 

    end 

end

ich kan die frisuren nich anzihen

10/02/2011 14:21 Kriegergeist^^#3633

in der item_proto so eingestellt wie, die alten haare?

10/02/2011 15:34 .Nguyen#3634

PHP Code:


			
 ----------------------------------------------
--  Das Geheimniss des Dorfes Quest
----------------------------------------------
quest Geheimniss des Dorfes begin
  state start begin
            when login with pc.level >=80 begin
    set_state(info)
   end
  end 
  state info begin
   when letter begin
   send_letter("Das Geheimniss des Dorfes")
   local v = find_npc_by_vnum(20091)
   if v != 0 then
    target.vid("__TARGET__", v, "Das Geheimniss des Dorfes")
   end
  end
  when info or button begin
   say_title("Das Geheimniss des Dorfes 1")
   say("Starker K�mpfer ich brauche dich...")
   say("eine alte Weisheit besagt das es nur du schaffen kannst!")
   say("")
   say_reward("Gehe zu Seon-Pyeong und helfe ihm!")
  end
  when __TARGET__.target.click or 20091.chat."Das Geheimniss des Dorfes" with pc.level >=80 begin
   say_title("Das Geheimniss des Dorfes 2")
   say("Hallo mutiger K�mpfer!")
   say("Wie du sicherlich wei�t, bin ich der besch�tzer der Seelengrotte!")
   say("Dadrin lauern b�se Kreaturen die stark und m�chtig sind")
   say("ich traue mich nicht hinein!")
   say("Jedoch besagt die Profezeiung das eines Tages ein m�chtiger K�mpfer kommen wird")
   say("und das verschl�sselte Geheimniss enth�llen wird")
   say("Ich bitte dich nun dein Schicksal zu erf�llen.")
   say("Ein Rat geb ich dir aber noch auf dem Weg..")
   say("Sei vorsichtig man weis nie was sich in den dunklen R�umen versteckt h�lt!")
   say("Geh und tu was getan werden muss Geh!")
   say("")
   wait()
   say_title("Das Geheimniss des Dorfes 3")
   say("Bist du dieser Aufgabe gewachsen?!")
   say("")
   say_reward("K�nntest du mir den Gefallen tun?")
   local s=select("Ja","Nein")
    if s == 2 then
     say("Oh... sehr Schade.")
     clear_letter()
     set_state(ende)
    else
     say_title("Das Geheimniss des Dorfes 4")

     say("Vielen Dank das du mir helfen wilst!")
     say("Jedoch wird das Geheimniss von den Fremden Kreaturen besch�tzt")
     say("du musst dir einen Weg durch die Verdammten erk�mpfen!")
     say_reward("T�te die m�chtigen Kreaturen!")
     set_state(main)
    end
   end
  end
  state main begin
   when letter begin
    send_letter("T�te die m�chtigen Kreaturen!")
   end
   
   when info or button begin
    say_title("Die Seelengrotte")
    say("Du hast vom Seon-Pyeong erhalten,")
    say("Geh und finde das Geheimniss!")
    say_reward("Gehe und t�te die Herrin der Seelengrotte!")
   end
   when 1191.kill begin  
    local n = number(1,50) 
    if n== 1 then
     pc.give_item2(30168,1)
     say("Du hast die Information bekommen!")
     say_reward("Gehe nun wieder zum Seon-Pyeong!")
     set_state(main2)
   end 
   end
  end
  
  state main2 begin
   when letter begin
    send_letter("Du hast die Information!")
    local v = find_npc_by_vnum(20091)
    if v != 0 then
    target.vid("__TARGET__", v, "Du hast die Information!")
   end
  end
  when info or button begin
   say_title("Das Geheimniss des Dorfes 5")
   say("Du hast die Information erhalten!")
   say("Gehe wieder zum Seon-Pyeong")
  end
  when __TARGET__.target.click or 20091.chat."Die geheime Information" with pc.level >=80 begin
   if pc.count_item(30168) <= 0 then
    say_title("Die verstecke Information")
    say("Du hast die Information nicht?")
    say("Gehe erneut los und versuche es!.")
    set_state(main)
   end
  say_title("Das Dorfgeheimniss")
   say("Oh! Danke f�r die Information!")
   say("Endlich kann ich das Dorf vor weiteres Eskapaden besch�tzen!")
   pc.remove_item(30168,1)
   say("")
   say_reward("Du erh�lst:")
   say_reward("50.000.000Yang")
   say_reward("50.000.000Erfahrung")
   say_reward("2x Magisches Metall")
   say("")
   pc.change_money(50000000)
   pc.give_exp2(50000000)
   pc.give_item2(25041,2)
   clear_letter()
  set_state(ende)
  end
  end
  state ende begin
 end
end

Quote:

quest doesn't have begin-end clause. (des)
Dorfgeheimniss.quest:4:Abort trap (core dumped)
Error occured on compile Dorfgeheimniss.quest

10/02/2011 15:55 .Delta#3635

keine leerzeichen im questname ;)

machs so

quest Geheimnis_des_Dorfes begin

10/02/2011 16:05 .Nguyen#3636

stimmt, genau den einfachsten fehler >.>

10/02/2011 22:32 -Roxon-#3637

HEY, ich habe beim Warpring ein problem wer kann mir bitte helfen.

quest warpring begin
state start begin
when 70007.use begin
say_title("Warpring:")
say("Guten Tag")
say("Ich bin ein Verzauberter Ring")
say("Ich bringe dich kostenlos �berall hin wo du willst")
local main_set = select("Ja","Nein")
if main_set == 2 then
return
end
local sub_set = select("Blaues Reich","Rotes Reich","Gelbes Reich","Metinmap","Grotte 2","Abbrechen")
if sub_set == 1 then
say_title("Warpring:")
say("Du wirst nun ins Blaue Reich Teleportirt!")
wait()
pc.warp(959900,268800)
elseif sub_set == 2 then
say_title("Warpring:")
say("Du wirst nun ins Rote Reich Teleportirt!")
wait()
pc.warp(474200,954200)
elseif sub_set == 3 then
say_title("Warpring:")
say("Du wirst nun ins Gelbe Reich Teleportirt!")
wait()
pc.warp(63300,954200)
elseif sub_set == 4 then
say_title("Warpring:")
say("Du wirst nun in die Metinmap Teleportirt!")
wait()
pc.warp(0,25600)
elseif sub_set == 5 then
say_title("Warpring:")
say("Du wirst nun in die Grotte 2 Teleportirt!")
wait()
pc.warp(241800,1275000)
elseif sub_set == 6 then
say("Dann halt nicht")
end
end
end
end

Fehlermeldung:

QUEST : warpring
quest doesn't have begin-end clause. (by)
warpring.quest:1:Abort trap (core dumped)
Error occured on compile warpring.quest

10/03/2011 01:23 .Nguyen#3638

PHP Code:


			
quest warpring begin
state start begin
when 70007.use begin
say_title("Warpring:")
say("Guten Tag")
say("Ich bin ein Verzauberter Ring")
say("Ich bringe dich kostenlos �berall hin wo du willst")
local main_set = select("Ja","Nein")
if main_set == 2 then
return
end
else sub_set = select("Blaues Reich","Rotes Reich","Gelbes Reich","Metinmap","Grotte 2","Abbrechen")
if sub_set == 1 then
say_title("Warpring:")
say("Du wirst nun ins Blaue Reich Teleportirt!")
wait()
pc.warp(959900,268800)
elseif sub_set == 2 then
say_title("Warpring:")
say("Du wirst nun ins Rote Reich Teleportirt!")
wait()
pc.warp(474200,954200)
elseif sub_set == 3 then
say_title("Warpring:")
say("Du wirst nun ins Gelbe Reich Teleportirt!")
wait()
pc.warp(63300,954200)
elseif sub_set == 4 then
say_title("Warpring:")
say("Du wirst nun in die Metinmap Teleportirt!")
wait()
pc.warp(0,25600)
elseif sub_set == 5 then
say_title("Warpring:")
say("Du wirst nun in die Grotte 2 Teleportirt!")
wait()
pc.warp(241800,1275000)
elseif sub_set == 6 then
say("Dann halt nicht")
return
end
end
end

So m�sste es gehn.

10/03/2011 04:07 -Roxon-#3639

Kann mir bitte einer Eine quest machen um eines der neuen Reittiere zu beshw�ren .
Bonis sollte er auch habe, und beim absteigen sollen die Bonis verschwunden sein

10/03/2011 10:14 hr4rjuku#3640

Meine Pferdequest funzt nicht...

Spoiler

PHP Code:


			
quest millitaer_pferd begin
    state start begin
        when login or levelup or enter with pc.get_level() >= 60 begin
            setstate( gototeacher )
        end
    end
    state gototeacher begin
        when letter begin
            send_letter("Millitaer Pferd")

            local v=find_npc_by_vnum(20349)
            if 0==v then
            else
                target.vid("__TARGET__", v, "Gehe zu Stallbursche")
            end
        end
        when button or info begin
            say_title("Stallbursche:")
            say("Es ist an der Zeit fuer dich ein neues Pferd zu bekommen. Um ein Millitaer Pferd zu bekommen musst du zum Stallburschen gehen!")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")

            say_title("Stallbursche:")                                            l
            say("Hey du, ich habe gehoert das du dir einen Namen gemacht hast... Damit man dir auch ansieht das du ein wahrer Held bist wirst du ein neues Pferd erhalten.")
            wait()
            say("Um das Millitaer Pferd zu erhalten musst du etwas tun. Ich werde es dir nicht Schenken")
            say_reward("Deine Aufgabe um das Millitaer Pferd zu erhalten ist
            [ENTER]400 Daemonenschutzen Toeten")
            say("")
            set_state(kill)    

            pc.setqf("state", 0)
            q.set_counter("Restanzahl Daemonen Bogenschuetze", 0)
        end

    end

    state kill begin
        when letter begin
            send_letter("")
        end
        when button or info begin
            say_title(":")
            say("Du musst 400 Daemonen Bogenschuetze t\195\182ten")
            say("")

            say_reward(..pc.getqf("state").." von 400 der Art Daemonen Bogenschuetze  get\195\182tet")
            say("")
        end
        when 1102.kill begin
            local count = pc.getqf("state") + 1

            if count <= 400 then
                pc.setqf("state", count)
                q.set_counter("Restanzahl Daemonen Bogenschuetze", 10 - count)

                if count == 400 then
                    say_title("Stallbursche:")
                    say("")
                    say("Komm nun bitte zu mir.")
                    set_state(gototeacher2)
                end
            end
        end
        when 20349.chat."Daemonen Bogenschuetze Jagen erledigt." with pc.getf("main_quest_lv2","state") < 10 begin
            say_title("Stallbursche:")
            say("Hm ich glaube nicht das du fertig bist... Geh und Toete 400 Daemonenbogenschuetzen! Vorher bekommst du dein Pferd nicht.")

            if pc.is_gm() then
                wait()
                say_title("Stallbursche:")
                say("Aufgabe \195\188berspringen?")
                local s = select("Ja", "Nein")
                if s == 1 then
                    set_state(gototeacher2)
                end
            end
        end
        when 20349.chat."Daemonen Bogenschuetze Jagen erledigt." with pc.getf("main_quest_lv2","state") >= 10 begin
            say_title("Stallbursche:")
            say("WoW du hast es Tatsaechlich geschafft. Ich bin Beeindruckt von dir. du hast es dir wirklich verdient. Hier dein Millitaer Pferd und noch eine kleinigkeit dafuer das du dich so beeilt hast.")
            set_state(gototeacher2)
        end
    end
    state gototeacher2 begin
        when letter begin
            local v=find_npc_by_vnum(20349)
            if 0==v then
            else
                target.vid("__TARGET__", v, "Gehe zu Stallbursche")
            end
        end
        when letter begin
            send_letter("Das Millitaer Pferd")
        end
        when button or info begin
            say_title("Das Millitaer Pferd")
            say("Toete 400 Daemonenbogenschuetzen und gehe danach zum Stallburschen und berichte ihm ueber die Jagd")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say("Toete 400 Daemonenbogenschuetzen und gehe danach zum Stallburschen und berichte ihm ueber die Jagd")
                        say_reward("EXP 5000000")
            pc.give_exp2( 5000000 )
                        set_quest_state("levelup","run") -- levelup quest wieder starten
                        pc.change_money( 15000000 )
            say_reward("Yang 15000000")
                                       )
              say_reward("Einige Gegenstaende")
                                       )
              say_reward("Pferd Level 21")
                        clear_letter()
            set_state( __COMPLETE__ )

            pc.setqf("state", 0) --Wenn wir in der Aufgabe Variablen setzen, kann die DB Belastung reduziert werden.
        end
    end
    state __COMPLETE__ begin
    end
end

10/03/2011 12:11 Kriegergeist^^#3641

Ich habe mich nachlanger zeit wieder an meine DT2 quest rangesetzt um 3 Fehler zu beheben. Einen konnte ich l�sen. Die anderen Zwei nicht.

Der erste:

PHP Code:


			
    when 2513.kill with pc.in_dungeon() and pc.get_map_index() >= 2500000 and pc.get_map_index() < 2510000 and d.getf("dt2level")==5 begin

        local KILL_COUNT_FOR_DROP_KEY = 50

        --if is_test_server() then

        --KILL_COUNT_FOR_DROP_KEY = 1

        --end

        local n =d.getf("count") + 1

        d.setf("count", n) 

        if n == KILL_COUNT_FOR_DROP_KEY then

        -- ���U���

        game.drop_item(30307, 1)

        d.setf("count", 0)

        end

    end

Ich dropp einfach nicht das siegel :(
habe schon in meinen ganzen questen nach geguckt, ob ich den moob schon ein .kill zu geteilt habe, habe nicht gefunden, normaler wei�e m�sste es klappen :rtfm:

Das zweite problem ist das:

PHP Code:


			
        when 2525.kill with pc.in_dungeon() begin

        -- �ǰe��Ҹt�Ҧb���a��

        -- �_�h�A�}�]�@*ӷs�Ҹt

            d.kill_all()

            d.kill_all()

            timer("dt2_52", 180)            

            d.notice("Ihr habt den Zombiesensenmann get�tet, seine Herrschaft ist vorbei.")

            d.notice("Aus Dankbarkeit lassen dich die drei Turm Schmiede ein Item verbessern.")

            d.notice("Ihr habe 3 Minuten Zeit, bis hier raus teleportiert werdet.")

            d.check_eliminated()

            d.spawn_mob(20074, 619, 188)

            d.spawn_mob(20075, 612, 175)

            d.spawn_mob(20076, 626, 177)

            d.spawn_mob(9012, 620, 141)

            d.setqf("can_refine", 1)

            end

Wen ich den Zombiesensenmann kille (auch wen ich ihn als letztes kille) und was uppen will, z.b. schwert +8 steht da:

Code:

Du kannst keine Gegenst�nde mehr aufr�sten!

Wo sind da die probleme?
W�r echt nett wen ihr mir helfen k�nntet :handsdown:

MfG
Kriegergeist^^

10/03/2011 16:14 -Roxon-#3642

Hey, kann mir jemand bitte eine quest schreiben womit, man nur einen M1 Skill auf G1 Skills machen kann und nicht H�her?

10/03/2011 17:35 CauTaRt#3643

Quote:

Originally Posted by RoXoN1992

Hey, kann mir jemand bitte eine quest schreiben womit, man nur einen M1 Skill auf G1 Skills machen kann und nicht H�her?

^^ Das ist keine Quest kannst du vergessen.

Nimm doch einfach die Seelis aus dem Shop und den Drops...

10/03/2011 20:13 Proxonator#3644

Spoiler

PHP Code:


			
quest Meerjungfrau begin

    state start begin

        when NPCVNUM.use begin

            say_title("Meine Haare !")

            say("Hallo Fremder.")

            say("Ich w�rde jetzt gerne mit dir reden aber,")

            say("Sieh dir meine Haare an !")

            say("Sie sind Rot , wie konnte das nur geschehen ?")

            say("Bitte, sei doch so Nett und Helfe mir ,")

            say("Gehe zum Fischer und hole dir eine Angel.")

            say("Du brauchst sie um f�r mich meine Blonde Haarpracht wiederzugeben,")

            say("Und zwar hei�t es das am Grunde des Teiches beim Fischer Haarf�rbemittel liegen")

            say("W�rst du so Nett mir ein Haarf�rbemittel in der Farbe Blond zu holen ?")

            locale s = select("Ja, ich eile.","Nein, ich kann nicht.")

            if s == 2 then

            say_title("Meerjungfrau")

            say("Ich wusste doch von Anfang an das du unf�hig bist, p�h ! ")

            end

            

            if s == 1 then

            say_title("Meerjungfrau")

            say("Danke , aber jetzt beeil dich Los !")

            say("Mein Held ! ")

            

        if pc.countitem("ITEMVNUM")<1 then

            say("")

            say("Waaaas ?! Du hast es immernoch nich ?")

            say("Steh hier nicht so rum ! Beeil dich lieber ! ")

            setstate(need_itemITEMVNUM)

        elseif pc.countitem("ITEMVNUM")>1 then

            say("")

            say("Danke , du bist mein Held !")

            say("Ich habe sogar eine Belohnung f�r dich !")

            say("Willst du sie wirklich haben ?")

            locale b = select("Ja unbedingt","Nein muss nicht sein")

            if b == 1 then

                if pc.countitem("ITEMVNUM")>=1 then

                    pc.removeitem("ITEMVNUM", 1)

                    pc.give_item2("ITEMVNUMBELOHNUNG", ANZAHL)

                    say_title("Meerjungfrau")

                    say("Da nimm schon bevor ich es mir anders �berlege !")

            end

        end

    end

end

Ich hab da noch NPCVNUM stehen ebenso wie ITEMVNUM...
Ich weis noch nicht auf welchen NPC ich das machen werden, und ich finde auch nicht die VNUM von Blondhaarf�rbemittel.

Ich m�chte nur wissen ob sie gehen w�rde wenn da die richtigen vnums drinstehen w�rden .
Und wenn nicht was Falsch ist.

10/04/2011 11:05 lautlosertot#3645

Code:

quest forked_road begin
    state start begin
	when login begin
		-- 114 sungzi
		-- 115 116 117 118 119 120 Road
	    if forked.isforkedmapindex( pc.get_map_index() ) == 1  then
			if game.get_event_flag("threeway_war") == 0 then
				warp_to_village();
			else
				--if forked.getdeadcount() <= 0 then
				--	warp_to_village();
				--end
				if forked.issungzimapindex( pc.get_map_index() ) == 0 then
					say("Wir m�ssen den Schl�ssel f�r das Portal finden.")
					say("Wenn wir dieses Gebiet erobern,")
					say("ehe ein anderes Reich dazu kommt, k�nnen wir")
					say("unere Macht nicht nur demonstieren, sondern")
					say("auch ausdehnen. Lasst uns den Schl�ssel suchen!")
					say_title("Regeln f�r den Zugang zur Reichsschlacht:")
					say_title("1. Wer in diesem Gebiet stirbt, wird ins Dorf")
					say_title("teleportiert.")
					say_title("2. Wenn die T�r zum Heiligen Land ge�ffnet")
					say_title("wurde, kann man dieses Gebiet nicht mehr �ber")
					say_title("den W�chter erreichen.")
					say_title("Um das heilige Land zu erreichen, muss der")
					say_title("passende Schl�ssel gefunden werden.")
				else
					say("Nun m�ssen wir noch jene t�ten die das")
					say("heilige Gebiet entweihen. Zum Angriff!")
					say_title("Regeln der Reichsschlacht:")
					say_title("1. Das reich, dass die kleinste Anzahl von Siegen")
					say_title("gegen die anderen Reiche errungen hat, scheitet")
					say_title("als erstes aus.")
					say_title("2. Gegnerische Monster erscheinen. Das erste")
					say_title("Reich dass eine bestimmte Anzahl Monster")
					say_title("get�tet hat, gewinnt.")
					say_title("3. Wenn im Anschluss der Neunschwanz get�tet")
					say_title("wird, endet die Schlacht.")
					say_title("4. W�hrend der Schlacht sind keine")
					say_title("Gegenst�nde zu erbeuten.")
					say_title("5. Wer dreimal im Heiligen Land stirbt, kehrt")
					say_title("zum Dorf zur�ck.")
					
					
				end
				
			end
		end
	end
	when 11001.chat."Die Reichsschlacht..." or 11003.chat."Die Reichsschlacht..." or 11005.chat."Die Reichsschlacht..." begin
	    if game.get_event_flag("threeway_war") == 0 then
			say("He! es wurde ein neues Gebiet im Inneren des")
			say("Kontinetnes entdeckt. M�glicherweise verbindet es")
			say("alle Reiche.")
			say("Sobald die Forschungen dort abgeschlossen sind,")
			say("kannst du es betreten.")
	    else
			say("Es wurde ein neues Gebiet entdeckt.")
			say("Es befindet sich in der Mitte des Kontinentes -")
			say("m�glicherweise verbindet es sogar alle Reiche.")
			say("Dort wimmelt es von dunklen Kreaturen.")
			say("Vielleicht kannst du dich dorhin aufmachen und")
			say("dich ihnen entgegen stellen?")
			say("Vernichte sie alle,")
			say("um den Frieden im Reich wiederherzustellen.")
			local s = select("Teilnehmen" ,"Nicht Teilnehmen")
			if s == 1 then
				if pc.get_level() < 35 then
					say("Dein Level ist leider noch zu niedrig. Du kannst erst ab Level 35 teilnehmen.");
					return 
				end
			end	
				
			forked.setdeadcount();
			if pc.getempire() == 1 then
				if game.get_event_flag("threeway_war_open_gate1" ) == 0 then
					say("Die Tore ins Heilige Land wurden bereits ge�ffnet." )
					say("Du kannst leider nichtmehr daran teilnehmen, da die" )
					say("anderen Krieger schon zu weit entfernt sind.")
					return
				end
			elseif pc.getempire() == 2 then
				if game.get_event_flag("threeway_war_open_gate2" ) == 0 then
					say("Die Tore ins Heilige Land wurden bereits ge�ffnet." )
					say("Du kannst leider nichtmehr daran teilnehmen, da die" )
					say("anderen Krieger schon zu weit entfernt sind.")
					return
				end
			elseif pc.getempire() == 3 then
				if game.get_event_flag("threeway_war_open_gate3" ) == 0 then
					say("Die Tore ins Heilige Land wurden bereits ge�ffnet." )
					say("Du kannst leider nichtmehr daran teilnehmen, da die" )
					say("anderen Krieger schon zu weit entfernt sind.")
					return
				end
			else
				say(locale.forked_man_say_you_cant2 )
			end
			pc.warp( forked.getpassstartposx() , forked.getpassstartposy() )
			end
		end
	end
	when 1306.kill begin		
		game.drop_item(50089, 1 )
		say("�ϥγq�D����ۥi�H�Ѷ}�q�D�ʦL�۪���[ENTER]�q�D���Ҧ������a�i�H���ʨ�t�a.[ENTER] �M�᪱�a���i�H�i�J�t�a[ENTER] ") ;
	end	

	--????( ???? ??? ??? ?? )
	when 1902.kill with forked.issungzimapindex( pc.get_map_index() ) == 1 begin
		local iTime = 10

		forked.incbosskillcount();
		if game.get_event_flag("threeway_war_kill_boss_count" ) <= forked.getbosskillcount() then
			game.set_event_flag("threeway_war",0)
		
			local nation = { "�s����","�ѽհ�","�i�Ұ�" }
			notice_all("�T�ꪧ�Q�ӧQ��"..nation[pc.getempire()] ) 
			
			warp_all_to_village( forked.getsungzimapindex(), iTime);
			warp_all_to_village( forked.getpassmapindexbyempire(1), iTime);
			warp_all_to_village( forked.getpassmapindexbyempire(2), iTime);
			warp_all_to_village( forked.getpassmapindexbyempire(3), iTime);
		end
	end

	when 2301.kill or 2304.kill or 2305.kill or 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill with forked.issungzimapindex( pc.get_map_index() ) ==  1  begin
		
		forked.incmobkillcount()

		local nation = { "�s����","�ѽհ�","�i�Ұ�" }
		local index = { 0,1,21,41 }; 
		local start_position = { { 469300,964200 } , {55700,157900}, { 969600,278400 } }

		if game.get_event_flag("threeway_war_mob_count") == forked.getmobkillcount() then
			say_in_map( pc.get_map_index() , "10���� �A���v�����T���Ȫ� " , 1)
			warp_all_to_village_except_my_empire( pc.get_map_index() , 5 );
	
			mob.spawn( 1902 , 224 , 240 , 1 , 1 , 1 );
		end
	end

	when 20081.take with item.vnum == 50089 begin
		say_in_map( pc.get_map_index() , "Ihr werdet nun teleportiert." , 1); 
		npc.purge()
		item.remove()
		
		--??? ???
		forked.setdeadcount()
		forked.initkillcount()
		forked.initmobkillcount()
		
		if pc.getempire() == 1 then
			game.set_event_flag("threeway_war_open_gate1", 0 )
			notice_all("Shinsoo ist ins Heilige Land vorgedrungen") 
		elseif pc.getempire() == 2 then
			game.set_event_flag("threeway_war_open_gate2", 0 )
		    notice_all("Chunjo ist ins Heilige Land vorgedrungen")
		elseif pc.getempire() == 3 then
			game.set_event_flag("threeway_war_open_gate3", 0 )
			notice_all("Jinno ist ins Heilige Land vorgedrungen")
		else
			say(locale.forked_man_say_you_cant2 )
		end
		local iEmpire = pc.getempire()
		
		warp_all_in_map( pc.get_map_index() , forked.getsungzimapindex() ,forked.getsungziposx() , forked.getsungziposy() , 10 );
	end

	when 11001.chat."GM: RS Optionen" or 11003.chat."GM: RS Optionen" or 11005.chat."GM: RS Optionen" with pc.is_gm() begin

--		if is_allow_map( forked.getsungzimapindex() ) == 0 or is_allow_map( forked.getpassmapindexbyempire(1) ) == 0 or is_allow_map( forked.getpassmapindexbyempire(2)) == 0 or is_allow_map( forked.getpassmapindexbyempire(3) ) == 0 then
--			say( "�o*Ӱϰ줣��}�l�T�ꪧ�Q" );
--			say( "���ʨ�99 ���A�������a�϶}�l�T�ꪧ�Q���԰�" );
--			return
--		end
		
		--local sel = { "�T�ꪧ�Q���ʶ}�l" , "�T�ꪧ�Q���ʵ���" };
		--local s[2];
		--if ( game.get_event_flag( "threeway_war" ) == 1 )	
		
		local s = select("Reichsschlacht Starten" , "Reichsschlacht Stoppen" , "Abbrechen" );
		if s == 1 then

		--	-- ??? ?? ?? ?? ???
			kill_all_in_map( forked.getsungzimapindex() );
			kill_all_in_map( forked.getpassmapindexbyempire(1) );
			kill_all_in_map( forked.getpassmapindexbyempire(2) );
			kill_all_in_map( forked.getpassmapindexbyempire(3) );

			-- ??? 
			forked.initforked()
			-- ??? ??? ?? 
			regen_in_map( forked.getpassmapindexbyempire(1), forked.getpasspathbyempire(1) .."regen.txt" );
			regen_in_map( forked.getpassmapindexbyempire(1), forked.getpasspathbyempire(1) .."npc.txt" );
			regen_in_map( forked.getpassmapindexbyempire(2), forked.getpasspathbyempire(2) .."regen.txt" );
			regen_in_map( forked.getpassmapindexbyempire(2), forked.getpasspathbyempire(2) .."npc.txt" );
			regen_in_map( forked.getpassmapindexbyempire(3), forked.getpasspathbyempire(3) .."regen.txt" );
			regen_in_map( forked.getpassmapindexbyempire(3), forked.getpasspathbyempire(3) .."npc.txt" );

			-- ?? ??? ??
			game.set_event_flag("threeway_war",1)


			-- ??? ?? ? ?? ??
			game.set_event_flag("threeway_war_dead_count", 5)
			game.set_event_flag("threeway_war_mob_count", 150 )
			game.set_event_flag("threeway_war_kill_count", 200 )
			game.set_event_flag("threeway_war_kill_boss_count", 1 );
			-- ??? ?? ??/?? ??
			game.set_event_flag("threeway_war_open_gate1", 1 )
			game.set_event_flag("threeway_war_open_gate2", 1 )
			game.set_event_flag("threeway_war_open_gate3", 1 )
			
			notice_all("Die Forschungen am Gebiet in der Mitte des")
			notice_all("Kontinentes sind abgeschlossen. Der Kampf um" )
			notice_all("das Heilige Land kann beginnen.")
			notice_all("Ihr erreicht es �ber den Schlachtenverwalter.")
		elseif s == 2 then	
			game.set_event_flag("threeway_war",0)
			kill_all_in_map( forked.getsungzimapindex() );
			kill_all_in_map( forked.getpassmapindexbyempire(1) );
			kill_all_in_map( forked.getpassmapindexbyempire(2));
			kill_all_in_map( forked.getpassmapindexbyempire(3));
			notice_all("Der Kampf um das Heilige Land ist beendet.")
			warp_all_to_village( forked.getsungzimapindex() , 1 )
			warp_all_to_village( forked.getpassmapindexbyempire(1) , 1 )
			warp_all_to_village( forked.getpassmapindexbyempire(2) , 1 )
			warp_all_to_village( forked.getpassmapindexbyempire(3) , 1 )
		else
			return
		end
	end
end
end

infos von benheros tool:

Code:

Quest 	= 1
State  	= 1
When 	= 7
Funktion 	= 0
For 	= 31
If        	= 14
End     	= 23
"        	= 222
(        	= 196
)        	= 196
[        	= 5
]        	= 5

Check 1	= ok
Check 2	= ok
Check 3	= ok
Check 4	= Quest/State/When End Fehler

Noch eine Quest die nicht klappt

Code:

quest killinfo begin
    state start begin
        when 2493.kill
			notice_all(pc.get_name().." hat den Drachen erlegt.")
            notice_all("Er ist Level "..pc.get_level())
            notice_all("Er hat den Drachen get�tet.")
            notice_all("Herzlichen Gl�ckwunsch")
		end	   
		end
	end
end  
quest killinfo begin
    state start begin
        when 1191.kill
			notice_all(pc.get_name().." hat die Eishexe erlegt.")
            notice_all("Er ist Level "..pc.get_level())
            notice_all("Er hat die Eishexe get�tet.")
            notice_all("Herzlichen Gl�ckwunsch")
		end
	end
end	
end
quest killinfo begin
    state start begin
        when 2494.kill
			notice_all(pc.get_name().." hat den Zin-Himmels Komandant erlegt.")
            notice_all("Er ist Level "..pc.get_level())
            notice_all("Er hat den Zin-Himmels Komandant get�tet.")
            notice_all("Herzlichen Gl�ckwunsch")
		end
	end
end
end

toolinfo:

Code:

Quest 	= 3
State  	= 3
When 	= 3
Funktion 	= 0
For 	= 0
If        	= 0
End     	= 9
"        	= 24
(        	= 18
)        	= 18
[        	= 0
]        	= 0

Check 1	= ok
Check 2	= ok
Check 3	= ok
Check 4	= ok

Page 243 of 845

243