Initial commit

Quiz/rbr-quiz.ini

@@ -0,0 +1,3 @@
+[Points]
+dAm0n2k=18
+derBen=13

Quiz/rbr-quiz.mrc

@@ -0,0 +1,405 @@
+;rbr-Quiz script
+;(c)2002 by Markus Birth <mbirth@webwriters.de>
+;
+; Don't tamper with the variables or you could produce endless loops!
+
+
+; #############
+; ##  MENUs  ##
+; #############
+
+menu channel {
+  rbr-Quiz
+  .Initialize:rbrQinit
+  .Load Quiz...:rbrQload
+  .Reload current Quiz:rbrQreload
+  .-
+  .Start Quiz here:rbrQstart #
+  .Stop Quiz:rbrQstop
+  .-
+  .SKIP current question:rbrQabort
+  .-
+  .RESET ALL POINTS:rbrQreset
+  .-
+  .Status:rbrQstatus
+  .Toplist:rbrQtoplist
+}
+
+
+
+; ###############
+; ##    ONs    ##
+; ###############
+
+ON 1:LOAD:{
+  rbrQinit
+}
+
+ON 1:UNLOAD:{
+  rbrQoutit
+}
+
+ON 1:TEXT:*:%qchan:{
+  if ( %qrun != 0 ) {
+    echo -ag Received $1- on $chan from $nick $+ .
+    if ( $strip( $1- ) == $strip( %qa ) ) {
+      rbrQanswered $nick
+    }
+  }
+}
+
+
+; ###############
+; ##  ALIASes  ##
+; ###############
+
+alias rbrQinit {
+  set -n %qver 1.0
+  set -n %qnam 08,01|01,08|08,01|01,08|08,01|01,08 rbr-Quiz %qver 08,01|01,08|08,01|01,08|08,01|
+  set -n %qchan #
+  set -n %qini " $+ $scriptdir $+ rbr-quiz.ini $+ "
+  rbrQload rbr-quiz.rqf
+  set %qrun 0
+  echo -ag %qnam initialized.
+}
+
+alias rbrQoutit {
+  unset %qver
+  unset %qchan
+  unset %qrun
+  unset %qfile
+  unset %qcrea
+  unset %qcread
+  unset %qlamo
+  unset %qquest
+  unset %qhinttime
+  unset %qnum
+  unset %qa
+  unset %qhint
+  unset %qpts
+  unset %qplayed
+  unset %qinum
+  echo -ag %qnam unloaded.
+  unset %qnam
+}
+
+alias rbrQstart {
+  if ( %qrun == 0 ) {
+    set %qchan #$$?1="Channel to quiz:"
+    set %qrun 1
+    msg %qchan %qnam started.
+    msg %qchan Category: 1,11 %qcat  with 11,2 %qquest  questions and 11,2 %qhinttime seconds until each hint
+    msg %qchan Created by 11,2 %qcrea  on 11,2 %qcread 
+    msg %qchan Last Modified on 11,2 %qlamo 
+    set %qnum 1
+    set %qplayed $str(0, %qquest)
+    echo -ag Setting timer for first question.
+    .timer2 1 3 rbrQgetQuest
+    echo -ag 9Quiz started on channel %qchan $+ .
+  }
+  else {
+    echo -ag 8Stop quiz on %qchan first!!
+  }
+}
+
+alias rbrQabort {
+  if ( ( %qnum = 0 ) || ( %qnum > %qquest ) ) {
+    echo -ag 4No active question.
+    halt
+  }
+  echo -ag Skipping question.
+  .timer1 off
+  .timer2 off
+  msg %qchan Skipping question...
+  msg %qchan The answer was:  %qa 
+  .timer2 1 3 rbrQgetQuest  
+}
+
+alias rbrQstop {
+  if ( %qrun != 0 ) {
+    .timer1 off
+    .timer2 off
+    if ( %qnum <= %qquest ) {
+      rbrQtoplist
+    }
+    set %qrun 0
+    set %qchan #
+    unset %qplayed
+    unset %qhint
+    unset %qqnum
+    unset %qnum
+    unset %qa
+    unset %qpts
+    unset %qinum
+    unset %qhints
+    msg %qchan %qnam stopped.
+    echo -ag 4Quiz stopped.
+  }
+  else {
+    echo -ag 4No quiz running!
+  }
+}
+
+alias rbrQload {
+  var %dateform mmm dd, yyyy
+  var %qtemp $1-
+  if ( $len(%qtemp) < 3 ) { var %qtemp $$?="Enter quiz-file (*.rqf):" }
+  if ( $exists(%qtemp) == $false ) { set -n %qfile " $+ $scriptdir $+ %qtemp $+ " }
+  else { set -n %qfile %qtemp }
+  if ( $exists(%qfile) == $false ) {
+    echo -ag 4FILE NOT FOUND!
+    halt
+  }
+  echo -ag 7Loading %qfile ...
+  set -n %qcat $readini(%qfile, Main, Topic)
+  echo -ag Category:08,02 %qcat 
+  set -n %qcrea $readini(%qfile, Main, Creator)
+  set -n %qcread $readini(%qfile, Main, Date)
+  echo -ag Created on %qcread by %qcrea
+  set -n %qlamo $asctime($file(%qfile).mtime,%dateform)
+  echo -ag Last modified on %qlamo
+  set %qhinttime $readini(%qfile, Main, HintTime)
+  echo -ag Time between hints is %qhinttime seconds.
+
+  set %qquest 1
+  set %qmaxpts 0
+  var %i $ini(%qfile,Q1)
+  while ( ( %i != 0 ) && ( %qquest <= 1000 ) ) {
+    inc %qmaxpts $readini(%qfile, Q $+ %qquest, Points)
+    inc %qquest
+    var %i $ini(%qfile, Q $+ %qquest )
+  }
+  dec %qquest
+  echo -ag File contains %qquest questions.
+  echo -ag There are %qmaxpts points to earn.
+  echo -ag 9Question file loaded.
+}
+
+alias rbrQreload {
+  rbrQload %qfile
+}
+
+alias rbrQstatus {
+  echo -ag %qnam
+  echo -ag Quiz active?: %qrun
+  echo -ag Quiz-Channel: %qchan
+  echo -ag Quiz-File: %qfile
+}
+
+alias rbrQgetQuest {
+  if ( %qnum > %qquest ) {
+    echo -ag 4Sorry, no more questions.
+    halt
+  }
+  set %qinum $rand(1,$eval(%qquest))
+  while ( $mid(%qplayed, %qinum, 1) == 1 ) {
+    set %qinum $rand(1,$eval(%qquest))
+  }
+  var %top Q $+ %qinum
+  echo -ag Loading question %top ...
+  var %t $readini(%qfile, $eval(%top), T)
+  echo -ag Topic: %t 
+  var %q $readini(%qfile, $eval(%top), Q)
+  echo -ag Question: %q 
+  set -n %qa $readini(%qfile, $eval(%top), A)
+  echo -ag Answer: %qa 
+  set %qpts $readini(%qfile, $eval(%top), Points)
+  echo -ag Points to win: %qpts 
+
+  set %qhint 1
+  set %qhints 1
+  var %i $ini(%qfile, $eval(%top), Hint1)
+  while ( ( %i != 0 ) && ( %qhints <= 1000 ) ) {
+    inc %qhints
+    var %i $ini(%qfile, $eval(%top), Hint $+ %qhints )
+  }
+  dec %qhints
+  echo -ag Number of hints: %qhints 
+
+  msg %qchan Question %qnum out of %qquest $+ : 1,11( Category: %t )1,8 %q 
+  var %hinttxt hints
+  if ( %qhints == 1 ) { var %hinttxt hint }
+  msg %qchan (You will get %qhints %hinttxt $+ .)
+
+
+
+  inc %qnum
+  if ( %qnum > %qquest ) {
+    msg %qchan This is the last chance to earn some points!
+  }
+
+  echo -ag Enabling hinttimer...
+  .timer1 0 %qhinttime rbrQHint
+}
+
+alias rbrQanswered {
+  var %nick $1-
+  echo -ag Halting hinttimer, if not already ...
+  .timer1 off
+  msg %qchan 1,8 QUESTION ANSWERED 
+  if ( ( %qinum < 1 ) || ( %qinum > %qquest ) ) {
+    echo -ag 4No question active.
+    halt
+  }
+  echo -ag Marking this question as answered...
+  var %qlp %qinum - 1
+  var %qrp $len(%qplayed) - %qlp
+  var %qrp %qrp - 1
+  var %ql $left(%qplayed, $eval(%qlp))
+  var %qr $right( %qplayed, $eval(%qrp))
+  set %qplayed %ql $+ 1 $+ %qr
+  echo -ag Played: %qplayed
+
+  echo -ag Adding points to %nick $+ 's account.
+  var %befpts $readini(%qini, Points, $1- )
+  if ( %befpts == $null ) { var %befpts 0 }
+  echo -ag Points before: %befpts
+  var %befpts %befpts + %qpts
+  echo -ag Points after: %befpts
+  writeini %qini Points %nick %befpts
+  msg %qchan Good, %nick $+ ! You got %qpts points and now have %befpts points!
+  msg %qchan The correct answer was:  %qa 
+
+  var %test %qnum - 1
+  var %test %test % 5
+  if ( %qnum > %qquest ) {
+    echo -ag This was the last question. Showing toplist...
+    rbrQtoplist
+    echo -ag Stopping Quiz...
+    rbrQstop
+  }
+  elseif ( %test == 0 ) {
+    echo -ag This was a 5th question. Showing toplist...
+    msg %qchan Okay, now let's take a look at the stats...
+    rbrQtoplist
+  }
+  if ( %qnum <= %qquest ) {
+    echo -ag Setting timer for next question.
+    .timer2 1 5 rbrQgetQuest
+  }
+}
+
+alias rbrQHint {
+  if ( %qhint > %qhints ) {
+    echo -ag 4All hints shown. Disabling timer.
+    .timer1 off
+    halt
+  }
+  var %hint $readini(%qfile,Q $+ %qinum,Hint $+ %qhint)
+  msg %qchan Hint %qhint of %qhints $+ : %hint
+  inc %qhint
+}
+
+alias rbrQtoplist {
+  var %u1n -
+  var %u1p 0
+  var %u2n -
+  var %u2p 0
+  var %u3n -
+  var %u3p 0
+  var %u4n -
+  var %u4p 0
+  var %u5n -
+  var %u5p 0
+  var %u6n -
+  var %u6p 0
+  var %u7n -
+  var %u7p 0
+  var %u8n -
+  var %u8p 0
+  var %u9n -
+  var %u9p 0
+  var %u0n -
+  var %u0p 0
+  echo -ag Showing Toplist...
+  msg %qchan %qnam
+  msg %qchan 8,1 --==+ TOPLIST +==-- 
+  var %entries $ini(%qini,Points,0)
+  var %curent 1
+  while ( %curent <= %entries ) {
+    var %curuser $ini(%qini, Points, $eval(%curent))
+    var %cini $readini(%qini, Points, $eval(%curuser))
+    if ( %cini > %u0p ) {
+      var %u0p %cini
+      var %u0n %curuser
+    }
+    if ( %cini > %u9p ) {
+      var %u0p %u9p
+      var %u0n %u9n
+      var %u9p %cini
+      var %u9n %curuser
+    }
+    if ( %cini > %u8p ) {
+      var %u9p %u8p
+      var %u9n %u8n
+      var %u8p %cini
+      var %u8n %curuser
+    }
+    if ( %cini > %u7p ) {
+      var %u8p %u7p
+      var %u8n %u7n
+      var %u7p %cini
+      var %u7n %curuser
+    }
+    if ( %cini > %u6p ) {
+      var %u7p %u6p
+      var %u7n %u6n
+      var %u6p %cini
+      var %u6n %curuser
+    }
+    if ( %cini > %u5p ) {
+      var %u6p %u5p
+      var %u6n %u5n
+      var %u5p %cini
+      var %u5n %curuser
+    }
+    if ( %cini > %u4p ) {
+      var %u5p %u4p
+      var %u5n %u4n
+      var %u4p %cini
+      var %u4n %curuser
+    }
+    if ( %cini > %u3p ) {
+      var %u4p %u3p
+      var %u4n %u3n
+      var %u3p %cini
+      var %u3n %curuser
+    }
+    if ( %cini > %u2p ) {
+      var %u3p %u2p
+      var %u3n %u2n
+      var %u2p %cini
+      var %u2n %curuser
+    }
+    if ( %cini > %u1p ) {
+      var %u2p %u1p
+      var %u2n %u1n
+      var %u1p %cini
+      var %u1n %curuser
+    }
+    inc %curent
+  }
+  msg %qchan 1. %u1n ( %u1p points )    ---     6. %u6n ( %u6p points )
+  msg %qchan 2. %u2n ( %u2p points )    ---     7. %u7n ( %u7p points )
+  msg %qchan 3. %u3n ( %u3p points )    ---     8. %u8n ( %u8p points )
+  msg %qchan 4. %u4n ( %u4p points )    ---     9. %u9n ( %u9p points )
+  msg %qchan 5. %u5n ( %u5p points )    ---    10. %u0n ( %u0p points )
+  if ( %qnum > %qquest ) {
+    echo -ag The winner is %u1n with %u1p points!
+    msg %qchan Congratulations, %u1n $+ , you are the absolute WINNER!
+  }
+  return
+}
+
+alias rbrQreset {
+  echo -ag 4Resetting points...
+  remini %qini Points
+  rbrQmsg 4,2All points deleted.
+}
+
+alias rbrQmsg {
+  if ( %qrun == 1 ) {
+    msg %qchan $1-
+  }
+  return
+}

