Cod: Selectaţi tot

quest ingame_lista begin
	state start begin
		when 20011.chat."Lista cu cei mai buni jucatori" begin
			local rang = mysql_query("SELECT * from player.player where name not like '[%' order by level DESC, exp DESC;")
			local rang_len = table.getn(rang.name)
			local splits = math.floor((rang_len + 5) / 10)
			local pos = 1
			for a = 1, splits do
				say_reward("Pagina cu lista de rang "..a)
				say()
				for b = 1, 10 do
					local c = 10 * ( a - 1 ) + b
					say("Locul "..c..": Numele: "..rang.name[c]..", Level: "..rang.level[c]..", Experienta: "..rang.exp[c])
					if c == rang_len then
						say("Ati atins sfarsitul listei")
						wait()
						return
					end					
				end		
				local sel = select("Mai departe", "Anuleaza")
				if sel == 2 then
					say("Okey.Pe mai tarziu")
					return
				end
			end
		end
	end
end

Cod: Selectaţi tot

quest pvp begin    
    state start begin    
        when login or levelup with pc.get_level() >= 75 and pc.getqf("level") == 0 begin
            say("Felicitari!!")
            say("Ai ajuns la levelul 75 ,")
            say("si asta e intradevar uimitor.")
            say("Incepand de acum, partea PvP va ")
            say("deveni din ce in ce mai interesanta..")
            say("Din aceasta cauza ne-am gandit la ceva.")
            say("De acum vei primi pentru uciderea altor")
            say("Playeri anumite bonusuri permanente!")
            say_reward("50 de jucatori omorati = 10% Semi-Om")
            say_reward("100 de jucatori omorati = 10% Semi-Om , 1.000 PV")
            say_reward("200 de jucatori omorati = 20% Semi-Om , 1.000 PV,")
            say_reward("500 de jucatori omorati = 20% Semi-Om , 3.000 PV,")
            pc.setqf("level", 1)
        end
        when kill with npc.is_pc() begin
            if get_time() < pc.getqf("kill_time") then 
                chat("Doua minute nu au trecut inca!")
                chat("Nu primesti nici un punct!")
                return
            end    
            chat("Felicitari!Ai primit un punct")
            chat("Urmatorul punct il poti primi in doua minute")
            chat("Momentan ai "..pc.getqf("kill_punkte").." Punct(e)")
            pc.setqf("kill_punkte", pc.getqf("kill_punkte")+1)
            pc.setqf("kill_time", get_time() + 60*2) 
            if pc.getqf("kill_punkte") == 50 then
                affect.add_collect(apply.ATTBONUS_HUMAN,10,60*60*24*365*60)
                say("Nu-i rau!Tocmai ai omorat 50 de playeri")
                say("Ca bonus primesti 10% Semi-Om")
            elseif pc.getqf("kill_punkte") == 100 then
                affect.add_collect(apply.MAX_HP,1000,60*60*24*365*60)
                say("Felicitari!Tocmau ai omorat 100 de playeri")
                say("Ca bonus primesti 1000 PV.")
            elseif pc.getqf("kill_punkte") == 200 then
                affect.add_collect(apply.ATTBONUS_HUMAN,10,60*60*24*365*60)
                say("Oho super!Tocmai ce ai omorat 200 de playeri.")
                say_reward("Ca bonus primesti inca 10% Semi-Om")
            elseif pc.getqf("kill_punkte") == 500 then
                affect.add_collect(apply.MAX_HP,2000,60*60*24*365*60)
                say("WOW!WOW!WOW!Ai reusit!Ai omorat 500 de playeri")
                say("Ultimul tau bonus e 2000 PV!")
            end
        end
    end
end  

Cod: Selectaţi tot

quest kopfgeld_sys begin
	state start begin
		when 20095.chat."Recompensa" begin
			say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
			say()
			say("Pe ce jucator vrei sa pui o recompensa?")
			local target_name = tostring(input())
			if target_name == pc.get_name() or target_name == "" then return end
			if mysql_query("select exists from player.player where name = '"..target_name.."';") != "1" then return end
			if mysql_query("select kopfgeld from player.player where name = '"..target_name.."';") != "0" then
				say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
				say_reward(string.format("%d", target_name))
				say()
				say("Pe capul acestui jucator este deja o recompensa pusa!")
				return
			end
			say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
			say()
			say("Introdu suma:")
			local lohn = tonumber(input())
			if lohn == 0 or lohn > pc.get_money() then return end
			say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
			say_reward(string.format("Tinta: %d", target_name))
			say_reward(string.format("Recompensa: %d Yang", lohn))
			say()
			if select("Accepta","Anuleaza") == 2 then return end
			mysql_query("update player.player set kopfgeld = '"..lohn.."' where name = '"..target_name.."';")
			pc.change_money(-lohn)
		end
		when kill with npc.is_pc() begin
			vid = npc.get_vid()
			ask = mysql_query("select kopfgeld from player.player where id = '"..vid.."';")
			if ask != "0" then
				send_letter("Recompensa")
				--mysql_query("update player.player set kopfgeld = '0' where id = '"..vid.."';")
			end
		end
		when button or info begin
			if pc.getqf("info") == 0 then
				say_title("Recompensa")
				say()
				say("Pe capul tau au fost pusi")
				say_reward(string.format("%d Yang", ask))
				say("Yang.")
				say("Fii atent sa ai destul loc liber la Yang.")
				wait()
				send_letter("Rascupara recompensa")
				pc.setqf("info",1)
			if pc.getqf("info") == 1 then
				say_title("Recompensa")
				say_reward(string.format("%d Yang", ask))
				if select("Rascumpara","Inapoi") == 2 then return send_letter("Kopfgeld") end
				local ask = mysql_query("select kopfgeld from player.player where id = '"..vid.."';")
				local max_yang = pc.get_money()+ask
				if max_yang > 1999999999 then return send_letter("Kopfgeld") end
				pc.change_money(ask)
				pc.setqf("info",0)
				clear_letter()
			end
		end
	end
end
end