[SERVICE] Die Questkontrolle

09/29/2012 23:21 GoldenLegend#6901
Code:
quest Geister begin
    state start begin
        when login or levelup with pc.level >= 90 begin
            set_state(information)
        end
    end
    
    state information begin
        when letter begin
            send_letter("Die uralten Metins")
        end

        when info or button begin
        say_title("Die uralten Metinsteine")
        say("Guten Tag Abenteurer ich habe dich schon sehr")
        say("lange beobachtet und habe mir deine Vortschritte")
        say("in dieser großen weiten Welt angeschaut!")
        say("Doch nun ist unsere Welt in großer Gefahr.")
        say("Die uralten Metinsteine bedrohen unsere Welt!")
        say("Bitte du musst sie auffinden und schlimmeres verhindern!")
        say("")
        say("Töte 5 Metins jeder Art die sich auf der Farminsel befinden")
        say("Wenn du dies schaffst wirst du 10% Stark gegen Monster und")
		say("100 Angriffswert gesegnet!")
        say("Willst du die Aufgabe annhemen?")
        local s = select("Ja","Nein keine Zeit")
        if s == 2 then
                    say("Nun gut!")
                    say("Es werden noch andere kommen!")
                    clear_letter()
                    set_state (beenden)
        else
            say("Okay los gehts!")
            say_reward("Töte 5 x Metin der Vernunft")
            say_reward("Töte 5 x Metin des Lichts")
            say_reward("Töte 5 x Metin der Verzweiflung")
			say_reward("Töte 5 x Metin der Geduld")
            pc.setqf("state1", 0)
            q.set_counter("Metin der Vernunft", 5)
            pc.setqf("state2", 0)
            q.set_counter("Metin des Lichts", 5)
            pc.setqf("state3", 0)
            q.set_counter("Metin der Verzweiflung", 5)
			pc.setqf("state4", 0)
            q.set_counter("Metin der Geduld", 5)
            set_state(kill)
            end
        end
    end
    
    state kill begin
        when letter begin
            send_letter("Töte die Geister")
        end
    
        when info or button begin
            say_title("Angriff der alten Geister")
            say("Staus:")
            say_reward("Du hast schon "..pc.getqf("state1").." von 5 x Metin der Vernunft")
            say_reward("Du hast schon "..pc.getqf("state2").." von 5 x Metin des Lichts")
            say_reward("Du hast schon "..pc.getqf("state3").." von 5 x Metin der Verzweiflung")
			say_reward("Du hast schon "..pc.getqf("state4").." von 5 x Metin der Geduld")
        end
        
        when 8035.kill begin
            local count1 = pc.getqf("state1") + 1
            if count1 <= 5 then
                pc.setqf("state1", count1)
                q.set_counter("Metin der Vernunft", count1)
            end
            if count1 == 5 then
            set_state(fertig)
            end
        end
        
        when 8036.kill begin
            local count2 = pc.getqf("state2") + 1
            if count2 <= 5 then
                pc.setqf("state2", count2)
                q.set_counter("Metin des Lichts", count2)
            end
            if count2 == 5 then
            set_state(fertig)
            end
        end
        
        when 8037.kill begin
            local count3 = pc.getqf("state3") + 1
            if count3 <= 5 then
                pc.setqf("state3", count3)
                q.set_counter("Metin der Verzweiflung", count3)
            end
            if count3 == 5 then
            set_state(fertig)
            end
        end
    end
	
        when 8038.kill begin
            local count4 = pc.getqf("state4") + 1
            if count4 <= 5 then
                pc.setqf("state4", count4)
                q.set_counter("Metin der Geduld", count4)
            end
            if count4 == 5 then
            set_state(fertig)
            end
        end
    end
            
    state fertig begin
        when letter begin
            send_letter("Aufgabe abgeschlossen!")
        end
        
        when info or button begin
            say_title("Aufgabe abgeschlossen!")
            say("Du hast deine Aufgabe vollbracht!")
            say("Ich dachte ich hätte dir zu viel zugemutet,")
            say("aber meine Sorgen waren wohl unbegründet.")
            say("Du bist wahrhaftig ein großer Krieger!")
            wait()
            say("Natürlich willst du deine Belohnung oder?")
            local s=select("Natürlich","Nein danke, behalt sie")
            if s== 2 then
                clear_letter()
                set_state(beenden)
            else
                say_reward("10% Stark gegen Monster")
                say_reward("100 Angriffwert")
                say_reward("250.000.000 Yang")
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER,10,60*60*24*365*60) -----¡V60¦~
                affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60) -----¡V60¦~
                pc.change_money(250000000)
                clear_letter()
                set_state(ende)
            end
        end
    end

    state beenden begin
    end
    
    state ende begin
    end