Quiz/rbr-quiz.rqf

@@ -0,0 +1,77 @@
+[Main]
+Topic=LMG
+Creator=Richard B. Riddick
+Date=Apr 14, 2002
+HintTime=10
+
+[Q1]
+T=LMG
+Q=Wie lauten BEIDE Vornamen des Schulleiters des LMG?
+A=Heinz Heinrich
+Points=5
+Hint1=Der erste Name ist sein Rufname. Der zweite fängt mit dem gleichen Buchstaben wie der erste an.
+Hint2=Beide Vornamen sind gute alte deutsche Vornamen.
+Hint3=Der zweite Vorname fängt auch mit den ersten 4 Buchstaben des ersten Vornamens an.
+Hint4=Der zweite Vorname hört mit dem deutschen Wort für "Ego" auf.
+Hint5=H.... H.......
+Hint6=He... He..r...
+Hint7=Hei.. Hei.ri..
+Hint8=Hein. Heinric.
+
+[Q2]
+T=LMG
+Q=Wofür steht die Abkürzung "ITG"?
+A=Informationstechnische Grundlagen
+Points=5
+Hint1=Es sind zwei Wörter. Und es ist ein Lehrfach.
+Hint2=Es hat mit Computern zu tun, obwohl das Wort "Computer" nicht darin vorkommt.
+Hint3=Man könnte meinen, es ist eine Ausbildung für Geheimdienstler.
+Hint4=Es ist vom Begriff "Informatik" abgeleitet.
+Hint5=Das Fach lehrt grundlegende Dinge im Umgang mit Computern.
+Hint6=Es ist eine Kombination der Wörter "Information", "Technik" und "Grundlage".
+Hint7=Gesucht werden gewisse Grundlagen.
+Hint8=Grundlagen, die mit Informationstechnik zu tun haben.
+
+[Q3]
+T=Internet
+Q=Wofür steht die Abkürzung "IRC"?
+A=Internet Relay Chat
+Points=5
+Hint1=Gesucht werden 3 Wörter.
+Hint2=Wir befinden uns hier gerade auf einem IRC-Server.
+Hint3=Das erste Wort bezeichnet das Medium, das zweite ist engl. für "Staffel" und das dritte bezeichnet die Tätigkeit.
+Hint4=I....... R.... C...
+Hint5=I...r..t R...y C..t
+Hint6=In..rn.t Re.ay Ch.t
+
+[Q4]
+T=Feiertage/Feste/Parties
+Q=Welches Fest ist jährlich Ende Oktober?
+A=Halloween
+Points=3
+Hint1=Üblicherweise verkleidet man sich an dem Tag.
+Hint2=Der wohl am meisten an diesem Tag gehörte Spruch ist die dt. Übersetzung von: "Trick or treat!"
+Hint3=Der Tag hat viel mit Kürbissen zu tun.
+Hint4=Es gibt auch einen gleichnamigen Horrorfilm.
+
+[Q5]
+T=Feiertage/Feste/Parties
+Q=Woher hat der Weihnachtsmann sein rot/weisses Aussehen?
+A=Coca Cola
+Points=8
+Hint1=Der Weihnachtsmann war vor 1900 noch ohne spezifische Farben.
+Hint2=Das rot/weisse Kostüm wurde durch eine Comic-Serie als Werbung für einen grossen Konzern geprägt.
+Hint3=Der große Konzern stellt auch heute noch Getränke aller Art her.
+Hint4=Zu den Getränken zählen auch "Qoo"-Limonade und "Bonaqa".
+Hint5=Das Hauptprodukt dieser Firma besteht hauptsächlich aus Kolanüssen und Kokablättern.
+
+[Q6]
+T=LMG
+Q=Wofür steht die Abkürzung "Sek."?
+A=Sekundarstufe
+Points=5
+Hint1=Man könnte auch sagen: "Zweite Phase".
+Hint2=Der Anfang des Wortes klingt wie eine Zeiteinheit.
+Hint3=Das Ende des Wortes klingt wie der Teil einer Treppe.
+Hint4=Rückwärts wär das Efutsradnukes.
+

