home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / HLYX.RAR / LORDSTRC.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-12  |  21KB  |  444 lines
  1. {  These are the pascal file structures for the players and enemies for }
  2. {  Legend Of The Red Dragon 3.20 to 3.53a This file was last updated on }
  3. {  12-12-95.  For software developers.                                  }                                        }
  4. {                                                                       }
  5. {  3.53a does NOT change the format of the PLAYER.DAT file.  Carry on!  }
  6. {                                                                       }
  7. {  Check the BOTTOM of this file for NEW things about 3.53a developers  }
  8. {  should know.                                                         }
  9. {                                                                       }
  10. {  Legend Of The Red Dragon                                             }
  11. {  (c) Copyright 1995; Robinson Technologies                            }
  12. {  ALL RIGHTS RESERVED.                                                 }
  13. {                                                                       }
  14. {                                                                       }
  15. {  Note from Seth A. Robinson:  You have my permission to build         }
  16. {  add-ons, editers, whatever - BUT, if you decide to charge money for  }
  17. {  them I would appreciate it if you would upload me your file          }
  18. {  privately, let me evualuate it and see if it deserves my stamp of    }
  19. {  approval.                                                            }
  20. {                                                                       }
  21. {  That's right, I'm not against others making money off their mods, in }
  22. {  fact, I don't demand any percentage whatsoever.  God knows I've made }
  23. {  much more than I deserve already.  Just try not to charge more than  }
  24. {  I do for LORD itself, k?                                             }
  25.  
  26. {  Also, in ANY util for LORD, be sure to give some credit to ME! <G>   }
  27.  
  28. {  If you are going to build a LORD In Game Module, you *MUST* meet     }
  29. {  these specifications to call it such:                                }
  30. {                                                                       }
  31. {  1.  It reads *NO* external drop file, but gets all data from the     }
  32. {      info.? file AND node?.dat file.                                  }
  33. {                                                                       }
  34. {  2.  It has options to install *AND* uninstall itself.  (ie, add the  }
  35. {      program to the 3RDPARTY.DAT file itself)                         }
  36. {                                                                       }
  37. {  3.  The top line if the file_id.diz is like this:                    }
  38. {      <NAME & VERSION OF YOUR PROG> LORD IGM  (Decorate if you like)   }   
  39.  
  40. {  The reason I'm giving these specific instructions is because a few   }
  41. {  others have released their software as IGM's, sysops expect the      }
  42. {  simple installation they got with Barak's House                      }
  43. {  and instead find themselves having to mess with writing dropfiles for}
  44. {  the LORD mod separatly - which can be a mess, especially if the drop }
  45. {  file is overwritten while someone else goes into the realm, ect.     }
  46.  
  47. {  *PLEASE* abide by these rules.  If you don't - I, uh, will send      }
  48. {  someone to break your thumbs! ;>                                     }
  49.  
  50. {  Mail and color codes:  A "`" (not a "'") proceeded by certain symbols}
  51. {  and numbers have special funtions when LORD reads them in someones   }
  52. {  mail.  Except for colors, these codes must be at the beginning of a  }
  53. {  line.  Look at some MAILXX.DAT files for examples.  Here is the list }
  54. {  of codes - for instance, you may want your 3rd party program to give }
  55. {  a certain player one more charm point - there is a code to do that!  }
  56.  
  57. {*
  58.  
  59. NOTE:  In most cases, such as adding experience, if you put a negetive
  60. amount, it will DECREASE the value.  It does do checking to make sure it's
  61. not less then 1 when done.
  62.  
  63. `1 through `0, and `! through `% are colors.  (15 of them)
  64.           (`^ was removed.  Who wants all black forground color?)
  65. The following codes MUST be the first and only thing on the line.
  66.  
  67. `-<account num>  This will have LORD give the 'Write <name> back?' option.
  68. `b<amount> this deposites the amount in the readers bank account.
  69. `G<amount> this puts the amount in the readers 'money in hand'.
  70. `E<amount> this adds to the readers experience by amount.
  71. `?<account num>  Makes user MARRIED to this person. (-1 for not married)
  72. `{ this increments the 'number of lays' stat of the reader.
  73. `} {this increments the readers charm.)
  74. `+<amount>  Users charm BECOMES this number. (Used in divorce mail-backs)
  75. `K this increments the amount of kids the reader has.
  76. `M<amount>  This increments readers Strength
  77. `D<amount>  This increments readers Defence
  78. `,<amount>  This increments forest fights per that day
  79. `:<amount>  This increments user fighters per that day
  80. `;<amount>  This increments readers Hitpoint Max
  81.  
  82.    (Note, the above mail codes can decrement if a - is placed before num.
  83.    Checking is done to make sure user does not go below certain levels)
  84.  
  85. `S This raises the readers SKILL in his current class.  Will not let the
  86.    skill pass 40.
  87. `T <account num>  Indicates <account num> wants to flirt with reader
  88. `Y <account num>  Indicates <account num> wants to kiss reader
  89. `U <account num>  Indicates <account num> wants to have dinner with reader
  90. `I <account num>  Indicates <account num> wants to sleep with reader
  91. `P <account num>  Indicates <account num> wants to propose to reader
  92. `O <account num> Begins an online battle with <account num> (Don't use this!)
  93. `c clears, homes the screen and goes down two lines.
  94.  
  95.      *****  HOW DO I MAKE AN IN GAME MODULE FOR LORD? *****
  96.  
  97.   It is really sort of easy.  The smartest way is to write your door
  98.   to be able to read the NODEX.DAT files - (For com port, port speed, ect)
  99.   these are text editable, so you should be able to figure them out ok.
  100.  
  101.   It comes down to this:  Someone will be able to unzip your program, and
  102.   run the CFG/Installer, and it will add two lines to the 3RDPARTY.DAT
  103.   file.  These two lines are ALL LORD needs to automatically list your
  104.   door name as it appears to the players, (second line) and the path and
  105.   name of the EXE or BAT file that is run.  Look at the 3RDPARTY.DAT
  106.   file, it comes empty, but does contain a commented out example.
  107.   Note:  the 3RDPARTY.DAT file is automatically created when LORD is
  108.   run if it doesn't exist.
  109.  
  110.  
  111.   Notice that a * anywhere in the first line will have LORD subsitute
  112.   the node number.  So with say "C:\LORD\NEWBAR.EXE /N*" would give your
  113.   program the /N6 parm if node 6 was playing.  LORD will go up to 999
  114.   nodes.  (In theory only <G> )
  115.  
  116.   Why is this important?  Because you can then retrieve the correct NODEX.DAT
  117.   file yourself from the LORD dir.  LORD will drop a file called INFO.<node
  118.   num>, it contains the account number of the user who just dropped.
  119.   (this file also contains extra data, pherhaps enough so your program
  120.   will not NEED to open another file)
  121.  
  122.   Your door should pick up that, (it's a text file) and load that record.
  123.   Let them use the door, and write it upon exitting.  This means you could
  124.   load different INFO and NODE data for each node - thereby making your
  125.   addon multi-node.  Simple, eh?
  126.  
  127.   Another thing.  The max "Add On's" 3.50+ can handle is a lot.  At least a
  128.   thousand.
  129.  
  130.   Please be considerate enough to throw a 'Uninstall' option in your
  131.   configure program - To find your two lines and strip them out, just
  132.   in case the sysop decides not to keep it.  Sure, most sysops can edit
  133.   the 3RDPARTY.DAT file themselves, but it's a nice option anyway.
  134.  
  135.   There you have it - The goal of this is to make installing add-ons
  136.   much easier then installing a whole new door, because they will not
  137.   have to re-configure any com port settings, or node settings, because
  138.   you will be reading the NODEX.DAT files.  This also means you don't
  139.   have to mess with drop files at all, since using the 'account number'
  140.   from the INFO.??? file lets you load the entire account, including their
  141.   BBS handle and LORD handle of course.
  142.  
  143.   The structure of the LORD.<node num> file:
  144.  
  145.   13      <-Account, from 0 to 149
  146.   3       <-Graphic Setting, 3 is ANSI, less is ASCII
  147.   RIP YES <-Obvious - It's RIP NO when they are not RIP.
  148.   FAIRY YES <- Do they have a fairy with them?
  149.   Time Left <- In minutes.  This is READ AGAIN when they come back.  You
  150.                should keep track and change this number accordingly, so LORD
  151.                will how much time to give them.
  152.   LORD Handle       \
  153.   Real First Name    \
  154.   Real Last Name      \
  155.   Com Port;           |  Other info you may find useful.  You should still 
  156.   Caller Baud Rate;  /   read the NODEX.DAT files, because they contain
  157.   Port Baud Rate    /    more info - Such as a nonstardard com port.
  158.   
  159.   -=-=New things added to the info.? file in 3.26=-=-
  160.   Note:  LORD never reads any of these in, only writes them for your
  161.   convenience.
  162.  
  163.   FOSSIL  <- (will say INTERNAL if they are using LORD's internal routines)
  164.   REGISTERED <- LORD registration status, else UNREGISTERED.
  165.   CLEAN MODE ON <- else CLEAN MODE OFF
  166.  
  167.   NOTE:  Look at the INFO.? file yourself while someone is in a In
  168.   Game Module from LORD, you'll notice there are NO spaces in the file.
  169.  
  170. }
  171. program LordStrc;
  172. uses dos,crt;
  173.  
  174.  
  175.  
  176.  
  177.  {player record}
  178.  
  179. type player_info = record
  180.    names: string[20]; {player handle in the game}
  181.    real_names: string[50] {real name/or handle from BBS} ;
  182.    hit_points  {player hit points}
  183.   ,bad  {don't know - might not be used at all}
  184.   ,rate: integer; {again, couldn't find this one in the source}
  185.   hit_max: integer; {hit_point max}
  186.   weapon_num: integer; {weapon number}
  187.   weapon: string[20]; {name of weapon}
  188.   seen_master: integer; {equals 5 if seen master, else 0}
  189.   fights_left: integer; {forest fights left}
  190.   human_left: integer; {human fights left}
  191.   gold: longint; {gold in hand}
  192.   bank: longint; {gold in bank}
  193.   def: integer;  {total defense points }
  194.   strength: integer; {total strength}
  195.   charm: integer; {good looking meter}
  196.   seen_dragon: integer; {seen dragon?  5 if yes else 0}
  197.   seen_violet: integer; {seen violet?  5 if yes else 0}
  198.   level: integer; {level of player}
  199.   time: word; {day # that player last played on}
  200.   arm: string[20]; {armour name}
  201.   arm_num: integer; {armour number}
  202.   dead: shortint; {player dead?  5 if yes else 0}
  203.   inn: shortint; {player sleeping at inn?  5 if yes else 0}
  204.   gem: integer; {# of gems on hand}
  205.   exp: longint; {experience}
  206.   sex: shortint; {gender, 5 if female else 0}
  207.   seen_bard: shortint; {seen bard?  5 if yes else 0}
  208.   last_alive_time: integer; {day # player was last reincarnated on}
  209.   Lays: integer; {players lays stat}
  210.   Why: integer; {not used yet}
  211.   on_now: boolean; {is player on?}
  212.   m_time: integer; {day on_now stat was last used}
  213.   time_on: string[5]; {time player logged on in Hour:Minutes format}
  214.   class: shortint; {class, should be 1, 2 or 3}
  215.   extra: integer;      {*NEW*  If 1, player has a horse}
  216.   love: string[25]; {not used - may be used for inter-player marrages later}
  217.   married: integer; {who player is married to, should be -1 if not married}
  218.   kids: integer; {# of kids}
  219.   king: integer; {# of times player has won game}
  220.   skillw: shortint; {number of Death Knight skill points}
  221.   skillm: shortint; {number of Mystical Skills points}
  222.   skillt: shortint; {number of Thieving Skills points}
  223.  
  224.   levelw: shortint; {number of Death Knight skill uses left today}
  225.   levelm: shortint; {number of Mystical skill uses left today}
  226.   levelt: shortint; {number of Thieving skill uses left today}
  227.  
  228.   inn_random: boolean; {not used yet}
  229.   married_to: integer; {same as Married, I think - don't know why it's here}
  230.   v1: longint;
  231.   v2: integer; {# of player kills}
  232.   v3: integer; {if 5, 'wierd' event in forest will happen}
  233.   v4: boolean; {has player done 'special' for that day?}
  234.   v5: shortint; {has player flirted with another player that day?  if so, 5}
  235.   new_stat1: shortint;
  236.   new_stat2: shortint;  {these 3 are unused right now}
  237.   new_stat3: shortint;  {Warning: Joseph's NPCLORD screws with all three}
  238. end;
  239.  
  240. {  Remember, in 3.20+ player skill points for each class can reach 40.      }
  241.  
  242. {  It's ok to have your editer change the player level to say, 12 or        }
  243. {  such, LORD will automatically not let the player play if the game is     }
  244. {  not registered.                                                          }
  245.  
  246. {  If in your program you let the player get a new weapon, remember, you CAN}
  247. {  change the name of his weapon,  but the weapon NUMBER stat is what tells }
  248. {  LORD which weapon he has, and if he sells it, will SUBTRACT the correct  }
  249. {  number from his overall strength.  Kind of complicated.  Armour works the}
  250. {  exact same way.                                                          }
  251.  
  252. {List of armour info - Num is the defense added or subtracted when bought or}
  253. {sold.
  254.  
  255.    if number= 1 then wep_name := 'Coat';
  256.      if number= 1 then price := 200;
  257.      if number= 1 then num :=1;
  258.      if number= 2 then wep_name := 'Heavy Coat';
  259.      if number= 2 then price := 1000;
  260.      if number= 2 then num :=3;
  261.      if number= 3 then wep_name := 'Leather Vest';
  262.         if number= 3 then num :=10;
  263.  
  264.      if number= 3 then price := 3000;
  265.      if number= 4 then wep_name := 'Bronze Armour';
  266.      if number= 4 then price := 10000;
  267.      if number= 4 then num :=15;
  268.      if number= 5 then wep_name := 'Iron Armour';
  269.      if number= 5 then price := 30000;
  270.       if number=5 then num :=25;
  271.       if number= 6 then wep_name := 'Graphite Armour';
  272.      if number= 6 then price := 100000;
  273.      if number = 6 then num := 35;
  274.      if number= 7then wep_name := 'Erdricks Armour';
  275.      if number= 7 then price := 150000;
  276.      if number= 7 then num := 50;
  277.      if number= 8 then wep_name := 'Armour Of Death';
  278.      if number= 8 then price := 200000;
  279.      if number= 8 then num := 75;
  280.      if number= 9 then wep_name := 'Able''s Armour';
  281.      if number= 9 then price := 400000;
  282.      if number= 9 then num := 100;
  283.      if number= 10 then wep_name := 'Full Body Armour';
  284.      if number= 10 then price := 1000000;
  285.      if number= 10 then num := 150;
  286.      if number= 11 then wep_name := 'Blood Armour';
  287.      if number= 11 then price := 4000000;
  288.      if number= 11 then num:= 225;
  289.      if number= 12 then wep_name := 'Magic Protection';
  290.      if number= 12 then price := 10000000;
  291.      if number= 12 then num:= 300;
  292.      if number= 13 then wep_name := 'Belars''s Mail';
  293.      if number= 13 then price := 40000000;
  294.      if number= 13 then num:=400;
  295.      if number= 14 then wep_name := 'Golden Armour';
  296.      if number= 14 then price := 100000000;
  297.      if number= 14 then num:=600;
  298.      if number= 15 then wep_name := 'Armour Of Lore';
  299.      if number= 15 then price := 400000000;
  300.      if number= 15 then num:=1000;
  301.  
  302.  Same info for weapons:
  303.  
  304.    if number= 1 then wep_name := 'Stick';
  305.      if number= 1 then price := 200;
  306.      if number= 1 then num := 5;
  307.      if number= 2 then wep_name := 'Dagger';
  308.      if number= 2 then price := 1000;
  309.      if number= 2 then num:=10;
  310.      if number= 3 then wep_name := 'Short Sword';
  311.      if number= 3 then price := 3000;
  312.      if number= 3 then num := 20;
  313.      if number= 4 then wep_name := 'Long Sword';
  314.      if number= 4 then price := 10000;
  315.      if number= 4 then num:= 30;
  316.      if number= 5 then wep_name := 'Huge Axe';
  317.      if number= 5 then price := 30000;
  318.      if number= 5 then num:= 40;
  319.      if number= 6 then wep_name := 'Bone Cruncher';
  320.      if number= 6 then price := 100000;
  321.      if number= 6 then num:=60;
  322.      if number= 7then wep_name := 'Twin Swords';
  323.      if number= 7 then price := 150000;
  324.      if number= 7 then num:=80;
  325.      if number= 8 then wep_name := 'Power Axe';
  326.      if number= 8 then price := 200000;
  327.      if number= 8 then num:=120;
  328.      if number= 9 then wep_name := 'Able''s Sword';
  329.      if number= 9 then num := 180;
  330.      if number= 9 then price := 400000;
  331.       if number= 10 then wep_name := 'Wans''s Weapon';
  332.      if number= 10 then price := 1000000;
  333.      if number= 10 then num := 250;
  334.      if number= 11 then wep_name := 'Spear Of Gold';
  335.      if number= 11 then price := 4000000;
  336.      if number= 11 then num:= 350;
  337.      if number= 12 then wep_name := 'Crystal Shard';
  338.      if number= 12 then price := 10000000;
  339.      if number= 12 then num:= 500;
  340.      if number= 13 then wep_name := 'Niras''s Teeth';
  341.      if number= 13 then price := 40000000;
  342.      if number= 13 then num:=800;
  343.      if number= 14 then wep_name := 'Blood Sword';
  344.      if number= 14 then price := 100000000;
  345.      if number= 14 then num:=1200;
  346.      if number= 15 then wep_name := 'Death Sword';
  347.      if number= 15 then price := 400000000;
  348.      if number= 15 then num:=1800;
  349.  
  350.  
  351.   {forest monster record format}
  352.  type monst = record
  353.            name: string[60];
  354.            strength: longint;
  355.            gold: longint;
  356.            weapon: string[60];
  357.            exp_points: longint;
  358.            hit_points: longint;
  359.            death: string[100]; {shown when monster is killed by power move}
  360.  end;
  361.  
  362. {  There are eleven monsters for each level - they are in the file in order.}
  363. {                                                                           }
  364. {  You cannot ADD monsters, but you can change them.  Or one possibilty     }
  365. {  would to write an .EXE that is run before LORD is played each time that  }
  366. {  randomly replaces some monsters in each level with new ones.             }
  367. {                                                                           }
  368.  
  369.                    { ** NEW!  LORD'S FILE LOCKING ROUTINES! **}
  370.  
  371. { Get BCShare or compatible file locking system.That is what LORD uses now. }
  372.  
  373. { A 3.50 addition: People can STAY in other towns/ect! (IGM's)
  374.  
  375. No IGM currently uses this feature of this writing, (duh, since 3.50 is
  376. required to use it, and it ain't released as I write this) but I'm HOPING
  377. it would work ok.  ;>
  378.  
  379. Everytime a user enters an IGM, LORD creates a file called OUT.<player num>.
  380. This a text file.  The first line is the description LORD will give someone
  381. when they view 'who's online' or try to attack them.
  382.  
  383. The addition: 
  384.  
  385. You can let people exit straight back to the BBS by making the second line
  386. read QUIT.  Specifying something else will now have LORD log them off, and
  387. automatically return to THAT command line specified on they're next log on.
  388.  
  389. So if you rewrote the out.1 file while player num 1 was in your IGM like 
  390. this:
  391.  
  392. is sleeping in Barak's house.
  393. c:\barak\barak.exe *  
  394.  
  395. Then LORD would actually let that person stay at Barak's.  Specifying a 
  396. second line also makes LORD display 'where they are' slightly differently so  
  397. a 'who is online' would look like this:
  398.  
  399. Billy Bob is sleeping in Barak's house. 
  400.  
  401. No one can attack someone who is 'out of the realm' so be careful if you
  402. use this function.  Note:  Before return a user to your IGM when they log
  403. on the next day or whenever, it processes mail and "new day" routines if
  404. needed. 
  405.  
  406. ********* ABOUT MAIN.BAT ***********
  407. This is a batch file run every day RIGHT AFTER LORD does its maint.  This
  408. way you could run your IGM's maint, or add things to the daily log in LORD
  409. ect, BEFORE anyone plays that day.                                        
  410.                               
  411. If you want to use this, do the following in your install program:
  412.  
  413. 1. See if maint.bat exists.  If it doesn't, assume they are running an older
  414. version, and tell them to  get 3.53a.
  415.  
  416. 2. Check to see what is already in the MAINT.BAT file, if your IGM name or
  417. whatever program you use is ALREADY in there, don't add it again, take it
  418. out if you need to and add a different line, or just leave the old one in.
  419.  
  420. 3. When someone uses the UNINSTALL option, make sure your program takes out
  421. the additions in MAINT.BAT in a non destructive way.  Don't screw up another
  422. IGM's stuff above or below yours.  Just like the 3rdparty.dat file, really.
  423.  
  424. 4.  In your maint or whatever, display some kind of progress report, and the
  425. IGM's name.  Sysops like to know what they are doing, if they happen to be
  426. watching at midnight, give them a treat.  Don't clear the screen if you can
  427. help it.  And DON'T require a keypress to continue or anything.
  428.  
  429. Also, it is technically possible to RUN an IGM this way - it creates an
  430. INFO.? file just like normal.   Not sure how this would be handy but..
  431.  
  432.  
  433. ********** INFO ON BADWORDS.DAT *********
  434.  
  435. Check this file out, you'll understand it easily.  A thought is to run this
  436. by all user inputs in your IGM, that way the 'swear patrol' is online even
  437. out of LORD.  This ain't required, but hey it would be cool.
  438.  
  439. }
  440.  
  441.   begin;
  442.  
  443.   end.
  444.