Pack - Quests

[K3nkσz 824]

Boas pessoal,

Encontrei algumas quests, já existentes, mas sem buggs, e mais pequenas nesse sentido.

Guerra de Reinos:

quest forked_road begin

state start begin

when login with forked.isforkedmapindex( pc.get_map_index() ) == true begin

if game.get_event_flag("threeway_war") == 0 then

warp_to_village()

else

local noticeShow = false

if forked.is_registered_user() == false then

forked.register_user()

forked.setdeadcount()

pc.remove_item(50089)

noticeShow = true

end

if forked.getdeadcount() <= 0 then

warp_to_village()

elseif true == noticeShow then

if forked.issungzimapindex( pc.get_map_index() ) == true then

say( locale.forked_condition2 )

say( locale.NOTICE_COLOR..locale.forked_rule_sungzi )

else

say( locale.forked_condition )

say( locale.NOTICE_COLOR..locale.forked_rule )

say_item_vnum(50089)

end

end

end

end

when 11001.chat.locale.forked_man_chat or 11003.chat.locale.forked_man_chat or 11005.chat.locale.forked_man_chat begin

if game.get_event_flag("threeway_war") == 0 then

say(locale.forked_man_say_cant)

else

say(locale.forked_man_say)

local s = select(locale.forked_enter,locale.forked_no_enter)

if s == 1 then

local limit = math.min(game.get_event_flag("threeway_war_level") , 30)

if pc.get_level() < limit then

say("Para entrares na guerra de reinos o teu nível deve ser "..limit.."")

return

end

local canJoin = false

if (pc.getempire() == 1 and game.get_event_flag("threeway_war_open_gate1" ) != 0) or

(pc.getempire() == 2 and game.get_event_flag("threeway_war_open_gate2" ) != 0) or

(pc.getempire() == 3 and game.get_event_flag("threeway_war_open_gate3" ) != 0) then

canJoin = true

else

say( locale.forked_man_say_you_cant2 )

end

if true == canJoin then

pc.warp( forked.get_pass_start_pos() )

else

say("Não podes entrar, as portas estão fechadas, já começou!")

say("Agora só tem que lutar pelo teu reino, dei-a força no chat!")

end

end

end

end

when 1306.kill with forked.isforkedmapindex(pc.get_map_index()) == true begin

game.drop_item(50089, 1)

----"1234567890123456789012345678901234567890123456789 0"|

say("Se a pedra for aberta por")

say("o item, todos os jogadores vão")

say("ser postos na rua.")

say("Ninguém mais volta.")

say("")

end

when 1902.kill with forked.issungzimapindex(pc.get_map_index()) == true begin

if 0 == game.get_event_flag("threeway_war") then

return

end

local remainBossCount = game.get_event_flag("threeway_war_boss_count") - 1

game.set_event_flag("threeway_war_boss_count", remainBossCount)

if remainBossCount > 1 then

return

end

game.set_event_flag("threeway_war", 0)

local nation = { "vermelho","amarelo","azul" }

notice_all("O reino vencedor é o reino "..nation[pc.getempire()])

warp_all_to_village(forked.getsungzimapindex(), 30)

warp_all_to_village(forked.getpassmapindexbyempire (1), 30)

warp_all_to_village(forked.getpassmapindexbyempire (2), 30)

warp_all_to_village(forked.getpassmapindexbyempire (3), 30)

end

when 20081.take with item.vnum == 50089 begin

say_in_map(pc.get_map_index(), locale.forked_open_gate)

npc.purge()

item.remove()

forked.initkillcount()

if pc.getempire() == 1 then

game.set_event_flag("threeway_war_open_gate1", 0)

notice_all("Vermelhos já entraram." )

elseif pc.getempire() == 2 then

game.set_event_flag("threeway_war_open_gate2", 0)

notice_all("Amarelos já entraram." )

elseif pc.getempire() == 3 then

game.set_event_flag("threeway_war_open_gate3", 0)

notice_all("Azuis já entraram." )

else

say(locale.forked_man_say_you_cant2 )

end

local x, y = forked.get_sungzi_start_pos()

forked.warp_all_in_map( pc.get_map_index(), forked.getsungzimapindex(), x, y, 10)

end

when 11001.chat."GM; Guerra de Reinos?" or 11003.chat."GM; Guerra de Reinos??" or 11005.chat."GM: Guerra de Reinos?" with pc.is_gm() begin

