;; mondgesicht *g*
;; first version xD
on 1:TEXT:*:#:{
if (!%mondgesichtflood [ $+ [ # ] ]) && (!$istok(#help #lobby #euirc #help.script,#,32)) {
if ($1- == $chr(46)) && (!%mondgesicht [ $+ [ # ] ]) {
set -u60 %mondgesicht [ $+ [ # ] ] $nick
msg # Hui ein Punkt wo bleibt Nummer 2?
}
elseif ($1- == $chr(46)) && (%mondgesicht [ $+ [ # ] ]) && ($numtok(%mondgesicht [ $+ [ # ] ],32) == 1) && (!$istok(%mondgesicht [ $+ [ # ] ],$nick,32)) {
set -u60 %mondgesicht [ $+ [ # ] ] %mondgesicht [ $+ [ # ] ] $nick
msg # Da ist ja noch ein Punkt, was fehlt da jetzt nur noch?
}
elseif ($1- == $chr(44)) && (%mondgesicht [ $+ [ # ] ]) && ($numtok(%mondgesicht [ $+ [ # ] ],32) == 2) && (!$istok(%mondgesicht [ $+ [ # ] ],$nick,32)) {
set -u60 %mondgesicht [ $+ [ # ] ] %mondgesicht [ $+ [ # ] ] $nick
msg # Richtig ein Komma aber sind wir schon fertig? Nein sind wir nicht... Was fehlt jetzt noch?
}
elseif ($1- == $chr(45)) && (%mondgesicht [ $+ [ # ] ]) && ($numtok(%mondgesicht [ $+ [ # ] ],32) == 3) && (!$istok(%mondgesicht [ $+ [ # ] ],$nick,32)) {
inc %~~mg
set -u300 %mondgesichtflood [ $+ [ # ] ] $true
msg # Pünktchen, Pünktchen, Komma, Strich, fertig ist das Mondgesicht. (Mondgesicht Nummer: %~~mg erstellt von: $replace(%mondgesicht [ $+ [ # ] ],$chr(32),$chr(44)) und $nick $+ )
unset %mondgesicht [ $+ [ # ] ]
}
}
}