Quiz/rbr-quiz.txt

@@ -0,0 +1,23 @@
+rbr-Quiz for mIRC
+
+
+
+Hints:
+-occur per answers?
+-perhaps write something like "It has 5 chars including 1 whitespace"?
+
+
+Answers:
+-only write something on correct answer (need proc to convert Ö<->OE, etc.)
+-write nick, correct answer, time needed, lag?
+-points = pointsperanswer / hints * hintsneeded  or  pointsperanswer - hintsneeded
+
+
+Stats:
+-if manual stop is received
+-if manual stats are called
+-before a counter reset
+-TOP10 if >=10 users
+-TOP5 if >=5
+-TOP3 if >=3
+-variable ranking <3 users

QuizCheat/rbr-answerz.mrc

@@ -0,0 +1,212 @@
+;rbr-Answerz script
+;(c)2002 by Markus Birth <mbirth@webwriters.de>
+;
+; Don't tamper with the variables or you could produce endless loops!
+
+
+; #############
+; ##  MENUs  ##
+; #############
+
+menu channel {
+  rbr-Answerz
+  .Status:rbrAstatus
+  .Initialize
+  ..Set Answerz-file:set %afile " $+ $sfile( $scriptdir , Select RAF file , Select ) $+ "
+  ..Set Quizmaster:set %aqm $$?="Enter nickname of quizmaster:"
+  ..Set question indicator:set %aindi $$?="Enter part of message BEFORE the question:"
+  ..Set answer indicator:set %aaindi $$?="Enter text BEFORE answer:"
+  ..Set solved indicator:set %aainds $$?="Enter text BEFORE aborted answer:"
+  ..Set additional delay for answers: set %aaddtime $$?="Enter seconds to add to answer delay:"
+  ..-
+  ..Reset counters: set %acq 0 | set %aca 0 | set %acsq 0 | set %acsa 0 | set %acas 0
+  .-
+  .Learning mode
+  ..$iif(%alrun == 1,$style(1)) ON:rbrAlearnOn
+  ..$iif(%alrun == 0,$style(1)) OFF:rbrAlearnOff
+  .Answer mode
+  ..$iif(%arun == 1,$style(1)) ON:rbrAon
+  ..$iif(%arun == 0,$style(1)) OFF:rbrAoff
+  .Auto-say
+  ..$iif(%aasay == 1,$style(1)) ON:set %aasay 1
+  ..$iif(%aasay == 0,$style(1)) OFF:set %aasay 0
+}
+
+
+
+; ###############
+; ##    ONs    ##
+; ###############
+
+ON 1:LOAD:{
+  rbrAinit
+}
+
+ON 1:UNLOAD:{
+  rbrAoutit
+}
+
+ON 1:TEXT:*:%achan:{
+  set %arecvd $strip( $1- )
+  if ( $nick == %aqm ) {
+    if ( $poscs( %arecvd , %aaindi ) > 0 || $poscs( %arecvd , %aainds ) > 0 ) {
+      .timer off
+      set %aanext 1
+    }
+    if ( %aqnext != 0) {
+      if ( %arun != 0 ) {
+        echo -tg %achan 2,8 A  Received " $+ %arecvd $+ " on $chan $+ . Searching for answer...
+        inc %acq
+        ;        set %srch * $+ %arecvd $+ *
+        set %srch %arecvd
+        if ( $read( %afile , w, %srch ) != $null ) {
+          set %aqinmem 1
+          set %aaline $readn
+          inc %aaline
+          set %atemp $read( %afile, n, %aaline )
+          echo -tg %achan 2,8 A 9,2 Possible answer: %atemp 
+          inc %aca
+          set %atemp $lower( %atemp )
+          if ( %aasay != 0 ) {
+            set %aalen $len( %atemp )
+            set %atlen %aalen / 4
+            set %atlen $round( %atlen , 0 )
+            set %atlen %atlen + %aaddtime
+            .timer 1 %atlen msg %achan %atemp
+            inc %acas
+          }
+          unset %atemp
+          unset %aaline
+        }
+        else {
+          set %aqinmem 0
+          echo -tg %achan 2,8 A 4,2 No answer found.
+        }
+        unset %srch
+      }
+      if ( %alrun != 0 && %aqinmem == 0 ) {
+        echo -tg %achan 2,8 L  Storing question " $+ %arecvd $+ " from $chan $+ ...
+        write %afile %arecvd
+        inc %acsq
+      }
+    }
+    if ( %aanext != 0 ) {
+      if ( %alrun != 0 && %aqinmem == 0 ) {
+        set %arlen $len( %arecvd )
+        if ( $poscs( %arecvd , %aainds ) > 0 ) set %ailen $len( %aainds )
+        else set %ailen $len( %aaindi )
+        set %arlen %arlen - %ailen
+        set %aans $right( %arecvd , %arlen )
+        unset %arlen
+        unset %ailen
+        echo -tg %achan 2,8 L  Storing answer " $+ %aans $+ " from $chan $+ ...
+        write %afile %aans
+        write -i %afile
+        unset %aans
+        set %aqinmem 0
+        inc %acsa
+      }
+    }
+    set %aqnext 0
+    set %aanext 0
+    if ( $poscs( %arecvd , %aindi ) > 0 ) set %aqnext 1
+  }
+  unset %arecvd
+}
+
+
+; ###############
+; ##  ALIASes  ##
+; ###############
+
+alias rbrAstatus {
+  echo -tag Currently used answerz-file: %afile ( $+ $file( %afile ).size Bytes)
+  echo -tag Created: $asctime( $file( %afile ).ctime , yyyy-mm-dd HH:mm.ss ) $+ , Last-Modified: $asctime( $file( %afile ).mtime , yyyy-mm-dd HH:mm.ss ) $+ , Last-Accessed: $asctime( $file( %afile ).atime , yyyy-mm-dd HH:mm.ss )
+  echo -tag .
+  echo -tag Channel: %achan
+  echo -tag Quizmaster: %aqm
+  echo -tag .
+  if ( %arun != 0 ) set %asta 9ON
+  else set %asta 4OFF
+  echo -tag 2,8 A  Answer mode is %asta $+ .
+  if ( %aasay != 0 ) set %asta 9ON
+  else set %asta 4OFF
+  echo -tag 2,8 A  Auto-say is %asta $+ .
+  set %asp %aca / %acq
+  set %asp %asp * 100
+  set %asp $round( %asp , 2 )
+  set %aspa %acas / %acq
+  set %aspa %aspa * 100
+  set %aspa $round( %aspa , 2 )
+  echo -tag 2,8 A  rbr-Answerz processed %acq questions, did know %aca answers of them ( $+ %asp $+ % $+ ) and answered %acas times for you. ( $+ %aspa $+ % $+ )
+  if ( %alrun != 0 ) set %asta 9ON
+  else set %asta 4OFF
+  echo -tag 2,8 L  Learning mode is %asta $+ .
+  echo -tag 2,8 L  rbr-Answerz stored %acsq questions and %acsa answers. (Should be equal after each question!)
+  unset %asta
+  unset %asp
+  unset %aspa
+}
+
+alias rbrAlearnOff {
+  if ( %arun == 0 ) set %achan ##
+  set %alrun 0
+}
+
+alias rbrAlearnOn {
+  if ( %arun == 0 ) set %achan $chan
+  set %aqnext 0
+  set %aqinmem 0
+  set %alrun 1
+}
+
+alias rbrAon {
+  if ( %alrun == 0 ) set %achan $chan
+  set %aqnext 0
+  set %aqinmem 0
+  set %arun 1
+}
+
+alias rbrAoff {
+  if ( %alrun == 0 ) set %achan ##
+  set %arun 0
+}
+
+alias rbrAinit {
+  set -n %anam 08,01|01,08|08,01|01,08|08,01|01,08 rbr-Answerz 08,01|01,08|08,01|01,08|08,01|
+  set -n %achan ##
+  set -n %aindi Frage Nr.
+  set -n %aaindi Die Antwort war: 
+  set -n %aainds Die Antwort ist:
+  set -n %aqnext 0
+  set -n %aanext 0
+  set -n %aqinmem 0
+  set -n %aasay 0
+  set -n %aaddtime 0
+  set -n %afile " $+ $scriptdir $+ rbr-answerz.raf $+ "
+  set %alrun 0
+  set %arun 0
+  set %aqm Quizmaster
+  echo -tag %anam initialized.
+}
+
+alias rbrAoutit {
+  unset %achan
+  unset %afile
+  unset %aaddtime
+  unset %aindi
+  unset %aqinmem
+  unset %aaindi
+  unset %aqnext
+  unset %aanext
+  unset %aqm
+  unset %arun
+  unset %aasay
+  unset %alrun
+  unset %acq
+  unset %aca
+  unset %acsq
+  unset %acsa
+  echo -tag %anam unloaded.
+  unset %anam
+}

