1
0

onobjsel.qsrc 1.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. # onobjsel
  2. !the dynamics can all be found in obj_din and Cheatmenu_din
  3. if $selobj = '<center>Refresh</center>':gs '$menu_obnovit'
  4. if $selobj = '<center>Console</center>':dynamic $cheatmenu['dynamic']
  5. if $selobj = '<center>Toggle Debug Variables</center>':
  6. if objectWindowDebug = 0:
  7. objectWindowDebug = 1
  8. else
  9. objectWindowDebug = 0
  10. end
  11. gs 'stat'
  12. end
  13. if $selobj = '<center>Add Debug Variable</center>':
  14. $tmpVar = INPUT('Enter the variable name')
  15. if $tmpVar <> '':
  16. gs 'obj_din', 'AddDebugVar', $tmpVar
  17. gs 'stat'
  18. end
  19. killvar '$tmpVar'
  20. end
  21. if $selobj = '<center>Delete Debug Variable</center>':
  22. $tmpVar = INPUT('Enter the variable name to delete')
  23. if $tmpVar <> '':
  24. gs 'obj_din', 'DeleteDebugVar', $tmpVar
  25. gs 'stat'
  26. end
  27. killvar '$tmpVar'
  28. end
  29. if INSTR($selobj,':') > 0:
  30. tmpPos = INSTR($selobj,':') - 1
  31. $tmpVar = MID($selobj, 1, tmpPos)
  32. $tmpVal = INPUT('Enter a value for <<$tmpVar>>')
  33. if $tmpVal <> '':
  34. if instr($tmpVar,'$') = 1:
  35. dyneval('<<$tmpVar>> = ''<<$tmpVal>>''')
  36. else
  37. dyneval('<<$tmpVar>> = <<VAL($tmpVal)>>')
  38. end
  39. end
  40. gs 'stat'
  41. killvar '$tmpVar'
  42. killvar 'tmpPos'
  43. killvar '$tmpVal'
  44. end
  45. if $selobj = '<center>-1 Hour</center>':gs 'obj_din', '-1 Hour'
  46. if $selobj = '<center>+1 Hour</center>':gs 'obj_din', '+1 Hour'
  47. if $selobj = '<center><font color = red>Emergency</font></center>':gs 'obj_din', 'emergency'
  48. if $selobj = '<center>Remove debug info</center>': debug_warning_closed = 1 & gs 'stat'
  49. !The old menu: end
  50. if $selobj = 'Player':
  51. clr
  52. pl'Your name is Mikhail Kuznetsov. You <<age>> years. <<$vneshPRE>>'
  53. pl'You have short black hair with flashes of gray starting, little brown eyes and willed jaw covered by blue bristle shave.'
  54. pl'Growth <<pcs_hgt>> see, weight 100 kg.'
  55. end
  56. unselect
  57. --- onobjsel ---------------------------------