-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathLotto.mrc
84 lines (80 loc) · 5.59 KB
/
Lotto.mrc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
;*************************************************************************************************
;*
;* Lotto Addon v1.0 © by www.IrcShark.net (IrcShark Team)
;*
;*************************************************************************************************
;* Beschreibung
;*************************************************************************************************
;*
;* Postet die Lottozahlen in den Channel.
;*
;*************************************************************************************************
;* Befehle
;*************************************************************************************************
;*
;* Mit !lotto bekommst du die letzten Lottozahlen gepostet.
;* Mit !lotto info bekommst du den Copyright angezeigt.
;*
;*************************************************************************************************
;* IRC Kontakt
;*************************************************************************************************
;*
;* Server: irc.mindforge.org
;* Port: 6667
;* Channel: #IrcShark
;*
;* Befehl: /server -m irc.mindforge.org -j #IrcShark
;*
;*************************************************************************************************
;* ON EVENTS Start
;*************************************************************************************************
; - Trigger Befehl des Lotto Addons.
;*************************************************************************************************
on *:TEXT:!Lotto*:#:{
if ($2 == info) { .notice $nick 14Lotto Addon v1.0 © by 09www.IrcShark.net14 (09IrcShark Team14) | halt }
if (!$timer($+(Mod.Lotto-Flood., #, ., $cid))) {
.timerMod.Lotto-Flood. $+ $+(#, ., $cid) 1 40 halt | sockclose Mod.Lotto.sHTTP
sockopen Mod.Lotto.sHTTP www.dielottozahlen.de 80
sockmark Mod.Lotto.sHTTP # | set -u10 %Mod.Lotto.vRead 1
}
else {
if ($timer($+(Mod.Lotto-Flood., #, ., $cid, ., $nick, .3))) halt
var %secs = $timer($+(Mod.Lotto-Flood., #, ., $cid)).secs | .notice $nick 14Flood-Protection: Versuch's in09 $duration(%secs) 14nochmal!
inc $+($chr(37), Mod.Lotto-vFlood., #, ., $cid, ., $nick) | .timerMod.Lotto-Flood. $+ $+(#, ., $cid, ., $nick, *) off
.timerMod.Lotto-Flood. $+ $+(#, ., $cid, ., $nick, ., $eval($+(%, Mod.Lotto-vFlood., #, ., $cid, ., $nick), 2)) 1 %secs unset %Mod.Lotto-vFlood.*
}
}
;*************************************************************************************************
; - Öffnet die Seite www.dielottozahlen.de
;*************************************************************************************************
on *:SOCKOPEN:Mod.Lotto.sHTTP:{
tokenize 32 $sock($sockname).mark
if ($sockerr > 0) { .msg $1 14Es ist ein Fehler aufgetreten:09 $sock($sockname).wsmsg | halt }
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: www.dielottozahlen.de
sockwrite -n $sockname $crlf
}
;*************************************************************************************************
; - Liest die Lotto Top10 aus und postet sie dann.
;*************************************************************************************************
on *:SOCKREAD:Mod.Lotto.sHTTP:{
tokenize 32 $sock($sockname).mark
if ($sockerr > 0) { .msg $1 14Es ist ein Fehler aufgetreten:09 $sock($sockname).wsmsg | halt }
sockread %Mod.Lotto.sRead
while ($sockbr) {
if ($regex(%Mod.Lotto.sRead, /.*<font color="#666666">(.*) <font size="4">(.*)</font><font color="#666666">(.*) (.*)</font>.*/)) set -u10 %Mod.Lotto.vDate $regml(1) $regml(2) $+ $regml(3) $regml(4)
if ($regex(%Mod.Lotto.sRead, /(.*) (.*) (.*) (.*) (.*) (.*)</font></b></font></td>/)) set -u10 %Mod.Lotto.vZahlen $+($regml(1), 14, $chr(44), 09 $regml(2), 14, $chr(44), 09 $regml(3), 14, $chr(44), 09 $regml(4), 14, $chr(44), 09 $regml(5), 14, $chr(44), 09 $regml(6))
if ((!%Mod.Lotto.vZZ) && ($regex(%Mod.Lotto.sRead, /(.*)</font></b></td>/))) { if ($regml(1) isnum) set -u10 %Mod.Lotto.vZZ $v1 }
elseif ((!%Mod.Lotto.vSZ) && ($regex(%Mod.Lotto.sRead, /(.*)</font></b></td>/))) { if ($regml(1) isnum) set -u10 %Mod.Lotto.vSZ $v1 }
if ($regex(%Mod.Lotto.sRead, /<pre style="margin-top: 3; margin-bottom: 3" class="text">Ziehungsreihenfolge: (.*)</pre>/)) set -u10 %Mod.Lotto.vReihenfolge $replace($regml(1), $chr(44), $+(14, $chr(44), 09))
if ($regex(%Mod.Lotto.sRead, /.*<span style="font-weight: 400">Spiel</span><font size="4">77:</font></font> (.*) <font color="#3333CC">.*Super</span><font size="4">6: </font></font>(.*)</pre>/)) {
var %Mod.Lotto.vSpiel77 = $remove($regml(1) $regml(2), <span style="font-weight: 400">, </span>), %Mod.Lotto.vSuper6 = $gettok(%Mod.Lotto.vSpiel77, 4-5, 32)
.msg $1 14-=(09 %Mod.Lotto.vDate 14)=-=(14 Lottozahlen:09 %Mod.Lotto.vZahlen 00•14 ZZ:09 %Mod.Lotto.vZZ 00•14 SZ:09 %Mod.Lotto.vSZ 00•14 Ziehungsreihenfolge:09 %Mod.Lotto.vReihenfolge 00•14 Spiel77:09 $gettok(%Mod.Lotto.vSpiel77, 1-3, 32) 00•14 Super6:09 %Mod.Lotto.vSuper6 14)=-
sockclose Mod.Lotto.sHTTP | unset %Mod.Lotto.* | halt
}
sockread %Mod.Lotto.sRead
}
}
;*************************************************************************************************
;* ON EVENTS Ende
;*************************************************************************************************