1
0

onobjsel 3.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  1. # onobjsel
  2. !the dynamics can all be found in obj_din and Cheatmenu_din
  3. killvar 'menu_character'
  4. $menu_character[0] = 'Description:$menu_descrip'
  5. $menu_character[1] = 'Characteristics of:$menu_skills'
  6. $menu_character[2] = 'Statistics:$menu_statistika'
  7. $menu_character[3] = 'Reputation:$menu_reputation'
  8. $menu_character[4] = 'Pain:$menu_pain'
  9. if magik > 0:$menu_character[5] = 'Magic:$menu_magic'
  10. $menu_lookon[0] = 'Face:$menu_face'
  11. $menu_lookon[1] = 'Body:$menu_body'
  12. $menu_lookon[2] = 'Clothing:$menu_clothes'
  13. $menu_lookon[3] = 'Tattoos:$menu_tattoos'
  14. $menu_lookon[4] = 'Piercing:$menu_pirs'
  15. killvar 'menu_view'
  16. $menu_view[0] = 'The old menu:$menu_addoldmenu'
  17. $menu_view[1] = 'Cheat menu:$menu_cheat'
  18. $menu_view[2] = 'Refresh:$menu_obnovit'
  19. killvar 'menu_other'
  20. $menu_other[0] = 'Notebook:$menu_bloknot'
  21. $menu_other[1] = 'Emergency exit:$menu_avariya'
  22. if disable_autosave = 1:
  23. $menu_other[2] = 'Enable autosave:$menu_autosave'
  24. else
  25. $menu_other[2] = 'Disable autosave:$menu_autosave'
  26. end
  27. if mobila > 0:$menu_other[3] = 'Phone:$menu_mobila'
  28. !The old menu: beginning
  29. if $selobj = '<font color = green>Character</font>':gs 'obj_din', 'descrip'
  30. if $selobj = 'Skills':gs 'obj_din', 'skills'
  31. if $selobj = 'Statistics':gs 'obj_din', 'stats'
  32. if magik > 0:if $selobj = 'Magic':gs 'obj_din', 'magic'
  33. if $selobj = 'Face':view FUNC('$face_image')
  34. if $selobj = 'Body':gs 'obj_din', 'body'
  35. if $selobj = 'Clothing':gs 'obj_din', 'clothes'
  36. if $selobj = 'Tattoos':gs 'obj_din', 'tattoos'
  37. if $selobj = 'Piercing':gs 'obj_din', 'piercing'
  38. if $selobj = 'Purse':dynamic $d_bag
  39. if $selobj = 'Phone':dynamic $Phone_menu
  40. if $selobj = 'Notebook':gs 'obj_din', 'records'
  41. if $selobj = 'Refresh':gs '$menu_obnovit'
  42. if $selobj = 'The new menu':menu_option = 0 & gs 'obj_din', 'new'
  43. if $selobj = 'Cheat menu':gs 'Cheatmenu_din' & dynamic $cheatmenu
  44. if $selobj = 'Emergency exit':gs 'obj_din', 'exit'
  45. if disable_autosave = 1:
  46. if $selobj = 'Enable autosave':gs 'obj_din', 'autosave'
  47. else
  48. if $selobj = 'Disable autosave':gs 'obj_din', 'autosave'
  49. end
  50. !The old menu: end
  51. !The new menu: beginning
  52. if $selobj = '<img src="images/pic/icon/pers.png">':menu '$menu_character'
  53. if $selobj = '<img src="images/pic/icon/look.png">':menu '$menu_lookon'
  54. if $selobj = '<img src="images/pic/icon/proch.png">':menu '$menu_other'
  55. if $selobj = '<img src="images/pic/icon/phone.png">':gs 'din_bad' & dynamic $Phone_menu
  56. if $selobj = '<img src="images/pic/icon/purse.png">':dynamic $d_bag
  57. if $selobj = '<img src="images/pic/icon/menu.png">':menu '$menu_view'
  58. !The new menu: end
  59. if $selobj = 'Player':
  60. clr
  61. pl'Your name is Mikhail Kuznetsov. You <<age>> years. <<$vneshPRE>>'
  62. pl'You have short black hair with flashes of gray starting, little brown eyes and willed jaw covered by blue bristle shave.'
  63. pl'Growth <<rost>> see, weight 100 kg.'
  64. end
  65. !! gs'Menu.Create','mainMenu'
  66. !! gs'Menu.Add','mainMenu','Status Bar','','MenuMainLoc','0'
  67. !! gs'Menu.Add','mainMenu','Text Symbols','','MenuMainLoc','1'
  68. !! gs'Menu.Call','mainMenu'
  69. unselect
  70. --- onobjsel ---------------------------------