The following warnings occurred:
Warning [2] Use of undefined constant SAPI_NAME - assumed 'SAPI_NAME' (this will throw an Error in a future version of PHP) - Line: 3388 - File: inc/functions.php PHP 7.4.33-nmm7 (Linux)
File Line Function
/inc/functions.php 3388 errorHandler->error
/showthread.php 116 build_archive_link
Warning [2] Use of undefined constant IN_ARCHIVE - assumed 'IN_ARCHIVE' (this will throw an Error in a future version of PHP) - Line: 3331 - File: inc/functions.php PHP 7.4.33-nmm7 (Linux)
File Line Function
/inc/functions.php 3331 errorHandler->error
/inc/functions.php 3324 build_forum_breadcrumb
/showthread.php 195 build_forum_breadcrumb
Warning [2] Use of undefined constant IN_ARCHIVE - assumed 'IN_ARCHIVE' (this will throw an Error in a future version of PHP) - Line: 3331 - File: inc/functions.php PHP 7.4.33-nmm7 (Linux)
File Line Function
/inc/functions.php 3331 errorHandler->error
/showthread.php 195 build_forum_breadcrumb




SphereCommunity / Sphere 0.56d / Script Help v / Sphere 55i Animal Taming.


Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Sphere 55i Animal Taming.
Author Message
amonvangrell
Banned

Posts: 337
Likes Given: 17
Likes Received: 32 in 20 posts
Joined: Aug 2012

britannia shard
Post: #1
Sphere 55i Animal Taming.
Hello, long time since I`ve been here... lolVeryhappy
I really need a help.Sad

I need a Custom "Animal Taming" script for 56b with some features:

-no "the animal remebers you..." With the cmd release there will be no link to the past owner.
-to use the skill you need an item like an "tame harp" in your inventory. And you start the skill by using the item.
-customizable skill gain rate.

If you have this script or can make one for me I would be so happy!

Thanks!Bye
(This post was last modified: 03-27-2013 02:18 PM by amonvangrell.)
03-27-2013 02:16 PM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
amonvangrell
Banned

Posts: 337
Likes Given: 17
Likes Received: 32 in 20 posts
Joined: Aug 2012

britannia shard
Post: #2
RE: Sphere 55i Animal Taming.
I`ve found one kind of bugged, but is now working.

Thks

Code:
[FUNCTION FIXACTION]
RETURN <ACTION> | 0D200000

[DEFNAME def_Taming]
Taming_Delay = 1

[EVENTS e_taming]

ON=@LogOut
    IF (<FINDID.i_taming>)
        FINDID.i_taming.REMOVE
    ENDIF

ON=@SkillStart
    IF !(<SRC.RESTEST 1 tame_harp> )
        SRC.SYSMESSAGE @0790 Voce precisa de uma Tame Harp para domesticar animais.
        RETURN 1
    ENDIF

        IF (<FIXACTION> == Skill_Taming)
        IF (<FINDID.i_taming>)
            SYSMESSAGE You must wait to perform another action
    ELSE
        ACTION -1
        MESSAGE
            MESSAGE    
        MESSAGE
Taming_TAME
RETURN 1
ENDIF

ELIF !(<fixaction_is_combat>)
    IF (<FINDID.i_taming.TIMER> == -1)
        FINDID.i_taming.REMOVE
ENDIF
    IF (<FINDID.i_taming>)
        ACTION -1
            SYSMESSAGE You must wait to perform another action
        RETURN 1
    ENDIF
ENDIF

[FUNCTION Taming_TAME]
    IF !(<ACT.CanSeeLOS>)
            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>)
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


