[Quest]Pet andar atras de você

[UnWork 198]

Boas venho trazer uma quest que o cavalo ou pet anda atraz de você pra onde você for xDD se gostarem da me +1

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("Il Pet e' arrivato!")

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("Il Pet e' arrivato!")

horse.summon()

say(" ")

end

end

end

when 50051.use with horse.get_grade()==0 begin

say("Non hai il cavallo!")

end

when 50051.use begin

if horse . get_grade ( ) == 0 then say ( "Non hai l'abilita' per cavalcare" )

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 ( "Il cavallo principiante e' arrivato!" )

say ( "Buona cavalcata." )

horse . summon ( )

else

say ( "Il cavallo principiante non e' arrivato!" )

say ( "Migliora la chiamata con i libri" )

say ( "manuale addestramento cavallo." )

end

pc . change_sp ( - 100 )

else

say ( "Hai finito gli Mp" )

say ( "Per chiamare il cavallo" )

say ( "hai bisogno di 100Mp" )

end

return

end

if horse . get_grade ( ) == 2 then

say ( "Abilita' troppo alta per usarlo" )

return

end

if horse . get_grade ( ) == 3 then

say ( "Abilita' troppo alta per usarlo" )

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 ( "Il cavallo medio e' arrivato!" )

say ( "Buona cavalcata." )

horse . summon ( )

else

say ( "Il cavallo medio non e' arrivato!" )

say ( "Migliora la chiamata con i libri" )

say ( "manuale addestramento cavallo." )

end

pc . change_sp ( - 200 )

else

say ( "Hai finito gli Mp" )

say ( "Per chiamare il cavallo" )

say ( "hai bisogno di 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 ( "Il cavallo esperto e' arrivato!" )

say ( "Buona cavalcata." )

horse.summon ( )

else

say ( "Il cavallo esperto non e' arrivato!" )

say ( "Migliora la chiamata con i libri" )

say ( "manuale addestramento cavallo." )

end

pc . change_sp ( - 300 )

else

say ( "Hai finito gli Mp" )

say ( "Per chiamare il cavallo" )

say ( "hai bisogno di 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

Créditos EpvP

[UnWork 198]

Ela é muito boa pessoal,falaram que já pega

[TheSubKIller aka Skinning 261]

Isso já ah em alguns servidores estrangeiros, isso para mim é igual a uma mount mas voa e não se pode montar xDD

[p0w3r0ff 3,795]

Sistema Pet ja existe nos oficias estrangeiros e em muitos privados.

Nao tem nada haver com montadas acredita, E da outra vida ao jogo.

Cumprimentos

[UnWork 198]

=D

[RealJ 33]

Função desta quest ? que fiquei um bocado a toa O.o