Description: A thing.

Just some thing me and my friends made up at school cuz we were bored. This is how its works:
You are made up of 2 parts, femanine and masculine. It checks how much percent of each side you have.

WARNING: 1 foul word :)

Copy every line below to a new file in your remotes tab then use /mf to start it.


alias mf {
  if ($window(@mf)) { window -a @mf | return }
  var %d drawline -rn
  window -BpdCh +d @mf 0 0 220 220
  drawrect -rnf @mf $rgb(face) 1 0 0 220 220
  %d @mf $rgb(hilight) 1 0 220 0 0 220 0
  %d @mf $rgb(shadow) 1 0 219 219 219 219 20 1 20 219 20 219 0
  drawtext -rno @mf $rgb(text) tahoma 11 3 4 Stereotype Male/Female Test
  %d @mf $rgb(hilight) 1 202 18 202 3 217 3
  %d @mf $rgb(shadow) 1 202 18 217 18 217 3
  %d @mf $rgb(text) 2 206 7 213 14
  %d @mf $rgb(text) 2 206 14 213 7
  var %i 0, %text [^B]F[^B]ishing [^B]F[^B]ootball [^B]F[^B]ucking [^B]F[^B]unneling [^B]F[^B]emales [^B]M[^B]irrors [^B]M[^B]akeup [^B]M[^B]agazines [^B]M[^B]enstrual Cycle [^B]M[^B]ales
  while %i < 10 { drawdot -rn @mf $rgb(shadow) 5 10 $calc(30 + 15 * %i) | drawdot -rn @mf $rgb(hilight) 5 11 $calc(31 + 15 * %i) | drawtext -rnpb @mf $rgb(text) $rgb(face) tahoma 10 17 $calc(22 + 15 * %i) $gettok(%text,$calc(%i + 1),32) | inc %i }
  %d @mf $rgb(shadow) 1 5 214 5 180 214 180
  %d @mf $rgb(hilight) 1 5 214 214 214 214 180
  %d @mf $rgb(hilight) 1 175 175 175 155 215 155
  %d @mf $rgb(shadow) 1 175 175 215 175 215 155
  drawtext -rn @mf $rgb(text) tahoma 9 184 160 Done
  drawdot @mf
}
menu @mf {
  sclick:{
    if ($inrect($mouse.x,$mouse.y,202,3,18,18) == $true) { if ($input(Are you sure you want to close the test?,y,Confirm Quit) == $true) { window -c @mf | unset %mf.* | return } }
    if ($inrect($mouse.x,$mouse.y,0,0,200,20) == $true) { set %mf.tempdrag $mouse.x $mouse.y | return }
    if (!%mf.tempstage2) {
      var %coords 25 31¡40 46¡55 61¡70 76¡85 91¡100 106¡115 121¡130 136¡145 151
      if ($inrect($mouse.x,$mouse.y,175,155,40,30) == $true) {
        set %mf.tempstage2 1
        var %i 1, %m 0, %f 0, %a
        while %i <= 10 {
          tokenize 32 $gettok(%coords,%i,161)
          set $iif(%i <= 5,$(%m,0),$(%f,0)) $calc($iif(%i <= 5,%m,%f) + $iif($getdot(@mf,9,$2) == $rgb(text),1,0))
          set %a %a $+ $iif(%i == 6,$chr(160)) $+ $iif($getdot(@mf,9,$2) == $rgb(text),|,-)
          inc %i
        }
        if (%m == 0) && (%f == 0) { set %mf.result You either did not complete the test correctly or you are not human. }
        else { $iif(%m > %f,dec %m $calc(0.5 * %f),$iif(%f > %m,dec %f $calc(0.5 * %m))) | set %mf.result You have $calc(%m * 20) $+ % masculinity and $calc(%f * 20) %+ % femininity. | set %mf.copy $+(M:,$chr(160),$calc(%m * 20),%,$chr(160),[,$str(|,$calc(%m * 2)),$str(-,$calc(10 - %m * 2)),],$chr(160),F:,$chr(160),$calc(%f * 20),%,$chr(160),[,$str(|,$calc(%f * 2)),$str(-,$calc(10 - %f * 2)),],$chr(160),A:,$chr(160),%a) }
        drawrect -rnf @mf $rgb(face) 1 1 21 218 198
        var %i 0
        while %i < $wrap(%mf.result,tahoma,14,210,0) {
          drawtext -rnf @mf $rgb(text) tahoma 14 5 $calc(25 + $height(%mf.result,tahoma,14) * %i) $wrap(%mf.result,tahoma,14,210,$calc(%i + 1))
          inc %i
        }
        drawrect -rnf @mf $rgb(shadow) 1 5 $calc(215 - 10 * %m) 20 $calc(10 * %m)
        drawrect -rnf @mf $rgb(shadow) 1 195 $calc(215 - 10 * %f) 20 $calc(10 * %f)
        drawrect -rn @mf $rgb(frame) 1 5 165 20 50
        drawrect -rn @mf $rgb(frame) 1 195 165 20 50
        drawline -rn @mf $rgb(hilight) 1 90 215 90 195 130 195
        drawline -rn @mf $rgb(shadow) 1 90 215 130 215 130 195
        drawtext -rn @mf $rgb(text) tahoma 9 99 199 Copy
        drawdot @mf
        return
      }
      var %i 1
      while %i <= 10 {
        tokenize 32 $gettok(%coords,%i,161)
        if ($inrect($mouse.x,$mouse.y,5,$1,9,9) == $true) { drawdot -r @mf $iif($getdot(@mf,9,$2) == $rgb(text),$rgb(hilight),$rgb(text)) 3 11 $2 }
        inc %i
      }
    }
    else { if ($inrect($mouse.x,$mouse.y,90,195,40,20) == $true) { clipboard %mf.copy } }
  }
  mouse:{
    if (%mf.tempdrag) { window @mf $calc($window(@mf).x + $mouse.x - $gettok(%mf.tempdrag,1,32)) $calc($window(@mf).y + $mouse.y - $gettok(%mf.tempdrag,2,32)) | return }
    if (!%mf.tempstage2) {
      var %c $ceil($calc(($mouse.y - 20) / 15)), %text [^B]F[^B]ishing [^B]F[^B]ootball [^B]F[^B]ucking [^B]F[^B]unneling [^B]F[^B]emales [^B]M[^B]irrors [^B]M[^B]akeup [^B]M[^B]agazines [^B]M[^B]enstrual Cycle [^B]M[^B]ales
      if (%c !isnum 1-10) { set %c 0 }
      if (%c != %mf.tempc) {
        set %mf.tempc %c
        drawrect -rnf @mf $rgb(face) 1 6 181 205 30
        var %i 0
        while %i < $wrap($read($script,s,$+(;,%c)),tahoma,9,205,0) {
          drawtext -rnp @mf $rgb(text) tahoma 9 7 $calc(185 + $height($wrap($read($script,s,$+(;,%c)),tahoma,9,205,%i),tahoma,9) * %i) $wrap($read($script,s,$+(;,%c)),tahoma,9,205,$calc(%i + 1))
          inc %i
        }
        drawdot @mf
      }
    }
  }
  leave:if (%mf.tempdrag) window @mf $calc($window(@mf).x + $mouse.x - $gettok(%mf.tempdrag,1,32)) $calc($window(@mf).y + $mouse.y - $gettok(%mf.tempdrag,2,32))
  drop:if (%mf.tempdrag) unset %mf.tempdrag
}
on *:CLOSE:@mf:unset %mf.*

;DO NOT EDIT THE LINES BELLOW!
;0 The 5F5M was created by poiuy_qwert and a friend. You can do the test outside of mIRC.
;1 Do you like fishing, or go fishing regularely?
;2 Do you like sports, preferably dirty sports?
;3 Do you either think about sex a lot or have sex a lot?
;4 Are you a party person or do you drink a lot?
;5 Are you attracted to females?
;6 Do you think a lot about how you look to others?
;7 Do you either wear a lot of makeup or like makeup?
;8 Do you read any magazine other than pornography?
;9 Do you go through the menstration cycle(do you have a period)?
;10 Are you attracted to males?
;DO NOT EDIT THE LINES ABOVE


M: 50% [|||||-----] F: 20% [||--------] A: -||-| --|--

Oops! You need to login or register before you can post a comment!