home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 167.lha / Player / SwapSk.Rexx < prev    next >
OS/2 REXX Batch file  |  1988-04-28  |  991b  |  53 lines
  1. /* Swaps any two skills in player--intended for use as external function */
  2. options results
  3. shell player
  4. arg a b .
  5.  
  6. /* Get first skill */
  7. 'get skill' a 'num'
  8. num1=result
  9. 'get skill' a 'name'
  10. name1=result
  11. do i=1 to 4
  12.   'get skill' a 'prime' i
  13.   prime1.i=result
  14.   'get skill' a 'weight' i
  15.   wt1.i=result
  16. end
  17. 'get skill' a 'tp'
  18. tp1=result
  19.  
  20. /* Get second skill */
  21. 'get skill' b 'num'
  22. num2=result
  23. 'get skill' b 'name'
  24. name2=result
  25. 'get skill' b 'prime 1'
  26. do i=1 to 4
  27.   'get skill' b 'prime' i
  28.   prime2.i=result
  29.   'get skill' b 'weight' i
  30.   wt2.i=result
  31. end
  32. 'get skill' b 'tp'
  33. tp2=result
  34.  
  35. /* Replace first skill with second skill */
  36. 'set skill' b 'num' num1
  37. 'set skill' b 'name' name1
  38. do i=1 to 4
  39.   'set skill' b 'prime' i prime1.i
  40.   'set skill' b 'weight' i wt1.i
  41. end
  42. 'set skill' b 'tp' tp1
  43.  
  44. /* Replace second skill with first skill */
  45. 'set skill' a 'num' num2
  46. 'set skill' a 'name' name2
  47. do i=1 to 4
  48.   'set skill' a 'prime' i prime2.i
  49.   'set skill' a 'weight' i wt2.i
  50. end
  51. 'set skill' a 'tp' tp2
  52.  
  53.