Cevap: !bomba Socket çevirme.
@pc_kopat eline saglik, ama ison $nick ve $chan gibi parametreler socket'e calismaz, altta codu duzelttim, mIRC 6.35 üstünden yazdim sorun olursa belirtirsin
Kod:
if $regex($2,353) && (%sorgunick || %sorgu2nick) {
var %x 1, %komut sockwrite -nt $sockname
while $token($6-,%x,32) { var %v1 $v1
if %sorgunick isin %v1 {
%komut privmsg $5 $chr(2) $+ %komutcu $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ %sorgunick $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
%komut privmsg $5 $chr(3) $+ 5 $+ Bomba Aktif. Son $+ $chr(3) $+ 4 30 $chr(3) $+ 5 $+ Saniye. $chr(3) $+ 4 $+ Zaman İşLiyor... Tik Tak Tik Tak...
%komut privmsg $5 $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
%komut privmsg $5 -
%komut privmsg $5 $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
.set %dinchan $5
.timerbomba 1 30 patlat
set %bomba_nick %sorgunick
set %bombaci_nick %komutcu
set %bombaci_nick $addtok(%bombaci_nick,$+(%sorgunick),32)
unset %sorgunick
return
}
if %sorgu2nick isin %v1 {
if (%sorgu2nick isin %bombaci_nick) {
%komut privmsg $5 $chr(2) $+ $2 $+ $chr(2) $chr(3) $+ 4 $+ Daha Önce Bombadan Kurtulmuş. Başkasına Doğru At $chr(2) $+ $nick $+ $chr(2)
unset %sorgu2nick
return
}
%komut privmsg $5 $chr(2) $+ %komutcu $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ %sorgu2nick $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
%komut privmsg $5 $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
%komut privmsg $5 -
%komut privmsg $5 $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
set %bomba_nick %sorgu2nick
set %bombaci_nick $addtok(%bombaci_nick,$+(%sorgu2nick),32)
unset %sorgu2nick
return
}
inc %x
}
%komut privmsg $5 $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
unset %sorgunick
unset %sorgu2nick
}
if $regex($2,/privmsg/i) {
var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $3, %komut sockwrite -nt $sockname
tokenize 32 $right($4-,-1)
if $regex($1,/([.!]bomba)/Si) {
if %bombaci_nick {
%komut privmsg %chan $chr(3) $+ 4 $+ Bomba Şuanda Aktif Durumda.
return
}
set %bomba_renkler altin gri mavi siyah yesil kirmizi
set %bomba_renk $token(%bomba_renkler,$rand(1,6),32)
if $istok($botnick %nick,$2,32) {
%komut privmsg %chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ %nick $+ $chr(2)
return
}
if !$2 {
%komut privmsg %chan $chr(2) $+ %nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
return
}
set %sorgunick $2
set %komutcu %nick
%komut names %chan
}
if $regex($1,/([.!]at)/Si) {
if (%nick == %bomba_nick) {
if $istok($botnick %nick,$2,32) {
%komut privmsg %chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ %nick $+ $chr(2)
return
}
if !$2 {
%komut privmsg %chan $chr(2) $+ %nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
return
}
set %sorgu2nick $2
set %komutcu %nick
%komut names %chan
}
else {
%komut privmsg %chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
}
}
if $regex($1,/([.!]kes)/Si) {
if (%nick == %bomba_nick) {
if ($2 == %bomba_renk) {
.timerbomba off
%komut privmsg %chan -
%komut privmsg %chan $chr(3) $+ 5 $+ Kanalın Kahramanı $+ $chr(3) $chr(2) $+ %nick $+ $chr(2) $+ . $chr(3) $+ 5 $+ Kendini Bombadan Kurtardı. Tebrikler, $+ $chr(3) $chr(2) $+ %nick $+ $chr(2) $+ . :)
%komut privmsg %chan -
unset %bomba_*
unset %bombaci_*
unset %dinchan
}
elseif $istok($remtok(%bomba_renkler,%bomba_renk,32),$2,32) {
%komut privmsg %chan $chr(2) $+ %nick $+ $chr(2) $+ . $chr(3) $+ 4 $+ Yanlış Renk!
%komut privmsg %chan $chr(3) $+ 5 $+ Bombanın PatLamasına Saniyeler Kaldı.!
}
}
else {
%komut privmsg %chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
}
}
}
alias botnick return Secure
alias -l patlat {
sockwrite -nt ajangiris kick %dinchan %bomba_nick Seni Uyardım, Bomba Elinde PatLadı. $chr(2) $+ BOOOOM!
.unset %bomba_*
.unset %bombaci_*
.unset %dinchan
}
|
