testes123

Boas Cyber-Gamers
quest skill begin
state start begin
when 20095.chat."Habilidades a P." begin
say_title("By TheSubKiller")
say_title("Habilidades a P.:")
say("Boas lutador.")
say("Posso porte Habilidades a P.?")
say_reward("Deves ser lvl 99.")
local abi = select ( "Sim" , "Não" )
if abi == 1 then
if pc . level >= 99 then
say_title("By TheSubKiller")
say("Que raça és?")
local master = select ("Guerrero","Ninja","Sura","Shaman","Cancelar")
if master == 1 then
local guerrero = select ("Corpo","Mental")
if guerrero == 1 then
pc.set_skill_level (1,20)
pc.set_skill_level (2,20)
pc.set_skill_level (3,20)
pc.set_skill_level (4,20)
pc.set_skill_level (5,20)
else guerrero == 2 then
pc.set_skill_level (16,20)
pc.set_skill_level (17,20)
pc.set_skill_level (18,20)
pc.set_skill_level (19,20)
pc.set_skill_level (20,20)
if master == 2 then
local ninja = select ("Adagas","Arco")
if ninja == 1 then
pc.set_skill_level (31,20)
pc.set_skill_level (32,20)
pc.set_skill_level (33,20)
pc.set_skill_level (34,20)
pc.set_skill_level (35,20)
else ninja == 2 then
pc.set_skill_level (46,20)
pc.set_skill_level (47,20)
pc.set_skill_level (48,20)
pc.set_skill_level (49,20)
pc.set_skill_level (50,20)
if master == 3 then
local sura = select ("Magia Negra","Armas")
if sura == 1 then
pc.set_skill_level (76,20)
pc.set_skill_level (77,20)
pc.set_skill_level (78,20)
pc.set_skill_level (79,20)
pc.set_skill_level (80,20)
pc.set_skill_level (81,20)
else sura == 2 then
pc.set_skill_level (61,20)
pc.set_skill_level (62,20)
pc.set_skill_level (63,20)
pc.set_skill_level (64,20)
pc.set_skill_level (65,20)
pc.set_skill_level (66,20)
if master == 4 then
local chaman = select ("Dragão","Cura")
if chaman == 1 then
pc.set_skill_level (91,20)
pc.set_skill_level (92,20)
pc.set_skill_level (93,20)
pc.set_skill_level (94,20)
pc.set_skill_level (95,20)
pc.set_skill_level (96,20)
else chaman == 2 then
pc.set_skill_level (106,20)
pc.set_skill_level (107,20)
pc.set_skill_level (108,20)
pc.set_skill_level (109,20)
pc.set_skill_level (110,20)
pc.set_skill_level (111,20)
if master == 5 then
end
else abi == 2 then
end
end
end
end

Boas Cyber-Gamers
quest bomano begin
state start begin
when login begin
notice("Feliz ano novo a todos os player.")
end

Boas Cyber-Gamers
quest shutdown begin
state start begin
when 20094.chat."Desligar o Servidor" with pc . is_gm ( ) == true begin
say_title ( "By TheSubKiller" )
say_title ( "Shutdown:" )
say ( "Queres Desligar o Servidor?" )
local siono = select ( "Sim","Não" )
if siono == 2 then
return
elseif siono == 1 then
say_title ( "Shutdown:" )
say ( "O servidor irá desligar." )
local ciao = tostring(input())
timer ( "shutdown" , 900 )
notice_all ( "Servidor desligará daqui a 30min." )
notice_all ( "Desliga a conta para ano haver perdas" )
notice_all ( "O aviso foi dado." )
end
end
when shutdown.timer begin
notice_all ( "Servidor desligará daqui a 15min." )
notice_all ( "Desliga a conta para ano haver perdas" )
notice_all ( "O aviso foi dado." )
timer ( "shutdown2" ,899 )
end
when shutdown2.timer begin
notice_all ( "Servidor desligará daqui a 1min." )
notice_all ( "Desliga a conta para ano haver perdas" )
notice_all ( "O aviso foi dado." )
timer ( "shutdown3" , 20 )
end
when shutdown3.timer begin
notice_all ( "Servidor desligará daqui a 40seg." )
notice_all ( "Desliga a conta para ano haver perdas" )
notice_all ( "O aviso foi dado." )
timer ( "shutdown4", 31 )
end
when shutdown4.timer begin
notice_all ( "Reboot!" )
game . set_event_flag ( "test" , 1 )
timer ( "shutdown5" , 1 )
end
when shutdown5.timer begin
command ( "shutdown" )
game . set_event_flag ( "test" , 0 )
end
end
end

Boas Cyber-Gamers
quest phoenix begin
state start begin
when 71114.use begin
if pc.getqf("phoenix1") < 1 then
chat("Invocaste a Phoenix!")
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()
pc.setqf("phoenix1", 2)
elseif pc.getqf("phoenix1") == 2 then
chat("O Phoenix foi enviada para o celeiro!")
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")
pc.setqf("phoenix1", 0)
end
end
end
end
Creditos:Metin2Elements

Boas Cyber-Gamers
Apenas trás as texturas para armas...





Download: http://www.2shared.com/file/lYlCCX8w/NEW_5_Armas.html
http://www.badongo.com/file/26710706
http://depositfiles.com/files/tljhxqpnx
http://www.digzip.com/files/K6R9YI5O/_NEW_ 5 Armas_1.html
http://bayfiles.com/file/7eAF/C0H9yr/%5BNEW%5D_5_Armas.rar
http://www.mediafire.com/?6kz392at3k292uv
http://www.mirrorcreator.com/files/XDTHYVDL/_NEW__5_Armas_0.rar_links
http://rapidshare.com/files/4163759827/_NEW__5_Armas.rar
http://www.sendspace.com/file/9lsj91
http://ul.to/brizfgp8
http://www.ziddu.com/download/19083445/NEW5Armas.rar.html
http://www8.zippyshare.com/v/94726312/file.html