[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>

[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=i_lyre
DEFNAME=tame_harp
name=Tame Harp
TYPE=T_normal

WEIGHT=10
CATEGORY=Items by Professions
SUBSECTION=Bard
DESCRIPTION=Lap Harp

RESOURCES=7 i_log, 2 i_wire_iron

SKILLMAKE=TINKERING 54.0, MUSICIANSHIP 65.0,t_tinker_tools
on=@create
color=0480
on=@dclick
return 1    

[eof]
(This post was last modified: 03-27-2013 11:05 PM by Mordaunt.)
03-27-2013 06:01 PM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
amonvangrell
Banned

Posts: 337
Likes Given: 17
Likes Received: 32 in 20 posts
Joined: Aug 2012

britannia shard
Post: #3
RE: Sphere 55i Animal Taming.
this script its giving me so much stress...

ok I really appriciate if anyone could fix it for me...

now all skills are bugged...
03-28-2013 06:18 AM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
RanXerox
Master
**

Posts: 550
Likes Given: 1
Likes Received: 12 in 9 posts
Joined: Dec 2010
Reputation: 19



Post: #4
RE: Sphere 55i Animal Taming.
That fixaction workaround is not necessary in v56... it was fixed back in 2003 lol
03-28-2013 08:50 AM
Find all posts by this user Like Post Quote this message in a reply
amonvangrell
Banned

Posts: 337
Likes Given: 17
Likes Received: 32 in 20 posts
Joined: Aug 2012

britannia shard
Post: #5
RE: Sphere 55i Animal Taming.
ops Thx RanXerox!!... any other thing that I might change to make it right? any help its much apreciate! Big Grin

So far I`ve change this... its working but full of bugs... like it appears that the act of taming dont stop, so everytime i start taming again (yes its possible) it flare the fail msg of the skill. So I had to cancel that...
Also the skill gain its not working correctly so I`ve had to appeal... lol And am trying to make dclick the harp shows target and once clicked start the skill... no sucess so far... <:...[


this is my current script state (the script its not mine, I`ve found on google...)...

Code:
[DEFNAME def_Taming]
Taming_Delay = 1

///////////////////////////////////////////////////////
[EVENTS e_taming]
ON=@LogOut
    IF (<FINDID.i_taming>)
        FINDID.i_taming.REMOVE
    ENDIF

ON=@SkillStart
IF (<src.ACTION>==SKILL_Taming)
if !(<SRC.RESTEST 1 tame_harp> )
        SRC.SYSMESSAGE @0790 Voce precisa de uma Tame Harp para domesticar animais.
    RETURN 1
    ELSE
    RETURN 0
ENDIF
ENDIF

IF (<FINDID.i_taming>)
            SYSMESSAGE You must wait to perform another action
    ELSE
        Taming_TAME
RETURN 1
ENDIF


IF !(<fixaction_is_combat>)
    IF (<FINDID.i_taming.TIMER> == -1)
        FINDID.i_taming.REMOVE
ENDIF
ENDIF
    IF (<FINDID.i_taming>)
        ACTION -1
            SYSMESSAGE You must wait to perform another action
        RETURN 1
    ENDIF

    
[FUNCTION Taming_TAME]
    IF !(<ACT.CanSeeLOS>)
            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>)
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


[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
    ENDIF
        RETURN 0


[itemdef tame_harp]
id=i_lyre
DEFNAME=tame_harp
name=Tame Harp
TYPE=T_normal
value=299

WEIGHT=10
CATEGORY=Items by Professions
SUBSECTION=Bard
DESCRIPTION=Lap Harp

RESOURCES=7 i_log, 2 i_wire_iron

SKILLMAKE=TINKERING 54.0, MUSICIANSHIP 65.0,t_tinker_tools
on=@create
color=0480
on=@dclick
return 1    

[eof]
(This post was last modified: 03-28-2013 01:18 PM by amonvangrell.)
03-28-2013 01:09 PM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
Mordaunt
Super Moderator
****

Posts: 1,237
Likes Given: 26
Likes Received: 55 in 43 posts
Joined: Mar 2012
Reputation: 35



Post: #6
RE: Sphere 55i Animal Taming.
Moving thread to script help
[Image: 2nis46r.jpg]
03-28-2013 10:53 PM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
amonvangrell
Banned

Posts: 337
Likes Given: 17
Likes Received: 32 in 20 posts
Joined: Aug 2012

britannia shard
Post: #7
RE: Sphere 55i Animal Taming.
anyone please? i need someone to fix this script...
03-30-2013 05:44 PM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
amonvangrell
Banned

Posts: 337
Likes Given: 17
Likes Received: 32 in 20 posts
Joined: Aug 2012

britannia shard
Post: #8
RE: Sphere 55i Animal Taming.
Okay after suffer allot, I think I`ve fix all that it needs to be working fine.

I`ll post at the forum submission....

please close this.
04-01-2013 09:16 AM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
Post Reply 


Forum Jump:


User(s) browsing this thread: 3 Guest(s)

Contact Us | SphereCommunity | Return to Top | Return to Content | Mobile Version | RSS Syndication