| Forbidden | 25 Eylül 2022 04:39 |
Alıntı:
HaDeme Nickli Üyeden Alıntı
(Mesaj 1025313)
Statüse yansıtıyor bunu kanala yansıtması için en yapabilirim?
| Sadece sen kullanırsın kanaldaki herkes görür. Kod:
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
alias iddaa {
var %cek $+(iddaa,$r(1,9999)) | .comopen %cek Msxml2.ServerXMLHTTP.6.0
noop $com(%cek, open, 2, bstr, GET, bstr, $+(http://www.teknolobi.net/api/iddaa/canli.php?tarih=,$date))
noop $com(%cek, send, 1) $com(%cek, responseText, 2)
var %y1 $len($com(%cek).result)
if %y1 > 4141 { var %y $mid($com(%cek).result,1,4141) }
else { var %i $mid($com(%cek).result,1,4141) }
.comclose %cek | var %q $token($htmlfree(%i),0,63) ,%u 1
while %u <= %q {
msg $chan 12Kod:1 $token($token($htmlfree(%i),%u,63),1,42) 12Dakika:1 $token($token($htmlfree(%i),%u,63),2,42) 12Ev Sah:1 $token($token($htmlfree(%i),%u,63),3,42) 12Dep:1 $token($token($htmlfree(%i),%u,63),4,42) 12Skor:4 $token($token($htmlfree(%i),%u,63),5,42)
inc %u
}
}
Yine sen kullanırsın ve kanalda sadece sen görürsün. Kod:
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
alias iddaa {
var %cek $+(iddaa,$r(1,9999)) | .comopen %cek Msxml2.ServerXMLHTTP.6.0
noop $com(%cek, open, 2, bstr, GET, bstr, $+(http://www.teknolobi.net/api/iddaa/canli.php?tarih=,$date))
noop $com(%cek, send, 1) $com(%cek, responseText, 2)
var %y1 $len($com(%cek).result)
if %y1 > 4141 { var %y $mid($com(%cek).result,1,4141) }
else { var %i $mid($com(%cek).result,1,4141) }
.comclose %cek | var %q $token($htmlfree(%i),0,63) ,%u 1
while %u <= %q {
echo -a 12Kod:1 $token($token($htmlfree(%i),%u,63),1,42) 12Dakika:1 $token($token($htmlfree(%i),%u,63),2,42) 12Ev Sah:1 $token($token($htmlfree(%i),%u,63),3,42) 12Dep:1 $token($token($htmlfree(%i),%u,63),4,42) 12Skor:4 $token($token($htmlfree(%i),%u,63),5,42)
inc %u
}
}
Hem sen kullanırsın hemde kanaldaki herkes Kod:
on *:text:*:#*: {
if $regex($1,/^[.!][ıiIİ]ddaa$/Si) {
/iddaa
}
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
alias iddaa {
var %cek $+(iddaa,$r(1,9999)) | .comopen %cek Msxml2.ServerXMLHTTP.6.0
noop $com(%cek, open, 2, bstr, GET, bstr, $+(http://www.teknolobi.net/api/iddaa/canli.php?tarih=,$date))
noop $com(%cek, send, 1) $com(%cek, responseText, 2)
var %y1 $len($com(%cek).result)
if %y1 > 4141 { var %y $mid($com(%cek).result,1,4141) }
else { var %i $mid($com(%cek).result,1,4141) }
.comclose %cek | var %q $token($htmlfree(%i),0,63) ,%u 1
while %u <= %q {
msg $chan 12Kod:1 $token($token($htmlfree(%i),%u,63),1,42) 12Dakika:1 $token($token($htmlfree(%i),%u,63),2,42) 12Ev Sah:1 $token($token($htmlfree(%i),%u,63),3,42) 12Dep:1 $token($token($htmlfree(%i),%u,63),4,42) 12Skor:4 $token($token($htmlfree(%i),%u,63),5,42)
inc %u
}
}
|
