Cevap: S.a Bu kodu Sockete Çevire bilirmiyiz.
Kod:
alias benimbot {
sockopen Artiz irc.esohbet.net 6667
}
on *:sockopen:Artiz: {
var %botum sockwrite -n Artiz
%botum nick Artiz
%botum user NetAdmin ** * Administrator
}
on *:sockread:artiz: {
var %botum sockwrite -n Artiz
var %hm
sockread %hm
tokenize 32 %hm
echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]takip %hm
if $1 == ping {
%botum pong $2
}
if $2 == JOIN {
.timer 1 2 %botum join #master }
}
if $2 == privmsg {
var %kanal $3
if %kanal == #master {
var %yazi $gettok($4-,1,$asc(:))
if $gettok(%yazi,1,32) == !gmesaj {
if $gettok(%yazi,2,32) == on {
if (%gmesaj == on) { %botum privmsg %kanal Gmesaj zaten aktif! | return }
else { set %gmesaj on | %botum privmsg %kanal Global Mesaj Reklami Acilmistir. | timer 0 600 gmesaj }
}
if $gettok(%yazi,2,32) == off {
if (%gmesaj == off) { %botum privmsg %kanal Gmesaj zaten kapali! | return }
else { set %gmesaj off | %botum privmsg %kanal Global Mesaj Reklami Kapatilmistir. | timerg off }
}
if $gettok(%yazi,2,32) == ekle {
if $read(gmesaj.txt,w,$gettok(%yazi,3-,32)) { %botum privmsg %kanal Bu reklam zaten listede mevcut! | return }
else { write gmesaj.txt $gettok(%yazi,3-,32) | %botum privmsg %kanal $gettok(%yazi,3-,32) : mesaji listeye eklenmistir. }
}
if $gettok(%yazi,2,32) == sil {
if !$read(gmesaj.txt,w,$gettok(%yazi,3-,32)) { %botum privmsg %kanal Bu mesaj listede yok. | return }
else { var %silincek $read(gmesaj.txt,w,$gettok(%yazi,3-,32)) | write -dl $+ %silincek gmesaj.txt | %botum privmsg %kanal %silincek mesaji listeden silindi. }
}
if $gettok(%yazi,2,32) == list {
var %i 1, %sayi $lines(gmesaj.txt)
while (%i <= %sayi) {
%botum privmsg %kanal $read(gmesaj.txt,%i)
inc %i
}
}
}
}
}
}
alias gmesaj {
sockwrite -n Artiz operserv global $read(gmesaj.txt, $+ $rand(1, $+ $lines(gmesaj.txt)))
}
Kodunuzda silme ve ekleme islemleri eksikti, onlari da ekledim.
Botun adi ve sunucuyu degisirsiniz. Kod:
[20:09] <04SuLh> !gmesaj on
[20:09] <05Artiz> Gmesaj zaten aktif!
[20:09] <04SuLh> !gmesaj off
[20:09] <05Artiz> Global Mesaj Reklami Kapatilmistir.
[20:09] <04SuLh> !gmesaj on
[20:09] <05Artiz> Global Mesaj Reklami Acilmistir.
[20:09] <04SuLh> !gmesaj list
[20:09] <05Artiz> asda
[20:09] <05Artiz> asdas
[20:09] <05Artiz> dasc
[20:09] <05Artiz> xcvx
[20:09] <05Artiz> xcvx
[20:09] <05Artiz> dasc
[20:09] <05Artiz> asda
[20:10] <05Artiz> asda
[20:10] <04SuLh> !gmesaj ekle xxz
[20:10] <05Artiz> xxz : mesaji listeye eklenmistir.
[20:10] <Srttt> yaşlıbayanısever nicki ( *yaşlı* ) degistirildi.
[20:10] <04SuLh> !gmesaj sil asda
[20:10] <05Artiz> asda mesaji listeden silindi.
[20:10] <04SuLh> !gmesaj sil asda
[20:10] <05Artiz> Bu mesaj listede yok.
|
