Hallo
hier mijn nederlandse verzie van de love-meter
met paar extra commends zoals
!helplove
en
!resetlove voor de beheerder
dit systeem is voor iedereen
wil je hem zelf gebruiken dan moet je hem in een botje zette;)
succes ermee

English:

Hello
here is my dutch version of the love-meter
This include some extra commands like:

• !helplove
• !resetlove (to reset the love-game)
  This system could use any1 with mirc
  Wan't to use it yourself? Put it into a mirc bot :)
  Good luck with it
  ( english version [[[!!!maby!!!]]] next week!! )

.Undercover :D

#love-meter on
;Love-meter made by Undercover;
on *:TEXT: *!resetlove*:#: {
if ($server == irc.bulletstar.net) { /msg $chan 4Je kan deze systeem hier niet gebruike NOOB! | halt } 
if ($nick isop $chan) {
    unset %percintaan
    unset %love1
    unset %love2
    unset %cinta-ork
    unset %love-chan 
    set %love-meter uit
    .msg $chan 13Love-Meter 7>>10 $nick Heeft het love-systeem gerestart!
    .msg $chan 13Love-Meter 7>>10 Typ !love als je de love-meter wilt starte!
    else { .notice $nick 13Love-Meter 7>>4 Je kan het Love-Systeem niet resette!
    }
  }
}
on *:TEXT: *!helplove*:#: {
if ($server == irc.bulletstar.net) { /msg $chan 4Je kan deze systeem hier niet gebruike NOOB! } { halt }
   .notice $nick 13Love 7>>5 Welkom bij love-meter Help
  if ($nick isop $chan) {  .notice $nick 13Love 7>>5 Beheercommando's 
  .notice $nick 13Love 7>>5 !resetlove voor het love-systeem te restarte! }
  .notice $nick 13Love 7>>5 *** Commando's ***
  .notice $nick 13Love 7>>5 !love voor de Love-meter te starte
  .notice $nick 13Love 7>>5 !koppel als iemand love heeft getypt kan jij !koppel type als je wilt koppele met %love1 $+ .
  .notice $nick 13Love 7>>5 ©Love-Meter Mady By Undercover!
  .notice $nick 13Love 7>>5 M.v.g. $me $+ !!
}
on *:TEXT: *!love*:#: {
if ($server == irc.bulletstar.net) { /msg $chan 4Je kan deze systeem hier niet gebruike NOOB! | halt } 
  if (%love-meter == aan) { .notice $nick 4Er is al een lovematch bezig, Typ !koppel om te koppele! }
  else {
    if (%love-meter == uit) {
      set %love1 $nick | set %love-meter aan | set %love-chan $chan
      .msg $chan 13Love 7>>10 %love1 4wil gekoppelt worde. wil jij dat typ !koppel 
      .msg $chan 13Love 7>>10 word er binne 1,5minuut geen !koppel getypt, schakelt de love-meter zichzelf uit! 
      .timeraan1 1 90 unset %love1 
      .timeraan2 1 90 unset %love-chan 
      .timeraan3 1 90 set %love-meter uit 
      .timeraan4 1 90 .msg $chan 13Love 7>>10 Omdat niemand !koppel typt, schakeld de Love-Meter zich uit!
    }
  }
}
on *:TEXT: *!koppel*:%love-chan: {
  if ($server == irc.bulletstar.net) { /msg $chan 4Je kan deze systeem hier niet gebruike NOOB! | halt }
.timeraan1 off
  .timeraan2 off
  .timeraan3 off
  .timeraan4 off
  set %love2 $nick
  set %percintaan $rand(1,100)    
  if ((%percintaan >= 0) && (%percintaan < 10)) set %cinta-ork denk je echt ze passe bij elkaar ? :-(
  if ((%percintaan >= 10) && (%percintaan < 20)) set %cinta-ork ne niet echt goed koppel :-(
  if ((%percintaan >= 20) && (%percintaan < 30)) set %cinta-ork beter je doet het niet - :-(
  if ((%percintaan >= 30) && (%percintaan < 40)) set %cinta-ork je kan het probere maar lukt nie denk :-(
  if ((%percintaan >= 40) && (%percintaan < 50)) set %cinta-ork Het... kan :-)
  if ((%percintaan >= 50) && (%percintaan < 60)) set %cinta-ork jawellll :-)
  if ((%percintaan >= 60) && (%percintaan < 70)) set %cinta-ork past mooi bij elkaar :-)
  if ((%percintaan >= 70) && (%percintaan < 80)) set %cinta-ork wow goed stelletje :-)
  if ((%percintaan >= 80) && (%percintaan < 90)) set %cinta-ork Sow Sow beter kan bijna niet!!  :-)
  if ((%percintaan >= 90) && (%percintaan < 95)) set %cinta-ork Wel leuk stelletje! :-)
  if ((%percintaan >= 95) && (%percintaan <= 100)) set %cinta-ork Julli zijn een PERFECT stelletje :-)
  else {
    if ($nick == %love1) { /notice $nick 4Je kan niet met jezelf koppele!! 
    unset %love2 }
  }
  if (love1 != $null) && (%love2 != $null) {   
    msg $chan 13Love 7>>10 %love2 4word gekoppelt met10 %love1 $+ ! 
    .timerlove1 1 1 msg $chan 13Love-Meter 2 LOADING....[10%]....
    .timerlove2 1 3 msg $chan 13Love-Meter 2 LOADING....[50%]....
    set %kans $rand(1,2)
    if (%kans == 1)  { .timerlove3 1 5 msg $chan 13Love-Meter 4 FAILED2.....[XX%].... 
      .timermislukt1 1 6 msg $chan 13  14///13Love-Meter Resultaat14\\\
      .timermislukt2 1 6 msg $chan 4------------ERROR!------------
      .timermislukt3 1 6 msg $chan 6Jullie kunne niet gekoppelt worden!
      .timermislukt4 1 6 msg $chan 4------------ERROR!------------
      .timermislukt5 1 7 /notice %love1 13L14ove-13M14eter 13M14ade 13B14y 13U14ndercover
      .timermislukt6 1 7 /notice %love2 13L14ove-13M14eter 13M14ade 13B14y 13U14ndercover
      unset %percintaan
      unset %love1
      unset %love2
      unset %cinta-ork
      unset %love-chan 
      unset %kans
      set %love-meter uit
    }
    if (%kans == 2) { .timerlove4 1 5 msg $chan 13Love-Meter 10COMPLETE2..[100%]... 
      .timerlove6 1 6 msg $chan 13  14///13Love-Meter Resultaat14\\\
      .timerlove7 1 6 msg $chan 6,0D14e 6P14ersonen : 12 $+ %love1 13&12 %love2
      .timerlove8 1 6 msg $chan 6,0H14et 6R14esultaat : 13 %percintaan $+ % $+ !!
      .timerlove9 1 6 msg $chan 6,0B14ijvoeging: 6 %cinta-ork 
      .timerlove10 1 7 /notice %love1 13L14ove-13M14eter 13M14ade 13B14y 13U14ndercover
      .timerlove11 1 7  /notice %love2 13L14ove-13M14eter 13M14ade 13B14y 13U14ndercover 
      unset %percintaan
      unset %love1
      unset %love2
      unset %cinta-ork
      unset %love-chan 
      unset %kans
      set %love-meter uit
    }
  }
  #love-meter end