-----------------------------
------Elite Games Coders-----
---Non Rimuovere i crediti---
-----------------------------
quest new_mount 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
when 71120.use begin
if horse . get_grade ( ) == 0 then say ( "Non hai l'abilità per cavalcare, vai dallo stalliere." )
return end if horse . get_grade ( ) == 1 then say ( "Devi avere il Cavallo Medio o Esperto per usarlo." )
return end if horse . get_grade ( ) == 2 then if pc . getsp ( ) >= 200 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "Il leone è arrivato!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20119 , 1*60*60 )
pc.setqf ( "cavalca_leone" , 1 )
timer("time", 1*60*60)
end
else
say ( "Il leone non è 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 leone" )
say ( "hai bisogno di 200MP." )
end
return
end
if horse . get_grade ( ) == 3 then if pc . getsp ( ) >= 300 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "Il leone è arrivato!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20119 , 3*60*60 )
pc.setqf ( "cavalca_leone" , 1 )
timer("time", 3*60*60)
end
else
say ( "Il leone non è 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 leone" )
say ( "hai bisogno di 300MP." )
end
return
end
end
when 71118.use begin
if horse . get_grade ( ) == 0 then say ( "Non hai l'abilità per cavalcare, vai dallo stalliere." )
return end if horse . get_grade ( ) == 1 then say ( "Devi avere il Cavallo Medio o Esperto per usarlo." )
return end if horse . get_grade ( ) == 2 then if pc . getsp ( ) >= 200 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "La tigre è arrivata!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20112 , 1*60*60 )
pc.setqf ( "cavalca_tigre" , 1 )
timer("time", 1*60*60)
end
else
say ( "La tigre non è arrivata!" )
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 la tigre" )
say ( "hai bisogno di 200MP." )
end
return end
if horse . get_grade ( ) == 3 then if pc . getsp ( ) >= 300 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "La tigre è arrivata!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20112 , 3*60*60 )
pc.setqf ( "cavalca_tigre" , 1 )
timer("time", 3*60*60)
end
else
say ( "La tigre non è arrivata!" )
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 la tigre" )
say ( "hai bisogno di 300MP." )
end
return end
end
when 71116.use begin
if horse . get_grade ( ) == 0 then say ( "Non hai l'abilità per cavalcare, vai dallo stalliere." )
return end if horse . get_grade ( ) == 1 then say ( "Devi avere il Cavallo Medio o Esperto per usarlo." )
return end if horse . get_grade ( ) == 2 then if pc . getsp ( ) >= 200 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "Il lupo è arrivato!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20111 , 1*60*60 )
pc.setqf ( "cavalca_lupo" , 1 )
timer("time", 1*60*60)
end
else
say ( "Il lupo non è 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 lupo" )
say ( "hai bisogno di 200MP." )
end
return end
if horse . get_grade ( ) == 3 then if pc . getsp ( ) >= 300 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "Il lupo è arrivato!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20111 , 3*60*60 )
pc.setqf ( "cavalca_lupo" , 1 )
timer("time", 3*60*60)
end
else
say ( "Il lupo non è 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 lupo" )
say ( "hai bisogno di 300MP." )
end
return end
end
when 71114.use begin
if horse . get_grade ( ) == 0 then say ( "Non hai l'abilità per cavalcare, vai dallo stalliere." )
return end if horse . get_grade ( ) == 1 then say ( "Devi avere il Cavallo Medio o Esperto per usarlo." )
return end if horse . get_grade ( ) == 2 then if pc . getsp ( ) >= 200 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "Il cinghiale è arrivato!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20110 , 1*60*60 )
pc.setqf ( "cavalca_cinghiale" , 1 )
timer("time", 1*60*60)
end
else
say ( "Il cinghiale non è 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 cinghiale" )
say ( "hai bisogno di 200MP." )
end
return end
if horse . get_grade ( ) == 3 then if pc . getsp ( ) >= 300 then
if number ( 1 , 100 ) <= new_mount . get_horse_summon_prob_pct ( ) then
if pc . is_mount ( ) then
say ( "Puoi cavalcare solo un animale alla volta!" )
else
say ( "Il cinghiale è arrivato!" )
say ( "Buona cavalcata." )
horse . summon ( )
horse . ride ( )
pc . mount ( 20110 , 3*60*60 )
pc.setqf ( "cavalca_cinghiale" , 1 )
timer("time", 3*60*60)
end
else
say ( "Il cinghiale non è 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 cinghiale" )
say ( "hai bisogno di 300MP." )
end
return end
end
when time.timer begin
local a = pc.getqf ( "cavalca_leone" )
local b = pc.getqf ( "cavalca_tigre" )
local c = pc.getqf ( "cavalca_lupo" )
local d = pc.getqf ( "cavalca_cinghiale" )
if a == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71120 , 1 )
pc . setqf ( "cavalca_leone" , 0 )
end
if b == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71118 , 1 )
pc.setqf ( "cavalca_tigre" , 0 )
end
if c == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71116 , 1 )
pc.setqf ( "cavalca_lupo" , 0 )
end
if d == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71114 , 1 )
pc . setqf ( "cavalca_cinghiale" , 0 )
end
end
when unmount begin
local a = pc.getqf ( "cavalca_leone" )
local b = pc.getqf ( "cavalca_tigre" )
local c = pc.getqf ( "cavalca_lupo" )
local d = pc.getqf ( "cavalca_cinghiale" )
if a == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71120 , 1 )
pc . setqf ( "cavalca_leone" , 0 )
end
if b == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71118 , 1 )
pc.setqf ( "cavalca_tigre" , 0 )
end
if c == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71116 , 1 )
pc.setqf ( "cavalca_lupo" , 0 )
end
if d == 1 then
affect . remove_collect ( )
horse . unride ( )
horse . unsummon ( )
pc . remove_item ( 71114 , 1 )
pc . setqf ( "cavalca_cinghiale" , 0 )
end
end
end
end