end
Fehler ist der:

[Only registered and activated users can see links. Click Here To Register...]
09/30/2012 10:36 DasKuchen#6902
Quote:
Originally Posted by GoldenLegend View Post
Code:
quest Geister begin
    state start begin
        when login or levelup with pc.level >= 90 begin
            set_state(information)
        end
    end
    
    state information begin
        when letter begin
            send_letter("Die uralten Metins")
        end

        when info or button begin
        say_title("Die uralten Metinsteine")
        say("Guten Tag Abenteurer ich habe dich schon sehr")
        say("lange beobachtet und habe mir deine Vortschritte")
        say("in dieser großen weiten Welt angeschaut!")
        say("Doch nun ist unsere Welt in großer Gefahr.")
        say("Die uralten Metinsteine bedrohen unsere Welt!")
        say("Bitte du musst sie auffinden und schlimmeres verhindern!")
        say("")
        say("Töte 5 Metins jeder Art die sich auf der Farminsel befinden")
        say("Wenn du dies schaffst wirst du 10% Stark gegen Monster und")
		say("100 Angriffswert gesegnet!")
        say("Willst du die Aufgabe annhemen?")
        local s = select("Ja","Nein keine Zeit")
        if s == 2 then
                    say("Nun gut!")
                    say("Es werden noch andere kommen!")
                    clear_letter()
                    set_state (beenden)
        else
            say("Okay los gehts!")
            say_reward("Töte 5 x Metin der Vernunft")
            say_reward("Töte 5 x Metin des Lichts")
            say_reward("Töte 5 x Metin der Verzweiflung")
			say_reward("Töte 5 x Metin der Geduld")
            pc.setqf("state1", 0)
            q.set_counter("Metin der Vernunft", 5)
            pc.setqf("state2", 0)
            q.set_counter("Metin des Lichts", 5)
            pc.setqf("state3", 0)
            q.set_counter("Metin der Verzweiflung", 5)
			pc.setqf("state4", 0)
            q.set_counter("Metin der Geduld", 5)
            set_state(kill)
            end
        end
    end
    
    state kill begin
        when letter begin
            send_letter("Töte die Geister")
        end
    
        when info or button begin
            say_title("Angriff der alten Geister")
            say("Staus:")
            say_reward("Du hast schon "..pc.getqf("state1").." von 5 x Metin der Vernunft")
            say_reward("Du hast schon "..pc.getqf("state2").." von 5 x Metin des Lichts")
            say_reward("Du hast schon "..pc.getqf("state3").." von 5 x Metin der Verzweiflung")
			say_reward("Du hast schon "..pc.getqf("state4").." von 5 x Metin der Geduld")
        end
        
        when 8035.kill begin
            local count1 = pc.getqf("state1") + 1
            if count1 <= 5 then
                pc.setqf("state1", count1)
                q.set_counter("Metin der Vernunft", count1)
            end
            if count1 == 5 then
            set_state(fertig)
            end
        end
        
        when 8036.kill begin
            local count2 = pc.getqf("state2") + 1
            if count2 <= 5 then
                pc.setqf("state2", count2)
                q.set_counter("Metin des Lichts", count2)
            end
            if count2 == 5 then
            set_state(fertig)
            end
        end
        
        when 8037.kill begin
            local count3 = pc.getqf("state3") + 1
            if count3 <= 5 then
                pc.setqf("state3", count3)
                q.set_counter("Metin der Verzweiflung", count3)
            end
            if count3 == 5 then
            set_state(fertig)
            end
        end
    end
	
        when 8038.kill begin
            local count4 = pc.getqf("state4") + 1
            if count4 <= 5 then
                pc.setqf("state4", count4)
                q.set_counter("Metin der Geduld", count4)
            end
            if count4 == 5 then
            set_state(fertig)
            end
        end
    end
            
    state fertig begin
        when letter begin
            send_letter("Aufgabe abgeschlossen!")
        end
        
        when info or button begin
            say_title("Aufgabe abgeschlossen!")
            say("Du hast deine Aufgabe vollbracht!")
            say("Ich dachte ich hätte dir zu viel zugemutet,")
            say("aber meine Sorgen waren wohl unbegründet.")
            say("Du bist wahrhaftig ein großer Krieger!")
            wait()
            say("Natürlich willst du deine Belohnung oder?")
            local s=select("Natürlich","Nein danke, behalt sie")
            if s== 2 then
                clear_letter()
                set_state(beenden)
            else
                say_reward("10% Stark gegen Monster")
                say_reward("100 Angriffwert")
                say_reward("250.000.000 Yang")
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER,10,60*60*24*365*60) -----¡V60¦~
                affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60) -----¡V60¦~
                pc.change_money(250000000)
                clear_letter()
                set_state(ende)
            end
        end
    end

    state beenden begin
    end
    
    state ende begin
    end
