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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Ekim 2008, 17:46   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cümle sonlarına




mIRCde yazdığım cümle içerisinde 'mi ,'kim' 'ne' sözcükleri geçmiyorsa cümlenin sonuna nokta(.) , 'mi 'kim 'ne sözcükleri geçiyorsa ' ? ' koymasını istiorm

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 01 Ekim 2008, 18:13   #2
Regex
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:if $left($1,1) != / && !$ctrlenter && !$regex($right($1-,1),/^(\.|\?)/$i) { .msg $target $+($1-,$iif(!$regex($1-,ne|kim|m(i|ı)),$chr(46),$chr(63))) }


Şeklinde yapabilirsin.

 
Alıntı ile Cevapla

Alt 01 Ekim 2008, 20:37   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




(20:29:45) <Adnan> «20:26:44» <Cobra> ha.
(20:29:45) <Adnan> «20:26:44» <Cobra> ha
(20:29:45) <Adnan> «20:26:48» <Cobra> seninde.
(20:29:45) <Adnan> «20:26:48» <Cobra> seninde
(20:29:45) <Adnan> «20:26:50» <Cobra> abi nabıon.
(20:29:45) <Adnan> «20:26:51» <Cobra> abi nabıon
(20:29:46) <Adnan> «20:27:05» <Adnan> nerelerdesin
(20:29:47) <Adnan> «20:27:06» <Adnan> cem di dimi
(20:29:48) <Adnan> «20:27:23» <Cobra> hea.
(20:29:49) <Adnan> «20:27:23» <Cobra> hea
(20:29:50) <Adnan> «20:27:25» <Cobra> hiç.
(20:29:51) <Adnan> «20:27:25» <Cobra> hiç
(20:29:52) <Adnan> «20:27:27» <Cobra> bakıom öle.


hata verio yazımı 2 defa yolluo

 
Alıntı ile Cevapla

Alt 01 Ekim 2008, 21:35   #4
Regex
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




Evet, haklısın. Sonunda /return kullanmayı unutmuşum. Dikkatsizlik...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:if $left($1,1) != / && !$ctrlenter && !$regex($right($1-,1),/^(\.|\?)/$i) { .msg $target $+($1-,$iif(!$regex($1-,ne|kim|m(i|ı)),$chr(46),$chr(63))) | return }


Sorunsuz çalışır.

 
Alıntı ile Cevapla

Alt 01 Ekim 2008, 22:55   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




* Bilgi: "morgaN" ile ortak kanallariniz: #sohbet (1 kanal)
* Bilgi: IP adresi:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

-
[ 10:46 ] [morgaN] slm.
[ 10:46 ] [morgaN] slm
[ 10:47 ] [morgaN] nbr.
[ 10:47 ] [morgaN] nbr
[ 10:47 ] [morgaN] gene olmadı?
[ 10:47 ] [morgaN] gene olmadı
[ 10:47 ] [morgaN] LifeMan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.
[ 10:47 ] [morgaN] LifeMan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[ 10:47 ] [morgaN] alallalaalala.
[ 10:47 ] [morgaN] alallalaalala
[ 10:47 ] [morgaN] denemeler..

 
Alıntı ile Cevapla

Alt 02 Ekim 2008, 00:41   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




Scriptinde bi input Daha ekli inputlar çakışıyo onu silip yüklersen Sorunsuz çalışacaktır.. veya düz mIRC e ekle Kodu öyLe dene

 
Alıntı ile Cevapla

Alt 02 Ekim 2008, 01:34   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




arkadaşlar nasıl silerim scriptimdeki input u acaba
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 02 Ekim 2008, 04:35   #8
Regex
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




mIRC'inin remote kısmında bulunan farklı bir on INPUT eventı olmalı. O eventı, buraya kopyalarsan gerekli düzenlemeleri yapabilirim. Dediğim gibi sorun, bu eventtan kaynaklanmıyor. Çünkü işlemin sonunda "return" kullandık.

