[SERVICE] Die Questkontrolle

10/08/2012 12:14 selomelox3#6961
[CODE]quest player_kill1 begin
state start begin
when login with pc.level >= 80 begin
set_state(player_kill1)
end
end

state player_kill1 begin
when letter begin
send_letter("Töte Gegner aus anderen Reichen")
end

when button or info begin
say("Es wird Zeit dass du zeigst,")
say("was in dir steckt!")
say("Zeige es uns, indem du 50")
say("Spieler aus anderen Reichen tötest!")
say_reward("Töte 50 andere Spieler aus anderen Reichen!")
say("")
pc.setqf("state", 50)
q.set_counter("kills", 50)
set_state (kill)
end
end

state kill begin
when letter begin
send_letter("Töte Spieler")
end

when button or info begin
say_title("Spieler:")
say_reward( "Du musst noch ".." "..pc.getqf("state").."von 50 töten")
say("")
end

when kill begin
if npc.is_pc() and npc.empire != pc.empire then
local count = pc.getqf("state") - 1
if count <= 50 then
pc.setqf("state", count)
q.set_counter("kills", -count)
end
if count == 0 then
say_title("Du hast es geschafft!")
say("50 Spieler aus anderen Reichen zu töten!")
say("Du erhälst für deine Mühen:")
say_reward("30x Weiße Perlen")
say_reward("30x Blaue Perlen")
say_reward("30x Rote Perlen")
pc.give_item2(27992, 30)
pc.give_item2(27993, 30)
pc.give_item2(27994, 30)
notice_all("".. pc.get_name() .." hat soeben die PvP Quest abgeschlossen!")
notice_all("Er/Sie hat 50 Spieler getötet, Glückwunsch!")
clear_letter()
set_state(__COMPLETE__)

end
end
end
end

state __COMPLETE__ begin
end
end [CODE]
10/08/2012 15:05 [ShiizoPhreN]™#6962
Code:
quest player_kill1 begin
	state start begin
		when login with pc.level >= 80 begin
			set_state(player_kill1)
		end
	end
	
	state player_kill1 begin
		when letter begin
			send_letter("Töte Gegner aus anderen Reichen")
		end
	
		when button or info begin
			say("Es wird Zeit dass du zeigst,")
			say("was in dir steckt!")
			say("Zeige es uns, indem du 50")
			say("Spieler aus anderen Reichen tötest!")
			say_reward("Töte 50 andere Spieler aus anderen Reichen!")
			say("")
			pc.setqf("state", 50)
			q.set_counter("kills", 50)
			set_state (kill)
		end
	end
	
	state kill begin
		when letter begin
			send_letter("Töte Spieler")
		end
	
		when button or info begin
			say_title("Spieler:")
			say_reward( "Du musst noch ".." "..pc.getqf("state").."von 50 töten")
			say("")
		end
	
		when kill begin
			if npc.is_pc() and npc.empire != pc.empire then
			local count = pc.getqf("state") - 1
				if count <= 50 then
				pc.setqf("state", count)
				q.set_counter("kills", -count)
			end
			if count == 0 then
				say_title("Du hast es geschafft!")
				say("50 Spieler aus anderen Reichen zu töten!")
				say("Du erhälst für deine Mühen:")
				say_reward("30x Weiße Perlen")
				say_reward("30x Blaue Perlen")
				say_reward("30x Rote Perlen")
				pc.give_item2(27992, 30)
				pc.give_item2(27993, 30)
				pc.give_item2(27994, 30)
				notice_all("".. pc.get_name() .." hat soeben die PvP Quest abgeschlossen!")
				notice_all("Er/Sie hat 50 Spieler getötet, Glückwunsch!")
				clear_letter()
				set_state(__COMPLETE__)
			end
		end
	end
	
	state __COMPLETE__ begin
	end
end
So sollte sie funktionieren is untested...
10/08/2012 15:45 .ZiPPO#6963
PHP Code:
quest teleporter begin 
    state start begin 
        when 20090.chat
."Möchtest du die Map wechseln?"  begin 
            say_title