end
Fehler ist der:

[Only registered and activated users can see links. Click Here To Register...]
PHP Code:
quest Geister begin
    state start begin
        when login 
or levelup with pc.level >= 90 begin
            set_state
(information)
        
end
    end
    
    state information begin
        when letter begin
            send_letter
("Die uralten Metins")
        
end

        when info 
or button begin
        say_title
("Die uralten Metinsteine")
        
say("Guten Tag Abenteurer ich habe dich schon sehr")
        
say("lange beobachtet und habe mir deine Vortschritte")
        
say("in dieser großen weiten Welt angeschaut!")
        
say("Doch nun ist unsere Welt in großer Gefahr.")
        
say("Die uralten Metinsteine bedrohen unsere Welt!")
        
say("Bitte du musst sie auffinden und schlimmeres verhindern!")
        
say("")
        
say("Töte 5 Metins jeder Art die sich auf der Farminsel befinden")
        
say("Wenn du dies schaffst wirst du 10% Stark gegen Monster und")
        
say("100 Angriffswert gesegnet!")
        
say("Willst du die Aufgabe annhemen?")
        
local s = select("Ja","Nein keine Zeit")
        if 
s == 2 then
                    say
("Nun gut!")
                    
say("Es werden noch andere kommen!")
                    
clear_letter()
                    
set_state (beenden)
        else
            
say("Okay los gehts!")
            
say_reward("Töte 5 x Metin der Vernunft")
            
say_reward("Töte 5 x Metin des Lichts")
            
say_reward("Töte 5 x Metin der Verzweiflung")
            
say_reward("Töte 5 x Metin der Geduld")
            
pc.setqf("state1", 0)
            
q.set_counter("Metin der Vernunft", 5)
            
pc.setqf("state2", 0)
            
q.set_counter("Metin des Lichts", 5)
            
pc.setqf("state3", 0)
            
q.set_counter("Metin der Verzweiflung", 5)
            
pc.setqf("state4", 0)
            
q.set_counter("Metin der Geduld", 5)
            
set_state(kill)
            
end
        end
    end
    
    state kill begin
        when letter begin
            send_letter
("Töte die Geister")
        
end
    
        when info 
or button begin
            say_title
("Angriff der alten Geister")
            
say("Staus:")
            
say_reward("Du hast schon "..pc.getqf("state1").." von 5 x Metin der Vernunft")
            
say_reward("Du hast schon "..pc.getqf("state2").." von 5 x Metin des Lichts")
            
say_reward("Du hast schon "..pc.getqf("state3").." von 5 x Metin der Verzweiflung")
            
say_reward("Du hast schon "..pc.getqf("state4").." von 5 x Metin der Geduld")
        
end
        
        when 8035.kill begin
            local count1 
= pc.getqf("state1") + 1
            
if count1 <= 5 then
                pc
.setqf("state1", count1)
                
q.set_counter("Metin der Vernunft", count1)
            
end
            
if count1 == 5 then
            set_state
(fertig)
            
end
        end
        
        when 8036.kill begin
            local count2 
= pc.getqf("state2") + 1
            
if count2 <= 5 then
                pc
.setqf("state2", count2)
                
q.set_counter("Metin des Lichts", count2)
            
end
            
if count2 == 5 then
            set_state
(fertig)
            
end
        end
        
        when 8037.kill begin
            local count3 
= pc.getqf("state3") + 1
            
if count3 <= 5 then
                pc
.setqf("state3", count3)
                
q.set_counter("Metin der Verzweiflung", count3)
            
end
            
if count3 == 5 then
            set_state
(fertig)
            
end
        end
    
        when 8038.kill begin
            local count4 
= pc.getqf("state4") + 1
            
if count4 <= 5 then
                pc
.setqf("state4", count4)
                
q.set_counter("Metin der Geduld", count4)
            
end
            
if count4 == 5 then
            set_state
(fertig)
            
end
        end
    end
            
    state fertig begin
        when letter begin
            send_letter
("Aufgabe abgeschlossen!")
        
end
        
        when info 
or button begin
            say_title
("Aufgabe abgeschlossen!")
            
say("Du hast deine Aufgabe vollbracht!")
            
say("Ich dachte ich hätte dir zu viel zugemutet,")
            
say("aber meine Sorgen waren wohl unbegründet.")
            
say("Du bist wahrhaftig ein großer Krieger!")
            
