home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_GAME / SS12A.ZIP / UPTO12.REX < prev   
OS/2 REXX Batch file  |  1994-03-29  |  3KB  |  111 lines
  1. /* Up Grade to version 1.2 */
  2.  
  3. Options Results
  4.  
  5. Say 'This could take awhile...'
  6.  
  7. call open(file,'Doors:SS/People','R')
  8.     nump=readln(file)
  9. call close(file)
  10.  
  11. call open(file,'Doors:SS/UNList','R')
  12. Do a = 1 to nump
  13.     NAME.a=readln(file)
  14. end a
  15. call close(file)
  16.  
  17. Do b = 1 to nump
  18.  
  19. call open(file,'Doors:SS/'||NAME.b,'R')
  20.     GName.b=readln(file)
  21.     card.b=readln(file)
  22.     nuro.b=readln(file)
  23.     bone.b=readln(file)
  24.     PA.b=readln(file)
  25.     con.b=readln(file)
  26.     oc.b=readln(file)
  27.     oc2.b=readln(file)
  28.     exp.b=readln(file)
  29.     lvl.b=readln(file)
  30.     cardtl.b=readln(file)
  31.     nurotl.b=readln(file)
  32.     bonetl.b=readln(file)
  33.     money.b=readln(file)
  34.     anlevel.b=readln(file)
  35.     DN2.b=readln(file)
  36.     sick.b=readln(file)
  37.     messages.b=readln(file)
  38.     bkmon.b=readln(file)
  39.     bklon.b=readln(file)
  40.     bklontl.b=readln(file)
  41.     undefined.b=readln(file)
  42.     undefined.b=readln(file)
  43.     undefined.b=readln(file)
  44. call close(file)
  45.  
  46. Address Command 'Delete Doors:SS/'NAME.b' quiet'
  47.  
  48. Line1.b = Name.b','GName.b','card.b','nuro.b','bone.b','pa.b','con.b','oc.b','oc2.b','exp.b','lvl.b
  49. Line2.b = cardtl.b','nurotl.b','bonetl.b','money.b','anlevel.b','DN2.b','sick.b','messages.b','bkmon.b','bklon.b','bklontl.b
  50.  
  51. end b
  52.  
  53. call open(file,'Doors:SS/USER.DAT','W')
  54.     call writeln(file,nump)
  55. Do c = 1 to nump
  56.     call writeln(file,Line1.c)
  57.     call writeln(file,Line2.c)
  58.     Drop Line1.c
  59.     Drop Line2.c
  60.     end c
  61. call close(file)
  62.  
  63. Address Command 'Delete Doors:SS/UNList quiet'
  64. Address Command 'Delete Doors:SS/UGList quiet'
  65. Address Command 'Delete Doors:SS/People quiet'
  66.  
  67. DIR = 'Doors:SS/'
  68.  
  69. call open(file,DIR||'USER.DAT','R')
  70.     NumP=readln(file)
  71. Do a = 1 to NumP
  72.     data1.a=readln(file)
  73.     data2.a=readln(file)
  74. parse VAR data1.a Name','GName','card','nuro','bone','PA','con','oc','oc2','exp','lvl
  75. parse VAR data2.a cardtl','nurotl','bonetl','money','anlevel','DN2','sick','messages','bkmon','bklon','bklontl
  76.  
  77. Say a', 'GName
  78.  
  79. if ~exists(DIR||GName) then do
  80. call open(file999,DIR||GName,'W')
  81.     call writeln(file999,Name)
  82. call close(file999)
  83. messages = 0
  84. end
  85.  
  86. call open(file1,DIR||GName,'R')
  87.     duh=readln(file1)
  88. Do b = 1 to messages
  89.     line1.b=readln(file1)
  90.     line2.b=readln(file1)
  91.     line3.b=readln(file1)
  92.     line4.b=readln(file1)
  93.     line5.b=readln(file1)
  94. end b
  95. call close(file1)
  96.  
  97. call open(file2,DIR||GName,'W')
  98. Do c = 1 to messages
  99.     call writeln(file2,line1.c)
  100.     call writeln(file2,line2.c)
  101.     call writeln(file2,line3.c)
  102.     call writeln(file2,line4.c)
  103.     call writeln(file2,line5.c)
  104. end c
  105. call close(file2)
  106.  
  107. end a
  108. call close(file)
  109.  
  110. Say 'Done'
  111. exit