Boas Cyber-Gamers

quest anti begin state start begin when 72501.use begin if pc.getqf("Anti-Exp") == 0 then pc.setqf("Anti-Exp", 1) chat("Anti-Exp ON: a cada segundo ficaras a 0 de experiência") local ep = pc.get_exp() pc.give_exp2(-ep) timer("Experiência", 1) elseif pc.getqf("Anti-Exp") == 1 then pc.setqf("Anti-Exp", 0) chat("Anti-Exp OFF: espero que tenhas feito bons drops") end end when erfahrung.timer with pc.getqf("Anti-Exp") == 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("Experiência", 1) pc.setqf("Anti-Exp", 1) end when login with pc.getqf("Anti-Exp") == 1 begin local ep = pc.get_exp() pc.give_exp2(-ep) timer("Experiência", 1) pc.setqf("Anti-Exp", 1) end endend Fonte: epvp

Boas Cyber-Gamers
Como criar servidor de Metin2? :o
PS: O video não foi feito por mim :s

http-~~-//youtu.be/7NUR53AXXFE

http-~~-//youtu.be/dIKQfD426x8
Programas que devem ter:
ServerFiles: http://cyber-gamers....idyndns-metin2/
PortMap: http://uploading.com...tMap%2B1.6.rar/
Hamachi: http://www.baixaki.c...ad/hamachi-.htm
Navicat: http://www.baixaki.c...t-for-mysql.htm
Xampp: http://www.baixaki.c...nload/xampp.htm
Site (no video é o mesmo que o index.php e config.php): http://cyber-gamers....-igual-o-do-pt/
Client: http://cyber-gamers....idyndns-metin2/
Espero ajudar quem está a começar a criar o seu próprio servidor de Metin2 :D

Boas Cyber-Gamers

Os Sura são Lutadores que receberam poderes mágicos quando aceitaram a colocação da Semente do Diabo no seu braço. Por isso conseguem manejar com destreza uma espada em combate corpo-a-corpo ou usar magia para dar dano à distância.
Com especialização estes conseguem melhorar ataques mágicos ou ganhar magias de suporte.

Stats:
2 int (inteligencia) 1 vit (vida) para suras é muito importante a inteligencia , depois de Int estiver Full , opta em por Dex ou Str

Skills Sura Magia:

Sura Magia PVM (upar):
Ataque Chama , Protecção Sombria , Espirito Chama , Obscuro

Sura Magia PVP (Duelos):
Espirito Chama , Protecção Sombria , Obscuro , Bola de Energia

Sura Magia PVP e PVM (equilibrado):
Espirito Chama , Protecção Sombria , Ataque Chama e Obscuro

Skills Sura Armas:

Sura Armas PVM (upar):
Lamina Encantada , Armadura Negra , Espiral do Dragão e Ataque do Dedo

Sura Armas PVP (Duelos):
Lamina Encantada , Remover Efeito , Ataque do Dedo e Receio

Sura Armas PVP e PVM (equilibrado):
Lamina Encantada , Armadura Negra , Ataque do Dedo e Remover Efeito

Boas Cyber-Gamers

Graças às suas habilidades, às armas e às armaduras pesadas, os Guerreiros têm um papel importante nos combates Corpo-a-Corpo. Eles são conhecidos por ter uma grande força física e uma mente equilibrada.
De acordo com a sua especialização, estes poderão causar dano elevado com armas de duas mãos ou defender-se dos ataques de inimigos com empunhando espada e escudo.
Stats:
Em Warrior Corpo ou Mental , os Stats são os mesmos…
1 vit (vida) , 2 str (força) ou então o contrário.
Quando a Str estiver Full , será 1 vit (vida) , 2 dex (defesa)
Skills Warrior Corpo:
Para PVM (Upar):
Aura , Rotativa , Ataque Triplo e Raiva e Investida
Para PVP (duelos):
Aura , Raiva , Investida , Rotativa e Ataque Triplo
Para PVP e PVM (equilibrado):
Aura , Raiva , Rotativa , Ataque Triplo ou Investida
Skills Warrior Mental:
Para PVM (Upar):
Corpo Forte , Força de Golpe , Terramoto e Destrutivo
Para PVP (duelos):
Corpo Forte , Força de Golpe , Destrutivo e Ataque de Espada
Para PVP e PVM (equilibrado):
Corpo Forte , Força de Golpe , Terramoto e Destrutivo

Boas Cyber-Gamers
Abençoados pelo conhecimento devido a estudos intensivos os Xamãs usam Feitiços e Magias nas suas lutas. As suas habilidades místicas ajudam tanto o próprio Xamã como os que o acompanham.
Como resultado da sua dedicação às Habilidades, os Xamãs poderão aumentar o seu dano, curar-se e invocar feitiços de ajuda.
Stats:
1 vit (vida) , 2 int (inteligencia) a Inteligencia é muito importante para Shaman , depois de Int Full , é 1 vit , 2 dex.
Skills Shaman Cura:
Shaman Cura PVM (upar):
Invocar Raio , Cura , Garra de Raios e Rapidez
Shaman Cura PVP (Duelos):
Invocar Raio , Cura , Atirar Raio e Rapidez
Shaman Cura PVP e PVM (equilibrado):
Invocar Raio , Cura , Garra de Raios e Rapidez
Skills Shaman Dragão:
Shaman Dragão PVM (upar):
Ataque do Dragão , Magia Mistica , Rugido do Dragão , Benção
Shaman Dragão PVP (Duelos):
Ataque do Dragão , Magia Mistica , Talisma Voador , Benção
Shaman Dragão PVP e PVM (equilibrado):
Ataque do Dragão , Magia Mistica , Talisma Voador , Benção

Boas Cyber-Gamers


Novo servidor de minecraft da comunidade Cyber-Gamers :D

Nome do servidor CyberCraft

