BMloc 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  1. # BMloc
  2. gs 'stat'
  3. act 'Dance':
  4. cls
  5. gs 'stat'
  6. gs 'boystat', $bmNane[Tboynum]
  7. $npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
  8. if bmFrend[Tboynum] = 0:
  9. if bmHJ[Tboynum] > 0 or bmBJ[Tboynum] > 0 or bmSEX[Tboynum] > 0 or bmANAL[Tboynum] > 0 or bmGANG[Tboynum] > 0:
  10. if bmHJ[Tboynum] > 0:$text2 = 'you gave me a hand job.'
  11. if bmBJ[Tboynum] > 0:$text2 = 'you gave me a blowjob.'
  12. if bmSEX[Tboynum] > 0:$text2 = 'you let me fuck you.'
  13. if bmANAL[Tboynum] > 0:$text2 = 'you let me fuck you in the ass.'
  14. if bmGANG[Tboynum] > 0:$text2 = 'you let me and my friend fuck you.'
  15. '<<$niknameboy>> tells you "Remember me, <<$text2>>. I''m <<$boydesc>>."'
  16. else
  17. if bmKISS[Tboynum] > 0 or bmTITS[Tboynum] > 0:
  18. '<<$niknameboy>> tells you "Remember me, we hung out and drank together beer. I''m <<$boydesc>>."'
  19. else
  20. '<<$niknameboy>> tells you "Remember me, we danced together. I''m <<$boydesc>>."'
  21. end
  22. end
  23. else
  24. !!if bmFrend[Tboynum] = 1:end
  25. !!if bmFrend[Tboynum] = 2:end
  26. !!if bmFrend[Tboynum] = 3:end
  27. end
  28. if bmTip[Tboynum] = 0:'After the Dance <<$boydesc>> offers to go out and drink beer.'
  29. if bmTip[Tboynum] = 1:'After the Dance <<$boydesc>> offers to go hang out.'
  30. if bmTip[Tboynum] = 2:'After the Dance <<$boydesc>> offers to go to his hotel.'
  31. act 'Agree':
  32. cls
  33. boynumBlock = 1
  34. if bmTip[Tboynum] = 0:gt 'EvBoyBuh'
  35. if bmTip[Tboynum] = 1:gt 'EvgopBuh'
  36. if bmTip[Tboynum] = 2:DPtipe = 2 & gt 'EvOtelMan'
  37. end
  38. act 'Refuse':
  39. cls
  40. ! WD: Should be pcs_sprt not willpower
  41. sprt_exp += rand(0, 1)
  42. gt 'gdkin'
  43. end
  44. end
  45. act 'Leave':gt 'gdkin'
  46. --- BMloc ---------------------------------