IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 23 Kasım 2016, 17:32   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Memo okuma


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#memokuma on on *:notice:*:*: { if $nick == Memoserv { if (*nick'inden yeni bir notunuz var* iswm $1-) { set -e %memonick $1 $iif($window(@Memo),window -c @Memo) window -dk0po +let @Memo 200 170 490 85 .titlebar @Memo mesajınız var... var %yeah,%red,%green,%blue,%di,%fuz,%yon %red = 255 %green = 0 %blue = 0 %di = $calc(0 / 490) %fuz = $calc(255 / 490) %yon = $calc(0 / 490) %yeah = 0 while (%yeah < 490) { drawrect -rn @Memo $rgb(%red,%green,%blue) 1 %yeah 0 1 85 inc %red %di inc %green %fuz inc %blue %yon inc %yeah } drawdot @Memo drawtext @Memo 1 Verdana 11 8 1 Gönderen: drawtext -o @Memo 1 Verdana 11 75 1 $1 } if (*msg MemoServ READ*yazarak okuyabilirsiniz* iswm $strip($1-)) { set -e %memono $strip($4) ms read $strip($4) .enable #memomesaj .disable #memokuma } } } #memokuma end #memomesaj off on *:notice:*:*: { if $nick == Memoserv && %memonick && %memono && (*numarali not*nick'inden*Silmek icin,* !iswm $strip($1-)) { if $len($1-) <= 90 { drawtext @Memo 1 Verdana 9 1 25 $1- } if $len($1-) <= 180 && $len($1-) > 90 { drawtext @Memo 1 Verdana 9 1 20 $mid($1-,1,90) | drawtext @Memo 1 Verdana 9 1 40 $mid($1-,91,$len($1-)) } if $len($1-) < 270 && $len($1-) > 180 { drawtext @Memo 1 Verdana 9 1 15 $mid($1-,1,90) | drawtext @Memo 1 Verdana 9 1 30 $mid($1-,91,182) | drawtext @Memo 1 Verdana 9 1 45 $mid($1-,183,$len($1-)) } unset %memonick %memono .enable #memokuma .disable #memomesaj } } #memomesaj end

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#memokuma on on *:notice:*:*: { if $nick == Memoserv { if (*nick'inden yeni bir notunuz var* iswm $1-) { set -e %memonick $1 $iif($window(@Memo),window -c @Memo) window -dk0po +let @Memo 200 170 490 85 .titlebar @Memo mesajınız var... var %yeah,%red,%green,%blue,%di,%fuz,%yon %red = 255 %green = 0 %blue = 0 %di = $calc(0 / 490) %fuz = $calc(255 / 490) %yon = $calc(0 / 490) %yeah = 0 while (%yeah < 490) { drawrect -rn @Memo $rgb(%red,%green,%blue) 1 %yeah 0 1 85 inc %red %di inc %green %fuz inc %blue %yon inc %yeah } drawdot @Memo drawtext @Memo 1 Verdana 11 8 1 Gönderen: drawtext -o @Memo 1 Verdana 11 75 1 $1 } if (*msg MemoServ READ*yazarak okuyabilirsiniz* iswm $strip($1-)) { set -e %memono $strip($4) ms read $strip($4) .enable #memomesaj .disable #memokuma } } } #memokuma end #memomesaj off on *:notice:*:*: { if $nick == Memoserv && %memonick && %memono && (*numarali not*nick'inden*Silmek icin,* !iswm $strip($1-)) { if $len($1-) <= 90 { drawtext @Memo 1 Verdana 9 1 25 $1- } if $len($1-) <= 180 && $len($1-) > 90 { drawtext @Memo 1 Verdana 9 1 20 $mid($1-,1,90) | drawtext @Memo 1 Verdana 9 1 40 $mid($1-,91,$len($1-)) } if $len($1-) < 270 && $len($1-) > 180 { drawtext @Memo 1 Verdana 9 1 15 $mid($1-,1,90) | drawtext @Memo 1 Verdana 9 1 30 $mid($1-,91,182) | drawtext @Memo 1 Verdana 9 1 45 $mid($1-,183,$len($1-)) } unset %memonick %memono .enable #memokuma .disable #memomesaj } } #memomesaj end

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
memo, okuma
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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 Açık
Pingbacks are Açık
Refbacks are Açık