IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü Böyle Bişey Mümkünmü (https://www.ircforumlari.net/mirc-scripting-sorunlari/683711-boyle-bisey-mumkunmu.html)

Böyle Bişey Mümkünmü

Kod:

on *:start: {

  .server irc.sohbetyolu.net

}
 

on *:CONNECT: {

  .oper NİCK ŞİFRE

  .ns ghost SYNet-Puan 22520

  .nick SYNet-Puan

  .msg NickServ IDENTIFY 22520

  .os su SY

  .join #sohbet

  .join #OPS

  .close -m

  .setident YMC

  .sethost Socket.SohbetYolu.Net

  .setname 5(10YouMyCure 14Socket 1Bot's5)

  .close -m

  .close -m

}
 

on *:text:*:#Sohbet:{

  if $1 == !puan {

    if ($2 == list) { top10 | goto t0p10 }

    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 6puan listesinde yok }

    if $2 == $me { msg # $+($nick,:) 6ßenim Puanmımı ßoşver, ßenimki Ancak ßana Yetiyor :D | goto t0p10 }

    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan 5 $read(puan.txt,$readn) 4p5u13a6n7'12ı 13v12a3r | .msg #sohbet  $nick  Hadi AzKaLdı Finish e Şunun Şurasında NevarKine Ya ALLah BismiLLah De Siva BirmakLarı Bas TuŞLara Hadi Canim ßenim :D   | goto t0p10 }

  }

  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 

  else { 

    var %dify $readn 

    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 

    write $+(-l,%dify) puan.txt $nick %yeah 

    if %yeah == 200 { mode $chan +v $nick | msg $chan 0,1 $nick Tebrikler 200 puan olduğunuz için; +voice kazandınız.  | .os raw swhois $nick :RAMAZAN }

  }

   :t0p10

}

alias top10 {

  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1

  window -hn %cnk

  filter -fwcteu 2 32 %e %cnk

  msg #sohbet 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»

  while %top10 <= %hit { msg #sohbet 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 

  window -c %cnk

}

şeklinde bişeyler yaptım fakat rütbe eklemeyi beceremedim rütbe konusunda bişeyler yapabilirmiziniz teşekkürler :) -- Puan Bot

Cevap: Böyle Bişey Mümkünmü

Alıntı:

KraL Nickli Üyeden Alıntı (Mesaj 1041620707)

şeklinde bişeyler yaptım fakat rütbe eklemeyi beceremedim rütbe konusunda bişeyler yapabilirmiziniz teşekkürler :) -- Puan Bot

Rütbe dediğin eğer puana göre mode-prefix vermek ise alttaki şekilde yapabilirsin.

Kod:

on *:text:*:#Sohbet:{

  if $1 == !puan {

    set %k #

    if ($2 == list) { top10 }

    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 6puan listesinde yok }

    elseif $2 == $me { msg # $+($nick,:) 6ßenim Puanmımı ßoşver, ßenimki Ancak ßana Yetiyor :D }

    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg # 5 $read(puan.txt,$readn) 4p5u13a6n7'12ı 13v12a3r | msg #  $nick  Hadi AzKaLdı Finish e Şunun Şurasında NevarKine Ya ALLah BismiLLah De Siva BirmakLarı Bas TuŞLara Hadi Canim ßenim :D }

  }

  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 } 

  else { 

    var %dify $readn 

    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 

    write $+(-l,%dify) puan.txt $nick %yeah 

    if %yeah == 200 { mode # +v $nick | msg # 0,1 $nick Tebrikler 200 puan olduğunuz için; +voice kazandınız. | .os raw swhois $nick :RAMAZAN }

    elseif %yeah == 400 { mode # +h $nick | msg # 0,1 $nick Tebrikler 400 puan olduğunuz için; Halfop kazandınız. }

    elseif %yeah == 1000 { mode # +o $nick | msg # 0,1 $nick Tebrikler 1000 puan olduğunuz için; @Op kazandınız. }

  }

}

alias top10 {

  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1

  window -hn %cnk

  filter -fwcteu 2 32 %e %cnk

  msg %k 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»

  while %top10 <= %hit { msg %k 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 

  window -c %cnk

}

Cevap: Böyle Bişey Mümkünmü

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041620782)

Rütbe dediğin eğer puana göre mode-prefix vermek ise alttaki şekilde yapabilirsin.

Kod:

on *:text:*:#Sohbet:{

  if $1 == !puan {

    set %k #

    if ($2 == list) { top10 }

    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 6puan listesinde yok }

    elseif $2 == $me { msg # $+($nick,:) 6ßenim Puanmımı ßoşver, ßenimki Ancak ßana Yetiyor :D }

    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg # 5 $read(puan.txt,$readn) 4p5u13a6n7'12ı 13v12a3r | msg #  $nick  Hadi AzKaLdı Finish e Şunun Şurasında NevarKine Ya ALLah BismiLLah De Siva BirmakLarı Bas TuŞLara Hadi Canim ßenim :D }

  }

  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 } 

  else { 

    var %dify $readn 

    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 

    write $+(-l,%dify) puan.txt $nick %yeah 

    if %yeah == 200 { mode # +v $nick | msg # 0,1 $nick Tebrikler 200 puan olduğunuz için; +voice kazandınız. | .os raw swhois $nick :RAMAZAN }

    elseif %yeah == 400 { mode # +h $nick | msg # 0,1 $nick Tebrikler 400 puan olduğunuz için; Halfop kazandınız. }

    elseif %yeah == 1000 { mode # +o $nick | msg # 0,1 $nick Tebrikler 1000 puan olduğunuz için; @Op kazandınız. }

  }

}

alias top10 {

  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1

  window -hn %cnk

  filter -fwcteu 2 32 %e %cnk

  msg %k 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»

  while %top10 <= %hit { msg %k 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 

  window -c %cnk

}

Yok o değil

Alıntı:

Kod:

alias rütbe {   if ($1 <= 75) { return Caylak }   if ($1 >= 76 && $1 <= 150) { return Star }   if ($1 >= 151 && $1 <= 250) { return Super Star }   if ($1 >= 251 && $1 <= 350) { return Multi Star ( VIP Üye ) }   if ($1 >= 351 && $1 <= 500) { return Super ChatterBox ( VIP Üye ) }   if ($1 >= 501 && $1 <= 650) { return Vezir ( Bronz Üye ) }   if ($1 >= 651 && $1 <= 800) { return Lord ( Gold Üye ) }   if ($1 >= 801 && $1 <= 1001) { return KraL ( Platinium Üye ) }   if ($1 == 1907) { return 8,2 Fener Bahçe  } }

bu şekilde ama bu kodları benim paylaştığım kodlara uyarlıyamadım :S

Cevap: Böyle Bişey Mümkünmü

Alıntı:

KraL Nickli Üyeden Alıntı (Mesaj 1041621092)

Yok o değil
bu şekilde ama bu kodları benim paylaştığım kodlara uyarlıyamadım :S

top10 aliası ile beraber altındaki şekilde eklersen istediğin gibi olur.

Örnek Görüntü:

Kod:

[21:58] <deneme1> !puan list

[21:58] <Feragat> ,, ««« Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: »»»

[21:58] <Feragat>  1st deneme1 1017 KraL Gold Üye

[21:58] <Feragat>  2nd deneme5 600 Vezir Bronz Üye

[21:58] <Feragat>  3rd abuzer 5 Caylak

[21:58] <Feragat>  4th

[21:58] <Feragat>  5th

[21:58] <Feragat>  6th

[21:58] <Feragat>  7th

[21:58] <Feragat>  8th

[21:58] <Feragat>  9th

[21:58] <Feragat>  10th

- Uğraşırsan daha kısasını da yapabilirsin.

Kod:

alias top10 {

  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1

  window -hn %cnk

  filter -fwcteu 2 32 %e %cnk

  msg %k 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»

  while %top10 <= %hit { msg %k 12 $ord(%top10) $iif($line(%cnk,%top10), $rütbe($v1), $v1) | inc %top10 } 

  window -c %cnk

}  
 

alias böl return $token($strip($1),2,32)
 

alias rütbe {  

  $iif($böl($1) isnum 1-75, return $1 Caylak)

  $iif($böl($1) isnum 76-150, return $1 Star)   

  $iif($böl($1) isnum 151-250, return $1 Super Star)   

  $iif($böl($1) isnum 251-350, return $1 Multi Star VIP Üye)   

  $iif($böl($1) isnum 351-500, return $1 Super ChatterBox VIP Üye)   

  $iif($böl($1) isnum 501-650, return $1 Vezir Bronz Üye)   

  $iif($böl($1) isnum 651-800, return $1 Lord Gold Üye)   

  $iif($böl($1) isnum 801-1001, return $1 KraL Platinium Üye)  

  $iif($böl($1) isnum 1002-1906, return $1 KraL Gold Üye) 

  $iif($böl($1) == 1907, return $1 8,2 Fener Bahçe)

  $iif($böl($1) > 1907, return $1 KraL Üye)

}

Cevap: Böyle Bişey Mümkünmü

peki bunları swhois olarak kullanıcıya yazdıramazmıyız her girdiğinde :) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Böyle Bişey Mümkünmü

Join eventı ile yazdırabilirsin.
bkz. /help on join

Cevap: Böyle Bişey Mümkünmü

teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]