QuizCheat/rbrAnswerzCleaner/rbrAnswerzCleaner.cfg

@@ -0,0 +1,35 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cc
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi6\Projects\Bpl"
+-LN"c:\program files\borland\delphi6\Projects\Bpl"

QuizCheat/rbrAnswerzCleaner/rbrAnswerzCleaner.dof

@@ -0,0 +1,90 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=0
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=rbr-Answerz RAF-file cleaner
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclOffice2k
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

QuizCheat/rbrAnswerzCleaner/rbrAnswerzCleaner.dpr

@@ -0,0 +1,56 @@
+program rbrAnswerzCleaner;
+{$APPTYPE CONSOLE}
+
+uses
+  SysUtils;
+
+var
+  fn: string = 'C:\Program Files\mIRC\scripts\#privat.de.raf';
+  f1,f2: TextFile;
+  x1,x2: string;
+  y1,y2: string;
+  z1,z2: string;
+  p1,p2: longint;
+  ic,dc: longint;
+
+begin
+  AssignFile(f1,fn);
+  AssignFile(f2,fn);
+  Reset(f1);
+  p1 := 1;
+  ic := 0;
+  dc := 0;
+  WriteLn('Starting work on file ',fn,' ...');
+  while (NOT Eof(f1)) do begin
+    repeat
+      ReadLn(f1,x1); { Read question }
+    until x1<>'';
+    ReadLn(f1,y1); { Read answer }
+    ReadLn(f1,z1); { Read blank line for testing whether still in synch }
+    if ((z1<>'') OR (y1='') OR (x1='')) then begin
+      WriteLn('INCOSISTENCY at pos. ',p1+2);
+      Inc(ic);
+    end;
+    Reset(f2);
+    p2 := 1;
+    while (NOT Eof(f2)) do begin
+      ReadLn(f2,x2);
+      ReadLn(f2,y2);
+      ReadLn(f2,z2);
+      if ((x2=x1) AND (y2=y1) AND (p2>p1)) then begin
+        WriteLn('DOUBLE QUESTION FOUND AT POS. ',p1,' & ',p2,'...');
+        Inc(dc);
+      end;
+      Inc(p2,3);
+    end;
+    CloseFile(f2);
+    Inc(p1,3);
+  end;
+  CloseFile(f1);
+  Write('Done. Found ');
+  if (ic=0) then Write('no') else Write(ic);
+  Write(' inconsistencies and ');
+  if (dc=0) then Write('no') else Write(dc);
+  WriteLn(' double questions. Press ENTER.');
+  ReadLn;
+end.

