1
0

boymass.qsrc 604 B

1234567891011121314151617181920212223242526272829303132
  1. # boymass
  2. if $ARGS[0] = 'A':
  3. boynum += 1
  4. $bmNane[boynum] = $npclastcalled
  5. bmTip[boynum] = bmtimeTipe
  6. bmHJ[boynum] = 0
  7. bmBJ[boynum] = 0
  8. bmSEX[boynum] = 0
  9. bmANAL[boynum] = 0
  10. bmGANG[boynum] = 0
  11. bmGossip[boynum] = 0
  12. bmFrend[boynum] = 0
  13. bmKISS[boynum] = 0
  14. bmTITS[boynum] = 0
  15. end
  16. if $ARGS[0] = 'B':
  17. if boynumBlock = 0:Tboynum = boynum
  18. if boynumBlock > 0:
  19. if bmHJ[Tboynum] > 0 or bmBJ[Tboynum] > 0 or bmSEX[Tboynum] > 0 or bmANAL[Tboynum] > 0:
  20. if bmTOTSEX[Tboynum] = 0:bmTOTSEX[Tboynum] = 1
  21. end
  22. gs 'boystat', $bmNane[Tboynum]
  23. end
  24. end
  25. --- boymass ---------------------------------