Initial Upload

Initial Upload

_module/nss/ts_fish_jump.nss

@@ -0,0 +1,65 @@
+/*
+ts_fish_jump
+by Tseramed, aka Ken Demarest
+(c) 2003 - Free to use. Must give author credit.
+
+This script will periodically make a splash within a 5' radius
+of any item you place that has this script in its heartbeat.
+The splash animation will be accompanied by a splash noise.
+To minimize the impact of putting this on a heartbeat, the
+area is checked for PCs before bothering to animate.
+
+The chance for a fish to jump is 30%. A second jump is also
+rolled for, just for variety, using the same chance.
+
+This script from the module 'Foreboding in Sylvani'
+
+See ts_fishing for details.
+*/
+
+int CHANCE_TO_JUMP = 30;
+
+
+float fRand( float max ) {
+    int n = Random(10000);
+    return IntToFloat(n) / 10000.0 * max;
+}
+
+void randomJump() {
+    location loc = GetLocation( OBJECT_SELF );
+    vector pos = GetPositionFromLocation( loc );
+    float facing = fRand( 360.0 );
+    float splashDistance = fRand( 5.0 );
+    pos.x += cos(facing) * splashDistance;
+    pos.y += sin(facing) * splashDistance;
+    loc = Location( GetAreaFromLocation(loc), pos, facing );
+
+    effect e = EffectVisualEffect( 118 ); //93 );
+    ApplyEffectAtLocation( DURATION_TYPE_TEMPORARY, e, loc );
+    PlaySound( "as_na_splash2" );
+}
+
+int anyPlayersInArea( object what ) {
+    object pc = GetNearestCreature( CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC, what );
+    return GetIsObjectValid(pc);
+}
+
+void main() {
+    if( !anyPlayersInArea( OBJECT_SELF ) )
+        return;
+
+    if( !GetLocalInt( OBJECT_SELF, "tsOff" ) ) {
+        PlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE);
+        SetLocalInt( OBJECT_SELF, "tsOff", 1 );
+    }
+
+    if( d100() < CHANCE_TO_JUMP ) {
+        float delay = fRand(5.0);
+        DelayCommand( delay, randomJump() );
+        if( d100() < CHANCE_TO_JUMP ) {
+            float delay = fRand(2.0);
+            DelayCommand( delay, randomJump() );
+        }
+    }
+}
+