("Guten Tag, ".. pc.get_name() ..","
            
say("wähle die Map aus, in die du möchtest:"
            
local s select("Farm Map","Kommt noch","Kommt noch","Abbrechen"
            if 
== 1 then 
                pc
.warp93200 000 )
            elseif 
== 2 then 
                pc
.warp() 
            elseif 
== 3 then 
                pc
.warp() 
            elseif 
== 4 then 
                
return 
            
end 
        end 
    end 
end 
kann mir da jemand noch ein min. Level einbauen?
King Regards,
10/08/2012 16:07 JannikKnorke#6964
Wenn ein, oder der erste, Skill zu G wird = x Achievementpunkte

In der Achievement.quest die weiter unten steht aus dem AbschiedsRelease

So schon mal nicht:
PHP Code:
when skill_level == 30 begin
    local Reward 
10 
    local Achievement 
"G Skill" 
    
local actual_achievement_points pc.getqf("achievement_points"
    
pc.setqf("G Skill"1
    
pc.setqf("achievement_points"actual_achievement_points Reward)             
    
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
end 
PHP Code:
when pc.get_skill_level(skill_vnum) == 30 begin
    local Reward 
10 
    local Achievement 
"G Skill" 
    
local actual_achievement_points pc.getqf("achievement_points"
    
pc.setqf("G Skill"1
    
pc.setqf("achievement_points"actual_achievement_points Reward)             
    
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
end 
Hier die normale und komplette Quest

Bitte um Hilfe
10/08/2012 16:19 ©by Noa#6965
Quote:
Originally Posted by .CrosSHair View Post
PHP Code:
quest teleporter begin 
    state start begin 
        when 20090.chat
."Möchtest du die Map wechseln?"  begin 
            say_title
("Guten Tag, ".. pc.get_name() ..","
            
say("wähle die Map aus, in die du möchtest:"
            
local s select("Farm Map","Kommt noch","Kommt noch","Abbrechen"
            if 
== 1 then 
                pc
.warp93200 000 )
            elseif 
== 2 then 
                pc
.warp() 
            elseif 
== 3 then 
                pc
.warp() 
            elseif 
== 4 then 
                
return 
            
end 
        end 
    end 
end 
kann mir da jemand noch ein min. Level einbauen?
King Regards,
für den ganzen teleporter oder nur für einzelne maps die lvl begrenzung?
10/08/2012 16:20 [ShiizoPhreN]™#6966
Quote:
Originally Posted by .CrosSHair View Post
kann mir da jemand noch ein min. Level einbauen?
King Regards,

Code:
quest teleporter begin 
    state start begin 
        when 20090.chat."Möchtest du die Map wechseln?" with pc.get_level() >=*DEINLEVEL* begin 
            say_title("Guten Tag, ".. pc.get_name() ..",") 
            say("wähle die Map aus, in die du möchtest:") 
            local s = select("Farm Map","Kommt noch","Kommt noch","Abbrechen") 
            if s == 1 then 
                pc.warp( 93200 , 000 )
            elseif s == 2 then 
                pc.warp() 
            elseif s == 3 then 
                pc.warp() 
            elseif s == 4 then 
                return 
            end 
        end 
    end 
end
10/08/2012 16:30 ©by Noa#6967
PHP Code:
quest teleporter begin 
    state start begin 
        when 20090.chat
."Möchtest du die Map wechseln?" with pc.get_level() >= lvl begin         --Dein level eingeben lvl>= oder ==. (für den ganzen teleporter)
            
say_title("Guten Tag, ".. pc.get_name() ..","
            
say("wähle die Map aus, in die du möchtest:"
            
local s select("Farm Map","Kommt noch","Kommt noch","Abbrechen"
            if 
== 1 then 
            
            
--ab hierlvl begrenzung für einzelne maps
                
if pc.get_level()== lvl then        --lvl eintrag 
                    pc
.warp93200 000 )
                else
                    
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 2 then 
                
if pc.get_level()== lvl then        --lvl eintrag
                pc
.warp() 
                else
                
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 3 then 
                
if pc.get_level()== lvl then        --lvl eintrag
                pc
.warp() 
                else 
                
chat("Dein Level ist zu Niedrig.")
                
end
            end 
        end 
    end 
end 
10/08/2012 18:28 .ZiPPO#6968
PHP Code:
quest teleporter begin 
    state start begin 
        when 20090.chat
."Möchtest du die Map wechseln?" with pc.get_level() >= 0 begin         --Dein level eingeben lvl>= oder ==. (für den ganzen teleporter)
            
say_title("Guten Tag, ".. pc.get_name() ..","
            
say("wähle die Map aus, in die du möchtest:"
            
local s select("Farm Map","Kommt noch","Kommt noch","Abbrechen"
            if 
== 1 then 
            
            
--ab hierlvl begrenzung für einzelne maps
                
if pc.get_level()== 50 then     --lvl eintrag 
                    pc
.warp2639900 26933 )
                else
                    
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 2 then 
                
if pc.get_level819200 716800)== 90 then      --lvl eintrag
                pc
.warp() 
                else
                
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 3 then 
                
if pc.get_level()== 120 then      --lvl eintrag
                pc
.warp35000 65000
                else 
                
chat("Dein Level ist zu Niedrig.")
                
end
            end 
        end 
    end 
end 
Bin lv 53 und wenn ich auf die erste map will sagt er mir ich bin zu niedrig?:D
10/08/2012 18:56 ©by Noa#6969
die == heißen das die exakt das lvl sein müssen also nur bei der ersten map lvl 50 höhere spieler können nicht rein, mach am besten ">= 50"; ">=90"; ">=120" & da du die lvl grenze für die einzelne maps machen willst kannst du die Begrenzung oben entfernen.
PHP Code:
quest teleporter begin 
    state start begin 
        when 20090.chat
."Möchtest du die Map wechseln?" begin
            say_title
("Guten Tag, ".. pc.get_name() ..","
            
say("wähle die Map aus, in die du möchtest:"
            
local s select("Farm Map","Kommt noch","Kommt noch","Abbrechen"
            if 
== 1 then 
                
if pc.get_level()>= 50 then     --lvl eintrag 
                    pc
.warp2639900 26933 )
                else
                    
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 2 then 
                
if pc.get_level819200 716800)>= 90 then      --lvl eintrag
                pc
.warp() 
                else
                
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 3 then 
                
if pc.get_level()>= 120 then      --lvl eintrag
                pc
.warp35000 65000
                else 
                
chat("Dein Level ist zu Niedrig.")
                
end
            end 
        end 
    end 
end 
10/08/2012 18:56 DasKuchen#6970
Quote:
Originally Posted by .CrosSHair View Post
PHP Code:
quest teleporter begin 
    state start begin 
        when 20090.chat
."Möchtest du die Map wechseln?" with pc.get_level() >= 0 begin         --Dein level eingeben lvl>= oder ==. (für den ganzen teleporter)
            
say_title("Guten Tag, ".. pc.get_name() ..","
            
say("wähle die Map aus, in die du möchtest:"
            
local s select("Farm Map","Kommt noch","Kommt noch","Abbrechen"
            if 
== 1 then 
            
            
--ab hierlvl begrenzung für einzelne maps
                
if pc.get_level()== 50 then     --lvl eintrag 
                    pc
.warp2639900 26933 )
                else
                    
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 2 then 
                
if pc.get_level819200 716800)== 90 then      --lvl eintrag
                pc
.warp() 
                else
                
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 3 then 
                
if pc.get_level()== 120 then      --lvl eintrag
                pc
.warp35000 65000
                else 
                
chat("Dein Level ist zu Niedrig.")
                
end
            end 
        end 
    end 
end 
Bin lv 53 und wenn ich auf die erste map will sagt er mir ich bin zu niedrig?:D

Sollte so gehen (keine Lust gehabt es einzurücken)
PHP Code:
quest teleporter begin 
    state start begin 
        when 20090.chat
."Möchtest du die Map wechseln?" begin 
            say_title
("Guten Tag, ".. pc.get_name() ..","
            
say("wähle die Map aus, in die du möchtest:"
            
local s select("Farm Map","Kommt noch","Kommt noch","Abbrechen"
            if 
== 1 then 
                
if pc.get_level() >= 50 then     --Wenn Level 50 oder höher ist
                    pc
.warp2639900 26933 )
                elseif 
pc.get_level() <= 50 then     --Wenn Level kleiner als 50 ist
                    chat
("Dein Level ist zu Niedrig.")
                
end
            
elseif == 2 then 
                
if pc.get_level() >= 90 then
                pc
.warp() 
                elseif 
pc.get_level() <= 90 then
                chat
("Dein Level ist zu Niedrig.")
                
end
            
elseif == 3 then 
                
if pc.get_level() >= 120 then
                pc
.warp35000 65000
                elseif 
pc.get_level()<= 90 then 
                chat
("Dein Level ist zu Niedrig.")
                
end
            end 
        end 
    end 
end 
10/08/2012 19:06 ©by Noa#6971
zu kompliziert & aufwendig, mit >= lvl reicht es vollkommen z.b bei
pc.get_level() >= 50 then ---falls der spieler höher oder gleich 50 ist dann teleport
else ---falls nicht höher oder gleich 50 das bedeutet falls man lower ist kommt der text
chat("text")
10/08/2012 21:55 xxThePumaxx#6972
Nabend, com unzwarf ne frage eher gesagt weiß nicht mehr weiter ..
ich möchte in dieser quest einfügen das ich gerne
3x gift vnum : 99999
1x Truhe vnum : 99998
diese items brauch um die quest abzuschließen ..

Code:
quest rustungen begin
	state start begin
		when 20020.chat."Du hast die Rustung gefunden!" with pc.countitem("51039")>=1 begin 
			say("Ich danke dir treuer Abenteurer.")
			say("eine tolle Belohnung.")
			say("Möchteset du die Belohnung jetzt haben ?")
			local b=select("Ja", "Nein")
			if 1==b then
				if pc.countitem("51039")>=1 then
					pc.removeitem("51039", 1)
					pc.give_item2("119", 1)
					say("Hier hast du eine Truhe.")
					say("Sie enthält tolle Dinge.")
					say("Wenn du mir mehr Gift beschaffst")
					say("bekommst du mehr Truhen!")
					say("Also mach dich auf den Weg!")
					say("")
				end
			elseif 2==b then
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end

quest voodoopuppe2 begin
	state start begin
		when 20020.chat."Ich brauche Gift!" begin
			say("Hallo Abenteurer.")
			say("Ich brauche viele Flaschen Gift für")
			say("meine Experimente! Wenn du so eine Flasche")
			say("findest bring sie mir bitte.")
			say_item_vnum(19)
			say_item_vnum(229)
			say("Man findet das Gift bei Metin Steinen und")
			say("den Bossen !")
			say("Du bekommst für jede Flasche eine Belohung!")
			say("")
			
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end
10/08/2012 22:39 Computercrack#6973
Geht der Befehl so?
Quote:
game.set_event_flag("fightfull", game.get_event_flag("fightfull")+1)
10/09/2012 01:27 ©by Noa#6974
Quote:
Originally Posted by xxThePumaxx View Post
Nabend, com unzwarf ne frage eher gesagt weiß nicht mehr weiter ..
ich möchte in dieser quest einfügen das ich gerne
3x gift vnum : 99999
1x Truhe vnum : 99998
diese items brauch um die quest abzuschließen ..

Code:
quest rustungen begin
	state start begin
		when 20020.chat."Du hast die Rustung gefunden!" with pc.countitem("51039")>=1 begin 
			say("Ich danke dir treuer Abenteurer.")
			say("eine tolle Belohnung.")
			say("Möchteset du die Belohnung jetzt haben ?")
			local b=select("Ja", "Nein")
			if 1==b then
				if pc.countitem("51039")>=1 then
					pc.removeitem("51039", 1)
					pc.give_item2("119", 1)
					say("Hier hast du eine Truhe.")
					say("Sie enthält tolle Dinge.")
					say("Wenn du mir mehr Gift beschaffst")
					say("bekommst du mehr Truhen!")
					say("Also mach dich auf den Weg!")
					say("")
				end
			elseif 2==b then
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end

quest voodoopuppe2 begin
	state start begin
		when 20020.chat."Ich brauche Gift!" begin
			say("Hallo Abenteurer.")
			say("Ich brauche viele Flaschen Gift für")
			say("meine Experimente! Wenn du so eine Flasche")
			say("findest bring sie mir bitte.")
			say_item_vnum(19)
			say_item_vnum(229)
			say("Man findet das Gift bei Metin Steinen und")
			say("den Bossen !")
			say("Du bekommst für jede Flasche eine Belohung!")
			say("")
			
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end
es sollen 2 quests sein oder nicht?
die oberste ist die rüstungs quest wo man eine rüstung gg eine truhe eintauscht.
Die zweite quest mit der voodoopuppe & dem gift, ich denke das bringt wenig wenn man die quest fertig hat und man dabei nix bekommt.
PHP Code:
quest voodoopuppe2 begin
    state start begin
        when 20020.chat
."Ich brauche Gift!" begin
            say
("Hallo Abenteurer.")
            
say("Ich brauche viele Flaschen Gift für")
            
say("meine Experimente! Wenn du so eine Flasche")
            
say("findest bring sie mir bitte.")
            
say_item_vnum(19)
            
say_item_vnum(229)
            
say("Man findet das Gift bei Metin Steinen und")
            
say("den Bossen !")
            
say("Du bekommst für jede Flasche eine Belohung!")
            
say("")
            if 
pc.countitem("99999")>= and pc.countitem("99998")>= 1 then
                chat
("Deine Belohnung ist ein Lob")

            
end
        end
    end
end 
10/09/2012 14:08 loll444555#6975
PHP Code:
quest achievement begin 
    state start begin         
        
--LOGIN 
        when login begin 
            local actual_achievement_points 
pc.getqf("achievement_points"
            if 
pc.getqf("firstlogin") != 1 then 
                local Reward 

                pc
.setqf("firstlogin"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Dein_erster_Login%".. actual_achievement_points Reward ..""
            else 
                
cmdchat("achievementpoints ".. pc.getqf("achievement_points")) 
            
end 
        end 
     
        
--BOSSE 
        when 691.kill begin 
            local Reward 

            local Achievement 
"Oberork" 
            
local killcount pc.getqf("691"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("691"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 791.kill begin 
            local Reward 

            local Achievement 
"Dunkler_Anführer" 
            
local killcount pc.getqf("791"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("791"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 792.kill begin 
            local Reward 

            local Achievement 
"Dunkler_Geist-Anführer" 
            
local killcount pc.getqf("792"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("792"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 1094.kill begin 
            local Reward 

            local Achievement 
"Dämonen_Oberhaupt" 
            
local killcount pc.getqf("1094"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("1094"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 1095.kill begin 
            local Reward 
10 
            local Achievement 
"Blauer_Tod" 
            
local killcount pc.getqf("1095"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("1095"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 1192.kill begin 
            local Reward 
12 
            local Achievement 
"Große_Eishexe" 
            
local killcount pc.getqf("1192"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("1192"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 1304.kill begin 
            local Reward 

            local Achievement 
"Gelber_Tigergeist" 
            
local killcount pc.getqf("1304"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("1304"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 1901.kill begin 
            local Reward 

            local Achievement 
"Neunschwanz" 
            
local killcount pc.getqf("1901"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("1901"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 2091.kill begin 
            local Reward 

            local Achievement 
"Königinnenspinne" 
            
local killcount pc.getqf("2091"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("2091"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 2206.kill begin 
            local Reward 

            local Achievement 
"Flammenkönig" 
            
local killcount pc.getqf("2206"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("2206"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 2191.kill begin 
            local Reward 

            local Achievement 
"Große_Wüstenschildkröte" 
            
local killcount pc.getqf("2191"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("2191"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 2493.kill begin 
            local Reward 
25 
            local Achievement 
"Beran-Setaou" 
            
local killcount pc.getqf("2493"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("2493"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_getötet#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
         
        
--METINS 
        when 8020.kill begin 
            local Reward 

            local Achievement 
"Shinsoo-Felsen" 
            
local killcount pc.getqf("8020"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("8020"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_zerstört#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 8021.kill begin 
            local Reward 

            local Achievement 
"Jinno-Felsen" 
            
local killcount pc.getqf("8021"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("8021"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_zerstört#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 8022.kill begin 
            local Reward 

            local Achievement 
"Chunjo-Felsen" 
            
local killcount pc.getqf("8022"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("8022"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_zerstört#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 8023.kill begin 
            local Reward 

            local Achievement 
"Kaiserfelsen" 
            
local killcount pc.getqf("8023"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("8023"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_zerstört#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 8026.kill begin 
            local Reward 

            local Achievement 
"Tu-Young" 
            
local killcount pc.getqf("8026"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("8026"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_zerstört#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 
        when 8027.kill begin 
            local Reward 

            local Achievement 
"Jeon-Un" 
            
local killcount pc.getqf("8027"
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("8027"killcount 1
            
pc.setqf("achievement_points"actual_achievement_points Reward
            
cmdchat("achievement ".. Achievement .."_zerstört#".. killcount 1  .."%".. actual_achievement_points Reward ..""
        
end 

        
--LEVELS 
        when login 
or levelup with pc.get_level() >= 50 and pc.getqf("Level50") != 1 begin 
            local Reward 

            local Achievement 
"Level_50" 
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("Level50"1
            
pc.setqf("achievement_points"actual_achievement_points Reward)             
            
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
        
end 
        when login 
or levelup with pc.get_level() >= 75 and pc.getqf("Level75") != 1 begin 
            local Reward 

            local Achievement 
"Level_75" 
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("Level75"1
            
pc.setqf("achievement_points"actual_achievement_points Reward)             
            
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
        
end 
        when login 
or levelup with pc.get_level() >= 85 and pc.getqf("Level85") != 1 begin 
            local Reward 
10 
            local Achievement 
"Level_85" 
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("Level85"1
            
pc.setqf("achievement_points"actual_achievement_points Reward)             
            
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
        
end 
        when login 
or levelup with pc.get_level() >= 90 and pc.getqf("Level90") != 1 begin 
            local Reward 
25 
            local Achievement 
"Level_90" 
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("Level90"1
            
pc.setqf("achievement_points"actual_achievement_points Reward)             
            
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
        
end 
        when login 
or levelup with pc.get_level() >= 95 and pc.getqf("Level95") != 1 begin 
            local Reward 
50 
            local Achievement 
"Level_95" 
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("Level95"1
            
pc.setqf("achievement_points"actual_achievement_points Reward)             
            
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
        
end 
        when login 
or levelup with pc.get_level() >= 99 and pc.getqf("Level99") != 1 begin 
            local Reward 
100 
            local Achievement 
"Level_99" 
            
local actual_achievement_points pc.getqf("achievement_points"
            
pc.setqf("Level99"1
            
pc.setqf("achievement_points"actual_achievement_points Reward)             
            
cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points Reward ..""
        
end 
         
        
--CHECK EQUIP 
        when login begin 
            loop_timer
("check_eq"10
        
end 
        when check_eq
.timer begin 
            local russi 
pc.get_armor() 
            
local waffe pc.get_weapon() 
            
local actual_achievement_points pc.getqf("achievement_points"
            
local Reward 20 
            
if russi==11299 and pc.getqf("achievement_ssp") != 1 then 
                pc
.setqf("achievement_ssp"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Schwarzstahl-Panzer+9%".. actual_achievement_points Reward ..""
            elseif 
russi==11499 and pc.getqf("achievement_swa") != 1 then 
                pc
.setqf("achievement_swa"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Schwarzwindanzug+9%".. actual_achievement_points Reward ..""
            elseif 
russi==11699 and pc.getqf("achievement_mpp") != 1 then 
                pc
.setqf("achievement_mpp"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Magie-Plattenpanzer+9%".. actual_achievement_points Reward ..""
            elseif 
russi==11899 and pc.getqf("achievement_sk") != 1 then 
                pc
.setqf("achievement_sk"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Schwarze_Kleidung+9%".. actual_achievement_points Reward ..""
            elseif 
waffe==189 and pc.getqf("achievement_gifti") != 1 then 
                pc
.setqf("achievement_gifti"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Giftschwert+9%".. actual_achievement_points Reward ..""
            elseif 
waffe==199 and pc.getqf("achievement_lowenschw.") != 1 then 
                pc
.setqf("achievement_lowenschw."1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Löwenschwert+9%".. actual_achievement_points Reward ..""
            elseif 
waffe==5129 and pc.getqf("achievement_orchiglocke") != 1 then 
                pc
.setqf("achievement_orchiglocke"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Orchideenglocke+9%".. actual_achievement_points Reward ..""
            elseif 
waffe==2179 and pc.getqf("achievement_krahenstahl") != 1 then 
                pc
.setqf("achievement_krahenstahl"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Krähenstahlbogen+9%".. actual_achievement_points Reward ..""
            elseif 
waffe==1139 and pc.getqf("achievement_teufelsflugenchak") != 1 then 
                pc
.setqf("achievement_teufelsflugenchak"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Teufelsflügel-Chakram+9%".. actual_achievement_points Reward ..""
            elseif 
waffe==3169 and pc.getqf("achievement_Grolli") != 1 then 
                pc
.setqf("achievement_Grolli"1
                
pc.setqf("achievement_points"actual_achievement_points Reward
                
cmdchat("achievement Grollschwert+9%".. actual_achievement_points Reward ..""
            
end 
        end 
         
        when 20006.chat
."Achievement Shop" begin 
            local actual_achievement_points 
pc.getqf("achievement_points"
            if 
actual_achievement_points <= 0 then 
                say_title
("".. mob_name(20006) ..":"
                
say(""
                
say("Hallo ".. pc.get_name() ..","
                
say(""
                
say("Hier kannst du deine erworbenen Achievement-Points"
                
say("gegen tolle Items eintauschen, falls du möchtest."
                
say("Leider hast du im Moment keine Achievement-Points,"
                
say("die du eintauschen könntest"
                
say(""
                
say(""
                
say(""
                
say_reward("Komme mit Achievement-Points erneut zu mir"
            else 
                
local achievment_points pc.getqf("achievement_points")
                
say_title("".. mob_name(20006) ..":"
                
say(""
                
say("Hallo ".. pc.get_name() ..","
                
say(""
                
say_reward("Guthaben : "..achievment_points.."")
                
say("Ich sehe du hast Achievement-Points gesammelt."
                
say("Möchtest du diese gegen tolle Items eintauschen?"
                
say("Ich habe einige Items, ")   
                
say("die sehr wertvoll sein könnten."
                
local achievement select("Eintauschen","Abbrechen"
                if 
achievement == 3 then 
                    say_title
("".. mob_name(20006) ..":"
                    
say(""
                    
say("Please enter hour difference"
                    
local hours input() 
                    
say_title("".. mob_name(20006) ..":"
                    
say(""
                    
say("Please enter minute difference"
                    
local minutes input() 
                    
say_title("".. mob_name(20006) ..":"
                    
say(""
                    
say("Please enter second difference"
                    
local seconds input() 
                    
local var = search_time(hours,minutes,seconds) --hour/minute/second
                    
local time actual_time() 
                    
local timestamp actual_timestamp() 
                    
say_title("".. mob_name(20006) ..":"
                    
say(""
                    
say("Actual Timestamp: ".. timestamp ..""
                    
say("Actual Time: "..time
                    
say("Searched Time: ".. var...":"..var.m..":"..var.s
                elseif 
achievement == 2 then 
                    
return 
                elseif 
achievement == 1 then 
                    say_title
("".. mob_name(20006) ..":"
                    
say(""
                    
say("Bitte wähle deine Kategorie."
                    
local selectcategory select("Upp-Items","Hilfs-Items","Bonus-Items","Shop verlassen"
                    if 
selectcategory == 4 then 
                        
return 
                    elseif 
selectcategory == 1 then 
                        say_title
("".. mob_name(20006) ..":"
                        
say(""
                        
say("Du möchtest Upp-Items?"
                        
say("Ich habe ein großes Sortiment an Upp-Items."
                        
local uppitems select("Weiße Perle","Blaue Perle","Rote Perle","Magisches Metall","Shop verlassen"
                        if 
uppitems == 5 then 
                            
return 
                        elseif 
uppitems == 1 then 
                            local Price 
20 
                            say_title
("".. mob_name(20006) ..":"
                            
say(""
                            
say("Willst du eine Weiße Perle kaufen?"
                            
say("Du kannst sie zum Verbessern von Gegenständen gebrauchen"
                            
say(""
                            
say(""
                            
say(""
                            
say_reward("Sie kostet dich ".. Price .." Achievement-Points."
                            
local buyselection select("Weiße Perle kaufen","Abbrechen"
                            if 
buyselection == 2 then 
                                
return 
                            elseif 
buyselection == 1 then 
                                
if pc.getqf("achievement_points") < Price then 
                                    say_title
("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Du hast leider nicht genügend Achievement-Points."
                                    
say("Bitte komme wieder, sobald du ".. Price pc.getqf("achievement_points") ..""
                                    
say("weitere Achievement-Points gesammelt hast"
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_reward("Sammel noch mehr Achievement-Points für dieses Item"
                                    return     
                                else 
                                    
say_title("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Hier bitte, deine Weiße Perle."
                                    
say("Diese Achievement-Points sind mir diese Perle wert."
                                    
say("Passe gut auf sie auf, sie ist sehr wertvoll."
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_item_vnum(27992
                                    
say_reward("Du hast eine Weiße Perle erhalten"
                                    
pc.setqf("achievement_points"pc.getqf("achievement_points") - Price
                                    
cmdchat("achievementpoints ".. pc.getqf("achievement_points")) 
                                    
pc.give_item2(279921
                                
end 
                            end 
                        
elseif uppitems == 2 then 
                            local Price 
30 
                            say_title
("".. mob_name(20006) ..":"
                            
say(""
                            
say("Willst du eine Blaue Perle kaufen?"
                            
say("Du kannst sie zum Verbessern von Gegenständen gebrauchen"
                            
say(""
                            
say(""
                            
say(""
                            
say_reward("Sie kostet dich ".. Price .." Achievement-Points."
                            
local buyselection select("Blaue Perle kaufen","Abbrechen"
                            if 
buyselection == 2 then 
                                
return 
                            elseif 
buyselection == 1 then 
                                
if pc.getqf("achievement_points") < Price then 
                                    say_title
("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Du hast leider nicht genügend Achievement-Points."
                                    
say("Bitte komme wieder, sobald du ".. Price pc.getqf("achievement_points") ..""
                                    
say("weitere Achievement-Points gesammelt hast"
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_reward("Sammel noch mehr Achievement-Points für dieses Item"
                                    return     
                                else 
                                    
say_title("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Hier bitte, deine Blaue Perle."
                                    
say("Diese Achievement-Points sind mir diese Perle wert."
                                    
say("Passe gut auf sie auf, sie ist sehr wertvoll."
                                    
say_item_vnum(27993
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_reward("Du hast eine Blaue Perle erhalten"
                                    
pc.setqf("achievement_points"pc.getqf("achievement_points") - Price
                                    
cmdchat("achievementpoints ".. pc.getqf("achievement_points")) 
                                    
pc.give_item2(279931
                                
end 
                            end 
                        
elseif uppitems == 3 then 
                            local Price 
40 
                            say_title
("".. mob_name(20006) ..":"
                            
say(""
                            
say("Willst du eine Rote Perle kaufen?"
                            
say("Du kannst sie zum Verbessern von Gegenständen gebrauchen"
                            
say(""
                            
say(""
                            
say(""
                            
say_reward("Sie kostet dich ".. Price .." Achievement-Points."
                            
local buyselection select("Rote Perle kaufen","Abbrechen"
                            if 
buyselection == 2 then 
                                
return 
                            elseif 
buyselection == 1 then 
                                
if pc.getqf("achievement_points") < Price then 
                                    say_title
("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Du hast leider nicht genügend Achievement-Points."
                                    
say("Bitte komme wieder, sobald du ".. Price pc.getqf("achievement_points") ..""
                                    
say("weitere Achievement-Points gesammelt hast"
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_reward("Sammel noch mehr Achievement-Points für dieses Item"
                                    return     
                                else 
                                    
say_title("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Hier bitte, deine Rote Perle."
                                    
say("Diese Achievement-Points sind mir diese Perle wert."
                                    
say("Passe gut auf sie auf, sie ist sehr wertvoll."
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_item_vnum(27994
                                    
say_reward("Du hast eine Rote Perle erhalten"
                                    
pc.setqf("achievement_points"pc.getqf("achievement_points") - Price
                                    
cmdchat("achievementpoints ".. pc.getqf("achievement_points")) 
                                    
pc.give_item2(279941
                                
end 
                            end 
                        
elseif uppitems == 4 then 
                               local Price 
40 
                            say_title
("".. mob_name(20006) ..":"
                            
say(""
                            
say("Willst du eine Rote Perle kaufen?"
                            
say("Du kannst sie zum Verbessern von Gegenständen gebrauchen"
                            
say(""
                            
say(""
                            
say(""
                            
say_reward("Sie kostet dich ".. Price .." Achievement-Points."
                            
local buyselection select("Rote Perle kaufen","Abbrechen"
                            if 
buyselection == 2 then 
                                
return 
                            elseif 
buyselection == 1 then 
                                
if pc.getqf("achievement_points") < Price then 
                                    say_title
("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Du hast leider nicht genügend Achievement-Points."
                                    
say("Bitte komme wieder, sobald du ".. Price pc.getqf("achievement_points") ..""
                                    
say("weitere Achievement-Points gesammelt hast"
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_reward("Sammel noch mehr Achievement-Points für dieses Item"
                                    return     
                                else 
                                    
say_title("".. mob_name(20006) ..":"
                                    
say(""
                                    
say("Hier bitte, deine Rote Perle."
                                    
say("Diese Achievement-Points sind mir diese Perle wert."
                                    
say("Passe gut auf sie auf, sie ist sehr wertvoll."
                                    
say_item_vnum(27993
                                    
say(""
                                    
say(""
                                    
say(""
                                    
say_reward("Du hast eine Rote Perle erhalten"
                                    
pc.setqf("achievement_points"pc.getqf("achievement_points") - Price
                                    
cmdchat("achievementpoints ".. pc.getqf("achievement_points")) 
                                    
pc.give_item2(279941
                                
end 
                            end 
                        end
                    
elseif selectcategory == 2 then 
                        say_title
("".. mob_name(20006) ..":"
                        
say(""
                        
say("Du brauchst also Items die dich im Spielverlauf"
                        
say("weiterbringen und unterstützen?"
                        
say("Sehr gern, auch hiervon hab ich einiges im Angebot"
                        
local hilfsitems select("Exp-Ring","Handschuh des Diebes","Shop verlassen"
                        if 
hilfsitems == 3 then 
                            
return 
                        elseif 
hilfsitems == 1 then 
                            say_title
("".. mob_name(20006) ..":"
                            
say(""
                            
say("Eine gute Wahl, allerdings gibt habe ich hiervon"
                            
say("verschiedene Angebote für deine Achievement-Points."
                            
say("Einige sind natürlich besser und "
                            
say("kosten dich mehr als andere."
                            
local expringe select("3 Stunden Exp-Ring",""Abbrechen") 
                            if expringe == 2 then 
                                return 
                            elseif expringe == 1 then 
                                local Price = 10 
                                say_title("".. mob_name(20006) .."
:") 
                                say("") 
                                say("
Dieser Exp-Ring hält 30 Minuten lang.") 
                                say("
Du kannst ihn jederzeit anund ausziehen,") 
                                say("
sodass du ihn sehr effizient benutzen kannst.") 
                                say("") 
                                say("") 
                                say("") 
                                say_reward("
Das ganze würde dich ".. Price .." Achievement-Points kosten.") 
                                local buyselection = select("
Exp-Ring kaufen","Abbrechen") 
                                if buyselection == 2 then 
                                    return 
                                elseif buyselection == 1 then                                 
                                local Price = 50 
                                say_title("".. mob_name(20006) .."
:") 
                                say("") 
                                say("
Dieser Exp-Ring hält 3 Stunden    lang.") 
                                say("
Du kannst ihn jederzeit anund ausziehen,") 
                                say("
sodass du ihn sehr effizient benutzen kannst.") 
                                say("") 
                                say("") 
                                say("") 
                                say_reward("
Das ganze würde dich ".. Price .." Achievement-Points kosten.") 
                                local buyselection = select("
Exp-Ring kaufen","Abbrechen") 
                                if buyselection == 2 then 
                                    return 
                                elseif buyselection == 1 then 
                                    if pc.getqf("
achievement_points") < Price then 
                                        say_title("".. mob_name(20006) .."
:") 
                                        say("") 
                                        say("
Du hast leider nicht genügend Achievement-Points.") 
                                        say("
Bitte komme wiedersobald du ".. Price - pc.getqf("achievement_points") .."") 
                                        say("
weitere Achievement-Points gesammelt hast") 
                                        say("") 
                                        say("") 
                                        say("") 
                                        say_reward("
Sammel noch mehr Achievement-Points für dieses Item") 
                                        return     
                                    else 
                                        say_title("".. mob_name(20006) .."
:") 
                                        say("") 
                                        say("
Hier bittedein 3 stündiger Exp-Ring.") 
                                        say("
Du kannst dieses wertvolle Stück auch in einem Shop verkaufen,") 
                                        say("
falls dir mal wenig Geld zur Verfügung steht.") 
                                        say("
Aber ich denke du kannst diesen Exp-Ring auch so gut gebrauchen.") 
                                        say("
Passe gut auf ihn auf.") 
                                        say_item_vnum(72003) 
                                        say_reward("
Du hast einen 3 stündigen Exp-Ring erhalten") 
                                        pc.setqf("
achievement_points", pc.getqf("achievement_points") - Price) 
                                        cmdchat("
achievementpoints ".. pc.getqf("achievement_points")) 
                                        pc.give_item2(72003, 1) 
                                                               
                                        end 
                                    end 
                                end 
                            end 
                        elseif hilfsitems == 2 then 
                            say_title("".. mob_name(20006) .."
:") 
                            say("") 
                            say("
Eine gute Wahlallerdings gibt habe ich hiervon") 
                            say("
verschiedene Angebote für deine Achievement-Points.") 
                            say("
Einige sind natürlich besser und ") 
                            say("
kosten dich mehr als andere.") 
                            local handschuhe = select("
3 Stunden Diebeshandschuh","Abbrechen") 
                            if handschuhe == 2 then 
                                return 
                            
                            elseif handschuhe == 1 then 
                                local Price = 30
                                say_title("".. mob_name(20006) .."
:") 
                                say("") 
                                say("
Dieser Diebeshandschuh hält 3 Stunden    lang.") 
                                say("
Du kannst ihn jederzeit anund ausziehen,") 
                                say("
sodass du ihn sehr effizient benutzen kannst.") 
                                say("") 
                                say("") 
                                say("") 
                                say_reward("
Das ganze würde dich ".. Price .." Achievement-Points kosten.") 
                                local buyselection = select("
Diebeshandschuh kaufen","Abbrechen") 
                                if buyselection == 2 then 
                                    return 
                                elseif buyselection == 1 then 
                                    if pc.getqf("
achievement_points") < Price then 
                                        say_title("".. mob_name(20006) .."
:") 
                                        say("") 
                                        say("
Du hast leider nicht genügend Achievement-Points.") 
                                        say("
Bitte komme wiedersobald du ".. Price - pc.getqf("achievement_points") .."") 
                                        say("
weitere Achievement-Points gesammelt hast") 
                                        say("") 
                                        say("") 
                                        say("") 
                                        say_reward("
Sammel noch mehr Achievement-Points für dieses Item") 
                                        return     
                                    else 
                                        say_title("".. mob_name(20006) .."
:") 
                                        say("") 
                                        say("
Hier bittedein 3 stündiger Diebeshandschuh.") 
                                        say("
Du kannst dieses wertvolle Stück auch in einem Shop verkaufen,") 
                                        say("
falls dir mal wenig Geld zur Verfügung steht.") 
                                        say("
Aber ich denke du kannst diesen Diebeshandschuh auch so gut gebrauchen.") 
                                        say("
Passe gut auf ihn auf.") 
                                        say_item_vnum(72006) 
                                        say_reward("
Du hast einen 3 stündigen Diebeshandschuh erhalten") 
                                        pc.setqf("
achievement_points", pc.getqf("achievement_points") - Price) 
                                        cmdchat("
achievementpoints ".. pc.getqf("achievement_points")) 
                                        pc.give_item2(72006, 1) 
                                                                  
                                        end 
                                    end 
                                end 
                            end 
                        
                        elseif selectcategory == 4 then 
                        say_title("".. mob_name(20006) .."
:") 
                        say("") 
                        say("
Du hättest gerne Bonus-Items für") 
                        say("
deine Achievement-Points?") 
                        say("
Die Bonus-Items sind sehr wertvollda sie") 
                        say("
dich im Spielverlauf unterstützten.") 
                        local bonusitems = select("
Gegenstand verstärken","Gegenstand verzaubern","Shop verlassen") 
                        if bonusitems == 3 then 
                            return 
                        elseif bonusitems == 1 then 
                            local Price = 10 
                            say_title("".. mob_name(20006) .."
:") 
                            say("") 
                            say("
Das Item Gegenstand verstärken verstärkt") 
                            say("
deine Itemssodass sie einen Bonus erhalten.") 
                            say("
Er ist sehr begehrtda die Items mit Bonis") 
                            say("
einen sehr großen Wert besitzen.") 
                            say("") 
                            say("") 
                            say("") 
                            say_reward("
Es kostet dich ".. Price .." Achievement-Points.") 
                            local buyselection = select("
Gegenstand verstärken kaufen","Abbrechen") 
                            if buyselection == 2 then 
                                return 
                            elseif buyselection == 1 then 
                                if pc.getqf("
achievement_points") < Price then 
                                    say_title("".. mob_name(20006) .."
:") 
                                    say("") 
                                    say("
Du hast leider nicht genügend Achievement-Points.") 
                                    say("
Bitte komme wiedersobald du ".. Price - pc.getqf("achievement_points") .."") 
                                    say("
weitere Achievement-Points gesammelt hast") 
                                    say("") 
                                    say("") 
                                    say("") 
                                    say_reward("
Sammel noch mehr Achievement-Points für dieses Item") 
                                    return     
                                else 
                                    say_title("".. mob_name(20006) .."
:") 
                                    say("") 
                                    say("
Hier bittedeine Gegenstand verstärken.") 
                                    say("
Ich wünsche dir viel Erfolg mit den Bonis,") 
                                    say("
immerhin waren das meine Gegenstand verstärken.") 
                                    say("") 
                                    say("") 
                                    say_item_vnum(71085) 
                                    say_reward("
Du hast 10x Gegenstand verstärken erhalten") 
                                    pc.setqf("
achievement_points", pc.getqf("achievement_points") - Price) 
                                    cmdchat("
achievementpoints ".. pc.getqf("achievement_points")) 
                                    pc.give_item2(71085, 10) 
                                end 
                            end                         
                        elseif bonusitems == 2 then 
                            local Price = 30 
                            say_title("".. mob_name(20006) .."
:") 
                            say("") 
                            say("
Das Item Gegenstand verzaubern verzaubert") 
                            say("
deine bereits vorhanden Bonis eines Items.") 
                            say("
Eventuell hast du großes Glück damit.") 
                            say("") 
                            say("") 
                            say("") 
                            say_reward("
Er kostet dich ".. Price .." Achievement-Points.") 
                            local buyselection = select("
Gegenstand verzaubern kaufen","Abbrechen") 
                            if buyselection == 2 then 
                                return 
                            elseif buyselection == 1 then 
                                if pc.getqf("
achievement_points") < Price then 
                                    say_title("".. mob_name(20006) .."
:") 
                                    say("") 
                                    say("
Du hast leider nicht genügend Achievement-Points.") 
                                    say("
Bitte komme wiedersobald du ".. Price - pc.getqf("achievement_points") .."") 
                                    say("
weitere Achievement-Points gesammelt hast") 
                                    say("") 
                                    say("") 
                                    say("") 
                                    say_reward("
Sammel noch mehr Achievement-Points für dieses Item") 
                                    return     
                                else 
                                    say_title("".. mob_name(20006) .."
:") 
                                    say("") 
                                    say("
Hier bittedeine Gegenstand verzaubern.") 
                                    say("
Sie sind nicht nur wertvollsondern auch") 
                                    say("
sehr begehrtsodass du beim Verkauf") 
                                    say("
einen hohen Preis erzielen könntest.") 
                                    say("") 
                                    say_item_vnum(71084) 
                                    say_reward("
Du hast 20x Gegenstand verzaubern erhalten") 
                                    pc.setqf("
achievement_points", pc.getqf("achievement_points") - Price) 
                                    cmdchat("
achievementpoints ".. pc.getqf("achievement_points")) 
                                    pc.give_item2(71084, 20) 
                                                           
                                end 
                            end 
                        end 
                    end 
                end 
            end 
        end 
    end 
end 

die quest läuft einbahnfrei aber das problem ist das ich nicht die shops auf machen kann bzw die punkte ned kommen aber es werden die punkte ned gut geschrieben

[/php]
quest teleporter begin
state start begin
when info or button begin
say_title("Handelsmap")
say("Auf die Handelsmap warpen?")

local s = select("Ja","Nein")
if s == 1 then
if pc.get_level()>= 1 then --lvl eintrag
pc.warp(912365400, 91236500)
else
chat("Dein Level ist zu Niedrig.")
end
elseif s == 2 then
return

end
end
end
end
end
[/php]

stimmt die so ? weil iwie klappt des ned so wirklich...

PHP Code:
quest teleporter begin 
    state start begin 
        when info 
or button begin 
            say_title
("Handelsmap"
            
say("Auf die Handelsmap warpen?")
            
            
local s select("Ja","Nein"
            if 
== 1 then 
                
if pc.get_level()>= 1 then     --lvl eintrag 
                    pc
.warp(91236540091236500)
                else
                    
chat("Dein Level ist zu Niedrig.")
                
end
            
elseif == 2 then 
                
return
               
                
end
            end 
        end 
    end 
end 
wo ist da der fehler??