If ( GetSpell, "LycanthropeFear" == 0 ) CreatureRef->Addspell, "LycanthropeFear" endif
setx CreatureFlee to CreatureRef->GetFleeif ( CreatureFlee < 50 ) CreatureRef->ModFlee 50endif
xSetRef CreatureRefset tmp to ( 100 - ( GetFlee ) )if ( tmp <= 0 ) returnendifCreatureRef->ModFlee tmp
setx pcref to xGetRef "player"setx InCombat to pcref->xGetCombatIf ( InCombat != 0 )returnendif
Begin LycanthropeCreatureFear long CreatureRef ;change the variables to whatever you want long tmp ifx ( CreatureRef ) setx CreatureRef to xNextRef CreatureRef ;finds the next NPC or creature in the cell else setx CreatureRef to xFirstNPC ;finds the first NPC or creature in the cell endif if ( CreatureRef == 0 ) ;end of list or empty cell return endif setx tmp to CreatureRef->xRefType if ( tmp != 1095062083 ) ;if not type Creature return endif xSetRef CreatureRef set tmp to ( getspell, "LycanthropeFear" ) if ( tmp == 1 ) return endif CreatureRef->Addspell, "LycanthropeFear" CreatureRef->modfight 90end
Begin InfectionForceGreet Short DoOnce Float LocalX Float LocalY Float LocalZ short done Long Code Long Current long target ;________________Beginning of Lycanthrope Activate____________________ Set Code to Key_Activate Setx Current to xKeyPressed, Code ;________________Beginning of Script Preventions____________________ if ( ranconfig == 0 ) return endif If ( ScriptRunning, "BecomeHuman" == 1 ) return elseif ( ScriptRunning, "BecomeLycanthrope" == 1 ) return endif if ( PowerIsActivating == 1 ) return endif if ( MenuMode == 1 ) return endif ;________________End of Script Preventions____________________ if ( Current == 0 ) If ( DoOnce == 1 ) set DoOnce to 0 endif return endif if ( DoOnce == 1 ) return endif set DoOnce to 1 Setx Target to xGetPCtarget ;________________Cannot Transform Messages____________________ if ( Target == 0 ) return endif xSetRef, Target If ( Iswerewolf == 0 ) return endif xSetRef, Target if ( gethealth < 1 ) return endif ;________________End Cannot Transform Messages____________________ placeatpc, ForceGreetNPC, 1, 512, 1 ;place 1 greeter, 512 units beyhind the PCend
begin ForceGreetNPCScript short Done if ( getDisabled == 1 ) setdelete, 1 return endif ;Do Once thing if ( Done == 0 ) set done to 1 forcegreeting return endif ;When we have done talking, diable if ( Done == 1 ) if ( menumode == 0 ) disable return endif endifend
Begin Werewolf_Running_Sounds Short doonce If ( DoOnce == 0 ) If ( player->getsoundplaying "WolfRun" == 1 ) player->playloopsound3d, "WerewolfRun" set DoOnce to 1 endif endif If ( DoOnce == 1 ) If ( player->getsoundplaying "WolfRun" == 0 ) If ( player->getsoundplaying "WereWolfRun" == 1 ) player->stopsound, "WerewolfRun" set DoOnce to 0 endif endif endifend
begin Werewolf_Running_SoundsIf ( player->GetSoundPlaying "WolfRun" ) player->StopSound "WolfRun" player->PlaySound3D "WerewolfRun"endifend
begin Werewolf_Running_Sounds If ( player->GetSoundPlaying "WolfRun" ) If ( player->GetSoundPlaying, "WerewolfRun" == 0 ) player->PlaySound3D "WerewolfRun" endif endif If ( Player->GetSoundPlaying "WolfRun" == 0 ) player->stopsound, "WerewolfRun" endif returnend