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 / General Help v / Shrink


Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Shrink
Author Message
Wap
Journeyman
*

Posts: 138
Likes Given: 6
Likes Received: 7 in 6 posts
Joined: Mar 2012
Reputation: 3

UORPG.net
Post: #9
RE: Shrink
Code:
[ITEMDEF i_potion_Shrink]
DEFNAME=i_potion_Shrink
ID=i_bottle_WHITE
NAME=Shrink
TYPE=T_POTION
TDATA1=i_bottle_empty
RESOURCES=i_reag_batwing 5, i_bottle_EMPTY
SKILLMAKE=ALCHEMY 120.0

ON=@Create
    MORE1=s_shrink
    MORE2=100.0
    COLOR=color_gray_lt

ON=@DropON_Char
IF (<TOPOBJ> == <SRC.UID>)
  IF !(<ARGO.ISPLAYER>)
     IF (<ARGO.ISMYPET>)
       IF (<ARGO.DISTANCE> < 4)
    IF (<ARGO.TAG0.SUMMON>)
        ARGO.SPELLEFFECT s_dispel,1000
    ELSE
        ARGO.NAME=<SERV.CHARDEF.<ARGO.BASEID>.NAME>
        ARGO.SHRINK
        ARGO.SHRINKTOPACK <SRC.UID>
    ENDIF
    CONSUME 1
    TRYSRV SERV.NEWITEM i_bottle_empty
    NEW.BOUNCE
    RETURN 1
       ELSE
    SRC.MES_AWAY
       ENDIF
     ELSE
       SRC.MES_NOMYPET
     ENDIF
  ELSE
     SRC.MES_NOMYPET
  ENDIF
ENDIF

ON=@TargON_Char
IF (<TOPOBJ> == <SRC.UID>)
  IF !(<ARGO.ISPLAYER>)
     IF (<ARGO.ISMYPET>)
       IF (<ARGO.DISTANCE> < 4)
    IF (<ARGO.TAG0.SUMMON>)
        ARGO.SPELLEFFECT s_dispel,1000
    ELSE
        ARGO.NAME=<SERV.CHARDEF.<ARGO.BASEID>.NAME>
        ARGO.SHRINK
        ARGO.SHRINKTOPACK <SRC.UID>
    ENDIF
    CONSUME 1
    TRYSRV SERV.NEWITEM i_bottle_empty
    NEW.BOUNCE
    RETURN 1
       ELSE
    SRC.MES_AWAY
       ENDIF
     ELSE
       SRC.MES_NOMYPET
     ENDIF
  ELSE
     SRC.MES_NOMYPET
  ENDIF
ENDIF

ON=@TargON_Item
SRC.MES_NOMYPET
RETURN 1

on=@dclick
IF (<TOPOBJ> == <SRC.UID>)
  target="What do you want to shrink?"
  return 1
ENDIF
RETURN 1

[FUNCTION SHRINKTOPACK]
FORITEMS 0
    IF (<TYPE> == t_figurine)
    TRYSRC <ARGV[0]> BOUNCE
    ENDIF
ENDFOR
RETURN 1
(This post was last modified: 12-13-2013 12:00 AM by Wap.)
12-12-2013 11:59 PM
Visit this user's website Find all posts by this user Like Post Quote this message in a reply
[+] 2 users Like Wap's post
Post Reply 


Messages In This Thread
Shrink - Runcuks - 12-12-2013, 04:30 AM
RE: Shrink - Wap - 12-12-2013, 04:58 AM
RE: Shrink - XuN - 12-12-2013, 05:02 AM
RE: Shrink - Runcuks - 12-12-2013, 06:05 AM
RE: Shrink - Wap - 12-12-2013, 06:35 AM
RE: Shrink - Runcuks - 12-12-2013, 10:41 PM
RE: Shrink - Wap - 12-12-2013, 11:31 PM
RE: Shrink - Runcuks - 12-12-2013, 11:38 PM
RE: Shrink - Wap - 12-12-2013 11:59 PM
RE: Shrink - Runcuks - 12-13-2013, 06:02 AM

Forum Jump:


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

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