wait()
            
say("Natürlich willst du deine Belohnung oder?")
            
local s=select("Natürlich","Nein danke, behalt sie")
            if 
s== 2 then
                clear_letter
()
                
set_state(beenden)
            else
                
say_reward("10% Stark gegen Monster")
                
say_reward("100 Angriffwert")
                
say_reward("250.000.000 Yang")
                
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,10,60*60*24*365*60) -----¡V60¦~
                
affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60) -----¡V60¦~
                
pc.change_money(250000000)
                
clear_letter()
                
set_state(beenden)
            
end
        end
    end

    state beenden begin
    end
end 
Hab mir nicht alles angeschaut aber du hattest ein End zu viel.
09/30/2012 13:21 GoldenLegend#6903
Immernoch der selbe Fehler.
09/30/2012 18:14 Mijago#6904
PHP Code:
quest Geister begin
    state start begin
        when login 
or levelup with pc.level >= 90 begin
            set_state
(information)
        
end
    end
    
    state information begin
        when letter begin
            send_letter
("Die uralten Metins")
        
end

        when info 
or button begin
        say_title
("Die uralten Metinsteine")
        
say("Guten Tag Abenteurer ich habe dich schon sehr")
        
say("lange beobachtet und habe mir deine Vortschritte")
        
say("in dieser großen weiten Welt angeschaut!")
        
say("Doch nun ist unsere Welt in großer Gefahr.")
        
say("Die uralten Metinsteine bedrohen unsere Welt!")
        
say("Bitte du musst sie auffinden und schlimmeres verhindern!")
        
say("")
        
say("Töte 5 Metins jeder Art die sich auf der Farminsel befinden")
        
say("Wenn du dies schaffst wirst du 10% Stark gegen Monster und")
        
say("100 Angriffswert gesegnet!")
        
say("Willst du die Aufgabe annhemen?")
        
local s = select("Ja","Nein keine Zeit")
        if 
s == 2 then
                    say
("Nun gut!")
                    
say("Es werden noch andere kommen!")
                    
clear_letter()
                    
set_state (beenden)
        else
            
say("Okay los gehts!")
            
say_reward("Töte 5 x Metin der Vernunft")
            
say_reward("Töte 5 x Metin des Lichts")
            
say_reward("Töte 5 x Metin der Verzweiflung")
            
say_reward("Töte 5 x Metin der Geduld")
            
pc.setqf("state1", 0)
            
q.set_counter("Metin der Vernunft", 5)
            
pc.setqf("state2", 0)
            
q.set_counter("Metin des Lichts", 5)
            
pc.setqf("state3", 0)
            
q.set_counter("Metin der Verzweiflung", 5)
            
pc.setqf("state4", 0)
            
q.set_counter("Metin der Geduld", 5)
            
set_state(kill)
            
end
        end
    end
    
    state kill begin
        when letter begin
            send_letter
("Töte die Geister")
        
end
    
        when info 
or button begin
            say_title
("Angriff der alten Geister")
            
say("Staus:")
            
say_reward("Du hast schon "..pc.getqf("state1").." von 5 x Metin der Vernunft")
            
say_reward("Du hast schon "..pc.getqf("state2").." von 5 x Metin des Lichts")
            
say_reward("Du hast schon "..pc.getqf("state3").." von 5 x Metin der Verzweiflung")
            
say_reward("Du hast schon "..pc.getqf("state4").." von 5 x Metin der Geduld")
        
end
        
        when 8035.kill begin
            local count1 
= pc.getqf("state1") + 1
            
if count1 <= 5 then
                pc
.setqf("state1", count1)
                
q.set_counter("Metin der Vernunft", count1)
            
end
            
if count1 == 5 then
            set_state
(fertig)
            
end
        end
        
        when 8036.kill begin
            local count2 
= pc.getqf("state2") + 1
            
if count2 <= 5 then
                pc
.setqf("state2", count2)
                
q.set_counter("Metin des Lichts", count2)
            
end
            
if count2 == 5 then
            set_state
(fertig)
            
end
        end
        
        when 8037.kill begin
            local count3 
= pc.getqf("state3") + 1
            
if count3 <= 5 then
                pc
.setqf("state3", count3)
                
q.set_counter("Metin der Verzweiflung", count3)
            
end
            
if count3 == 5 then
            set_state
(fertig)
            
end
    end
    
        when 8038.kill begin
            local count4 
= pc.getqf("state4") + 1
            
if count4 <= 5 then
                pc
.setqf("state4", count4)
                
q.set_counter("Metin der Geduld", count4)
            
end
            
if count4 == 5 then
            set_state