rbr-antispam.mrc

@@ -0,0 +1,31 @@
+on @1:TEXT:*:#:{
+  if (( $nick isprotect ) || ( $nick isop $chan ) || ( $chan != #lmg )) halt
+
+  if ( $1- != %spam ) {
+    set %spam $1-
+    set %spamnick $nick
+    set %spamcount 0
+    halt
+  }
+
+  if (( $1- == %spam ) && ( %spamnick == $nick )) {
+    inc %spamcount
+  }
+
+  if (%spamcount == 2 ) {
+    msg $chan 8,1Spam Protection Hey $nick $+ ! Wir haben es gelesen!
+    halt
+  }
+  if ( %spamcount == 3 ) {
+    msg $chan 8,1Spam Protection $nick $+ ! Das ist die zweite Warnung. Beim nächsten Mal fliegst Du!
+    inc %spamcount
+    halt
+  }
+  if ( %spamcount >= 4 ) {
+    msg $chan 8,1Spam Protection Ich hab Dich gewarnt, $nick $+ !
+    kick $chan $nick 8,1Spam Protection Don't try this at home.
+    unset %spamcount
+    unset %spamnick
+    unset %spam
+  }
+}

rbr-winamp.mrc

@@ -0,0 +1,66 @@
+;rbr-WinAMP script
+;(c)2004 by Markus Birth <mbirth@webwriters.de>
+;
+;Works perfectly with gen_mirc.dll of WinAMP.
+;
+;Set command string in WinAMP-plugin as follows:
+;        /musicbox %s
+
+
+; #############
+; ##  MENUs  ##
+; #############
+
+menu status {
+  rbr-WinAMP
+  .Status: musicboxstatus
+  .-
+  .Enable Auto-Announce: musicboxon
+  .Disable Auto-Announce: musicboxoff
+}
+
+menu channel {
+  rbr-WinAMP
+  .Announce Song: musicboxannounce
+  .-
+  .Status: musicboxstatus
+  .-
+  .Enable Auto-Announce: musicboxon
+  .Disable Auto-Announce: musicboxoff
+}
+
+
+; ###############
+; ##  ALIASes  ##
+; ###############
+
+alias musicbox {
+  set %rbrwinampsong $1-
+  if ( %rbrwinamp == ON ) {
+    musicboxannounce
+  }
+}
+
+alias musicboxannounce {
+  echo WinAMP now playing:  $+ %rbrwinampsong $+ 
+  ame is listening to  $+ %rbrwinampsong $+ 
+}
+
+alias musicboxstatus {
+  if ( %rbrwinamp == ON ) {
+    echo rbr-WinAMP Auto-Announce is currently 9ACTIVATED.
+  }
+  else {
+    echo rbr-WinAMP Auto-Announce is currently 4DEACTIVATED.
+  } 
+}
+
+alias musicboxon {
+  set %rbrwinamp ON
+  echo rbr-WinAMP Auto-Announce is now 9ACTIVATED.
+}
+
+alias musicboxoff {
+  unset %rbrwinamp
+  echo rbr-WinAMP Auto-Announce is now 4DEACTIVATED.
+}