local s = select( "Iniciar a Guerra!" , "Fechar a Guerra!" );

if s == 1 then

-- ±âḿ¡ ÀÖ´ø ¸÷À» ¸gµÎ á×ÀδÙ

forked.purge_all_monsters()

-- ãê±âÈ*

forked.initforked()

-- ½ãÀÛ çã·¡±× ¼³á¤

game.set_event_flag("threeway_war", 1)

-- »ï°Å¸® ÀüÅõ ų á¦çÑ ¼³á¤

game.set_event_flag("threeway_war_dead_count", 25) -- ºÎÈ° °¡´é ¼Ö

if true == is_test_server() then

game.set_event_flag("threeway_war_kill_count", 5) -- PC ¸Î ¸í á×ÀÌ¸é ¼øÀ§ ¸Ô¿© Å»¶Ô½ãų °íÀΰ¡

else

game.set_event_flag("threeway_war_kill_count", 250) -- PC ¸Î ¸í á×ÀÌ¸é ¼øÀ§ ¸Ô¿© Å»¶Ô½ãų °íÀΰ¡

end

game.set_event_flag("threeway_war_boss_count", 5) -- ãÖá¾ º¸½º ¸Î ¸¶¸® ¼ÒȯçÒ °íÀΰ¡

-- »ï°Å¸® ÀÔ±¸ ¿*°í/´I±â ¼³á¤

game.set_event_flag("threeway_war_open_gate1", 1)

game.set_event_flag("threeway_war_open_gate2", 1)

game.set_event_flag("threeway_war_open_gate3", 1)

say("Three way war has begun.")

say("")

wait()

-- ¸ó½ºÅí »õ·ó°Ô ¸®á¨

regen_in_map( forked.getpassmapindexbyempire(1), forked.getpasspathbyempire(1) .."regen.txt" )

regen_in_map( forked.getpassmapindexbyempire(1), forked.getpasspathbyempire(1) .."npc.txt" )

regen_in_map( forked.getpassmapindexbyempire(2), forked.getpasspathbyempire(2) .."regen.txt" )

regen_in_map( forked.getpassmapindexbyempire(2), forked.getpasspathbyempire(2) .."npc.txt" )

regen_in_map( forked.getpassmapindexbyempire(3), forked.getpasspathbyempire(3) .."regen.txt" )

regen_in_map( forked.getpassmapindexbyempire(3), forked.getpasspathbyempire(3) .."npc.txt" )

notice_all("A guerra de reinos foi iniciada.")

notice_all("Fala com o guarda para entrar na batalha!")

elseif 2 == s then

game.set_event_flag("threeway_war", 0)

notice_all("A guerra de reinos foi fechada.")

forked.purge_all_monsters()

warp_all_to_village(forked.getsungzimapindex(), 1)

warp_all_to_village(forked.getpassmapindexbyempire (1), 1)

warp_all_to_village(forked.getpassmapindexbyempire (2), 1)

warp_all_to_village(forked.getpassmapindexbyempire (3), 1)

end

end

end

end

Pvp (Player vs Player):

quest player_kill begin

state start begin

when login or levelup or enter with pc.get_level() >= 80 begin

set_state(player_kill1)

end

end

state player_kill1 begin

when letter begin

send_letter("Quest PvP!")

end

when button or info begin

say_title("By TheSubKiller")

say("Olá jovem lutador.")

say("Queres ganhar muito dinheiro?")

say("Mata apenas 30 player.")

say("Nem sabes que recompensa te espera.")

say_reward("Mata 30 player!")

say("")

pc.setqf("state", 30)

q.set_counter("kills", 30)

set_state (kill)

end

end

state kill begin

when letter begin

send_letter("Quest PvP!")

end

when button or info begin

say_title("Tarefa:")

say_reward( " Podes matar player de outros reinos "..pc.getqf("state").." depois apenas cobra a tua recompensa.")

say("")

end

when kill begin

if npc.is_pc() and npc.empire != pc.empire then

local count = pc.getqf("state") - 1

if count <= 30 then

pc.setqf("state", count)

q.set_counter("kills", -count)

end

if count == 0 then

say_title("Parabéns!")

say("Acabaste de matar os 30 player!")

say("Agora terás a tua recompensa.")

say_reward("Tens +100 de defesa para sempre..")

say_reward("Tens +500.000.000 Exp")