(fertig)
            
end
        end
    end
            
    state fertig begin
        when letter begin
            send_letter
("Aufgabe abgeschlossen!")
        
end
        
        when info 
or button begin
            say_title
("Aufgabe abgeschlossen!")
            
say("Du hast deine Aufgabe vollbracht!")
            
say("Ich dachte ich hätte dir zu viel zugemutet,")
            
say("aber meine Sorgen waren wohl unbegründet.")
            
say("Du bist wahrhaftig ein großer Krieger!")
            
wait()
            
say("Natürlich willst du deine Belohnung oder?")
            
local s=select("Natürlich","Nein danke, behalt sie")
            if 
s== 2 then
                clear_letter
()
                
set_state(beenden)
            else
                
say_reward("10% Stark gegen Monster")
                
say_reward("100 Angriffwert")
                
say_reward("250.000.000 Yang")
                
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,10,60*60*24*365*60) -----¡V60¦~
                
affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60) -----¡V60¦~
                
pc.change_money(250000000)
                
clear_letter()
                
set_state(ende)
            
end
        end
    end

    state beenden begin
    end
    
    state ende begin
    end
end 
Code:
PRV# ./qc mijago/test/p
QUEST : Geister
STATE : start
WHEN  : login or
WHEN  : levelup
        with pc . level >= 90
STATE : information
WHEN  : letter
WHEN  : info or
WHEN  : button
STATE : kill
WHEN  : letter
WHEN  : info or
WHEN  : button
WHEN  : 8035.kill
WHEN  : 8036.kill
WHEN  : 8037.kill
WHEN  : 8038.kill
STATE : fertig
WHEN  : letter
WHEN  : info or
WHEN  : button
STATE : beenden
STATE : ende
Kompilierbar ist sie. Restcode habe ich nicht beachtet.. Der Code von DasKuchen funktioniert aber auch. (Tested)

PS: Ich bin kein Hirsch...

Grüße, Mijago
09/30/2012 22:40 killa673#6905
tag ich hab ne quest zum teleportieren auf ne neue map gemacht.
jetz will ich aber das die leute da nur 2 stunden lang drauf bleiben dürfen,
hab dafür ne zusatzquest geschrieben, bekomme aber den error:

when doesnt have begin-end clause. (()

was ist falsch?

quest:

quest talc begin
state start begin
when pc.get_map_index() == 210 begin
say("Du kannst noch 2 Stunden in dieser Welt")
say("bleiben, dann wirst du in deine Map1 geportet.")
pc.getqf("warphome")
pc.setqf("warphome", 1)
timer("warp1", 7200)
when warp1.timer with pc.getqf("warphome") == 1 begin
pc.warp_to_village
pc.setqf("warphome", 0)
end
end
end
end
09/30/2012 23:31 |★|554#6906
Quote:
Originally Posted by killa673 View Post
tag ich hab ne quest zum teleportieren auf ne neue map gemacht.
jetz will ich aber das die leute da nur 2 stunden lang drauf bleiben dürfen,
hab dafür ne zusatzquest geschrieben, bekomme aber den error:

when doesnt have begin-end clause. (()

was ist falsch?

quest:

quest talc begin
state start begin
when pc.get_map_index() == 210 begin
say("Du kannst noch 2 Stunden in dieser Welt")
say("bleiben, dann wirst du in deine Map1 geportet.")
pc.getqf("warphome")
pc.setqf("warphome", 1)
timer("warp1", 7200)
when warp1.timer with pc.getqf("warphome") == 1 begin
pc.warp_to_village
pc.setqf("warphome", 0)
end
end
end
end
Ich hab die Quest mal neu geschrieben, um mehr Funktionen einzubinden.

Die Quest regelt nun FOlgendes:
Man wird automatisch nach 2 Stunden nach Erstbetretung gekickt, dabei ist es egal, ob man online oder offline ist.
Sollte man nun Beispielsweiße um 17:00 Uhr auf die Map gehen, danach offline und erst um 20:00Uhr wieder einloggen, wird man direkt runtergeportet, auch wenn man kaum auf der Map war.
Man kann allerdings während der 2h-Phase ausloggen udn erneut einloggen, ohne gekickt zu werden.
Solltest du es anders haben wollen, bitte nochmal melden

PHP Code:
quest talc begin
    state start begin
        when login with pc
.get_map_index() == 210 begin
            
if pc.getqf("isonmap") == 0 then
                pc
.setqf("time", get_time())
                
pc.setqf("isonmap", 1)
            
end
            local a 
= pc.getqf("time") + 120*60 - get_time()
            if 
a > 0 then 
                timer
("kickplayer", a)
            else
                
pc.warp_to_village
            end
        end
        
        when kickplayer
.timer begin
            pc
.warp_to_village
        end

        when login with pc
.get_map_index() != 210 begin
            pc
.setqf("isonmap", 0)
        
end
    end
end 
10/01/2012 00:08 thespeedyy#6907
[Only registered and activated users can see links. Click Here To Register...]
10/01/2012 00:37 [SA]Tears#6908
@554 wow sehr nice thx, daran hätt ich nich gedacht o.O really thx^^ (bin killa673, das der account der für meinen Serverstart verwendet wird also nich wundern) ^-^


€: Hab se eingefügt, bekomme den error:

syntax error : [string "startpc . getget_map_index () == 210"]:9: '=' expected near 'end'
10/01/2012 00:58 Plüschfee#6909
PHP Code:
quest lvlimit begin
    state start begin
        when login 
or levelup with pc.get_level() >= 50 begin
            pc
.setqf("antiexp", 1)
            
chat("Anti EXP aktiviert. Deine Erfahrungspunkte werden jede Sekunde auf 0 gesetzt!")
            
local ep = pc.get_exp()
            
pc.give_exp2(-ep)
            
timer("erfahrung", 1)
        
end
        
        when erfahrung
.timer with pc.getqf("antiexp") == 1 begin
            local ep 
= pc.get_exp()
            
pc.give_exp2(-ep)
            
timer("erfahrung1", 1)
            
pc.setqf("antiexp", 1)
        
end
        
        when erfahrung1
.timer with pc.getqf("antiexp") == 1 begin
            local ep 
= pc.get_exp()
            
pc.give_exp2(-ep)
            
timer("erfahrung", 1)
            
pc.setqf("antiexp", 1)
        
end
        
        when login with pc
.getqf("antiexp") == 1 begin
            local ep 
= pc.get_exp()
            
pc.give_exp2(-ep)
            
timer("erfahrung", 1)
            
pc.setqf("antiexp", 1)
        
end
    end
end 
Es wird komischerweise nur einmal das EXP runtergesetzt, danach nicht mehr.
Was genau stimmt da nicht? :O

Tears: hf mit bann
10/01/2012 01:27 killa673#6910
tja lowi hab da leider ne funktionierende exp reset quest aber leider verkackt vollopfer :** <3
10/01/2012 02:44 Plüschfee#6911
Quote:
Originally Posted by killa673 View Post
tja lowi hab da leider ne funktionierende exp reset quest aber leider verkackt vollopfer :** <3
Ich bin mir nicht sicher, wer genau hier "verkackt" hat, aber ich bitte dich solch eine Sprache hier zu unterlassen, denn sonst wird es glaub ich nichts mit der Servervorstellung;/
Außerdem sind Multis verboten und es ist doch nicht meine Schuld, wenn du das hier öffentlich preisgibst =)
aber nun back to topic!
10/01/2012 02:53 x3Campinox3#6912
Ich habe eine teleporter quest hingestottert :D

Code:
quest event_map begin
	state start begin
	when 9010.chat."Tempel 2 - Eventmap"  begin 
            say_title("Tempel 2 - Eventmap")	   
			say("Dies ist eine faszinierende Gegend.")
			say("Aber passiert hier denn auch mal")
			say("etwas Außergewöhnliches?")
			say("Wohl eher nicht.")
			say("In anderen Teilen des Landes sieht")
			say("es mitunter ganz anders aus!")
			say("Es gibt daher sicher einen intressanten Ort,")
			say("an den ich dich teleportieren könnte.")
			say("Bei mir kommst du zur Eventmap!")
			say("Das Teleporten wird dich 10.000 Yang kosten.")
			say("")
			say("Möchtest du dich Teleportieren?")
                
            local s = select("Ja", "Nein")
                
                if s == 1 then
                           if pc.money>=10000 then
                           pc.changemoney("-10000")
						   
				    say_title("Festhalten!")	   
					say("Achtung, ich Teleportiere Dich jetzt")
					say("")
				    pc.warp(1697,11434)
	

                            elseif pc.money<10000 then
							say_title("Zu wenig Kohle")
							say("")
							say_reward("Du hast nicht genug Yang !")
							say("")
				end
                elseif s == 2 then
                    return
        end
    end
	end
end
Leider gibts da nur ein Problem.
Ich werde nicht teleportiert.
Es kommen alle Felder, Geld wird abgezogen ect..
Nur bleibe ich am gleichen Punkt.
Wäre super wenn mich da jemand verbessern könnte.
Keine errors beim Server. (zmdst sehe ich keine)
10/01/2012 10:47 HerosBluber#6913
Hallo Leute, ich habe ein Problem mit der Beruf.quest >.> es kommt als eine Error occured on compile jobquest.quest Meldung....hoffe jemand hat die lösung hier mal die quest

PHP Code:
quest jobquest begin
    state start begin
        when 20080.chat
."Rekrutenausbildung" with pc.get_level() >= 80 begin
            say_title
("Rekrutenausbildung:")
            
say("")
            
say(""..pc.get_name().." sei gegrüßt!")
            
say("Du kannst bei mir eine Ausbildung beginnen")
            
say("je nach Wahl bekommst du andere Vorteile.")
            
say("Doch eins muss ich dir sagen wähle klug, denn")
            
say("es gibt anderen Spielern gegenüber")
            
say("Vor - und Nachteile.")
            
say("")
            
say("")
            
wait()
            
say("Rekrutenausbildung:")
            
say("")
            
say("Ich zähle dir nun auf was in Frage kommen würde")
            
say("bei den Ausbildungen. Du kannst wählen")
            
say("zwischen:")
            
say("")
            
say("Soldat - 10000 TP, 30 Stärke, Stark gegen Halbmensch +30 und TP-Regi +30%")
            
say("Heiliger - 5000 MP und 35 Zaubergeschwindikeit")
            
say("Ninja - 30% TP-Regi und 40 Chance auf Vergiften, 30 DEX, Halbmensch +30% und 10000 TP")
            
say("Magier - 30% TP-Regi, 30 INT, Halbmensch +30% und 10000 TP")
            
say("Farmer - +70% TP-Regi, +50% Chance auf Vergiftung, +10000 TP, +50 STR, +50% Drop-Bonus,")
            
say("+50% Krit, +50% DB, +50 Stark gegen Monster")
            
say("")
            
say("")
            
wait()
            
say_title("Rekrutenausbildung:")
            
say("")
            
say("Nun wähle weise und entscheide dich")
            
say("welchen Weg du beschreiten möchtest.")
            
say("")
            
local wahl = select ("Soldat", "Heiliger", "Ninja", "Magier", "Farmer", "Abbrechen")
            if 
wahl == 6 then
                
return
            elseif 
wahl == 1 then
                say_title
("Ausbildung zum Soldat:")
                
say("")
                
say("Du hast dich zu einer Ausbildung zum")
                
say("Soldaten entschieden "..pc.get_name()..".")
                
say("Eine sehr kluge Wahl.")
                
say("")
                
say("Folgende Werte sind nun gestiegen:")
                
say("")
                
say("+5000 HP")
                
say("+100 Stärke")
                
say("+30% stark gegen Halbmensch)
                say("
+30 TP-Regeneration")
                affect.add_collect(apply.MAX_HP, 5000, 60*60*24*365*60)
                affect.add_collect(apply.STR, 30, 60*60*24*365*60)
                affect.add_collect(apply.ATTBONUS_HUMAN, 30, 60*60*24*365*60)
                affect.add_collect(apply.HP_Regen, 30, 60*60*24*365*60)
                set_state(__COMPLETE__)
            elseif wahl == 2 then
                say_title("
Ausbildung zum Heiligen:")
                say("")
                say("
Du hast dich zu einer Ausbildung zum")
                say("
Heiligen entschieden "..pc.get_name()..".")
                say("
Eine sehr kluge Wahl.")
                say("")
                say("
Folgende Werte sind nun gestiegen:")
                say("")
                say("
+5000 MP")
                say("
+35% Zaubergeschwindigkeit")
                affect.add_collect(apply.MAX_SP, 5000, 60*60*24*365*60)
                affect.add_collect(apply.CAST_SPEED, 35, 60*60*24*365*60)
                set_state(__COMPLETE__)
            elseif wahl == 3 then
                say_title("
Ausbildung zum Ninja:")
                say("")
                say("
Du hast dich zu einer Ausbildung zum")
                say("
Ninja entschieden "..pc.get_name()..".")
                say("
Eine sehr kluge Wahl.")
                say("")
                say("
Folgende Werte sind nun gestiegen:")
                say("")
                say("
+30% TP-Regeneration")
                say("
+40% Chance auf Vergiften")
                say("
+30 DEX")
                say("
+30% Stark gegen Halbmensch")
                say("
+10000 TP")
                affect.add_collect(apply.HP_Regen, 30, 60*60*24*365*60)
                affect.add_collect(apply.POISON_PCT, 40, 60*60*24*365*60)
                affect.add_collect(apply.DEX, 30, 60*60*24*365*60)
                affect.add_collect(apply.ATTBONUS_HUMAN, 30, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 10000, 60*60*24*365*60)
                set_state(__COMPLETE__)
            elseif wahl == 4 then
                say_title("
Ausbildung zum Magier:")
                say("")
                say("
Du hast dich zu einer Ausbildung zum")
                say("
Magier entschieden "..pc.get_name()..".")
                say("
Eine sehr gute Wahl.")
                say("")
                say("
Folgende Werte sind nun gestiegen:")
                say("")
                say("
+30% TP-Regeneration")
                say("
+30 INT")
                say("
+30% Stark gegen Halbmensch")
                say("
+10000 TP")
                affect.add_collect(apply.HP_Regen, 30, 60*60*24*365*60)
                affect.add_collect(apply.INT, 30, 60*60*24*365*60)
                affect.add_collect(apply.ATTBONUS_HUMAN, 30, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 10000, 60*60*24*365*60)
                set_state(__COMPLETE__)
            elseif wahl == 5 then
                say_title("
Ausbildung zum Farmer:")
                say("")
                say("
Du hast dich zu einer Ausbildung zum")
                say("
Farmer entschieden "..pc.get_name()..".")
                say("
Eine sehr kluge Wahl.")
                say("")
                say("
Folgende Werte sind nun gestiegen:")
                say("")
                say("
+70% TP-Regeneration")
                say("
+50% Chance auf Vergiften")
                say("
+10000 TP")
                say("
+50 STR")
                say("
+50% Chance auf Drop Bonus")
                say("
+50% Chance auf Krit")
                say("
+50% Chance auf Durchbruch")
                say("
+50% stark gegen Monster")
                affect.add_collect(apply.HP_Regen, 70, 60*60*24*365*60)
                affect.add_collect(apply.POISON_PCT, 50, 60*60*24*365*60)
                affect.add_collect(apply.MAX_HP, 10000, 60*60*24*365*60)
                affect.add_collect(apply.STR, 50, 60*60*24*365*60)
                affect.add_collect(apply.ITEM_DROP_BONUS, 50, 60*60*24*365*60)
                affect.add_collect(apply.CRITICAL_PCT, 50, 60*60*24*365*60)
                affect.add_collect(apply.PENETRATE_PCT, 50, 60*60*24*365*60)
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 50, 60*60*24*365*60)
                set_state(__COMPLETE__)                                
            end            
        end
    end
    state __COMPLETE__ begin
    end
end 
10/01/2012 13:12 |★|554#6914
Quote:
Originally Posted by x3Campinox3 View Post
Ich habe eine teleporter quest hingestottert :D

Code:
quest event_map begin
	state start begin
	when 9010.chat."Tempel 2 - Eventmap"  begin 
            say_title("Tempel 2 - Eventmap")	   
			say("Dies ist eine faszinierende Gegend.")
			say("Aber passiert hier denn auch mal")
			say("etwas Außergewöhnliches?")
			say("Wohl eher nicht.")
			say("In anderen Teilen des Landes sieht")
			say("es mitunter ganz anders aus!")
			say("Es gibt daher sicher einen intressanten Ort,")
			say("an den ich dich teleportieren könnte.")
			say("Bei mir kommst du zur Eventmap!")
			say("Das Teleporten wird dich 10.000 Yang kosten.")
			say("")
			say("Möchtest du dich Teleportieren?")
                
            local s = select("Ja", "Nein")
                
                if s == 1 then
                           if pc.money>=10000 then
                           pc.changemoney("-10000")
						   
				    say_title("Festhalten!")	   
					say("Achtung, ich Teleportiere Dich jetzt")
					say("")
				    pc.warp(1697,11434)
	

                            elseif pc.money<10000 then
							say_title("Zu wenig Kohle")
							say("")
							say_reward("Du hast nicht genug Yang !")
							say("")
				end
                elseif s == 2 then
                    return
        end
    end
	end
end
Leider gibts da nur ein Problem.
Ich werde nicht teleportiert.
Es kommen alle Felder, Geld wird abgezogen ect..
Nur bleibe ich am gleichen Punkt.
Wäre super wenn mich da jemand verbessern könnte.
Keine errors beim Server. (zmdst sehe ich keine)
PHP Code:
pc.warp(x,y) 
benötigt die "zwei 0'er", also
PHP Code:
pc.warp(169700, 1143400) 
10/01/2012 14:12 x3Campinox3#6915
ICH LIEBE DICH!! danke dir! ich hab mir meinen verdammten kopf die ganze nacht zebrochen warum es nicht ging! xD
Wäre nice wenn du mir evtl. noch helfen könntest das das feld "Festhalten" noch auftaucht. weil jetzt kommt das gar nicht mehr xD

Naja auf jeden fall DANKE!