Not: İstersen, koddaki /return olan kısmı, /halt yaparak tekrar dene. Yani:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:if $left($1,1) != / && !$ctrlenter && !$regex($right($1-,1),/^(\.|\?)/$i) { .msg $target $+($1-,$iif(!$regex($1-,ne|kim|m(i|ı)),$chr(46),$chr(63))) | return }


Ancak, herhangi bir fark yok.


Konu Regex tarafından (02 Ekim 2008 Saat 06:21 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 02 Ekim 2008, 20:00   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias os.radiosys { if $server { join #radyo } | if (!$dialog(os.radiosys)) { dialog -md os.radiosys os.radiosys } | else { dialog -iev os.radiosys } } dialog os.radiosys { title "Radyo mIRCTurk" size -1 -1 285 218 option pixels icon icon\9.ico, 0, 0 tab "Radyo", 1, 0 2 285 219 text "00:00", 6, 10 35 50 20, tab 1 center text " hazır.", 7, 65 35 210 20, tab 1 list 8, 10 60 80 20, tab 1 size text "0 Kbps", 9, 95 60 50 20, tab 1 center text "0 KHz", 10, 150 60 40 20, tab 1 center text "Mono", 11, 195 60 35 20, tab 1 center text "Stereo", 12, 235 60 40 20, tab 1 center text "Çalıyor", 13, 10 85 45 15, tab 1 center text "Hafızada", 14, 60 85 55 15, tab 1 center text "", 15, 120 85 155 15, tab 1 edit "", 17, 32 105 220 20, tab 1 center read autohs box "", 18, 10 125 265 8, tab 1 button "Bağlan", 19, 62 135 80 20, tab 1 button "Duraklat", 20, 142 135 80 20, tab 1 tab "Radyo Bilgisi", 3 text "Radyo:", 28, 10 35 45 15, tab 3 text "N/A", 29, 70 35 205 30, tab 3 center text "Versiyon:", 30, 10 65 45 30, tab 3 text "N/A", 31, 70 65 205 30, tab 3 center text "DJ:", 32, 10 95 45 15, tab 3 text "N/A", 33, 70 95 205 15, tab 3 center text "Web Site:", 34, 10 110 50 15, tab 3 text "N/A", 35, 70 110 205 15, tab 3 center text "Alınan byte:", 36, 10 125 60 15, tab 3 text "N/A", 37, 70 125 205 15, tab 3 center text "Hız:", 38, 10 140 50 15, tab 3 text "N/A", 39, 70 140 205 15, tab 3 center box "", 5, 5 25 275 187 button "", 42, 0 0 0 0, hide cancel text "Online DJ", 108, 10 164 265 16, center button "İsteğinizi göndermek için buraya tıklayın", 100, 10 188 266 20 text "Rumuzunuz:", 102, 10 237 64 16 edit "", 101, 78 234 197 20, autohs text "İstek parça:", 103, 10 259 64 16 edit "", 104, 78 256 197 20, autohs edit "", 106, 78 278 197 20, autohs text "Armağan:", 105, 10 281 64 16 button "İsteğimi gönder...", 107, 8 307 266 20 } on *:dialog:os.radiosys:init:*: { os.mdxdll SetMircVersion $version | os.mdxdll MarkDialog $dname mdx SetFont $dname 101,104,106 12 700 tahoma mdx SetColor $dname 7,15,17,101,104,106 text $rgb(220,220,220) mdx SetColor $dname 7,15,17,101,104,106 background $rgb(0,54,81) mdx SetColor $dname 7,15,17,101,104,106 textbg $rgb(0,54,81) mdx SetColor $dname 6,13 text $rgb(0,0,0) mdx SetColor $dname 6,13 background $rgb(220,220,220) mdx SetColor $dname 6,13 textbg $rgb(220,220,220) os.mdxdll SetFont $dname 108 13 700 tahoma os.mdxdll SetBorderStyle $dname 100,107 staticedge os.mdxdll SetFont $dname 100 13 400 tahoma os.mdxdll SetFont $dname 107 13 700 tahoma os.mdxdll SetBorderStyle $dname 6,7,8,9,10,11,12,13,14,15,19,20,21,24,26,27,29,31,33,35,37,39 staticedge | os.mdxdll SetFont 6 16 700 Verdana | os.mdxdll SetFont 7,9,10,12,15,16,17,19,20,21,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41 13 400 Tahoma | os.mdxdll SetFont 13,14 12 400 Tahoma | os.mdxdll SetControlMDX $dname 8 trackbar tooltips > dlls\bars.mdx | did -i os.radiosys 8 1 params $os.vol.w 0 100 0 0 0 0 15 | os.mdxdll SetControlMDX $dname 15 ProgressBar smooth > dlls\ctl_gen.mdx | did -a $dname 15 50 0 100 | os.mdxdll SetControlMDX $dname 22 listview rowselect nosortheader grid showsel single report > dlls\views.mdx | os.ampdll PluginManager Load output dlls\out_wave.dll | os.ampdll PluginManager Load input dlls\in_mp3.dll dialog -o $dname .timer 1 7 dialog-o $dname os.interr | os.monvol | os.contatore | .timeros-.k/s 0 1 os.k/s | os.preferitibar | ;did -i $dname 22 1 headertext +b 0 Commento $+ $chr(9) $+ +b 0 Indirizzo | if ($exists($+($shortfn($scriptdir),RSYS_Preferiti.ini)) != $true) { write -c $+($shortfn($scriptdir),RSYS_Preferiti.ini) } | ;loadbuf -o $dname 22 $scriptdirRSYS_Preferiti.ini | $iif($os.read(help) = YES,dialog -mo os.helpradio os.helpradio) | $iif($os.read(addr),did -a os.radiosys 17 $ifmatch) did -ra $dname 17 irc.mircturk.com #radyo did -a $dname 101 $me _rbaglan } alias dialog-o { if $dialog($1) { dialog -n $1 } } on *:dialog:os.radiosys:dclick:22: did -c $dname 1 | did -ra $dname 17 $mid($gettok($did($dname,22).seltext,2,9),11) | os.write addr $mid($gettok($did($dname,22).seltext,2,9),11) | os.interr | sockopen os.radiosys-0 $gettok($did($dname,17),1,58) $gettok($did($dname,17),2,58) | os.wradio Connessione in corso | did -a $dname 19 Bağlantıyı kes on *:dialog:os.radiosys:sclick:*: { if ($did = 8) { os.write vol $calc($gettok($did($dname,8,1),1,32) * 655.35) | vol -w $os.read(vol) } elseif ($did = 19) { if ($sock(os.radiosys-*)) { os.interr | os.wradio Bağlantı kesildi. } else { ;os.write addr $did($dname,17) | sockopen os.radiosys-0 $gettok($did($dname,17),1,58) $gettok($did($dname,17),2,58) | os.wradio Connessione in corso | did -a $dname 19 Bağlantıyı kes _rbaglan } } elseif ($did = 20) { if ($os.ampdll(CurrentMusic,status) != OK paused) { os.ampdll CurrentMusic pause | did -a $dname 20 Devam... } else { os.ampdll CurrentMusic unpause did -a $dname 20 Duraklat } } elseif ($did = 21) { os.helpradio } elseif ($did = 24) { os.addserver } elseif ($did = 26) { write -dl $+ $calc($did($dname,22).sel -1) $+($shortfn($scriptdir),RSYS_Preferiti.ini) | did -d $dname 22 $did($dname,22).sel } elseif ($did = 27) { did -r $dname 22 | write -c $+($shortfn($scriptdir),RSYS_Preferiti.ini) | os.preferitibar } elseif ($did = 41) { run
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
} elseif ($did = 42) { os.interr if ($dialog(os.helpradio)) { dialog -x os.helpradio } if ($dialog(os.addserver)) { dialog -x os.addserver } | os.ampdll FlushAllPlugins . } elseif ($did == 100) { if $did($dname,100) == İsteğinizi göndermek için buraya tıklayın { dialog -s os.radiosys -1 -1 285 343 did -a os.radiosys 100 İstek panelini kapatmak için buraya tıklayın } else { dialog -s os.radiosys -1 -1 285 218 did -a os.radiosys 100 İsteğinizi göndermek için buraya tıklayın } } elseif ($did == 107) && ($did($dname,107) == İsteğimi gönder...) { if !$did($dname,101) || !$did($dname,104) || !$did($dname,106) { echo -q $input(Bölümleri boş bırakmayınız.,o,Hata) return } set %istekrumuz $did($dname,101) set %istekparca $did($dname,104) set %istekarmagan $did($dname,106) _istekyap } } alias removex { if $file($1) { .remove $1 } } on *:sockclose:os.radiosys-0: os.interr | os.wradio Bağlantı kesildi. on *:sockclose:os.radiosys-1: os.interr | os.wradio Bağlantı kesildi. on *:sockopen:os.radiosys-0: if ($sockerr = 0) { .removex $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) | sockwrite -n $sockname GET / HTTP/1.0 $+ $lf $+ Host: $ip $+ $lf $+ User-Agent: Radio-SYS-v0.2-By-}|-|yRoN{-}Y{asta|<illa-Team-©2002/2003 $+ $lf $+ Accept: */* $+ $lf $+ Icy-MetaData:1 $+ $lf $+ Connection: close $+ $lf $+ $crlf | os.wradio Bağlantı kuruluyor... } | else { os.interr | os.wradio Radyoya bağlanılamıyor. } on *:sockread:os.radiosys-*: { if ($sockerr = 0) { if (*0 iswm $sockname) { sockread %os.radiodata if (!%os.radiodata) { os.wradio Bağlantı kuruluyor... | os.infoserver sockrename $sockname os.radiosys-1 } else { os.writeinfo $gettok(%os.radiodata,1,58) $gettok(%os.radiodata,2-,58) } } elseif (*1 iswm $sockname) { sockread &os.radiodata bwrite $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) -1 &os.radiodata if ($os.mp3 >= 8000) { did -ra os.radiosys 15 0 0 100 | sockrename $sockname os.radiosys-2 | os.infomp3 | .timeros.playing 0 0 os.playing } else { did -b os.radiosys 13 | did -e os.radiosys 14 | did -a os.radiosys 15 $os.probuff 0 100 } } else { sockread &os.radiodata | bwrite $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) -1 &os.radiodata } } else { os.wradio Errore di dialogo, disconnesso } } alias os.wradio did -a os.radiosys 7 $chr(160) $+ $1- alias os.mdxdll return $dll(dlls\mdx.dll,$1,$2-) alias mdx return $dll(dlls\mdx.dll,$1,$2-) alias os.ampdll return $dll(dlls\amp_in.dll,$1,$2-) alias os.vol.w return $int($calc($vol(wave) / 655.35)) alias os.preferitibar return | ;did -i os.radiosys 22 1 headerdims $iif($lines($+($shortfn($scriptdir),RSYS_Preferiti.ini)) < 5,135,120) $+ :1 125:2 alias os.infoserver $iif($os.readinfo(icy-name),did -a os.radiosys 29 $ifmatch) | $iif($os.readinfo(Server),did -a os.radiosys 31 $ifmatch) | $iif($os.readinfo(icy-notice2),did -a os.radiosys 31 $remove($ifmatch,<BR>)) | $iif($os.readinfo(icy-genre),_djset $ifmatch) | $iif($os.readinfo(icy-url),did -a os.radiosys 35 $ifmatch) alias os.infomp3 did -a os.radiosys 9 $mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).bitrate Kbps | did -a os.radiosys 10 $int($calc($mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).sample /1000)) Khz | did -e os.radiosys $iif($mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).mode = Single Channel,11,12) alias os.read return $readini($+($shortfn($scriptdir),RSYS_Options.ini),RadioSYS,$1) alias os.write writeini $+($shortfn($scriptdir),RSYS_Options.ini) RadioSYS $1 $2- alias os.del remini $+($shortfn($scriptdir),RSYS_Options.ini) RadioSYS $1 alias os.readinfo return $readini($+($shortfn($scriptdir),RSYS_Options.ini),InfoServer,$1) alias os.writeinfo $iif($2-,writeini $+($shortfn($scriptdir),RSYS_Options.ini) InfoServer $1 $2-) alias os.delinfo $iif($1,remini $+($shortfn($scriptdir),RSYS_Options.ini) InfoServer $1,remini $+($shortfn($scriptdir),RSYS_Options.ini) InfoServer) alias os.monvol if ($dialog(os.radiosys)) { if ($os.read(vol) != $vol(wave)) { os.write vol $vol(wave) | did -i os.radiosys 8 1 params $os.vol.w 0 100 0 0 0 0 15 } | .timeros-.monvol -m 1 100 os.monvol } alias os.pos return $gettok($os.ampdll(CurrentMusic,position),2,32) alias os.mp3 return $round($calc($file($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).size / $mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).bitrate * 7.99999),0) alias os.interr .timeros.* off | sockclose os.radiosys-* | os.ampdll Stop . | os.delinfo | did -a os.radiosys 29,31,33,35,37,39 N/A | did -a os.radiosys 9 0 Kbps | did -a os.radiosys 10 0 KHz | did -b os.radiosys 11,12,13,14,20 | did -ra os.radiosys 15 0 0 100 | did -a os.radiosys 20 Duraklat | did -a os.radiosys 19 Bağlan alias os.playing if ($os.pos = WAE0) && ($sock(os.radiosys-2)) && ($os.readinfo(pos) >= $calc($os.mp3 - 2000)) { os.wradio Bağlantı buffering durumunda. | .timeros.buffering 0 0 os.buffering | .timeros.playing off } | elseif ($os.pos = WAE0) && ($sock(os.radiosys-2)) { os.ampdll Play $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) | os.ampdll CurrentMusic seek $os.readinfo(pos) | os.delinfo pos | os.wradio Bağlantı doğrulanıyor. } | elseif ($os.pos = WAE0) && (!$sock(os.radiosys-2)) { os.interr | os.wradio Bağlantı koptu. } | else { if (!$os.readinfo(pos)) { did -e os.radiosys 13,20 | did -b os.radiosys 14 | os.wradio Radyo mIRCTurk dinlemek ayrıcalıktır... } | os.writeinfo pos $os.pos } alias os.probuff return $round($calc($calc($os.mp3 - $os.readinfo(pos)) * 100 / 8000),0) alias os.buffering if ($calc($os.mp3 - $os.readinfo(pos)) <= 8000) && ($sock(os.radiosys-2)) { did -b os.radiosys 13,20 | did -e os.radiosys 14 | did -a os.radiosys 15 $os.probuff 0 100 } | else { did -ra os.radiosys 15 0 0 100 | .timeros.buffering off | .timeros.playing 0 0 os.playing } alias os.contatore if ($dialog(os.radiosys)) { did -a os.radiosys 6 $gmt($calc($os.readinfo(pos) /1000),nn:ss) | .timeros-.contatore -m 1 100 os.contatore } alias os.k/s if ($dialog(os.radiosys)) { if (!$sock(os.radiosys-0)) && ($sock(os.radiosys-*)) { did -a os.radiosys 39 $bytes($calc($sock(os.radiosys-*).rcvd - $os.readinfo(bytesrcvd)),k) K/s | did -a os.radiosys 37 $bytes($sock(os.radiosys-*).rcvd,b) | os.writeinfo bytesrcvd $sock(os.radiosys-*).rcvd } } | else { .timeros-.k/s off } alias os.addserver if (!$dialog(os.addserver)) { dialog -m os.addserver os.addserver } dialog os.addserver { title "Radio SYS v0.2 - Add Server" size -1 -1 265 85 box "" 1,0 0 265 85 text "Commento:" 2,5 12 55 15 edit "" 3,60 10 200 20,autohs text "Indirizzo:" 4,5 32 55 15 edit "" 5,60 30 200 20,autohs box "" 6,5 48 255 8 button "Add Server" 7,50 60 80 20 button "Chiudi" 8,135 60 80 20,cancel } on *:dialog:os.addserver:init:*: os.mdxdll SetMircVersion $version | os.mdxdll MarkDialog $dname | os.mdxdll SetBorderStyle $dname 7,8 staticedge | os.mdxdll SetFont 2,3,4,5,7,8 13 400 Tahoma | did -b $dname 7 on *:dialog:os.addserver:edit:5: if (*.*.*.*:* iswm $did($dname,5)) { did -e $dname 7 } | else { did -b $dname 7 } on *:dialog:os.addserver:sclick:*: if ($did = 7) { write $+($shortfn($scriptdir),RSYS_Preferiti.ini) $did($dname,3) $+ $chr(9) $+ $did($dname,5) | did -a os.radiosys 22 $did($dname,3) $+ $chr(9) $+ $did($dname,5) | os.preferitibar | dialog -x $dname | dialog -v os.radiosys } | else { dialog -v os.radiosys } alias os.helpradio if (!$dialog(os.helpradio)) { dialog -md os.helpradio os.helpradio } dialog os.helpradio { title "Radio SYS v0.2 - Helper" size -1 -1 350 200 box "" 1,0 0 350 200 edit "" 2,5 10 340 185,read,multi,vsbar button "" 3,0 0 0 0,cancel,hide } on *:dialog:os.helpradio:init:*: os.mdxdll SetMircVersion $version | os.mdxdll MarkDialog $dname | os.mdxdll SetFont 2 13 400 Tahoma | loadbuf -o $dname 2 $+($shortfn($scriptdir),RSYS_Helper.txt) | os.write help NO on *:dialog:os.helpradio:sclick:3: dialog -v os.radiosys alias _djset { did -a os.radiosys 33 $1 | did -a os.radiosys 108 Şu anda DJ: $1 } alias _rbaglan { os.write addr radyo.mircturk.net:8200 | sockopen os.radiosys-0 radyo.mircturk.net 8200 | os.wradio Bağlanılıyor... | did -a $dname 19 Bağlantıyı kes } alias _istekyap { sockopen $+(istek,$r(100,99999)) irc.mircturk.com 6667 if $dialog(os.radiosys) { did -a $ifmatch 107 İsteğiniz gönderiliyor... } } alias _istekreturn { if $dialog(os.radiosys) { did -a $ifmatch 107 İsteğimi gönder... } } on *:sockopen:istek*: { if $sockerr { _istekreturn echo -q $input(İsteğiniz gönderilemedi.,o,Hata) } sockwrite -nt $sockname NICK $+(ISTEK,-,$r(100,99999)) sockwrite -nt $sockname USER mircturk "" " $+ $iif($host,$host,$ip) $+ " :istek } on *:sockread:istek*: { var %r sockread %r tokenize 32 %r if $1 == PING { sockwrite -nt $sockname PONG $2 } if $2 == 376 || $2 == 422 { sockwrite -nt $sockname PRIVMSG #dj : $+(Isteyen:,$chr(32),%istekrumuz,) - istek parca: $+(,%istekparca,) - armagan edilenler: $+(,%istekarmagan,) if $dialog(os.radiosys) { did -a $ifmatch 107 İsteğiniz gönderildi! } .timer 1 5 sockclose $sockname .timer 1 5 _istekreturn } }


 
Alıntı ile Cevapla

Alt 02 Ekim 2008, 20:26   #10
Regex
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Cümle sonlarına




Bu kodların on INPUT'la alakası yok. Kodun son hâliyle bir kez daha dener misin? Yani /return yerine, /halt yazarak...

 
Alıntı ile Cevapla

Cevapla

Etiketler
cümle, mirc, mirc download, mirc indir, sonlarına


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
İstiklal Marşının Cümle Cümle Anlamı Sue Türk Dili ve Edebiyatı 0 30 Mayıs 2012 21:34
Son CümLe aŁmiηa Şiir, Hikaye ve Güzel Sözler 0 19 Nisan 2011 01:02