mod_bestmod_petshop.qsrc 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. # mod_bestmod_petshop
  2. if $ARGS[0] = 'buy_dog':
  3. 'Dog - 3000 <b>₽</b>'
  4. if money >= 3000 and sobaka = 0:
  5. act 'Buy a dog (3000 <b>₽</b>)':
  6. cla & *clr
  7. menu_off = 1
  8. '<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/695_small.jpg"></center>'
  9. if home_owned[1] > 0:
  10. act 'Hello, I would like to get a dog':
  11. cla
  12. *clr
  13. '<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/695_small.jpg"></center>'
  14. '<center><b>Sorry, but we only have male dogs.</b></center>'
  15. act 'Buy a dog':
  16. cla
  17. *clr
  18. minut += 10
  19. sobaka += 1
  20. money -= 3000
  21. '<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog1.jpg" width = 600 height = 500 ></center>'
  22. '<center><b>You bought a Dalmatian dog.</b></center>'
  23. $namesob = input ('I''ll call the dog... (Leave blank to name him Spot)')
  24. if $namesob = '':$namesob = 'Spot'
  25. gs 'npcgeneratec', 0, $namesob, rand(1,4)
  26. gs 'npcpreservec', $npclastgenerated
  27. $petID = $npclastsaved
  28. $npc_firstname[$npclastsaved] = $namesob
  29. $npc_nickname[$npclastsaved] = $namesob
  30. $npc_lastname[$npclastsaved] = $namesob
  31. $npc_usedname[$npclastsaved] = $namesob
  32. $npc_notes[$npclastsaved] = 'The dog you purchased from the pet shop.'
  33. npc_spermpot[$npclastsaved] = iif(bm_pc_dog_fert and bm_enable_preg, 20000, -1)
  34. $npc_thdick[$npclastsaved] = 'knotted'
  35. npc_dick[$npclastsaved] = 18
  36. npc_sexskill[$npclastsaved] = 0
  37. $bm_npc_species[$npclastsaved] = 'dog'
  38. act 'Move away from the counter':gt 'zoomagazine', 'start'
  39. end
  40. end
  41. else
  42. 'You need to have your own place before you can buy a dog.'
  43. end
  44. act 'Move away from the counter': minut += 5 & gt 'zoomagazine', 'start'
  45. end
  46. end
  47. end
  48. --- mod_bestmod_petshop ---------------------------------