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.
program lenghth_fonk; uses crt; var asckod, uz, j : integer; sif, st, st2 : string[10]; k, ch : char; begin window(15,10,60,10); textcolor(white + blink); textbackground(red); clrscr; write(‘Bir string giriniz >’);readln(st); uz := length(st); write(‘Girilen stringin uzunlugu = ‘, uz); readln; for j := 1 to uz do begin st2 := copy(st,j,1); for k := ‘a’ to ‘z’ do if st2 […]
» Devamını Okuprogram Tam_Kat_Bulma; uses Forms; {$R *.RES} var a,b:byte; begin Application.Initialize; Application.Run; write(‘Birer boslukla iki sayi giriniz=’); readln(a,b); if a/b=trunc(a/b) then begin write(‘A B nin tam kati dir’); readln; end else if b/a=trunc(b/a)then begin write(‘B A nin tam kati dir’); readln end else write(‘A B nin tam kati degildir’); end. Ekleyen turkirc.com
» Devamını Okuİstanbul Büyükşehir Belediye Başkanı Kadir Topbaş’tan İstanbullu’ya müjde…İETT otobüslerine internet geliyor. Başkan Topbaş güzel haberi twitter hesabından böyle duyurdu: İstanbul Büyükşehir Belediye (İBB) Başkanı Kadir Topbaş’ın katılımıyla katılımıyla Beylikdüzü’nde gerçekleştirilen törende 100 yeni otobüs daha hizmete alındı. Topbaş, akıllı otobüsler dönemini başlattıklarını belirterek, ‘Vatandaşlarımız otobüste hem internete girebilecek hem de telefonlarını şarj edebilecek’ dedi. İstanbul Büyükşehir Belediye Başkanı Kadir Topbaş, […]
» Devamını OkuNokia Microsoft tarafından satın mı alındı. Apple ve Samsung’un hızına ayak uyduramayan Nokia zarar etmeye başlamış fakat imdadına Microsoft yetişmişti. 2 şirket şimdi çeşitli sorunlar yaşıyor. Nokia‘nın isim hakkını almış olan Microsoft’un Nokia ile yaşadığı sorunlar basına yansıdı. Dünyanın en büyük teknoloji devlerinden olan Microsoft mobil telefon ve tablet pc markası olan NOKİA‘yı kelepir bularak satın aldı. Fakat iki […]
» 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 |
Ornek: !invite nick [mesaj] Kod; Kod: on @*:TEXT:!invite *:#: { if ($2 ison $chan) { NOTICE $nick $2 is already on $chan $+ . | return } set %invite.chan $chan set %invite.nick $gettok($2,1,44) set %invite.msg You has been invited on $chan by $nick to /join -i ( $+ $iif($3-,$3-,no message given) $+ ). set %invite.by $nick raw INVITE %invite.nick $chan } raw 341:$($me %invite.nick %invite.chan): { raw NOTICE %invite.nick : %invite.msg raw NOTICE %invite.by : Succefully invited $2 to join $3 $+ . unset %invite.* } raw 401:*: { if (%invite.nick) { if ($3-5 === No such nick) { raw NOTICE %invite.by : $2 $3-5 } elseif ($3-5 === Target left QuakeNet.) { raw NOTICE %invite.by : $3- } unset %invite.* } } |
|
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 |
Kod: alias ipwhois { if ($1 == $null) { set %temp.ad $?=\\"Enter Address: \\" sockopen wip $+ $r(1,10000) completewhois.com 80 } if ($1 != $null) { set %temp.ad $1 sockopen wip $+ $r(1,10000) completewhois.com 80 } } on 1:sockopen:wip*: { sockwrite -n $sockname POST /cgi-bin/whois.cgi?query= $+ %temp.ad HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).ip $+ $str($crlf ,2) } on 1:sockread:wip*:{ window -e @Whois aline @Whois Getting Info... done. if ($sockerr > 0) return :nextread sockread %temp if ($sockbr == 0) return if (%temp == $null) %temp = - if ($nohtml(%temp) != $null) { aline @Whois $nohtml(%temp) goto nextread sockclose wip* } } on 1:sockopen:wh*: { sockwrite -n $sockname GET /whois.cgi2?d= $+ %temp.ho HTTP/1.1 sockwrite -n $sockname Host: whois.net $+ $str($crlf ,2) } on 1:sockread:wh*:{ if (%whoisrdy == 1) { if (15f9 isin %temp) { set %whoisrdy 0 } window -e @Whois sockread %temp if ($nohtml(%temp) != $Null) { aline @Whois $+ $nohtml(%temp) .timerss 1 3 /sockclose wh* } } } alias -l nohtml { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } |
|
1 2 3 4 5 6 7 8 9 10 11 |
Kod: on ^*:notice:*:?: { if ($nick == Operserv) { if (!$window(@SAJOIN)) { window -en @SAJOIN } echo 5 -t @SAJOIN Operserv ~ $1- | haltdef } if ($nick == Memoserv) { if (!$window(@Memoserv)) { window -en @Memoserv } echo 5 -t @Memoserv Memoserv ~ $1- | haltdef } } |