onobjsel.qsrc 1.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273
  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 $selobj = '<center>Switch HTML</center>':
  30. usehtml = iif(usehtml,0,1)
  31. end
  32. if INSTR($selobj,':') > 0:
  33. tmpPos = INSTR($selobj,':') - 1
  34. $tmpVar = MID($selobj, 1, tmpPos)
  35. $tmpVal = INPUT('Enter a value for <<$tmpVar>>')
  36. if $tmpVal <> '':
  37. if instr($tmpVar,'$') = 1:
  38. dyneval('<<$tmpVar>> = ''<<$tmpVal>>''')
  39. else
  40. dyneval('<<$tmpVar>> = <<VAL($tmpVal)>>')
  41. end
  42. end
  43. gs 'stat'
  44. killvar '$tmpVar'
  45. killvar 'tmpPos'
  46. killvar '$tmpVal'
  47. end
  48. if $selobj = '<center>-1 Hour</center>':gs 'obj_din', '-1 Hour'
  49. if $selobj = '<center>+1 Hour</center>':gs 'obj_din', '+1 Hour'
  50. if $selobj = '<center><font color = red>Emergency</font></center>':gs 'obj_din', 'emergency'
  51. if $selobj = '<center>Remove debug info</center>': debug_warning_closed = 1 & gs 'stat'
  52. !The old menu: end
  53. if $selobj = 'Player':
  54. clr
  55. pl'Your name is Mikhail Kuznetsov. You <<age>> years. <<$vneshPRE>>'
  56. pl'You have short black hair with flashes of gray starting, little brown eyes and willed jaw covered by blue bristle shave.'
  57. pl'Growth <<pcs_hgt>> see, weight 100 kg.'
  58. end
  59. unselect
  60. --- onobjsel ---------------------------------