Türkçe mIRC indir – Resmi mIRC indirme Sitesi
Türkçe mirc resmi adresi TurkIRC. Mirc indir, mirc sohbet, mirc chat odaları, mirc addonları, IRC Client komutları alanında kaliteli hizmet vermektedir.
Moskova’da yılbaşından beri sıcaklık sürekli eksi 10 derecenin altında. Buna rağmen 10 günlük uzun yılbaşı tatilinde Ruslar, meydanları, parkları doldurmaya devam ediyor. 6 Şubat 1993’de eksi 67,7 derece ile, yeryüzünün en soğuk yerleşim birimi unvanını alan Sibirya’daki 462 nüfuslu Oymyakon kasabası, bugünlerde eksi 35 derece ile olağan günlerini yaşıyor. Önce Rus hamamında terleyip sonra kar banyosu almak, ya da donan […]
» Devamını OkuKaynak ; /helpop ? ——– Adchat ; Online olan bütün adminlere mesaj gönderilmesini sağlar. Kullanım ; /adchat mesaj Addmotd ; Motd sonuna yeni bir dizin eklenmesini sağlar. Kullanım ; /addmotd yazı Addomotd ; Opermotd sonuna yeni bir dizin eklenmesini sağlar. Kullanım ; /addomotd yazı Chatops ; Sadece yerel serverde bulunan IRC operatörlere mesaj gönderilmesini sağlar. Kullanım ; /chatops mesaj Chghost […]
» Devamını Oku|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
dialog mp3 { title "Mp3 Player By SuLh" size -1 -1 140 164 option dbu list 1, 6 15 74 121, size button "Ekle", 2, 6 140 34 18 button "Sil", 3, 48 140 33 18 button "Gönder", 4, 88 15 42 20 button "Sıradaki", 5, 88 40 42 20 button "Çal", 6, 88 66 42 20 button "Durdur", 7, 88 91 42 20 text "Şarkı Listesi", 8, 24 6 39 8, center button "Kapat", 9, 88 114 42 20,ok } alias mp3 { dialog -m mp3 mp3 } on *:dialog:mp3:init:*: { var %i 1 while (%i < = $lines(mp3.txt)) { did -a mp3 1 $read(mp3.txt,%i) inc %i } } on *:dialog:mp3:sclick:*: { if ($did == 2) { var %:s $sfile($mircdir) if $chr(32) isin %:s { echo -a Sarki adinda bosluk var! Sarki ismi yeniden bicimlendirilip kopyalaniyor. var %:za $gettok(%:s, $+ $numtok(%:s,92) $+ ,92) var %:new $replace(%:za, $+ $chr(32) $+ , $+ $chr(45) $+ ) rename $shortfn(%:s) %:new echo -a Parçanın yeni ismi %:new write mp3.txt %:new echo -a %:new Şarkısı anadizine kopyalanıyor did -a mp3 1 %:new copy -a %:s $mircdirmp3 return } var %:a $gettok(%:s, $+ $numtok(%:s,92) $+ ,92) var %:b $replace(%:a, $+ $chr(32) $+ , $+ $chr(45) $+ ) if %:s == $null { return } echo -a %:b Şarkısı anadizine kopyalanıyor. write mp3.txt %:b did -a mp3 1 %:b copy -a %:s $mircdirmp3 } if ($did == 3) { var %:hm $did(1).seltext did -d mp3 1 $did(1).sel echo -a 7,1 %:hm parçası silindi. write -dl $+ %:hm mp3.txt remove %:hm } if ($did = 6) { splay $mircdir $+ $did(1).seltext echo -a 7,1 $did(1).seltext parçası çalıyor.. } if ($did == 7) { splay stop echo -a 7,1 Mp3 player durduruldu. } if ($did == 4) { $amsg(Şu an mp3 playerimda $did(1).seltext parçası çalıyor..) } if ($did == 5) { var %:siradaki $did(1).seltext if $read(mp3.txt,w, $+ %:siradaki $+ ) { var %:c $calc($readn + 1) splay $+($mircdir,$read(mp3.txt,%:c)) return } if !$read(mp3.txt,w, $+ %:c $+ ) { var %:c 1 } splay $+($mircdir,$read(mp3.txt,%:c)) } } menu * { Mp3 Player:mp3 } |
iPhone 7 ile ciddi değişiklikler yapması beklenen Apple, bir bağlamda klasik Apple tasarımını seven ve daha düşük bütçeye sahip olan kullanıcılara da 5e ile ulaşacak 2016 yılı içinde mobil cihaz meraklılarının en fazla beklediği telefonlardan biri olan iPhone 7, gerek fiyatı gerekse özellikleri ile de oldukça dikkat çekici bir ürün olacağa benziyor. Fakat iPhone 6 ve sonrası ile birlikte ekran […]
» Devamını OkuGeliştirdiği sistem ile dünyanın en prestijli fizik proje yarışmasında birinci olan İlayda Şamilgil, başarı basamaklarını tırmanmaya devam ediyor. Sıvılarda bulunan su oranını mıknatısla ölçebilen bir sistem geliştiren İlayda Şamilgil, bu projesi ile TÜBİTAK’ın yarışmasına katılmış, ancak finale bile kalamamıştı. TÜBİTAK tarafından finale kalmaya bile layık görülmeyen proje ile İlayda, Polonya’da düzenlenen ve 80 ülkenin katıldığı ”Nobel Fizik Ödülü’ne Doğru İlk […]
» Devamını Oku|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
* ================================================================== * Filename: m_loggit.c * Description: Real-time Logging * Written by: MartinCo * ================================================================== */ #include "config.h" #include "struct.h" #include "common.h" #include "sys.h" #include "numeric.h" #include "msg.h" #include "channel.h" #include <time .h> #include <sys /stat.h> #include <stdio .h> #include <stdlib .h> #include <string .h> #include <fcntl .h> #include "h.h" // ================================================================== // Definitions & macros // ================================ #define MyMod LoggitModInfo->handle #define DelHook(x) if (x) HookDel(x); x = NULL DLLFUNC char *loggit_privmsg(aClient *, aClient *, aClient *, char *, int); DLLFUNC char *loggit_chanmsg(aClient *, aClient *, aChannel *, char *, int); // ================================================================== // Module header // ================================================================== ModuleHeader MOD_HEADER(m_loggit) = { "Loggit", "$Id: m_loggit.c,v 3.6 2007 MartinCo Exp $", "Loggit", "3.2-b8-1", NULL }; ModuleInfo *LoggitModInfo; static Hook *HookPrivMsg; static Hook *HookChanMsg; static FILE *fp; DLLFUNC int MOD_INIT(m_loggit)(ModuleInfo *modinfo) { int ret = MOD_SUCCESS; LoggitModInfo = modinfo; HookPrivMsg = HookAddPCharEx(MyMod, HOOKTYPE_USERMSG, loggit_privmsg); HookChanMsg = HookAddPCharEx(MyMod, HOOKTYPE_CHANMSG, loggit_chanmsg); return ret; } DLLFUNC int MOD_LOAD(m_loggit)(int module_load) { return MOD_SUCCESS; } DLLFUNC int MOD_UNLOAD(m_loggit)(int module_unload) { DelHook(HookChanMsg); DelHook(HookPrivMsg); return MOD_SUCCESS; } // ================================================================== // Functions for nicknames, channel names and prefixes // ================================================================== DLLFUNC char *loggit_privmsg(aClient *cptr, aClient *sptr, aClient *acptr, char *text, int notice) { time_t calender_time; struct tm tdate; calender_time = time(NULL); tdate = *localtime(&calender_time); FILE * pFile; pFile = fopen ("privmsg.log", "a"); fprintf (pFile, "%02d-%02d-%02d %02d:%02d [%s > %s] %s\n", tdate.tm_mday, tdate.tm_mon + 1, tdate.tm_year - 100, tdate.tm_hour, tdate.tm_min, cptr->name, acptr->name, text); fclose (pFile); return text; } DLLFUNC char *loggit_chanmsg(aClient *cptr, aClient *sptr, aChannel *chptr, char *text, int notice) { time_t calender_time; struct tm tdate; calender_time = time(NULL); tdate = *localtime(&calender_time); FILE * pFile; pFile = fopen ("chanmsg.log", "a"); fprintf (pFile, "%02d-%02d-%02d %02d:%02d [%s] [%s] %s\n", tdate.tm_mday, tdate.tm_mon + 1, tdate.tm_year - 100, tdate.tm_hour, tdate.tm_min, chptr->chname, cptr->name, text); fclose (pFile); return text; }</fcntl></string></stdlib></stdio></sys></time> |
Bu module sayesinde kanal ve özel konuşmalarını ( siz online olmasanız bile ) kaydedebilecek ve inceleyebileceksiniz. Sistem, özel konuşmaları Unreal klasörü içerisine privmsg.log olarak, kanal konuşmalarını ise yine aynı klasöre chanmsg.log olarak kaydediyor. İstediğiniz değişiklikleri yapıp kullanmak da mümkün. Alıntıdır.
» Devamını OkuÖnce mIRC’de yazı yazdığımız yerde yani command line’dan /sockopen bot komutunu yazarak botumuzu istediğimiz servera bağlıyoruz. “bot” adlı socketımız açıldığında
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
on *:sockopen:bot:{ ;eğer socketta bir sorun varsa işlemi durduruyoruz if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return } ;servera bağlanırken botun nicki gönderiliyor swbot NICK BOTUN-NICKI ;servera bağlanırken botun identdi ve usernamei gönderiliyor swbot USER IDENTD * * :USERNAME BURAYA ;socket botun nickiyle işaretleniyor. yani $sock(bot).mark değeri botun nicki oluyor sockmark $sockname BOTUN-NICKI } ;serverdan socketa bilgi geldiğinde on *:sockread:bot:{ ;eğer socketta bir sorun varsa işlemi durduruyoruz if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return } ;%; diye bir değişken oluşturup sockettan gelen bilgiyi bu değişkene yüklüyoruz ve $1- değerini doldurması için tokenize kullanıyoruz var %; | sockread %; | tokenize 32 %; ;eğer @sdebug penceresi yoksa pencere oluşturuluyor ve sockettan gelen bilgi o pencereye gösteriliyor if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1- ;sockettan gelen bilgi ile swalias aliasını çağırıyoruz swalias $1- } ;socketta bilgi gönderme aliasımız, eğer bot socketı açıksa o socketa istediğimiz bilgiyi gönderiyoruz alias swbot { if $sock(bot) { sockwrite -n bot $1- } } ;sockettan gelen bilgiyi okumak için oluşturduğumuz swalias aliası alias swalias { ;eğer bot socketı açıksa if $sock(bot) { ;%: değişkenine status penceresine echolaması için bir komut yüklüyoruz var %: = echo $color(info) -st > Socket bot: ;eğer serverdan socket VERSIONu istenirse mIRC v6.17'nin version cevabını gönderiyoruz. if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) } ;eğer serverdan botumuzun fingerı istenirse ona cevap gönderiyoruz if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1) } ;eğer server bizi pinglerse, bizde onu pongluyoruz, düşmemek için bu gerekli. if $1 == PING { swbot PONG $2- } ;serverdan gelen bilginin 2. kelimesi 474'se, bu 474. rawı gördü demektir, 474. raw bir kanaldan banlı olduğunu gönderir. statuse 4. değer olan kanaldan banlı olduğunu bildiriyor. if $2 == 474 { %: $4 kanalında banlı. } ;2. kelime 366 ise yani /names komutunun sonu ki bu genelde bot kanala girdiğinde gelir, girdiğimiz kanal status penceresine gösteriliyor. if $2 == 366 { %: $4 kanalına girdi. } ;eğer 2. kelime kickse ve 4. kelime botumuzun nickiyse, statuse kanaldan kicklendiğimizi kimin kicklediğini ve neden kicklendiğini gösteriyoruz. if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 } ;eğer 2. kelime PRIVMSG ise if $2 == PRIVMSG { ;%n değişkenine nicki, %m değişkenine gelen mesajı, %k değişkenine kanalı ayarlıyoruz var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3 ;eğer nickler belirlediğimiz nickler ise (burda el33t ve el33t2) if $istok(el33t el33t2,%n,32) { ;eğer gelen mesajın birinci sözcüğü .hop ise eğer 2. kelime varsa 2. kelimenin olduğu kanalda, yoksa yazılan kanalda hop komutu uygulanıyor yani kanaldan çıkıp tekrar giriliyor. if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< } ;bu da .hop gibi fakat bunda botumuz belirtilen kanaldan çıkıyor. eğer 2. sözcük varsa, o kanaldan, yoksa mesajın yazıldığı kanaldan if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< } ;bu da .part gibi ama bununla istediğimiz kanala sokuyoruz if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) } } } } } |