say_reward("Tens +100.000.000 Yang")

affect.add_collect(apply.DEF_GRADE_BONUS,100,60*60*24*365*60)

pc.change_money(100000000)

pc.give_exp2(500000000)

chat("".. pc.get_name() .." !")

chat(" Agora és um grande assassino!")

clear_letter()

set_state(__COMPLETE__)

end

end

end

end

state __COMPLETE__ begin

end

end

Silenciar chat:

quest callar_jugador begin

state start begin

when 70021.chat."Bloquear Chat" with pc.is_gm() begin

say_title ("Boas, ".. pc.get_name() ..".")

say("Posso te ajudar a Bloquear Chat de algum player.")

say("")

say_reward("Que queres fazer?")

say("")

local a = select ( "Bloquear Chat" , "Desbloquear Chat" , "Cancelar" )

if a == 1 then

say("")

say("Qual o nome do player que queres Bloquear Chat?")

say("")

local Nome = input()

say("Tempo em segundos.")

say("Exemplo:")

say("5 Min = 300")

say("10 Min = 600")

say("1 Hora = 3600")

say("Quanto tempo queres bloquear o ".. nome .." ?")

local tiempo = input()

command("block_chat ".. nome .." ".. Tempo .."")

notice_all("O jogador ".. nome .." esta com o chat bloquado por ".. tiempo .." segundos")

notice_all("Script By TheSubKiller")

end

if a == 2 then

say("")

say("Queres Desbloquear Chat?")

say("")

local nomdes = input()

command("block_chat ".. nomdes .." 0")

notice_all("Foi Desbloquear Chat ".. nomdes .." ")

end

if a == 3 then

return

end

end

end

end

Vender EXP (XP):

say_title ("Exp Master")

say ("Olá, posso dar-lhe Exp")

say ("Quanto você quer exp")

locais exp = select ("10kk", "50kk", "100kk", "500kk", "eu pensei")

se exp == 5 then retorno da função end

say (nome) dizer (color256 (5,71,246) ..

color256 nome .. (196196196))

end if exp == 1 then

say_title ("Exp Master")

say_reward ("Aqui você vai exp 10kk")

PC. give_exp2 (10000000)

say ("Você recebeu 10.000.000 Pontos Exp")

end else elseif exp == 2 then

say_title ("Exp Master")

say_reward ("Aqui você vai exp 50kk")

PC. give_exp2 (50000000)

say ("Você recebeu 50.000.000 Pontos Exp")

end else elseif exp == 3, em seguida,

say_title ("Exp Master")

say_reward ("Aqui você vai Exp 100kk")

PC. give_exp2 (100 milhões)

say ("Você recebeu 100.000.000 Pontos Exp")

end else elseif exp == 4 then

say_title ("Exp Master")

say_reward ("Aqui você vai Exp 500kk")

PC. give_exp2 (500000000)

say ("Você recebeu 500.000.000 Pontos Exp")

else return end end

