BMloc.qsrc 1.9 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859
  1. # BMloc
  2. menu_off = 1
  3. gs 'stat'
  4. act 'Leave':gt 'gdkin'
  5. act 'Dance':
  6. *clr & cla
  7. gs 'stat'
  8. gs 'boystat', $bmNane[Tboynum]
  9. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  10. if bmFrend[Tboynum] = 0:
  11. if bmHJ[Tboynum] > 0 or bmBJ[Tboynum] > 0 or bmSEX[Tboynum] > 0 or bmANAL[Tboynum] > 0 or bmGANG[Tboynum] > 0:
  12. if bmHJ[Tboynum] > 0:$text2 = 'you gave me a hand job.'
  13. if bmBJ[Tboynum] > 0:$text2 = 'you gave me a blowjob.'
  14. if bmSEX[Tboynum] > 0:$text2 = 'you let me fuck you.'
  15. if bmANAL[Tboynum] > 0:$text2 = 'you let me fuck you in the ass.'
  16. if bmGANG[Tboynum] > 0:$text2 = 'you let me and my friend fuck you.'
  17. '<<$niknameboy>> tells you "Remember me, <<$text2>>. I''m <<$boydesc>>."'
  18. else
  19. if bmKISS[Tboynum] > 0 or bmTITS[Tboynum] > 0:
  20. '<<$niknameboy>> tells you "Remember me, we hung out and drank together beer. I''m <<$boydesc>>."'
  21. else
  22. '<<$niknameboy>> tells you "Remember me, we danced together. I''m <<$boydesc>>."'
  23. end
  24. end
  25. end
  26. if bmTip[Tboynum] = 0:'After the Dance <<$boydesc>> offers to go out and drink beer.'
  27. if bmTip[Tboynum] = 1:'After the Dance <<$boydesc>> offers to go hang out.'
  28. if bmTip[Tboynum] = 2:'After the Dance <<$boydesc>> offers to go to his hotel.'
  29. gs 'willpower', 'drink', 'resist'
  30. if will_cost <= pcs_willpwr:
  31. act 'Refuse (<<will_cost>> Willpower)':
  32. sprt_exp += rand(0,1)
  33. gs 'willpower', 'drink', 'resist'
  34. gs 'willpower', 'pay'
  35. gs 'stat'
  36. gt 'gdkin'
  37. end
  38. else
  39. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  40. end
  41. act 'Agree':
  42. *clr & cla
  43. boynumBlock = 1
  44. if bmTip[Tboynum] = 0:gt 'gdksex', 'outside', 'nice'
  45. if bmTip[Tboynum] = 1:gt 'gdksex', 'outside', 'aggressiv'
  46. if bmTip[Tboynum] = 2:DPtipe = 2 & gt 'gdksex', 'hotel'
  47. end
  48. end
  49. --- BMloc ---------------------------------