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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - .txt Dosyasındaki kanallara Girsin... (https://www.ircforumlari.net/mirc-scripting-sorunlari/6182-txt-dosyasindaki-kanallara-girsin.html)

AsiLmavi

06 Ağustos 2005 13:18

.txt Dosyasındaki kanallara Girsin...

Arkadaşlar. bir sorum var:
ben chans.txt dosyasına:
#istanbul
#ankara
#konya
diye kanalları yazıyorum.
bunu white ile teker teker okutup joinle girmesini istiyom. chans.txx içindeki kanallar a girince giriş sona ersin. ben ayarladım ama aradan alıyor ve giriş sonlanmıyor. yardım lütfen..

goXXip

06 Ağustos 2005 13:41

Kod:

on 1:connect: {
 var %k = 1
 while %k <= $lines(chan.txt) {
         if $me !ison $read(chan.txt,%k) {
          _linedance join $read(chan.txt,%k)
         }
         inc %k
   }
 }

 
 _linedance {

if ($timer(.line.dance. $+ $cid) == $null) {

hadd -m pnp.qcommand count. $+ $cid 1

hadd -m pnp.qcommand 1. $+ $cid $1-

_dolinedance 1

}

else {

hinc -m pnp.qcommand count. $+ $cid

hadd -m pnp.qcommand $hget(pnp.qcommand,count. $+ $cid) $+ . $+ $cid $1-

}

}

_dolinedance {

if ($hget(pnp.qcommand,$1 $+ . $+ $cid) != $null) {

var %data = $ifmatch

.timer.line.dance. $+ $cid -m 1 $calc(1500 - $gettok(1250 1000 750 500 250,$1,32)) _dolinedance $calc($1 + 1)

%data

}

else hdel -w pnp.qcommand *. $+ $cid

}

AsiLmavi

06 Ağustos 2005 13:59

tşkler yardım prensim:) peki !ekle #kanal !sil #kanal die kanal.txt ye nasıl kanal ekleriz.?

goXXip

06 Ağustos 2005 14:05

Kod:

on 1:text:*:*: {
   if $1 == !ekle && $2 {
         if !$read(chan.txt,w,$2) {
            write chan.txt $iif(#* iswm $2,$2,$+(#,$2))
            msg $nick $2 Kanalı Eklenmiştir.
         }
         else msg $nick $2 Kanalı Zaten Listede mevcut
   }
   elseif $1 == !kaldır && $2 {
         if $read(chan.txt,w,$2) {
           write -ds $iif(#* iswm $2,$2,$+(#,$2)) chan.txt
           msg $nick $2 Kanalı Kaldırılmıştır.
         }
         else msg $nick Böyle Bir Kanal Listenizde yok...
   }
   else msg $nick Eklemek için !ekle #kanal Kaldırmak için !kaldır #kanal
 }

AsiLmavi

06 Ağustos 2005 14:12

harikasın dostum Allah razı olsun mujukks ;) ellerine sağlık

goXXip

06 Ağustos 2005 14:12

Estağfirullah...

BoSs	06 Ağustos 2005 15:41

Çağri öğrendin artık işi. :)

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:40.