Threaded Mode | Linear Mode

RanXerox · 10-26-2013 09:40 AM

Code:

[ITEMDEF i_shovel_special]

ID=i_shovel

TYPE=t_script

WEIGHT=5

ON=@Create

   COLOR=09a

   HITPOINTS={50 60}

ON=@DClick

   TARGETGW @032 Choose your target

   RETURN 1

ON=@TargOn_Item

   IF (<SRC.TARG.TOPOBJ>!=<SRC.TARG>)

      SRC.SYSMESSAGE @032 You dont need a shovel to dig there...

      RETURN 1

   ENDIF

   IF !(<SRC.TARG.CANSEELOS>)

      SRC.SYSMESSAGE @032 That item is not within line of sight

      RETURN 1

   ELSE

      IF (<SRC.ISGM>)

         SRC.SYSMESSAGE @032 A GM has line of sight to everything... Muhaha!

      ELSE

         SRC.SYSMESSAGE @032 I can see that item

      ENDIF

   ENDIF

   SAY ItemName: <SRC.TARG.NAME>

   SAY Location: <SRC.TARGP>

   SAY TerrainID: <SRC.TARGP.TERRAIN>

   SAY TerrainType: <SRC.TARGP.TYPE>

   IF !(<ISEMPTY <SRC.TARGP.STATICS.0.NAME>>)

      SAY Statics0: <SRC.TARGP.STATICS.0.NAME>

   ENDIF

   SAY Distance: <SRC.TARG.DISTANCE>

   SAY Region: <SRC.TARG.REGION.NAME>

   RETURN 1

ON=@TargOn_Ground

   IF (<SRC.DISTANCE <SRC.TARGP>> > 8)

      SRC.SYSMESSAGE @032 Only Mr Fantastic can reach that far... get closer

      RETURN 1

   ENDIF

   IF !(<SRC.CANSEELOS <SRC.TARGP>>)

      SRC.SYSMESSAGE @032 That location is not within line of sight

      RETURN 1

   ELSE

      IF (<SRC.ISGM>)

         SRC.SYSMESSAGE @032 A GM has line of sight to everything... Muhaha!

      ELSE

         SRC.SYSMESSAGE @032 I can see that location

      ENDIF

   ENDIF

   SRC.SYSMESSAGE Location: X=<SRC.TARGP.X> Y=<SRC.TARGP.Y>

   SRC.SYSMESSAGE TerrainID: <SRC.TARGP.TERRAIN>

   SRC.SYSMESSAGE TerrainType: <SRC.TARGP.TYPE>

   IF !(<ISEMPTY <SRC.TARGP.STATICS.0.NAME>>)

      SAY Statics0: <SRC.TARGP.STATICS.0.NAME>

   ENDIF

   SRC.SYSMESSAGE Distance: <SRC.DISTANCE <SRC.TARGP>>

   SRC.SYSMESSAGE Region: <SRC.TARGP.REGION.NAME>

   RETURN 1

Threaded Mode \| Linear Mode Targon_ground
Author	Message