Bannir jogador in-game: (ONDE DIZ : BAN0 METAM http://cyber-gamers.org/public/style_emoticons/default/ban.gif, PORQUE O http://cyber-gamers.org/public/style_emoticons/default/ban.gif DAVA UM SMILE)

quest BAN0_item begin

state start begin

when 70022.use begin

say_title ("Hello, ".. pc.get_name() ..".")

say("(SA)Katamoto: BAN0 or unban a player")

say("")

say("Please Think wisely")

local a = select ( " BAN0 Player" , "Unban player" , "Exit" )

if a == 1 then

say("Name of player who you wanna BAN0")

say("")

say("Info : Abusing GM power and you will be removed")

local cblock = input()

say("Reason:")

local creason = input()

game.set_event_flag("banned_".. cblock ..(),1")

notice_all("Player: ".. cblock .." is banned. reason: ".. creason.."")

notice_all("<ATTENTION>Play by the rules!!")

end

if a == 2 then

say("Insert name of player who will be unbanned")

local cublock = input()

game.set_event_flag("banned_".. culock ..(),0")

notice_all(" BAN0 for player: ".. cublock .." was removed")

end

if a == 3 then

return

end

end

end

end

Reportar jogador in-game: (ONDE DIZ : BAN0 METAM http://cyber-gamers.org/public/style_emoticons/default/ban.gif, PORQUE O http://cyber-gamers.org/public/style_emoticons/default/ban.gif DAVA UM SMILE)

quest reporthack begin

state start begin

when login begin

set_state(report)

end

end

state report begin

when letter begin

send_letter("Report player")

end

when button or info begin

say_title("Report player")

say("IMPORTANT: abusing this system will lead into a BAN0!")

say("Here you can report hackers to the staff.")

say("You can report a player for:")

say("Damage hack")

say("Trade bug")

say("Bad language")

say("GM impersonation")

say("Player impersonation")

say("")

say_reward("Are you sure you want to report someone?")

local a = select("Yes","No")

if a == 2 then

return

end

say_title("Report player")

say("IMPORTANT: abusing this system will lead into a BAN0!")

say("What is the name off the player?")

say("")

say_reward("Try to spell the name correctly.")

local name = input()

if name == "" then

return

end

local u_vid = find_pc_by_name(name)

if u_vid == 0 then

say_title("Report player")

say("IMPORTANT: abusing this system will lead into a BAN0!")

say("This player is not online.")

return

end

say("What hack/ bug is used?")

local reporter = pc.get_name()

local b = select("Damage hack", "Trade bug", "Bad language", "GM impersonation", "Player impersonation","Don't report")

if b == 1 then

char_log(1, reporter, name)

elseif b == 2 then

char_log(2, reporter, name)

elseif b == 3 then

char_log(3, reporter, name)

elseif b == 4 then

char_log(4, reporter, name)

elseif b == 5 then

char_log(5, reporter, name)

else

return

end

say_title("Report player")

say("IMPORTANT: abusing this system will lead into a BAN0!")

say("IMPORTANT: your name has been registered too")

say("Thank you for the report")

say("The team will be investigation this person soon.")

say("")

say("Report another player? press 'n'")

end

end

end

Quest que não sei o que faz, penso que dê atributos :o

quest phoenix begin

state start begin

when 53001.use begin

local old_horse_name = horse.get_name() ;

if string.len(old_horse_name) == 0 then

say_title("PhÖnix")

say_reward("Dein PhÖnix besitzt noch keinen Namen.")

say_reward("Du kannst ihm einen geben in dem du das")

say_reward("Haustierzucker benutzt, diese bekommst du")

say_reward("beim Start oder bei der Gemichtwarenhädlerin!")

say_reward("")

say_reward("ACHTUNG: Alle Haustiere Besitzen dann den")

say_reward("gleichen Namen!")

return

end

chat("Dein Phoenix wurde gerufen!")

affect.add_collect(apply.CON,25,60*60*24*365*60)

affect.add_collect(apply.INT,10,60*60*24*365*60)

affect.add_collect(apply.STR,10,60*60*24*365*60)

affect.add_collect(apply.DEX,10,60*60*24*365*60)

affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)

horse.set_level ("22")

horse.unsummon() horse.summon()

set_state(back)

end

end

state back begin

when 53001.use begin

chat("Dein Phoenix wurde weggeschickt!")

affect.remove_collect(apply.CON,25,60*60*24*365*60)

affect.remove_collect(apply.INT,10,60*60*24*365*60)

affect.remove_collect(apply.STR,10,60*60*24*365*60)

affect.remove_collect(apply.DEX,10,60*60*24*365*60)

affect.remove_collect(apply.MAX_HP,5000,60*60*24*365*60)

horse.unsummon()

horse.set_level ("1")

set_state(start)

end

end

end

Creditos: Elitepvpers.

http://cyber-gamers.org/public/style_emoticons/default/451960.gif :))

[Cσяvσ⋆ 1,804]

Isto já não tava por cá? ;o

[K3nkσz 824]

Isto já não tava por cá? ;o

Sim, mas tudo separado tirando a ultima que não estava penso eu.

Penso que assim seja melhor para um novo membro encontrar as suas quests, pois aqui tem mais que 1 , e são as mais procuradas.

[Cσяvσ⋆ 1,804]

Sim, mas tudo separado tirando a ultima que não estava penso eu.

Penso que assim seja melhor para um novo membro encontrar as suas quests, pois aqui tem mais que 1 , e são as mais procuradas.

So whats the point... acrescenta mais quests ai, e faz um mega pack <.<

[K3nkσz 824]

So whats the point... acrescenta mais quests ai, e faz um mega pack <.<

Vou ver se encontro ..

['PACI 2,317]

a ultima quest é para invocar a Fénix