| manikdepresif | 16 Şubat 2026 20:48 |
mac skorlari kodu !maclar
Merhaba;
[ACIKLAMA]
istek uzerine mac sonuclarini gosteren kucuk bir kod hazirladim.
Haftanin mac sonuclarini kanala yazdiriyor.
[Kullanim]
Kanallari kendinize gore duzenledikten sonra kanal genelinde !maclar komutu ile ister kendi scriptinizde ister bota koyup calistirabilirsiniz.
;İyi maclar...
[KOD] Kod:
on *:text:*:#sohbet,#radyo,#benimmekan,#felsefe,#mirchelp,#mobile: {
if $regex($1,/[!.]ma[çcÇ]lar$/i) {
if %macchan { return }
set -eu30 %macchan $chan | maclar
}
}
on *:input:#sohbet,#radyo,#benimmekan,#felsefe,#mirchelp,#mobile: {
if $regex($1,/[!.]ma[çcÇ]lar$/i) {
set -eu30 %macchan $chan | maclar
}
}
alias maclar { var %rand = $rand(1,999) | sockopen $+(maclar,%rand) qbilisim.net 80 | sockmark $+(maclar,%rand) https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:maclar*:{
var %komut = sockwrite -n $sockname
%komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
%komut Host: $sock($sockname).addr
%komut User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
%komut $crlf
}
on *:sockread:maclar*:{
var %mac | sockread %mac
if (*<td class='team-name text-right'>* iswm %mac) {
set -eu3 %soltakim OK
if ($regex(%mac,/<td class='team-name text-right'><a href="(.+)" title="(.+)">(.+)<\/a><\/td>/i)) {
set -eu3 %soltakim_isim $regml(3)
}
}
if (*<div class='score-box'>* iswm %mac && %soltakim) {
set -eu3 %skoredeger OK
if ($regex(%mac,/<div class='score-box'>(.+)<\/div>/i)) {
set -eu3 %takim_score $regml(1)
}
}
if (*<td class='team-name text-left'>* iswm %mac && soltakim) {
if ($regex(%mac,/<td class='team-name text-left'><a href="(.+)" title="(.+)">(.+)<\/a><\/td>/i)) {
set -eu3 %sagtakim_isim $regml(3)
inc -eu3 %score_timer_value
.timer 1 %score_timer_value msg %macchan %soltakim_isim %takim_score %sagtakim_isim
}
unset %soltakim %skoredeger
}
}
| 