SphereCommunity
Animal Taming Old Style. - Printable Version

+- SphereCommunity (https://forum.spherecommunity.net)
+-- Forum: Sphere 0.56d (/Forum-Sphere-0-56d)
+--- Forum: Script Submissions (/Forum-Script-Submissions)
+--- Thread: Animal Taming Old Style. (/Thread-Animal-Taming-Old-Style)

Animal Taming Old Style. - amonvangrell - 04-01-2013 09:23 AM

Hello everyone! Am posting this because someone may need this one day.
This script overwrite the Animal Taming skill that now its an osi style to an old model of the skill.

With this script, the skill will no use any osi ~animal remembers you~
also you will need to have an item ~tame harp~ to be able to tame any animal.

The skill is set to easy, wich means will gain skill every time it succeed or fail.

You will need to add this to your animal trainer so they will sell the tame harp:
Code:
[TEMPLATE VENDOR_S_TRAINER]
CATEGORY=Vendor Templates
SUBSECTION=Sell Templates
DESCRIPTION=Animal Trainer
SELL=tame_harp, {10}

and this is the current script:
Code:
[DEFNAME def_Taming]
Taming_Delay = 1//guarda tempo numa variavel

///////////////////////////////////////////////////////
[EVENTS e_taming]
ON=@LogOut //se o char der logout
    IF (<FINDID.i_taming>)//se encontrar tag
        FINDID.i_taming.REMOVE// remove a tag
    ENDIF

ON=@SkillStart //qndo comecar uma skill
IF (<src.ACTION>==SKILL_Taming)// se for skill taming
    if !(<SRC.RESTEST 1 tame_harp> ) //se nao tiver harpa
            SRC.SYSMESSAGE @0790 Voce precisa de uma Tame Harp para domesticar animais.
        RETURN 1 // para msg
    ENDIF
else
return 0// se nao for taming nao faz nada.
endif

IF (<FINDID.i_taming>)// se encontrar tag taming
    action -1 // para acao
            SYSMESSAGE You must wait to perform another action // espera
            return 1
    ELSE
        Taming_TAME // funcao taming
RETURN 1
ENDIF


IF !(<fixaction_is_combat>)//se n estiver no combat
    IF (<FINDID.i_taming.TIMER> == -1)//se o tempo da tag for infinito
        FINDID.i_taming.REMOVE// remove tag
    ENDIF
ENDIF

[FUNCTION Taming_TAME]// funcao taming
    IF !(<ACT.CanSeeLOS>)// se nao puder ver o animal
            MESSAGE I can not attempt to tame what I can not see.
        ELIF (<ACT.NPC> != brain_animal) && (<ACT.NPC> != brain_dragon) && (<ACT.NPC> != brain_monster) && (<ACT.NPC> != brain_undead)
            MESSAGE I can not tame this.
        ELIF !(<ACT.TAMING>)
            MESSAGE I can not tame this.
        ELIF (<EVAL <TAMING> + 30.0> < <ACT.TAMING>)
            MESSAGE I could not begin to tame this!
        ELIF (<FLAGS> & (statf_dead|statf_freeze|statf_invisible|statf_sleeping|statf_polymorph|statf_st​one|statf_hidden))
            MESSAGE I can not tame this in my current state.
        ELIF (<ACT.MEMORYFINDTYPE.memory_ipet>)
            MESSAGE That is already tame.
        ELIF (<ACT.MEMORYFINDTYPE.memory_fight>)
            MESSAGE The creature is too enraged.
        ELIF (<ACT.DISTANCE> > 5)
            MESSAGE I am too far away to tame that.
    ELSE
NEWITEM i_taming
ACT.LINK <TARG.UID>
ACT.CONT <UID>
ACT.TIMER <EVAL Taming_Delay>
ENDIF


[ITEMDEF i_taming]
ID=i_memory
TYPE=t_eq_script
NAME=Taming

ON=@Create
ATTR attr_decay
MORE1 {3 7}

ON=@Timer
IF (<CONT.ISGM>) && !(<LINK.MEMORYFINDTYPE.memory_ipet>)
    Taming_SUCCESS
        RETURN 0
ENDIF

CONT.CHECKS <LINK.UID>

IF !(<VAR.SEE>)
CONT.SYSMESSAGE I can no longer see my target.
ELIF (<LINK.NPC> != brain_animal) && (<LINK.NPC> != brain_dragon) && (<LINK.NPC> != brain_monster) && (<LINK.NPC> != brain_undead)
CONT.SYSMESSAGE I can not tame this.
ELIF !(<LINK.TAMING>)
CONT.SYSMESSAGE I can not tame this.
ELIF (<EVAL <CONT.TAMING> + 30.0> < <LINK.TAMING>)
CONT.SYSMESSAGE I could not begin to tame this!
ELIF (<CONT.FLAGS> &(statf_dead|statf_freeze|statf_invisible|statf_sleeping|statf_polymorph|stat​f_stone|statf_hidden))
CONT.SYSMESSAGE I can not continue taming in my current state.
ELIF (<LINK.MEMORYFINDTYPE.memory_ipet>)
CONT.SYSMESSAGE !! Someone tamed it before I could!
ELIF (<LINK.MEMORYFINDTYPE.memory_fight>)
CONT.SYSMESSAGE The creature is too enraged.
ELIF (<VAR.DIST> > 5)
CONT.SYSMESSAGE The <LINK.NAME> is too far away.
ELSE

IF (<MORE1>)
cont.sound 045
DORAND 4
CONT.SAY Good <LINK.NAME>
CONT.SAY I won't hurt you.
CONT.SAY Here <LINK.NAME>
CONT.SAY I always wanted a <LINK.NAME> like you
//CONT.SAY Bom <LINK.NAME>
//CONT.SAY Nao vou te machucar.
//CONT.SAY Aqui <LINK.NAME>
//CONT.SAY Eu sempre quis um <LINK.NAME> como voce.
ENDDO

MORE1 <EVAL <MORE1> - 1>
TIMER {<EVAL Taming_Delay> <EVAL <EVAL Taming_Delay> + 2>}
RETURN 1
ELSE
    IF (<EVAL <LINK.TAMING> - <CONT.TAMING>> <= 0)
        IF (RAND(<EVAL ((<CONT.TAMING> - <LINK.TAMING>) / 20) + 3>))
            Taming_SUCCESS
        ELSE
            Taming_FAILURE
    ENDIF
        ELIF !(RAND(<EVAL ((<LINK.TAMING> - <CONT.TAMING>) / 20) + 3>))
Taming_SUCCESS
ELSE
Taming_FAILURE
ENDIF

ENDIF
ENDIF
endif

[FUNCTION checks]
NEWITEM i_checks
ACT.LINK <ARGN>
EQUIP <ACT.UID>

[ITEMDEF i_checks]
ID=i_memory
TYPE=t_eq_script
NAME=Checks

ON=@Equip
VAR.DIST <LINK.DISTANCE>
VAR.SEE <LINK.CanSeeLOS>
REMOVE

[FUNCTION Taming_SUCCESS]
CONT.NEWITEM i_memory
CONT.ACT.ATTR attr_newbie
CONT.ACT.COLOR memory_ipet
CONT.ACT.MORE1 04
CONT.ACT.LINK <CONT.UID>
CONT.ACT.MORE2 <SERV.TIME>
CONT.ACT.MOREP <LINK.P>
CONT.ACT.CONT <LINK.UID>
LINK.FOOD 50
LINK.KARMA 2000
CONT.SYSMESSAGE It seems to accept you as its master.
CONT.Taming_SKILLGAIN 10
if (<cont.taming> >= 1000)
return 0
else
cont.Taming= <cont.Taming> +1>
cont.animallore= <cont.animallore> +1>

[FUNCTION Taming_FAILURE]
CONT.SYSMESSAGE You fail to tame the creature.
CONT.Taming_SKILLGAIN 5
if (<cont.taming> >= 1000)
return 0
else
cont.Taming= <cont.Taming> +1>

[FUNCTION Taming_SKILLGAIN]
    IF (<Taming> < 1000)
        TAG.Taming_Fudge <EVAL 0<TAG.Taming_Fudge> + <ARGN>>
            IF (<TAG.Taming_Fudge> > <TAMING>)
                TAG.Taming_Fudge
            src.Taming= <src.taming> +1
            ENDIF
    ENDIF

[FUNCTION fixaction_is_combat]
            IF (<FIXACTION> == Skill_Archery)
        RETURN 1
            ELIF (<FIXACTION> == Skill_Fencing)
        RETURN 1
            ELIF (<FIXACTION> == Skill_Macefighting)
        RETURN 1
            ELIF (<FIXACTION> == Skill_Parrying)
        RETURN 1
            ELIF (<FIXACTION> == Skill_Swordsmanship)
        RETURN 1
            ELIF (<FIXACTION> == Skill_Wrestling)
        RETURN 1
    else
        RETURN 0
    endif

[itemdef tame_harp]
id=0eb2
DEFNAME=tame_harp
name=Tame Harp
TYPE=T_MUSICAL
TDATA1=045
TDATA2=046
WEIGHT=10
value=299

CATEGORY=Items by Professions
SUBSECTION=Bard
DESCRIPTION=Tame Harp

RESOURCES=7 i_log, 2 i_wire_iron
SKILLMAKE=TINKERING 100.0, MUSICIANSHIP 80.0,t_tinker_tools

on=@create
color=0480
[eof]

Hope this will help you!

Cya!