love script =] paste in remotes
type (!love -nick-) to see if they like you
type (!gay -nick-) to test if they are gay
type (is -nick- gay?) to see if they are gay
type (!dosumthingmanly) to remove your gayness
type (!dosumthinggirly) to add gayness

if you are labeled gay, everytimg you logg in it will say "ROFL -nick- is gay!" it will stop doing that when you type !do sumthing manly.

and if your labeled gay at all, it stays with you slightly, u can remove with dosumthingmanly, but still everytime you logg in it will say "-nick- used to be gay... rofl"

on *:text:*:#: {
  if ($1 == .love) {
    if ($2 == $me) .describe $chan i love everyone =D
    if ($readini(gay.ini,gay,$2)) { describe $chan sorry, $2 has been labeled gay... | halt }
    var %love = $rand(1,4)
    describe $chan well...
    if (%love == 1) { .timer 1 2 describe $chan how could you love $2 $+ ? $2 is gay... | writeini gay.ini gay $2 is gay | auser gay $2 | halt }
    if (%love == 2) .timer 1 2 describe $chan sorry, they dont like you back. 
    if (%love == 3) .timer 1 2 describe $chan $2 is madly in love with you! 
    if (%love == 4) .timer 1 2 describe $chan $2 only has $rand(1,20) $+ % love for you, sorry =/ 
  }
  if ($1 == .dosumthingmanly) {
    if (!$readini(gay.ini,gay,$nick)) { describe $chan you dont need to.. your not gay. | halt }
    describe $chan you rip off your chesthair, you are gay no more! | .ruser gay $nick | .auser wasgay $nick
    remini gay.ini gay $nick
    writeini gay.ini notgay $nick isnt gay
  }
  if ($1 == .dosomethingmanly) {
    if ($readini(gay.ini,$nick)) { describe $chan you dont need to.. your not gay. | halt }
    describe $chan you rip off your chesthair, you are gay no more! | .ruser gay $nick | .auser wasgay $nick
    remini gay.ini gay $nick
    writeini gay.ini notgay $nick isnt gay
  }
  if ($1 == .dosumthinggirly) {
    if ($readini(gay.ini,gay,$nick)) { describe $chan you dont need to.. your already gay. | halt }
    if ($readini(gay.ini,notgay,$nick))  describe $chan what the hell? | auser gay $nick
    describe $chan whatever... loser
    writeini gay.ini gay $nick is gay
    remini gay.ini notgay $nick 
  }
  if ($1 == .dosomethinggirly) {
    if ($readini(gay.ini,gay,$nick)) { describe $chan you dont need to.. your already gay. | halt }
    if ($readini(gay.ini,notgay,$nick))  describe $chan what the hell? | auser gay $nick
    describe $chan whatever... loser
    writeini gay.ini gay $nick is gay
    remini gay.ini notgay $nick 
  }
  if ($1 == .gay) {
    if ($2 == $me) { .describe $chan of course im not gay... | halt }
    if ($readini(gay.ini,gay,$2)) { describe $chan wow... $2 is already gay... | halt }
    if ($readini(gay.ini,notgay,$2)) { describe $chan Some1 has already checked, $2 is not at all gay. | halt }
    var %gay = $rand(1,2)
    describe $chan well...
    if (%gay == 1) .timer 1 2 describe $chan I checked, and $2 is $rand(1,30) $+ % gay! 
    if (%gay == 2) .timer 1 2 describe $chan I checked, and $2 is $rand(30,100) $+ % gay! | writeini gay.ini gay $2 is gay.. | auser gay $nick
  }
  if ($1 == is * gay?) {
    if ($readini(gay.ini,gay,$2)) { describe $chan yup... $2 is 100% gay! | halt }
    if ($readini(gay.ini,notgay,$2)) { describe $chan nope $2 is not at all gay. | halt }
    if (!$readini(gay.ini,gay,$nick)) {
      var %gay = $rand(1,2)
      describe $chan not sure no1 has checked yet.. ill check for you... 
      if (%gay == 1) .timer 1 2 describe $chan I checked, and $2 is only $rand(1,30) $+ % gay! | writeini gay.ini notgay $2 isnt gay!
      if (%gay == 2) .timer 1 2 describe $chan I checked, and $2 is $rand(30,100) $+ % gay! | writeini gay.ini gay $2 is gay.. | auser gay $nick
    }
  }
}
on ^OWNER:TEXT:.removegay *:#: {
  if ($readini(gay.ini,notgay,$2)) { remini gay.ini notgay $2  }
  ruser gay $2
  ruser wasgay $2
  describe $chan done, and done.
}
on GAY:join:#: { describe $chan ROFL $nick is gay! | notice $nick type .dosumthingmanly to remove this. }
on WASGAY:join:#: { describe $chan $nick used to be gay.. lol }