Características:
[*] Servidor Survival [*]Modo PvP ON [*]Começas com equipamentos de pedra [*]24 horas por dia 7 dias por semana ON

Staff CyberCraft:
[*] [ADM] L1nk7 [*][MOD] TheSubKiller

IP:
[*] cybercraft.no-ip.org

Boas Cyber-Gamers
Que acham? (Iniciante)
0/10?

Boas Cyber-Gamers
quest login begin
state start begin
when login begin
if pc.is_gm() then
game.set_event_flag(pc.get_name(), 1)
end
chat("Servidor (Nome do servidor sem ())")
if pc.job == 0 then
chat("Char: "..pc.get_name().." - Guerreiro")
elseif pc.job == 1 then
chat("Char: "..pc.get_name().." - Ninja")
elseif pc.job == 2 then
chat("Char: "..pc.get_name().." - Sura")
elseif pc.job == 3 then
chat("Char: "..pc.get_name().." - Shaman")
end
if pc.get_map_index()==1 then
chat("Localização: Mapa Red1")
elseif pc.get_map_index()==21 then
chat("Localização: Mapa Amarelo 1")
elseif pc.get_map_index()==41 then
chat("Localização: Mapa Azul 1")
elseif pc.get_map_index()==74 then
chat("Localização: Vale do iniciante")
elseif pc.get_map_index()==75 then
chat("Localização: Vale do iniciante")
elseif pc.get_map_index()==76 then
chat("Localização: Vale do iniciante")
elseif pc.get_map_index()==77 then
chat("Localização: Vale do iniciante")
elseif pc.get_map_index()==78 then
chat("Localização: Vale do iniciante")
elseif pc.get_map_index()==99 then
chat("Localização: Quarto dragão")
elseif pc.get_map_index()==61 then
chat("Localização: Monte Sohan")
elseif pc.get_map_index()==66 then
chat("Localização: Torre do Demonio")
elseif pc.get_map_index()==65 then
chat("Localização: Templo Hwang")
elseif pc.get_map_index()==3 then
chat("Localização: Mapa Red 2")
elseif pc.get_map_index()==23 then
chat("Localização: Mapa Amarelo 2")
elseif pc.get_map_index()==204 then
chat("Localização: Novo mapa")
elseif pc.get_map_index()==112 then
chat("Localização: Dupla Arena")
elseif pc.get_map_index()==181 then
chat("Localização: Castelo de Batalha Nevado")
elseif pc.get_map_index()==182 then
chat("Localização: Castelo da Batalha")
elseif pc.get_map_index()==183 then
chat("Localização: Castelo Desert Battle")
elseif pc.get_map_index()==63 then
chat("Localização: Deserto Yongbi")
elseif pc.get_map_index()==67 then
chat("Localização: Lungsam")
elseif pc.get_map_index()==24 then
chat("Localização: GuildZone Amarelo")
elseif pc.get_map_index()==44 then
chat("Localização: GuildZone Azul")
elseif pc.get_map_index()==4 then
chat("Localização: GuildZone Red")
elseif pc.get_map_index()==107 then
chat("Localização: Calabouço macaco novato")
elseif pc.get_map_index()==108 then
chat("Localização: Calabouço macaco novato Normal")
elseif pc.get_map_index()==109 then
chat("Localização: Calabouço macaco novato Experten")
elseif pc.get_map_index()==5 then
chat("Localização: Calabouço macaco novato")
elseif pc.get_map_index()==25 then
chat("Localização: Calabouço macaco novato"")
elseif pc.get_map_index()==45 then
chat("Localização: Calabouço macaco novato"")
elseif pc.get_map_index()==62 then
chat("Localização: Terra do Fogo")
elseif pc.get_map_index()==77 then
chat("Localização: Terra do Fogo")
elseif pc.get_map_index()==70 then
chat("Localização: Vale dos Gigantes")
elseif pc.get_map_index()==113 then
chat("Localização: OX Event")
elseif pc.get_map_index()==72 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==73 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==184 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==186 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==188 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==185 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==187 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==189 then
chat("Localização: Gruta do Exílio")
elseif pc.get_map_index()==104 then
chat("Localização: Aranhas 1")
elseif pc.get_map_index()==71 then
chat("Localização: Aranhas 2")
elseif pc.get_map_index()==103 then
chat("Localização: Império duelo")
elseif pc.get_map_index()==105 then
chat("Localização: Winterland")
elseif pc.get_map_index()==110 then
chat("Localização: Gildenkrieg")
elseif pc.get_map_index()==111 then
chat("Localização: Guild War")
elseif pc.get_map_index()==68 then
chat("Localização: Lungsam")
elseif pc.get_map_index()==203 then
chat("Localização: Vila Nova")
elseif pc.get_map_index()==69 then
chat("Localização: Snakefield")
elseif pc.get_map_index()==81 then
chat("Localização: casamento")
elseif pc.get_map_index()==64 then
chat("Localização: Orktal")
end
if pc.getqf("vip") == 0 then
chat("VIP: Desactivado")
elseif pc.getqf("vip") == 1 then
chat("VIP: Activado")
end
if game.get_event_flag("[sA]Sky")== 0 and game.get_event_flag("Sky")== 0 then -- Alle GMs
chat("Contactos- Online: (nome)")
elseif game.get_event_flag("[sA]Sky")== 1 and game.get_event_flag("[sky")== 0 then -- GM1
chat("Contactos- Online: (nome)")
elseif game.get_event_flag("Sky")== 1 and game.get_event_flag("[sA]Sky")== 0 then -- GM2
chat("Contactos- Online: (nome)")
elseif game.get_event_flag("[sA]Sky")== 1 and game.get_event_flag("Sky")== 1 then -- NOCHJMD? XD
chat("Contactos- Online: (nome)")
end
end
when logout with pc.is_gm() begin
game.set_event_flag(pc.get_name(), 0)
end
end
end

Boas Cyber-Gamers
quest invasion begin state start begin
when login or levelup with pc.level >= 80 begin
set_state("inizio")
end
end
state inizio begin
when letter begin
send_letter("Parar a invasão!")
end
when button or info begin
say_title("Parar Invasion")
say ("Nossa aldeia é atacada por vários reinos inimigos, estamos em perigo!")
say ("Go e matar 10 inimigos nos reinos de lutadores de nível superior para '80!")
say ("10 para o reino de cada oponente. Você tem quatro horas para cumprir a missão")
say ("depois que" será tarde demais para nós ....")
say("")
timer("timer2" , 14400)
If pc.get_empire == 1 then
set_state("time_kill_shinsoo")
elseif pc.get_empire == 2 then
set_state("time_kill_chunjo")
elseif pc.get_empire == 3 then
set_state("time_kill_jinno")
end
end
end
state time_kill_shinsoo begin
when letter begin
send_letter("Parar a invasão! ")
end
when button or info begin
say_title("Parar a invasão antes que eles cheguem aqui! ")
say("Hai ancora " .. timer\60 .. " Minuti")
say("Hai ucciso " .. pc.getqf("killa_chunjo") .. " su 10 del Regno Chunjo")
say("Hai ucciso " .. pc.getqf("killa_jinno") .. " su 10 del Regno Jinno")
end
when kill with npc.is_pc() and pc.level >= 80 and pc.get_empire() == 2 begin
pc.setqf("killa_chunjo",pc.getqf("killa_chunjo")+1)
if pc.getqf("killa_chunjo") == 10 and pc.getqf("killa_jinno") == 10 and timer("timer2")==false then
chat ("Stop Invasion in Time!")
chat ("Vá para o comandante lhe dará uma recompensa!")
set_state("come_guardian")
end
end
when kill with npc.is_pc() and pc.level >= 80 and pc.get_empire() == 3 begin
pc.setqf("killa_jinno",pc.getqf("killa_jinno")+1)
if pc.getqf("killa_chunjo") == 10 and pc.getqf("killa_jinno") == 10 and timer("timer2")==false then
chat ("Stop Invasion in Time!")
chat ("Vá para o comandante lhe dará uma recompensa!")
set_state("come_guardian")
end
end
when timer2.timer() begin
chat("Tempo scaduto!")
chat("Missione Fallita!")
set_state("quest_failed")
end
end
state time_kill_chunjo begin
when letter begin
send_letter("Ferma l'invasione!")
end
when button or info begin
say_title ("Stop a invasão antes de chegar aqui!")
say ("Você ainda tem" timers .. \ .. 60 "Minutes")
say ("Você matou" .. pc.getqf ("killa_shinsoo") .. "10 da Shinsoo United")
say ("Você matou" .. pc.getqf ("killa_jinno") .. "10 do Jinno United")
end
when kill with npc.is_pc() and pc.level >= 80 and pc.get_empire() == 1 begin
pc.setqf("killa_shinsoo",pc.getqf("killa_shinsoo")+1)
if pc.getqf("killa_shinsoo") == 10 and pc.getqf("killa_jinno") == 10 and timer("timer2")==false then
chat ("Stop Invasion in Time!")
chat ("Vá para o comandante lhe dará uma recompensa!")
set_state("come_guardian")
end
end
when kill with npc.is_pc() and pc.level >= 80 and pc.get_empire() == 3 begin
pc.setqf("killa_jinno",pc.getqf("killa_jinno")+1)
if pc.getqf("killa_shinsoo") == 10 and pc.getqf("killa_jinno") == 10 and timer("timer2")==false then
chat ("Stop Invasion in Time!")
chat ("Vá para o comandante lhe dará uma recompensa!")
set_state("come_guardian")
end
end
when timer2.timer() begin
chat ("Time up!")
chat ("Mission Failed!")
set_state("quest_failed")
end
end
state time_kill_jinno begin
when letter begin
send_letter("Ferma l'invasione!")
end
when button or info begin
say_title ("Stop a invasão antes de chegar aqui!")
say ("Você ainda tem" timers .. \ .. 60 "Minutes")
say ("Você matou" .. pc.getqf ("killa_chunjo") .. "10 da Chunjo United")
say ("Você matou" .. pc.getqf ("killa_shinsoo") .. "10 da Shinsoo United")
end
when kill with npc.is_pc() and pc.level >= 80 and pc.get_empire() == 2 begin
pc.setqf("killa_chunjo",pc.getqf("killa_chunjo")+1)
if pc.getqf("killa_chunjo") == 10 and pc.getqf("killa_shinsoo") == 10 and timer("timer2")==false then
chat ("Stop Invasion in Time!")
chat ("Vá para o comandante lhe dará uma recompensa!")
set_state("come_guardian")
end
end
when kill with npc.is_pc() and pc.level >= 80 and pc.get_empire() == 1 begin
pc.setqf("killa_shinsoo",pc.getqf("killa_shinsoo")+1)
if pc.getqf("killa_chunjo") == 10 and pc.getqf("killa_shinsoo") == 10 and timer("timer2")==false then
chat ("Stop Invasion in Time!")
chat ("Vá para o comandante lhe dará uma recompensa!")
set_state("come_guardian")
end
end
when timer2.timer() begin
chat("Tempo scaduto!")
chat("Missione Fallita!")
set_state("quest_failed")
end
end
state come_guardian begin
when letter begin
send_letter("Invasione Fermata! Vai dal Comandante!")
local v = find_npc_by_vnum ( 20355 )
if v != 0 then
target.vid ( "TARGET" , v, "Comandante" )
end
end
when button or info begin
say_title ("Invasion Pare! O comandante está esperando por você!")
say ("Você parou a invasão do inimigo, vá para o comandante")
say ("Vou dar uma grande recompensa!")
say ("")
end
when 20355.chat."Comandante" or TARGET.target.click begin
target.delete ( "TARGET" )
say_title ("Invasion Pare!")
say ("Bom trabalho!" pc.get_name .. () .. "Você é nosso herói!")
say ("Isto é para você:")
say_reward ("Exp")
say_reward ("Yang")
say_reward ("ITEM")
pc.give_item2("")
pc.changegold()
pc.give_exp()
pc.delqf("killa_shinsoo")
pc.delqf("killa_chunjo")
pc.delqf("killa_jinno")
set_state("completo")
end
end
state completo begin
end
state quest_failed begin
pc.delqf("killa_shinsoo")
pc.delqf("killa_chunjo")
pc.delqf("killa_jinno")
end
end

Boas Cyber-Gamers
quest esperia@ begin
state start begin
when login or levelup with pc.get_level() >= 80 begin
send_letter("Vai a Uriel")
end
when button or info begin
say_title("Carta:")
say("")
say("Hey, vai há Uriel ela tem algo para você.")
say("Vai querer definitivamente dar-te uma tarefa.")
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("__TARGET__", v,"uriel")
end
end
when __TARGET__.target or 20011.click begin
target.delete("__TARGET__")
say_title("Uriel")
say("")
say("Ehi "..pc.get_name().." Eu tenho uma tarefaper te.")
say("Trata-se de 25 peças de cristal.")
say("Você pode encontrá-los na Cave of Exile")
say("Primeiro andar.")
set_state("lettera_to_cristal")
end
end
state lettera_to_cristal begin
when letter begin
send_letter("Encontre o Crystals")
end
when button or info begin
local c = pc.getqf("Crystals")
say_title("Carta:")
say("")
say("Uriel deu-lhe uma tarefa.")
say("Você deve encontrar 25 peças de cristal")
say("Exílio na caverna.")
say("Viajando para a terra e")
say("Executar a tarefa.")
say("")
say("")
say_reward("Você ainda pode encontrar ".. c.." Cristais.")
set_state("drop_cristalli")
end
end
state drop_cristalli begin
when 1131.kill or 1132.kill or 1133.kill or 1135.kill or 1137.kill or begin
local cristalli = number(1,120)
if cristalli <= 20 pc.getqf("cristalli") <= 24 then
pc.give_item2("30203","1")
pc.setqf("cristalli" pc.getqf("cristalli") +1)
set_state("torna_da_uriel")
end
end
end
state torna_da_uriel begin
when letter begin
send_letter("Volta a Uriel")
end
when button or info begin
say_title("Carta")
say("")
say("Bom que você encontrou objetos")
say("você tivesse perguntado Uriel.")
say("Volta para ele para entregá-los.")
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("__TARGET2__", v,"torna_da_uriel")
end
end
when __TARGET2__.target.click or 20011.click begin
if pc.count_item("30203") < 0 then
target.delete("__TARGET2__")
say_title("Uriel")
say("")
say("Ehi "..pc.get_name().." você está de volta")
say("e eu vejo que você está carregando objetos")
say("eu lhe pedi para me encontrar.")
say("Muito bom, conseguiu e vai receber uma recompensa.")
local consegna = select("Aqui você vai Cristais "," Eles são meus")
if consegna == 2 then
say("Para você, esses cristais são inúteis ")
say("então faça como quiser. ")
return
else
say("Escolhendo o direito ... ")
say("Eu vou pegar sua recompensa ")
say("Enquanto isso, nós entregamos Cristais ")
pc.remove_item("30203","10")
say("")
say("")
say_reward("Recompensa: ")
say_reward("")
say_reward("Pontos 110.000.000 Exp ")
say_reward("HP 1000 (permanente) ")
say_reward("Mezzuomini Bonus +15 (permanente) ")
pc.change_gold(10000000)
pc.give_exp2(110000000)
affect.add_collect(apply.ATTBONUS_HUMAN,15,60*60*24*365*60)
affect.add_collect(apply.MAX_HP,1000,60*60*24*365*60)
set_state("fix_bonus")
end
end
end
end
state fix_bonus begin
when 50051.use or 50052.use or 50053.use or logout begin
affect.remove_collect(apply.MAX_HP,1500,60*60*24*365*60)
end
when login or unmount begin
affect.add_collect(apply.MAX_HP,1500,60*60*24*365*60)
set_state("__COMPLETE__")
end
end
state __COMPLETE__ begin
end
end -- fine quest

Boas Cyber-Gamers
quest horse_summon begin
state start begin
function get_horse_summon_prob_pct() local skill_level=pc.get_skill_level(131) if skill_level==1 then return 15 elseif skill_level==2 then return 20 elseif skill_level==3 then return 30 elseif skill_level==4 then return 40 elseif skill_level==5 then return 50 elseif skill_level==6 then return 60 elseif skill_level==7 then return 70 elseif skill_level==8 then return 80 elseif skill_level==9 then return 90 elseif skill_level>=10 then return 100 end return 10 end
function show_pet_menu()
if horse.is_mine() then
say(locale.pet_menu.menu)
s = select(locale.pet_menu.global,locale.pet_menu.teleporter,locale.pet_menu.maga,locale.pet_menu.shop,locale.pet_menu.close)
if s == 1 then
pet_global()
end
if s == 2 then
pet_teleporter()
end
if s == 3 then
game.open_safebox()
end
if s == 4 then
game.open_mall()
end
if s == 5 then
return
end
end
end
when 20120.click begin horse_summon.show_pet_menu() end
when 20121.click begin horse_summon.show_pet_menu() end
when 20122.click begin horse_summon.show_pet_menu() end
when 90013.use begin
if horse.get_level() < 22 then
if pc.is_mount( ) then
horse.unride ()
if pc.getqf("pet_system") == 0 then
pc.setqf("pet_system",1)
end
local var = horse.get_name()
nome = pc.get_name()
io.output( "locale/italy/quest/pet/"..nome..".txt" )
io.write ( "".. var .."")
io.close()
horse.set_name("Pet")
horse.unsummon()
pc.setqf("cavallolevel",horse.get_level())
horse.set_level(22)
say("Sistema Pet é aqui")
horse.summon()
say(" ")
if pc.get_guild() == 0 then
pc.mount(20107, 30000)
elseif pc.is_guild_master() == true then
pc.mount(20109, 30000)
else
pc.mount(20108, 30000)
end
else
if pc.getqf("pet_system") == 0 then
pc.setqf("pet_system",1)
end
local var = horse.get_name()
nome = pc.get_name()
io.output( "locale/italy/quest/pet/"..nome..".txt" )
io.write ( "".. var .."")
io.close()
horse.set_name("Pet")
horse.unsummon()
pc.setqf("cavallolevel",horse.get_level())
horse.set_level(22)
say("Sistema Pet é aqui")
horse.summon()
say(" ")
end
end
end
when 50051.use with horse.get_grade()==0 begin
say("Não tem um cavalo!")
end
when 50051.use begin
if horse . get_grade ( ) == 0 then say ( "Você não tem a capacidade para um Pet" )
return
end
if horse . get_grade ( ) == 1 then
if pc . getsp ( ) >= 100 then
if number ( 1 , 100 ) <= horse_summon . get_horse_summon_prob_pct ( ) then
if pc.getqf("pet_system") == 1 then
horse.unsummon()
horse.set_level(pc.getqf("cavallolevel"))
nome = pc.get_name()
io.input( "locale/italy/quest/pet/"..nome..".txt" )
cavalloname = io.read()
io.close()
horse.set_name(cavalloname)
pc.setqf("pet_system",0)
end
say ("O cavalo e os novatos 'aqui!")
say ("Good Ride").
horse . summon ( )
else
say ("O cavalo não é novato 'aqui!")
say ("Melhorar a chamada com os livros")
say ("Manual de treinamento do cavalo.")
end
pc . change_sp ( - 100 )
else
say ("Você já correu fora do MP")
say ("Para chamar o cavalo")
say ("você precisa 100Mp")
end
return
end
if horse . get_grade ( ) == 2 then
say ("Ativar alto demais para usá-lo")
return
end
if horse . get_grade ( ) == 3 then
say ("Ativar alto demais para usá-lo")
return
end
end
when 50052.use with horse.get_grade()==2 begin
if horse . get_grade ( ) == 0 then say ( "Non hai l'abilita' per cavalcare" )
return end if horse . get_grade ( ) == 1 then say ( "Abilita' troppo bassa per usarlo" )
return end if horse . get_grade ( ) == 2 then if pc . getsp ( ) >= 200 then
if number ( 1 , 100 ) <= horse_summon . get_horse_summon_prob_pct ( ) then
if pc.getqf("pet_system") == 1 then
horse.unsummon()
horse.set_level(pc.getqf("cavallolevel"))
horse.set_name(pc.getqf("cavalloname"))
pc.setqf("pet_system",0)
end
say ("O cavalo e os novatos 'aqui!")
say ("Good Ride").
horse . summon ( )
else
say ("O cavalo não é novato 'aqui!")
say ("Melhorar a chamada com os livros")
say ("Manual de treinamento do cavalo.")
end
pc . change_sp ( - 200 )
else
say ("Você já correu fora do MP")
say ("Para chamar o cavalo")
say ("você precisa 200Mp")
end
return end if horse . get_grade ( ) == 3 then say ( "Abilita' troppo alta per usarlo" )
return end
end
when 50053.use with horse.get_grade()==3 begin
if horse . get_grade ( ) == 3 then
if horse . get_grade ( ) == 0 then say ( "Non hai l'abilita' per cavalcare, vai dallo stalliere" )
return end if horse . get_grade ( ) == 1 then say ( "Abilita' troppo bassa per usarlo" )
return end if horse . get_grade ( ) == 2 then say ( "Abilita' troppo bassa per usarlo" )
return end if horse . get_grade ( ) == 3 then if pc . getsp ( ) >= 300 then
if number ( 1 , 100 ) <= horse_summon . get_horse_summon_prob_pct ( ) then
if pc.getqf("pet_system") == 1 then
horse.unsummon()
horse.set_level(pc.getqf("cavallolevel"))
nome = pc.get_name()
io.input( "locale/italy/quest/pet/"..nome..".txt" )
cavalloname = io.read()
--io.close()
horse.set_name(cavalloname)
os.remove("locale/italy/quest/pet/"..nome..".txt")
pc.setqf("pet_system",0)
end
say ("O cavalo e os novatos 'aqui!")
say ("Good Ride").
horse . summon ( )
else
say ("O cavalo não é novato 'aqui!")
say ("Melhorar a chamada com os livros")
say ("Manual de treinamento do cavalo.")
end
pc . change_sp ( - 300 )
else
say ("Você já correu fora do MP")
say ("Para chamar o cavalo")
say ("você precisa 300Mp")
end
return end
return end
end
when login with pc.getqf("pet_system") == 1 and horse.get_level() >= 22 begin
horse.unsummon()
horse.set_level(pc.getqf("cavallolevel"))
horse.set_name(devil_getqf("cavalloname"))
end
end
end

Boas Cyber-Gamers
quest shutdown begin
state start begin
when 20094.chat."Desligado o Servidor" with pc . is_gm ( ) == true begin
say_title ( "Shutdown:" )
say ( "Deseja Desligar o Servidor?" )
local siono = select ( "Sim","Não" )
if siono == 2 then
return
elseif siono == 1 then
say_title ( "Shutdown:" )
say ( "Processo de desligar o Servidor..." )
local ciao = tostring(input())
timer ( "shutdown" , 900 )
notice_all ( "Servidor desligará em 30 minutos!" )
notice_all ( "Recomendamos que saia da conta.." )
notice_all ( "Qualquer perda de itens a culpa não é nossa" )
end
end
when shutdown.timer begin
notice_all ( "Servidor desligará em 15 minutos!" )
notice_all ( "Recomendamos que saia da conta.." )
notice_all ( "Qualquer perda de itens a culpa não é nossa" )
timer ( "shutdown2" ,899 )
end
when shutdown2.timer begin
notice_all ( "Servidor desligará em 1 minutos!" )
notice_all ( "Recomendamos que saia da conta.." )
notice_all ( "Qualquer perda de itens a culpa não é nossa" )
timer ( "shutdown3" , 20 )
end
when shutdown3.timer begin
notice_all ( "Servidor desligará em 40 segundos!" )
notice_all ( "Recomendamos que saia da conta.." )
notice_all ( "Qualquer perda de itens a culpa não é nossa" )
timer ( "shutdown4", 31 )
end
when shutdown4.timer begin
notice_all ( "Reboot!" )
game . set_event_flag ( "test" , 1 )
timer ( "shutdown5" , 1 )
end
when shutdown5.timer begin
command ( "shutdown" )
game . set_event_flag ( "test" , 0 )
end
end
end

Boas Cyber-Gamers
quest mision begin
state start begin
when letter with pc.get_level => 90 begin
send_letter("Vai ao Vendedor de Armaduras")
end
when button or info begin
say("Vá para o Vendedor de Armas.")
end
when 9001.chat."Boas Lutador" begin
say_title("Bem-Vindo")
say("Boas jovem guerrero..")
say("Podias ajudar a matar o Reaper?")
say("Ele roubou a minha bola de gelo")
set_state("Missão")
end
end
state mision begin
when letter begin --
send_letter("Matar o Reaper")
end
when button or info begin
say("O Vendedor de Armas quer que mates o Reaper")
end
when 1093.kill begin
say("Muito bem, mataste o ")
say("Agora vai ao Vendedor de Armaduras")
set_state("mision2")
end
end
state mision2 begin
when letter begin --
send_letter("Vendedor de Armaduras")
end
when button or info begin
say("Vá ao Vendedor de Armaduras")
say("Ele tem a bola de gelo do Vendedor de Armas.")
end
when 9002.chat."Bola de gelo do Vendedor de Armaduras" begin
say ("Se de fato eu tenho a bola ..")
say ("É o reaper pode demorar um pouco tempo atrás,")
say ("Aqui você vai ..")
say_reward ("Dê-lhe de volta para o Vendedor de Armas.")
pc.give_item2("30050", 1)
set_state("Voltar")
end
end
state volver begin
when 9001.chat."Obrigada!" begin
say("Obrigada por me ter ajudado")
say("")
say("Aqui está a tua recompensa")
say_reward("Recebeste 50000000 Pontos de Experiencia")
pc.give_exp2( 50000000 )
pc.remove_item ("30050", 1)
set_state("__COMPLETE__")
end
end
state __COMPLETE__ begin
end
end

Boas Cyber-Gamers
quest info begin
state start begin
when login begin
set_state(info)
end
end
state info begin
when letter begin
send_letter("Informaçoes do Servidor")
end
when button or info begin
say_title ( "Presisa de informações do servidor?" )
say ( "O que deseja saber?" )
say ( )
a = select ( "Rates" , "Staff" , "Notícias" , "Eventos" , "Nada obrigado" )
if a == 5 then
elseif a == 1 then
say_title ( "Rates:" )
say ( "Exp: 500%" )
say ( "Gold: 500%" )
say ( "Drop: 500%" )
say ( "Finais de semana: 1000%" )
elseif a == 2 then
say_title ( "Staff = Equipa" )
say ( "Nome do gm" )
say ( "Nome do gm" )
say ( "Nome do gm" )
say ( "Sem cagas para qualquer cargo" )
elseif a == 3 then
say_title ( "Notícias:" )
say ( "-Servidor Sem Hamachi" )
say ( "-24h aberto" )
say ( "-Nivel maximo 255" )
say ( "-Armas novas implementadas" )
say ( "-Terrenos de guilda" )
say ( "-Refinaçao 100%" )
say ( "-Loja de Armas 0 a 255" )
say ( "-Loja geral, Poções e Items Shop" )
say ( "-Vendedora Especial" )
say ( "-Passagem para a Sala de Cristal" )
say ( "-Passagem para Gruta Chun" )
say ( "-Novos mapas implementados" )
say ( "-Nao pede itens para refinar" )
elseif a == 4 then
say_title ( "Eventos:" )
say ( "Evento busca do GM perdido... Breve" )
say ( "Evento loja de 1 gold... Breve" )
say ( "Evento OX... Breve" )
end
end
end
end

Boas Cyber-Gamers
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

Boas-Cyber-Gamers
------------------------------------
GM Login Notice NettunoMt2
------------------------------------
quest gmlogin begin
state start begin
when login with pc.is_gm() begin
notice_all("".. pc.get_name() .." Está online.")
notice_all("Para obter informaçõesouproblemasentre em contato comigo!")
end
end
end
Crie um arquivo chamado gmnotice.quest e coloque em:
/usr/rain/channel/share_data/locale/hongkong/quest
Depois va ao Virtual PC ou Virtual Box e digite:
cd /usr/rain/channel/share_data/locale/hongkong/quest
sh make.sh

Boas Cyber-Gamers
-------------------------------------
------ Setaou Vol.1 (Easy 2 Learn)
---- Scripted by /TfF\ReckLess
-- The Favorites Few - Clan Game
-------------------------------------
quest setaou begin
state start begin
function a()
say_title("~ReckLess~")
end
when letter with pc.get_level() >= 75 begin
send_letter("O ataque do Setaou!")
end
when info or button begin
setaou.a()
say(pc.get_name() .. ", é o teu nome, verdade?")
say("Eheh..")
say("Eu chamo-me ReckLess e venho de")
say("uma terra que ninguém conhece!")
wait()
setaou.a()
say("Fui informado que o Setaou")
say("planeja fazer um ataque")
say("ao nosso vilarejo..")
say("Peço-te que nos ajudes, Grande Guerreiro!")
say("")
local chose = select ("Ajudo","Não tenho tempo")
if chose == 2 then
setaou.a()
say("o o que?..")
return
else
setaou.a()
say("Obrigado pela tua disponibilidade!")
say("Mas lembro-te que tens um tempo limitado")
say("caso contrário serás atacado e extreminado..")
wait()
setaou.a()
pc.setqf("time", get_time()+60*60)
say("Nós todos rezamos por ela!")
say("")
say_reward("Mata 10 Guerreiro Setaou em 1 hora.")
q.set_clock("Tempo previsto para o ataque: ", pc.getqf("time")-get_time())
say_reward(string.format("Guerreiro Setaou restantes: %d", pc.getqf("state")))
set_state("run")
end
end
end
state run begin
when login or levelup or kill with pc.getqf("time") < get_time() begin
setaou.a()
say("A aldeia foi atacada e destruída.")
say_reward("Falhaste a Missão.")
set_state("__COMPLETE__")
end
when 2401.kill with pc.getqf("time") >= get_time() begin
local count = pc.getqf("state") + 1
if count <= 10 then
pc.setqf("state", count)
q.set_counter("rest", 10 - count)
if count == 10 then
setaou.a()
say("Obrigado, mataste todos os Guerreiro Setaou!")
say("")
say_reward("EXP recebida: 200.000.000")
say_reward("Yang recebido: 20.000.000")
pc.give_exp2(200000000)
pc.change_money(20000000)
set_state("__COMPLETE__")
end
end
end
end
state __COMPLETE__ begin
end
end

Boas Cyber-Gamers
Quest gmmode_protection begin
state start begin
when 20095.chat."Proteção de GM Mode" with pc.is_gm() begin
say_title(mob_name(20095)..":")
if game.get_event_flag("gmmode_protection") == 0 then
say_title("Traduzido By TheSubKiller")
say("Quer habilitar a proteção contra Modo GM?[ENTER]")
local s = select(locale.yes, locale.no)
if s == 1 then
say_title("Traduzido By TheSubKiller")
say("Proteção contra o modo GM foi ativado.[ENTER]")
game.set_event_flag("gmmode_protection", 1)
server_timer("gmmode_protection", 5, get_server_timer_arg())
end
elseif game.get_event_flag("gmmode_protection") == 1 then
say_title("Traduzido By TheSubKiller")
say("Quer habilitar a proteção contra Modo GM?[ENTER]")
local s = select(locale.yes, locale.no)
if s == 1 then
say_title("Traduzido By TheSubKiller")
say("Proteção contra o modo GM foi ativado.[ENTER]")
game.set_event_flag("gmmode_protection", 0)
end
end
end
when gmmode_protection.server_timer begin
clear_server_timer("gmmode_protection", get_server_timer_arg())
if game.get_event_flag("gmmode_protection") == 1 then
if game.get_event_flag("test") == 1 then
game.set_event_flag("test", 0)
end
server_timer("gmmode_protection", 5, get_server_timer_arg())
end
end
end
end

Boas Cyber-Gamers
quest azucar begin
state start begin
when 70042.use begin
say_title("By TheSubKiller")
say_title("Açucar para Cavalo:")
say("Eu sou o açúcar cavalo,")
say("e eu tenho o poder de mudar o nome do seu cavalo.")
say_reward("Quer mudar o nome?")
local s = select ( "Sim" , "Não" )
if s == 2 then
return
end
if s == 1 then
if pc.getqf("caballo") == 0 then
if horse.get_level() >= 1 then
say_title("Açucar de Cavalo:")
say("Digite aqui o nome que você quer colocar:")
local nombre = input()
if nombre == "" then
say_title("Açucar de Cavalo:")
say("Você deve digitar um nome")
say("Para funcionar").
return
else
say_title("Açucar de Cavalo:")
say("Funcionou, voçe recebe")
say("mudar o nome do cavalo")
horse.set_name("..nombre..")
pc.remove_item()
pc.setqf("caballo", 1)
end
end
end
end
end

Boas Cyber-Gamers
say ( "Vendedor Hwang")
say ( "Olá, eu sou o vendedor de Hwang")
say ("Eu posso vender-lhe um pouco de algo se você quiser)
say ("Vou te mostrar minhas coisas!" )
say_reward ( "Não pense que vai custar-lhe presentes yang várias!" )
local hwang = select ( "Hwang sura", "Hwang guerreiro", "Hwang Shamy", "HwangNinja )
if hwang == 1 then
if pc . gold >= 1500000000 then
pc . changegold ( - 1500000000 )
locale item = 11973 + pc.getjob() + 1
pc . give_item2 ( "11973" , 1 )
else
say ( "não têm o suficiente yang, eu queria enganar? Huh ?!?!" )
return
end
if hwang == 2 then
if pc . gold >= 1500000000 then
pc . changegold ( - 1500000000 )
locale item = 11971 + pc.getjob() + 1
pc . give_item2 ( "11971" , 1 )
else
say ( "não têm o suficiente yang, eu queria enganar? Huh ?!?!" )
return
end
if hwang == 3 then
if pc . gold >= 1500000000 then
pc . changegold ( - 1500000000 )
locale item = 11974 + pc.getjob() + 1
pc . give_item2 ( "11974" , 1 )
else
say ( "não têm o suficiente yang, eu queria enganar? Huh ?!?!" )
return
end
if hwang == 4 then
if pc . gold >= 1500000000 then
pc . changegold ( - 1500000000 )
locale item = 11972 + pc.getjob() + 1
pc . give_item2 ( "11972" , 1 )
else
say ( "não têm o suficiente yang, eu queria enganar? Huh ?!?!" )
return
end