@#INSTALL @eventname HIGHSPIRITS @author Donald Tidmore @authid HIGH-SPIRITS-120 @codebegin @runsub HIGHSPIR &filename @codeend @target FOREST @#UNINSTALL ; ================================================================= ; High Spirits Event v1.20. By Donald Tidmore. ; Email: ktidmore@bellsouth.net. Fidonet: 1:123/450 ; WWW: http://camelot.legendarydragons.com/. As of mid-June 2007. ; Requires LORD v4.05+. ; ================================================================= ; @#SPIRITS @display `c `! Extraordinary Events In The Forest `l `%You are granted `$High Spirits `%by the great `@Belgarion. `%Use them wisely. You are also granted `$200 `!Hit-Points, `$100 `!Gems, `%and `$10 `!Forest Fights `%to aid you in your battles with `#Forest Monsters, `#other warriors, `%or the `@Red Dragon. `#Try visiting the `$legendary Lady of the Forest, `%brave warrior. @enddisplay ; --------------------------------------------------------------- @writeln @math &N1 = &Pht + 0 ; Store Current Hitpoints. @math &N2 = &Phx + 0 ; Store current Max Hitpoints. @math &N3 = &N1 + 200 ; Add 200 Hitpoints to Current HP @set &Pht to &N3 @math &N4 = &Pge + 0 ; Store Gems on hand. @math &N5 = &N4 + 100 ; Give player 100 Gems. @set &Pge to &N5 ; Reset Gems statistic. @set &Phi to True ; This gives Player "High Spirits". @math &N1 = &Pht + 0 ; Resets Current HP work field. 05/27/03. ; 08/16/02: @if &N1 < &Phx 1 @begin @math &N2 = &Phx + 0 @set &Pht to &N2 ; Restore player to full health. @display `0"I see that you have been injured recently, noble warrior. `$You have now been fully `#HEALED. `%Now go kill some more of the vicious monsters who prowl this wild, dangerous `#Forest." @enddisplay @writeln @end @endif 1 @math &N6 = &Pff + 0 ; store Forest fights. @math &N7 = &N6 + 10 ; grant player 10 new forest fights @set &Pff to &N7 ; reset Forest fights stat. ; Tested usage of Hero lady variable 07/21/04. Works fine. ; -------------------------------------------------------------- ; @writeln ; @writeln `!The last `0Hero of the Realm `!is `$&hero ; @writeln `!Perhaps YOU can be the next `@Dragon-Killer! ; @writeln ; --------------------------------------------------------------- ; Note to end-user. Place any temporary usage script commands ; in this section. Reminder to SYSOPS: If you wish your players ; to have access, modify this script accordingly. Also remember ; to delete your temporary variables after they have been processed! ; 07/21/2004 note: The DisplayFile, LordDir, Hero commands work now. ; 07/21/2004 note: ChangeWep xx changes weapon # to xx's value. ; 07/21/2004 note: ChangeArm xx changes armour # to xx's value. ; ----------------------------------------------------------------- ; 11/13/2004: worked on over-range stats handling in HITS igm: ; @set &Pex to 1599500000 ; @set &Psb to False ; Set Seen Bard Variable to False. ; @math &N1 = &Psr + 0 : Store Strength points in N1 VAR. 10/01/05. ; @math &N1 = &N1 + 3000 ; Restore 3,000 Strength to the player. ; @set &Psr to &N1 ; Resets Strength points to N1 Var's value. ; --- End of 10/01/05 revision block. Used with Werewolf II igm tests. @if &Pge < 16000 1 ;edited 01/31/07 @begin @Set &Pge to 16000 ; 07/28/05: doubled amount to 30,000. @WriteLn `!Reset player's Gems to 16,000. ;edited 01/31/07 @end ;06/17/06. added begin/end lines. @endif 1 ; 08/19/05: Changed amount to 32,000. @if &Phf < 250 2 ; 05/24/05: for Werewolf II igm tests @begin @set &Phf to 250 @WriteLn `!Reset player's Player Fights to 250. ;05/31/07 @end @endif 2 ; resets Player Fights to 200 @if &Pff < 500 3 ;Edited 01/31/07. Used for Werewolf II igm tests @begin @set &Pff to 500 @WriteLn `!Reset player's Forest Fights to 500. ;Edited 01/31/07 @end @endif 3 ; resets Forest Fights to 200 @if &Pde >= 30000 4 ; 07/28/05: igm testing usage @begin @set &Pde to 16000 @writeln `!Reset Defense Points from 30,000+ to 16,000. @end @endif 4 ; Purpose: LORD v4.07 and v4.08 Beta are screwed up in that ; whenever you buy new armour, regardless of the armour type ; and defense points value you have, LORD resets Defense to ; 32,000 points automatically. This fixes that glitch. Donald @if &Psb = True 5 ; allow player to Hear Bard Sing again. @begin @set &Psb to False @end @endif 5 @if &Pgo <= 500000000 6 ; 10/31/05: stats reset use @begin @set &Pgo to 500000000 @writeln `!Reset Gold in Hand up to 500 Million Gold. @writeln `0Purpose is for general igm testing usage. @end @endif 6 @LABEL SPIRITS_END @hitakey ; Needed for viewing screen under LORD 4.06. @endquest ; ============================================================= ; For intended usage only by other Lady script authors. ; ; Script v1.01 changes: Give user 200 Temp Hitpoints, and 2 gems. ; v1.02: Changed text color usage; switch to giving 5 Gems. ; v1.04: Switch to 15 gems reward. v1.06: Give Free healing if nearly dead. ; v1.07: give player 10 new forest fights. Tested under Lord 4.06. ; 11/16/02: Changed Label name to "SPIRITS". ; 12/14/02: For testing Gem Trader LORD IGM, added code to grant fairy. ; 10/11/03: v1.10. Changed to 25 Gems reward. Used in Gem Trader IGM testing. ; ; 07/24/05: Added INSTALL and UNINSTALL sections to script. ; 07/28/05: v1.15. Changed to 100 Gems reward, for IGM testing use. ; 06/03/2006: Revised AuthId code. Changed to v1.18. Rewrote text ; and changed color codes in the "You are granted" paragraph. ; ============================================================== ; 05/31/07: v1.20: Revised Email/WWW info; Changed version #. ; WARNING to reader. This script is HEAVILY modified for my ; needs as I test my igms. You NEED to rewrite the code to ; fit YOUR needs as you play LORD, so please do so. DO NOT ; distribute YOUR modifications of this script to others UNLESS ; you have changed the script's filename to something different.