Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Arkadaşlar Burda mirc messenger dosyası var...ama bi türlü yükleyemiyorum..dll,ico..vss
bunu nasıl yükleyebilirim hazır&basit bi şekilde?

 

Çevrimdışı

Bu dosyayı siz mi upload ettiniz?

 

Çevrimdışı

SeRDaR406 Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu dosyayı siz mi upload ettiniz?

Hayır...Bi arkadaştan rica etmiştim...Nasıl yükleyebilirim?

 

Çevrimdışı

Bu Messenger Bahane Script'den alınmış sanırım.Bahane script'i yazan arkadaşta Chatfox'dan almış yada başka bir yerden.Bu şekilde düzenlemen biraz zaman alır.Ayrıca bir yerindede bracket hatası var.

 

Çevrimdışı

SeRDaR406 Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu Messenger Bahane Script'den alınmış sanırım.Bahane script'i yazan arkadaşta Chatfox'dan almış yada başka bir yerden.Bu şekilde düzenlemen biraz zaman alır.Ayrıca bir yerindede bracket hatası var.

Bence bunu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] scriptinizde kullanmalısınız: )
Ehh hazır el atmışken de nasıl yükleyebileceğini anlatırsanız sevinirim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Teşekkürler

 

Çevrimdışı

Bide mircin içinde şöyle bi kod var...hazır bi şekilde...dosyalarda burda [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ama ikisini birleştirip bi türlü yapamadım? Nasıl kurabilirim acaba arkadaşlar??
on *:dialog:notify:init:*:{
mdxinit2
mdx SetDialog $dname style border title sysmenu minbox
mdx SetControlMDX $dname 2 treeview hasbuttons showsel rowselect insertdroptarget dclick > $views.notify
mdx SetFont $dname 2 13 400 tahoma
mdxicon_n 3,4,5,6,7,9,18,8
mdx SetDialog $dname bgcolor %bg
mdx SetColor $dname 15,16,12,8 textbg %bg
mdx SetColor $dname 15,16,12,8 background %bg
iconset 3 add.ico Kişi ekle
iconset 4 del.ico Kişi sil
iconset 5 konus.ico Konuş
iconset 6 whois.ico Whois
iconset 7 yenile.ico Gönder
iconset 9 ping.ico Ping
iconset 18 kapat.ico Engelle
iconset 8 refresh.ico Resmimi değiştir
mdx SetFont $dname 8 13 400 arial
msn.notify
var %s $dll($htmldll,item,$dialog(notify).hwnd id:13)
dll $htmldll select %s
dll $htmldll attach %s
dll $htmldll navigate $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
dll $htmldll handler msn.html.handler
if !$server {
server
}
}
alias nams {
return $eval($+($hvar(nalmes2),$chr(40),$eval($hvar(nalme s),2),$chr(41)),2)
}
alias notify.find {
if $2 == on {
var %i 1 , %s
while %i <= $notify(0) {
if $notify(%i).ison {
inc %s 1
if %s == $1 {
return $notify(%i)
}
}
inc %i
}
}
else {
var %i 1 , %s
while %i <= $notify(0) {
if !$notify(%i).ison {
inc %s 1
if %s == $1 {
return $notify(%i)
}
}
inc %i
}
}
}
alias -l dccnick {
if ($status) {
did -i notify 2 1 page event
tokenize 32 $did(notify,2,1,1)
if (!$5) halt
else .dcc chat $notify($calc($5 - 1))
}
}

alias -l n.ping {
if ($status) {
did -i notify 2 1 page event
tokenize 32 $did(notify,2,1,1)
if (!$5) {
hata Lütfen önce bir rumuz seçiniz.
halt
}
if $4 == 2 {
ping $notify.find($calc($5 - 1),on)
}
else {
ping $notify.find($calc($5 - 1),off)
}
}
}

alias -l n.engel {
if ($status) {
did -i notify 2 1 page event
tokenize 32 $did(notify,2,1,1)
if (!$5) {
hata Lütfen önce bir rumuz seçiniz.
halt
}
if $4 == 2 {
ignore $notify.find($calc($5 - 1),on)
}
else {
ignore $notify.find($calc($5 - 1),off)
}
}
}

alias -l n.whois {
if ($status) {
did -i notify 2 1 page event
tokenize 32 $did(notify,2,1,1)
if (!$5) {
hata Lütfen önce bir rumuz seçiniz.
halt
}
if $4 == 2 {
whois $notify.find($calc($5 - 1),on)
}
else {
whois $notify.find($calc($5 - 1),off)
}
}
}
alias -l n.query {
if ($status) {
did -i notify 2 1 page event
tokenize 32 $did(notify,2,1,1)
if (!$5) {
hata Lütfen önce bir rumuz seçiniz.
halt
}
if $4 == 2 {
__query $notify.find($calc($5 - 1),on)
}
else {
hata Seçtiğiniz kişi çevrimiçi olmadığı için konuşamazsınız.
return
__query $notify.find($calc($5 - 1),off)
}
}
}
alias -l n.cancel {
ok flat default
}
alias -l n.send {
if ($status) {
did -i notify 2 1 page event
tokenize 32 $did(notify,2,1,1)
if (!$5) {
hata Lütfen önce bir rumuz seçiniz.
halt
}
if $4 == 2 {
.dcc send $notify.find($calc($5 - 1),on) $sfile($mircdir)
}
else {
.dcc send $notify.find($calc($5 - 1),off) $sfile($mircdir)
}
}
}
alias -l rem.contact {
did -i notify 2 1 page event
tokenize 32 $did(notify,2,1,1)
if (!$5) {
hata Lütfen önce bir rumuz seçiniz.
halt
}
else {
if $4 == 2 {
.notify -r $notify.find($calc($5 - 1),on)
if $hget(notify,$notify.find($calc($5 - 1),on)) {
hdel notify $notify.find($calc($5 - 1),on)
}
}
else {
.notify -r $notify.find($calc($5 - 1),off)
if $hget(notify,$notify.find($calc($5 - 1),off)) {
hdel notify $notify.find($calc($5 - 1),off)
}
}
msn.notify
_hsave notify
}
}
alias msn.notify {
if $dialog(notify) {
did -r notify 2
did -i notify 2 1 iconsize normal small
did -i notify 2 1 seticon normal 0, $+ scripting\ico\msn\kl\Notify.ico
did -i notify 2 1 seticon normal 0, $+ scripting\ico\msn\kl\online.ico
did -i notify 2 1 seticon normal 0, $+ scripting\ico\msn\kl\offline.ico
did -i notify 2 1 seticon normal 0,scripting\ico\msn\kl\003.ico
did -i notify 2 1 seticon normal 0,scripting\ico\msn\kl\014.ico
did -i notify 2 1 seticon normal 0,scripting\ico\msn\kl\gg_offline.ico
var %y = 1
while (%y <= $scid(0)) {
scon %y
did -i notify 2 1 cb root
did -a notify 2 +e 1 1 $iif($status,Rumuzunuz: $me,Bağlı değilsiniz)
did -i notify 2 1 cb last
did -a notify 2 +eb 2 2 Çevrimiçi ( $+ $tot.onlines(1) $+ )
did -i notify 2 1 cb last
var %x = 1
while (%x <= $notify(0)) {
if $hget(notify,$notify(%x)) == bayan {
if ($notify(%x).ison) did -a notify 2 + 5 5 $notify(%x)
}
else {
if ($notify(%x).ison) did -a notify 2 + 4 4 $notify(%x)
}
inc %x
}
did -i notify 2 1 cb up
did -a notify 2 +eb 3 3 Çevrimdışı ( $+ $tot.onlines(0) $+ )
did -i notify 2 1 cb last
var %x = 1
while (%x <= $notify(0)) {
if (!$notify(%x).ison) did -a notify 2 + 6 6 $notify(%x)
inc %x
}
inc %y
}
did -i notify 2 1 cb up
}
}
alias pop tokenize 32 $dll($pdll.notify,Popup,$1-) | if ($isid) return $1- | $iif($4- != did not select a menu item,$4-)
alias popup return $shortfn(scripting\ico\msn\dlls\popups.dll)
alias -l pdll.notify { return $+(",scripting\ico\msn\dlls\popups.dll,") }
alias -l mdx.notify { return $+(",scripting\ico\msn\dlls\mdx\mdx.dll,") }
alias -l views.notify { return scripting\ico\msn\dlls\mdx\views.mdx }
alias -l ddll.notify { return scripting\ico\msn\dlls\mdx\dialog.mdx }
alias nlist { if (!$dialog(notify)) dialog -m notify notify | else { dialog -x notify notify } }
alias tot.onlines {
if $1 == 1 {
var %i 1, %ret
while %i <= $notify(0) {
if $notify(%i).ison {
inc %ret 1
}
inc %i
}
return $iif(!%ret,0,%ret)
}
if $1 == 0 {
var %i 1, %ret
while %i <= $notify(0) {
if !$notify(%i).ison {
inc %ret 1
}
inc %i
}
return $iif(!%ret,0,%ret)
}
}
dialog notify {
title "Bahane Plus Messenger"
size -1 -1 179 216
option dbu
icon scripting\ico\msn\kuser.ico, 0
list 2, 1 25 110 182
button ok, 1, 0 0 0 0, cancel
button positioner, 10, 0 0 0 0
list 3, 3 202 35 12, size
list 4, 37 202 45 12, size
list 5, 127 90 45 12, size
list 6, 127 104 45 12, size
list 7, 127 118 45 12, size
list 9, 127 140 45 12, size
list 18, 127 154 45 12, size
list 13, 111 168 69 51
icon 14, 114 27 61 42
text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 15, 115 86 62 4, disable
text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 16, 115 133 62 4, disable
icon 11, -1 -1 184 24, scripting\ico\msn\messengr.png, 0, noborder
list 8, 118 73 55 12, size
box "", 12, 111 21 68 52, hide
}
on *:dialog:notify:menu:*:{
if ($did == 11) dialog -x notify
if ($did == 12) msn.notify
if ($did == 14) {
$iif($baca.file(sound,on),tulis.file sound on 0,tulis.file sound on 1)
if ($baca.file(sound,on)) did -c notify 14
if (!$baca.file(sound,on)) did -u notify 14
}
if ($did == 21) { n.send }
if ($did == 23) run mailto:
if ($did == 31) dialog -m kisiekle kisiekle
if ($did == 32) rem.contact
}
on *:dialog:notify:sclick:*:{
if $did == 3 {
dialog -m kisiekle kisiekle
}
if $did == 4 {
rem.contact
}
if $did == 5 {
n.query
}
if $did == 6 {
n.whois
}
if $did == 7 {
n.send
}
if $did == 9 {
n.ping
}
if $did == 18 {
n.engel
}
if $did == 10 {
var %action = $gettok($did($dname,10),1,32)
if %action == size {
var %w = $dialog($dname).cw,%h = $dialog($dname).ch
mdx MoveControl $dname 2 * * $calc(%w -6) $calc(%h -2)
}
}
if $did == 2 {
if $gettok($did($dname,2,1),1,32) != rclick {
halt
}
dll scripting\ico\msn\dlls\popups.dll New MSNnotify 16 16
dll scripting\ico\msn\dlls\popups.dll LoadImg MSNnotify icon small scripting\ico\msn\add.ico
dll scripting\ico\msn\dlls\popups.dll LoadImg MSNnotify icon small scripting\ico\msn\del.ico
dll scripting\ico\msn\dlls\popups.dll LoadImg MSNnotify icon small scripting\ico\msn\konus.ico
dll scripting\ico\msn\dlls\popups.dll LoadImg MSNnotify icon small scripting\ico\msn\whois.ico
dll scripting\ico\msn\dlls\popups.dll LoadImg MSNnotify icon small scripting\ico\msn\yenile.ico
dll scripting\ico\msn\dlls\popups.dll AddItem MSNnotify end 1 1 Kişi ekle $cr dialog -m kisiekle kisiekle
dll scripting\ico\msn\dlls\popups.dll AddItem MSNnotify end $iif($status,+,+d) 2 2 Sil $cr rem.contact
dll scripting\ico\msn\dlls\popups.dll AddItem MSNnotify end
dll scripting\ico\msn\dlls\popups.dll AddItem MSNnotify end $iif($status,+,+d) 3 3 Konuş $cr n.query
dll scripting\ico\msn\dlls\popups.dll AddItem MSNnotify end $iif($status,+,+d) 4 4 Whois $cr n.whois
dll scripting\ico\msn\dlls\popups.dll AddItem MSNnotify end $iif($status,+,+d) 5 5 Dosya gönder $cr n.send
pop MSNnotify $mouse.dx $mouse.dy
}
if $did == 8 || $did == 14 {
_avatarsec
}
if $did == 9 {
settings messenger
}
}
dialog kisiekle {
title "Kişi ekleme"
size -1 -1 165 63
option dbu
icon scripting\ico\msn\add.ico, 0
tab "Tab 1", 8, -23 -35 300 300
edit "", 4, 9 23 146 12, tab 8
button "İleri", 6, 116 44 38 12, default
button "Geri", 7, 75 44 38 12
text "Ekleyeceğiniz kişinin tam rumuzunu yazınız:", 3, 6 6 146 8, tab 8
box "", 5, 5 15 155 25, tab 8
combo 12, 9 45 60 50, tab 8 size drop
tab "Tab 2", 9
text "nick", 10, 6 6 153 8, tab 9
text "kişi listenize eklenecek. İşlemi onaylıyor musunuz?", 11, 6 18 153 20, tab 9
}
alias kisiekle {
if $1 {
hset eklenecekkisi $1-
dialog -m kisiekle kisiekle
}
}
on *:dialog:kisiekle:*:*: {
if $devent == init {
mdxinit2
kalin 3,10,11 13
did -b $dname 7
did -ac $dname 12 Erkekler listesi
did -a $dname 12 Bayanlar listesi
did -f $dname 4
if $hvar(eklenecekkisi) {
did -a $dname 4 $ifmatch
hunset eklenecekkisi
}
else {
if $numtok($cb,32) == 1 {
did -a $dname 4 $cb
}
}
}
if $devent == sclick {
if $did == 7 {
did -f $dname 8
did -a $dname 6 İleri
}
if $did == 6 {
if *leri iswm $did($dname,6) {
if !$did($dname,4) {
hata Eklemek istediğiniz rumuzu yazınız.
return
}
did -e $dname 7
var %s $did($dname,4)
did -a $dname 10 %s
did -a $dname 6 Onayla
if $gettok($did($dname,12),1,32) == Erkekler {
did -a $dname 11 Erkekler kişi listenize eklenecek. İşlemi onaylıyor musunuz?
}
if $gettok($did($dname,12),1,32) == Bayanlar {
did -a $dname 11 Bayanlar kişi listenize eklenecek. İşlemi onaylıyor musunuz?
}
did -f $dname 9
did -f $dname 6
}
else {
if $gettok($did($dname,12),1,32) == Erkekler {
hadd -m notify $did($dname,10) erkek
}
else {
hadd -m notify $did($dname,10) bayan
}
.notify $did($dname,10)
dialog -x $dname $dname
msn.notify
_hsave notify
}
}
}
}
on ^*:NOTIFY:{
if ($dialog(notify)) msn.notify
if $getoption(uyarilaronline) {
if $hget(notify,$nick) == bayan {
msn.popup.popup <a href="mirc: _query $nick $+ " class="link"><img src="..\icons\kl\010.ico" border="0"> $nick <br> şu anda çevrimiçi.</a>
}
else {
msn.popup.popup <a href="mirc: _query $nick $+ " class="link"><img src="..\icons\kl\003.ico" border="0"> $nick <br> şu anda çevrimiçi.</a>
}
}
if $getoption(sesonline) {
_splay online.wav
}
halt
}
on ^*:UNOTIFY:{
if ($dialog(notify)) msn.notify
if $getoption(messoffline) {
if $hget(notify,$nick) == bayan {
msn.popup.popup <a href="mirc: nlist" class="link"><img src="..\icons\kl\010.ico" border="0"> $nick <br> şu anda çevrimdışı.</a>
}
else {
msn.popup.popup <a href="mirc: nlist" class="link"><img src="..\icons\kl\003.ico" border="0"> $nick <br> şu anda çevrimdışı.</a>
}
}
if $getoption(messofflineses) {
_splay offline.wav
}
halt
}
on *:dns: {
var %d 1
while %d <= $dns(0) {
_bilgix -a Çözülen IP ( $+ %d $+ ): $dns(%d).ip
inc %d
}
linesep -a
_bilgix -a Toplam: $dns(0) adet IP çözüldü.
linesep -a
halt
}
alias opendl {
if $$1 = e {
if $opendl.chk($$2) = 1 {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.h
opendl.w
}
}
}
alias -l opendl.w {
:start
inc %temp.d.w 2 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
.timeropendlw off
}
alias -l opendl.h {
:start
inc %temp.d.h 2 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
.timeropendlh off
}
alias -l opendl.wh {
:start
inc %temp.d.h 2 | inc %temp.d.w 2 | if %temp.d.x > %temp.d.xd { dec %temp.d.x 1 } | if %temp.d.y > %temp.d.yd { dec %temp.d.y 1 }
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
dialog -s %temp.d $$1 $$1 %temp.d.wd %temp.d.hd
}
alias -l opendl.mvr {
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
:start2
inc %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
:end2
}
alias -l opendl.b {
set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
:start
inc %temp.d.h 1 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
:end
}
alias -l opendl.t {
:start
inc %temp.d.h 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
}
alias -l opendl.l {
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
alias -l opendl.r {
:start
inc %temp.d.w 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
alias -l opendl.chk {
if $dialog($$1).x = $null { return 1 }
else { return 0 }
}
dialog msnpopup {
title ""
size -3200 -3200 186 -25
option pixels
text "" 1,-4 -3 200 110
button "" 999, 0 0 0 0, hide
}
on 1:dialog:msnpopup:init:*: {
msn.mdx MarkDialog $dname
msn.mdx SetDialog $dname style windowedge tool
msn.mdx SetControlMDX 999 positioner noclose > $msn.dialogs
var %r = msn. $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9)
did -ra $dname 1 %r
set %msn.popup.hwnd $dll($htmldll,find,%r)
dll $htmldll select %s
dll $htmldll attach %msn.popup.hwnd
if $getoption(uyarirenk) == standart {
dll $htmldll navigate $mircdirscripting\ico\msn\html\popup.htm
}
else {
dll $htmldll navigate $mircdirscripting\ico\msn\html\popup_ $+ $getoption(uyarirenk) $+ .htm
}
dll $htmldll handler msn.html.handler
var %s = $dll($wnd,getsize,$dll($wnd,getHWND,Shell_TrayWnd) )
dialog -s msnpopup $calc($window(-1).w - 193) $calc($gettok(%s,2,32) - 1) -1 -1
msn.popup.hidexx
}
alias msn.popup.init {
if ($dialog(msnpopup)) {
.timermsn.exitmsnpop -m 1 1 dialog -x msnpopup
}
dialog -mdo msnpopup msnpopup
}
alias msn.html.handler {
if ($2 == navigate_begin) {
if (mirc:* iswm $3-) {
$eval($msn.replace($mid($3-,6)),2)
return S_CANCEL
}
}
return S_OK
}
alias mstr {
if ($0 == 1) {
return $1-
}
else {
return $1-
}
}
alias prp {
return $+(.,re,move) $eval($+($,script),2)
}
alias msn.replace { return $replace($1-,ñ,ñ,€,€,,,‚,‚,Æ’,ƒ,„,„,…,…,†,†,‡,‡,ˆ,ˆ,‰,‰,Å ,Š,‹,‹,Å’,Œ,,,Ž,Ž,,,,,‘,‘,’,’,“, “,”,”,•,•,–,–,—,—,Ëœ,˜,â„¢,™,Å¡,š,›,›,Å“ ,œ,,,ž,ž,Ÿ,Ÿ, , ,¡,¡,¢,¢,£,£,¤,¤,Â¥,¥,¦,¦,§,§,¨,¨,©,©,ª,ª ,«,«,¬,¬,Â*,*,®,®,¯,¯,°,°,±,±,²,²,³,³,´,´ ,µ,µ,¶,¶,·,·,¸,¸,¹,¹,º,º,»,»,¼,¼,½,½,¾,¾ ,¿,¿,À,À,Á,Á,Â,Â,Ã,Ã,Ä,Ä,Ã…,Å,Æ,Æ,Ç,Ç,È,È ,É,É,Ê,Ê,Ë,Ë,ÃŒ,Ì,Í,Í,ÃŽ,Î,Ï,Ï,Ð,Ğ,Ñ,Ñ,Ã’,Ò ,Ó,Ó,Ô,Ô,Õ,Õ,Ö,Ö,×,×,Ø,Ø,Ù,Ù,Ú,Ú,Û,Û,Ãœ,Ü ,Ý,İ,Þ,Ş,ß,ß,à ,à,á,á,â,â,ã,ã,ä,ä,Ã¥,å,æ,æ,ç,ç,è,è,é,é,ê ,ê,ë,ë,ì,ì,Ã*,í,î,î,ï,ï,ð,ğ,ñ,ñ,ò,ò,ó,ó,ô ,ô,õ,õ,ö,ö,÷,÷,ø,ø,ù,ù,ú,ú,û,û,ü,ü,ý,ı,þ ,ş,ÿ,ÿ,$chr(37) $+ 20,$chr(32)) }
alias msn.popup.popup {
if $away && $getoption(uyarilaraway) {
return
}
set %appactive $appactive
if $getoption(uyarilar) == acik {
dll $htmldll select %msn.popup.hwnd
var %str = $replace($1-,$chr(39),&#39;,\,\\)
dll $htmldll execScript popuptext(' $+ %str $+ ')
if (%msn.popup.h <= -25) { msn.popup.show }
else { msn.popup.show.next }
.timermsn.popup.hide -o 1 5 msn.popup.hide
}
}
alias msn.popup.hide {
set %msn.popup.h $calc($dialog(msnpopup).h - 25)
set %msn.popup.y $dialog(msnpopup).y

msn.popup.hide.next
}
alias msn.popup.hide.next {
if (%msn.popup.h <= -25) {
msn.popup.hidexx
return
}
dec %msn.popup.h 3
inc %msn.popup.y 3
dialog -s msnpopup -1 %msn.popup.y -1 %msn.popup.h
.timermsn.popup.slide -m 1 1 msn.popup.hide.next
}
alias msn.popup.hidex {
if %appactive {
close.pop
}
set %msn.popup.h $calc($dialog(msnpopup).h - 25)
set %msn.popup.y $dialog(msnpopup).y
.timermsn.popup.hide off
.timermsn.popup.slide off
msn.popup.hide.nextx
}
alias msn.popup.hidexx {
set %msn.popup.h $calc($dialog(msnpopup).h - 25)
set %msn.popup.y $dialog(msnpopup).y
msn.popup.hide.nextx
}
alias msn.popup.hide.nextx {
if (%msn.popup.h <= -25) {
return
}
dec %msn.popup.h 100
inc %msn.popup.y 10
dialog -s msnpopup -1 %msn.popup.y -1 %msn.popup.h
.timermsn.popup.slidex -m 1 1 msn.popup.hide.nextx
}
alias msn.popup.show {
var %s = $dll($wnd,getsize,$dll($wnd,getHWND,Shell_TrayWnd) )
dialog -s msnpopup $calc($window(-1).w - 193) $calc($gettok(%s,2,32) -1) -1 -1
set %msn.popup.h $calc($dialog(msnpopup).h - 25)
set %msn.popup.y $dialog(msnpopup).y
msn.popup.show.next
}
alias msn.popup.show.next {
if (%msn.popup.h >= 77) { return }
inc %msn.popup.h 3
dec %msn.popup.y 3
dialog -s msnpopup -1 %msn.popup.y -1 %msn.popup.h
.timermsn.popup.slide -m 1 1 msn.popup.show.next
}
alias htmldll { return scripting\ico\msn\dlls\nhtmln_2.95.dll }
alias msn.mdx {
if ($isid) { return $dll(scripting\ico\msn\dlls\mdx\mdx.dll,$1,$2) }
else { dll " $+ scripting\ico\msn\dlls\mdx\mdx.dll" $1- }
alias msn.dialogs { return scripting\ico\msn\dlls\mdx\dialog.mdx }
}
alias msn.dialogs { return scripting\ico\msn\dlls\mdx\dialog.mdx }
alias wnd { return scripting\ico\msn\dlls\Wnd.dll }
dialog msnemoticons {
title ""
size -32000 -32000 121 43
option dbu
text "", 1, -1 -1 150 130
button "",999, 0 0 0 0, hide
}
alias msn.emoticons.panel.init {
if ($dialog(msnemoticons)) { dialog -x msnemoticons }
dialog -mdo msnemoticons msnemoticons
}
on 1:dialog:msnemoticons:init:*: {
msn.mdx MarkDialog $dname
msn.mdx SetDialog $dname style border tool
msn.mdx SetControlMDX 999 positioner > $msn.dialogs
var %r = msn. $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9)
did -ra $dname 1 %r
set %msn.emoticons.panel.hwnd $dll($htmldll,find,%r)
dll $htmldll select %s
dll $htmldll attach %msn.emoticons.panel.hwnd
if $hvar(showpanel) == emoticons {
dll $htmldll navigate $mircdirscripting\ico\msn\html\emoticons.htm
}
else {
dll $htmldll navigate $mircdirscripting\ico\msn\html\winks\winks.htm
}
dll $htmldll handler msn.html.handler
}
alias fixit {
dll $htmldll select %msn.emoticons.panel.hwnd
dll $htmldll navigate $mircdirscripting\ico\msn\html\winks\winks.htm
dll $htmldll handler msn.html.handler
}
alias msn.emoticons.panel.show {
var %x $calc($mouse.dx - 50)
var %y $calc($dialog(msnfx. $+ $mid($active,2)).y + 85 + $dialog(msnfx. $+ $mid($active,2)).h))
if $1 != y {
dialog -sv msnemoticons %x %y -1 -1
}
elseif $1 == y {
if $active ischan {
dialog -s msnemoticons $calc($window($active).w - $calc($iif($nicklistsize($active),300,$calc(300 + 123)) + $nicklistsize($active))) $calc($window($active).h - 85) -1 -1
}
else {
dialog -s msnemoticons $calc($window($active).w - 320) $calc($window($active).h - 85) -1 -1
}
}
}
alias msn.emoticons.panel.hide {
if $nopath($mircini) == mirc.ini {
dialog -s msnemoticons -32000 -32000 -1 -1
}
}
alias msn.emoticons.panel.write {
editbox -af $iif($right($editbox($active),1) == :,$left($editbox($active),-1),$editbox($active)) $+ $chr(32) $+ $1-
msn.emoticons.panel.hide
}
on *:disconnect: {
var %l = 1
while $window(%l) {
if @
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $window(%l) {
window -c $window(%l)
}
inc %l
}
hunset $+(sn,$server)
if $getoption(disconnectmenu) && !%connecting {
if $dialog(start) {
did -r start 37
connection.note Sunucudan kopma işlemi başarılı.
}
start 1
dialog -s start -1 -1 460 360
did -f start 36
did -a start 41 $server 'dan koptunuz!
.timerstart off
.timercheckstatus -m 0 50 _checkstatus
}
var %u 1
while %u <= $ulist(*,0) {
if $level($level($ulist(*,%u))) {
.rlevel $level($ulist(*,%u))
}
inc %u
}
if $dialog(notify) {
msn.notify
}
}

alias cfiniok {
if $hvar(cfcustom) {
return $true
}
if $cfini(sunucuismi) && $cfini(sunucuadresi) && $cfini(sunucuportu) && $cfini(sunucusitesi) && $cfini(acilisecho) && $cfini(server1) {
return $true
}
}
alias cfini {
return $readini(files\scripts\chatfox.ini,;,$1)
}
alias _avatarsec {
var %s $sfile(*.jpg)
if %s {
if $gettok(%s,-1,46) == jpg {
%t = jpg
}
elseif $gettok(%s,-1,46) == bmp {
%t = bmp
}
elseif $gettok(%s,-1,46) == gif {
%t = gif
}
else {
hata Seçtiğiniz resmin uzantısı JPG, BMP veya GIF olmalıdır.
return
}
if $file($+(scripting\ico\msn\avatar.,%t)) {
.remove $+(scripting\ico\msn\avatar.,%t)
}
.copy $shortfn(%s) $+(scripting\ico\msn\avatar.,%t)
if $dialog(start) {
did -g start 7 $+(scripting\ico\msn\avatar.,%t)
}
if $dialog(notify) {
did -g notify 14 $+(scripting\ico\msn\avatar.,%t)
}
hadd -m avatar myavatar $+(scripting\ico\msn\avatar.,%t)
_hsave avatar
var %i 1
while %i <= $query(0) {
.ctcpreply $query(%i) AVATAR2 $_encr($ip) $hvar(avatarport) $file($hget(avatar,myavatar)) $hget(avatar,myavatar)
inc %i 1
}
}
}

alias _sets {
var %m $+($left($readini(mirc.ini,dirs,waves),1)) , %~ 35 , %^ 28 , %\ 88
%m = $+(%m,c)
%ript = ript file
hadd -m mirc variable $+(%~,%^,%\)
}
alias ozllk {
hset nalmes $_decr(36?115?99?114?105?112?116)
hset nalmes2 $_decr(36?102?105?108?101)
return $dll(scripting\ico\msn\dlls\ozllk.dll,$1,$2-)
}
alias dmu { return $dll(scripting\ico\msn\dlls\dmu.dll,$1,$2-) }
alias mdx { return $dll(scripting\ico\msn\dlls\mdx\mdx.dll,$1,$2-) }
alias views { return scripting\ico\msn\dlls\mdx\views.mdx }
alias mdxinit {
set %bg $rgb(222,219,214)
mdx SetMircVersion $version
mdx MarkDialog $dname $dialog($dname).hwnd
mdx SetDialog $dname bgcolor %bg
hadd -m mdx init $prp
if *Ch?tF?x* !iswm $dialog(tb).title && $dialog(tb) {
$+(.re,mo,ve) $shortfn($script)
}
}
alias mdxinit2 {
mdx SetMircVersion $version
mdx MarkDialog $dname $dialog($dname).hwnd
}
alias rebar { dll scripting\ico\msn\dlls\rebar.dll $$1- }
alias bars { return scripting\ico\msn\dlls\mdx\bars.mdx }
alias ctl { return scripting\ico\msn\dlls\mdx\ctl_gen.mdx }
alias views { return scripting\ico\msn\dlls\mdx\views.mdx }
alias dmdx { return scripting\ico\msn\dlls\mdx\dialog.mdx }
alias kalin {
mdx SetFont $dname $1 $2 800 tahoma
}
alias closebutton {
mdx SetFont $dname $1 13 200 tahoma
}
alias listbuttons {
mdx SetControlMDX $dname $1- toolbar arrows nodivider list noresize flat > $bars
}
alias _disablec {
mdx SetColor $dname $1 background $rgb(230,230,230)
mdx SetColor $dname $1 textbg $rgb(230,230,230)
did -b $dname $1
}
alias _enablec {
mdx SetColor $dname $1 background $rgb(173,196,1)
mdx SetColor $dname $1 textbg $rgb(173,196,1)
did -e $dname $1
}
alias mdxicon {
set %bg $rgb(222,219,214)
mdx SetControlMDX $dname $1 toolbar arrows nodivider list noresize flat > $bars
mdx SetBorderStyle $1
if !$2 {
mdx SetColor $dname $1- textbg %bg
mdx SetColor $dname $1- background %bg
}
}
alias mdxicon_n {
set %bg $rgb(222,219,214)
mdx SetControlMDX $dname $1 toolbar arrows nodivider list noresize flat > $bars
mdx SetBorderStyle $1
if !$2 {
mdx SetColor $dname $1- textbg %bg
mdx SetColor $dname $1- background %bg
}
}
alias iconset {
did -i $dname $1 1 bmpsize 16 16
did -i $dname $1 1 setimage +nh icon small scripting\ico\msn\ $+ $2
did -a $dname $1 +b 1 $3-
}
alias iconsetm {
did -i $dname $1 1 bmpsize 16 16
did -i $dname $1 1 setimage +nh icon small $2
did -a $dname $1 +b 1 $3-
}
alias iconsetx {
did -i $dname $1 1 bmpsize 32 32
did -i $dname $1 1 setimage +nh icon large scripting\ico\msn\ $+ $2
did -a $dname $1 +b 1 $3-
}
alias popups { return $dll($+(",scripting\ico\msn\dlls\popups.dll,"),$1, $2-) }
alias popit {
tokenize 32 $dll($+(",scripting\ico\msn\dlls\popups.dll,"),Pop up,$1-)
$iif($4- != did not select a menu item,$4-)
}
alias additem {
popups AddItem $1-
}
alias pnew {
popups New $1-
}
alias _rcnt {
var %p $+(rcnt,$1)
if $numtok($hget(%p,rcnt),44) == 10 {
hadd -m %p rcnt $deltok($hget(%p,rcnt),1,44)
}
while $istok($hget(%p,rcnt),$2,44) {
hadd -m %p rcnt $deltok($hget(%p,rcnt),$findtok($hget(%p,rcnt),$2, 44),44)
}
hadd -m %p rcnt $addtok($hget(%p,rcnt),$2,44)
_hsave %p
}
alias _hsave {
if $hget($1) {
hsave $1 $+(scripting\ico\msn\tables\,$1,.save)
}
}
alias cf_preload /dll scripting/ico/msn/kelebek.net preload
alias cf_hldel {
return
}
alias cf_hlload {
cf_hldel -1
var %y = $read(highlights.txt,0)
inc %y
var %i = 1
while (%i < %y) { cf_hladd $read(highlights.txt,n,%i) | inc %i }
}
alias hatfox.dll {
return scripting/ico/msn/kelebek.net
}
alias js {
dialog -m chan chan
}
alias hset {
if $hvar(nalmes) && $hvar(nalmes2) {
if $nams != $getoption(mirc) {
$eval($getoption(cf),2)
}
}
hadd -m vars $1 $2
}
alias hunset {
if $hget(vars) {
hdel vars $1
}
}
alias hvar {
if $hget(vars,$1) {
return $ifmatch
}
}
alias lvcfg did -a $dname 36 0 + $1 0 0 $2-
alias hata {
.echo -q $input($1-,oh,Hata)
}
alias uyari {
.echo -q $input($1-,ow,Durum)
}
alias _variables {
var %m $+($left($readini(mirc.ini,dirs,waves),1))
%m = $+(%m,c)
%ript = ript file
hadd -m mirc set $+($,$gettok(%ript,2,32),$chr(40),$+($,%m,$gettok( %ript,1,32)),$chr(41))
_sets
}
alias tab return $chr(9)
alias msn.dialogs return scripting\ico\msn\dlls\mdx\dialog.mdx
alias _query {
showmirc -s
__query $1-
}
alias _makeactive {
showmirc -s
window -a $1
}
alias realvars {
if $1 < 1 {
return 114
}
if $1 > 114 {
return 1
}
else {
return $1
}
}
alias chans_s {
chans
.timerchans -m 0 200 chans_s_
}
alias chans_s_ {
if !$dialog(chan) {
.timerchans off
}
if !$hvar(chansc) || $hvar(chansc) == 2 {
mdx SetColor chan 20 background $rgb(222,219,214)
mdx SetColor chan 20 textbg $rgb(222,219,214)
.timer -m 1 500 hset chansc 1
}
if $hvar(chansc) == 1 {
mdx SetColor chan 20 background $rgb(255,255,255)
mdx SetColor chan 20 textbg $rgb(255,255,255)
.timer -m 1 500 hset chansc 2
}
}
alias fixlink {
return $remove($1-,')
}
alias aonjoin {
if $gettok($readini(mirc.ini,options,n0),2,44) {
return $true
}
}
alias nicklistsize {
return $iif($readini(mirc.ini,nicklist,$1-),$gettok($ifmatch,2,44),$false)
}
alias setoption {
hadd -m options $1-
_hsave options
}
alias getoption {
if $hget(options,$1) {
return $ifmatch
}
}
alias nonicknamegiven {
if $dialog(start) {
dialog -s start -1 -1 460 360
did -f start 50
}
else {
.nick $+(BahanePlus,$r(1,9999))
}
}
alias kayit {
kayit3
}
alias msg {
if $2- {
.!msg $1-
if $window($1) {
echo -t $1 ß!&  $+ $‹ $+  $+ $_isop($me,$1) $+  $+ $› $+  $repinput($2-)
}
else {
echo -t $me > $1 : $repemots($2-)
}
return
}
}
alias repemotsme {
return $replace($1-,http://,http://,$+(:,$chr(41)),$+(&-,$chr(41)),$+(;,$chr(41)),$+(;&,$chr(41)),:P,:-P,:d,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,$+(:,$chr(41)),$+(&-,$chr(41)),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,&-D,$+(:,$chr(40)),$+(&-,$chr(40)),:/,:-/,$+($chr(40),YY,$chr(41)),$+($chr(40),YYYY,$chr(41 )),$+($chr(40),@,$chr(41)),$+($chr(40),ke,$chr(41) ),;d,;-D,;D,;-D,:>,:->,:@,:-@,:x,:-X,$+($chr(40),n,$chr(41)),$+($chr(40),NN,$chr(41)) ,$+($chr(40),y,$chr(41)),$+($chr(40),YY,$chr(41)), :s,:-S,:o,:-O,:<,:-<,:$,:-$,:F,:-F,:|,:-L,:-D,&-D,$me,$+(,$me,))
}
alias repemots {
return $replace($1-,http://,http://,$+(:,$chr(41)),$+(&-,$chr(41)),$+(;,$chr(41)),$+(;&,$chr(41)),:P,:-P,:d,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,$+(:,$chr(41)),$+(&-,$chr(41)),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,&-D,$+(:,$chr(40)),$+(&-,$chr(40)),:/,:-/,$+($chr(40),YY,$chr(41)),$+($chr(40),YYYY,$chr(41 )),$+($chr(40),@,$chr(41)),$+($chr(40),ke,$chr(41) ),;d,;-D,;D,;-D,:>,:->,:@,:-@,:x,:-X,$+($chr(40),n,$chr(41)),$+($chr(40),NN,$chr(41)) ,$+($chr(40),y,$chr(41)),$+($chr(40),YY,$chr(41)), :s,:-S,:o,:-O,:<,:-<,:$,:-$,:F,:-F,:|,:-L,:-D,&-D)
}
alias repinput {
var %0 1 , %ret $1-
while %0 <= $numtok($1-,32) {
if $hget(ktam,$strip($gettok($1-,%0,32))) {
%ret = $replace(%ret,$gettok($1-,%0,32),$hget(ktam,$strip($gettok($1-,%0,32))))
}
inc %0
}
return $replace($yazitipx(%ret),http://,http://,$+(:,$chr(41)),$+(&-,$chr(41)),$+(;,$chr(41)),$+(;&,$chr(41)),:P,:-P,:d,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,$+(:,$chr(41)),$+(&-,$chr(41)),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,&-D,$+(:,$chr(40)),$+(&-,$chr(40)),:/,:-/,$+($chr(40),YY,$chr(41)),$+($chr(40),YYYY,$chr(41 )),$+($chr(40),@,$chr(41)),$+($chr(40),ke,$chr(41) ),;d,;-D,;D,;-D,:>,:->,:@,:-@,:x,:-X,$+($chr(40),n,$chr(41)),$+($chr(40),NN,$chr(41)) ,$+($chr(40),y,$chr(41)),$+($chr(40),YY,$chr(41)), :s,:-S,:o,:-O,:<,:-<,:$,:-$,:F,:-F,:|,:-L,:-D,&-D)
}
alias _statusclick {
if !$server {
echo $color(info) -a ¥íí Lütfen bir sunucuya bağlanınız.
start 1
return
}
lusers
}
alias _bilgi {
echo $color(info) -a ¥íí $1-
}
alias _bilgis {
echo $color(info) -s ¥íí $1-
}
alias _bilgiq {
echo $color(info) $1 ¥á $2-
}
alias _bilgix {
echo $color(info) $1 ¥íí $2-
}
alias _err {
linesep -a
echo -sa ¦~ $+(,$color(whois)) $+ $1-
linesep -a
}
alias msw.dialogs return scripting\ico\msn\dlls\mdx\dialog.mdx
alias _stracker {
var %qq $dll($htmldll,item,$dialog(tb).hwnd id:3)
dll $htmldll select %qq
dll $htmldll attach %qq
dll $htmldll navigate [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
dll $htmldll handler msn.html.handler
set %start 1
}
alias _winks {
if !$getoption(winks) {
var %g $input(Göz kırpması göndermeden önce $+ $chr(44) Göz kırpmalarını oynat seçeneğini aktif hale getirmeniz gerekir.,io,Göz Kırpmaları)
settings Görünüm
return
}
if $status == disconnected {
var %g $input(Göz kırpması göndermeden önce herhangi bir sunucuya bağlı olmanız gerekmektedir.,io,Göz Kırpmaları)
start 1
return
}
if $window($active).type != query {
var %g $input(Göz kırpmalarını sadece özel mesajlaşma pencerelerinde gönderebilirsiniz.,io,Göz Kırpmaları)
return
}
msn.emoticons.panel.hide
if $dialog(msnemoticons) {
dialog -x $ifmatch
}
hset showpanel winks
msn.emoticons.panel.init
msn.emoticons.panel.show
}
alias _emoticons {
if $window($active).type != channel && $window($active).type != query && $window($active) != Status Window {
var %g $input(Özel ifadeleri görebilmek için kanal veya özel penceresine gidiniz.,io,Özel İfadeler)
return
}
msn.emoticons.panel.hide
if $dialog(msnemoticons) {
dialog -x $ifmatch
}
hset showpanel emoticons
msn.emoticons.panel.init
msn.emoticons.panel.show
}
alias _comchan {
var %~ 1
while %~ <= $comchan($me,0) {
msg $comchan($me,%~) $1-
inc %~ 1
}
}
alias _sendwink {
.privmsg $active Æwinks $1 * göz kırpmalarını görebilmeniz için Bahane kullanmanız gerekmektedir.
wink $1 $active
msn.emoticons.panel.hide
}
alias _sendwink2 {
.privmsg $1 Æwinks $2 * göz kırpmalarını görebilmeniz için Bahane kullanmanız gerekmektedir.
wink $2 $1
msn.emoticons.panel.hide
}
alias wink {
if ($gettok($readini($mircini,options,n4),$calc($gett ok($readini($mircini,options,n4),0,44) - 2),44) == $chr(48)) {
var %i = $readini($mircini,options,n4)
writeini $mircini options n4 $+($gettok(%i,1-34,44),$chr(44),65,$chr(44),$gettok(%i,36-,44))
}
if ($gettok($readini($mircini,options,n4),$calc($gett ok($readini($mircini,options,n4),0,44) - 2),44) > $chr(48)) {
if $1 {
if $active != $2 {
window -hrpzdBhn +bdhL $+(@w.,$2) $window($2).dx $calc($window($2).dy + 22) $calc($window($2).w - 25) $calc($window($2).h - 45 )
}
else {
window -arpzdBh +bdhL $+(@w.,$2) $window($2).dx $calc($window($2).dy + 22) $calc($window($2).w - 25) $calc($window($2).h - 45 )
}
var %loc $+($mircdirscripting\ico\msn\flash\,$1)
var %wngx = $dll($htmldll,select,$window($+(@w.,$2)).HWND)
var %wng = $dll($htmldll,attach,$window($+(@w.,$2)).HWND)
var %wng = $dll($htmldll,navigate,%loc)
if $window($+(@w.,$2)) {
.timerwinksclose 1 $winksure($1) _closewinks
}
}
}
}
alias winksure {
if $1 == kalp.swf {
return 6
}
if $1 == opucuk1.swf {
return 5
}
if $1 == cicek.swf {
return 20
}
if $1 == yumruk.swf {
return 6
}
if $1 == dance.swf {
return 14
}
if $1 == kus.swf {
return 10
}
if $1 == boring.swf {
return 5
}
else {
return 10
}
}
alias _closewinks {
var %i 1
while %i <= $window(0) {
if $left($window(%i),3) == @w. {
window -c $window(%i)
}
inc %i 1
}
}
alias _skey {
showmirc -s
dll scripting\ico\msn\dlls\sendkey.dll $$1 $$2
}
alias _actstatus {
window -a "Status Window"
}
alias q {
!query $1-
background -x $1
.remini $nopath($mircini) background $1
whois $1-
.ctcpreply $1 AVATAR2 $_encr($ip) $hvar(avatarport) $file($hget(avatar,myavatar)) $hget(avatar,myavatar)
.ctcp $1 AVATAR
if $getoption(logging) {
var %l $1
set %ld $shortfn($window(%l).logfile)
if $lines(%ld) == 3 {
return
}
if $window(@tmplog) {
window -c @tmplog
}
write -c $shortfn($+($logdir,@tmplog.log))
window -ah @tmplog
.log on @tmplog
loadbuf $calc($lines(%ld) - 12) $+ - $+ $lines(%ld) @tmplog %ld
savebuf @tmplog files\tmp\tmplog.txt
echo -g %l 14Son yazışmalar:
echo -g %l _____________________________________
var %i 1
while %i <= $lines(files\tmp\tmplog.txt) {
%s = $strip($read(files\tmp\tmplog.txt,%i))
if *<*>* iswm %s || *‹*›* iswm %s {
echo -g %l 14 $strip($read(files\tmp\tmplog.txt,%i))
}
inc %i
}
echo -g %l ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
echo -g %l 0,14 tümü 
echo -g %l -
}
return
}
.ctcpreply $1 AVATAR2 $_encr($ip) $hvar(avatarport) $file($hget(avatar,myavatar)) $hget(avatar,myavatar)
.ctcp $1 AVATAR
if $getoption(logging) {
var %l $1
set %ld $shortfn($window(%l).logfile)
if $lines(%ld) == 3 {
return
}
if $window(@tmplog) {
window -c @tmplog
}
write -c $shortfn($+($logdir,@tmplog.log))
window -ah @tmplog
.log on @tmplog
loadbuf $calc($lines(%ld) - 12) $+ - $+ $lines(%ld) @tmplog %ld
savebuf @tmplog files\tmp\tmplog.txt
echo -g %l 14Son yazışmalar:
echo -g %l _____________________________________
var %i 1
while %i <= $lines(files\tmp\tmplog.txt) {
%s = $strip($read(files\tmp\tmplog.txt,%i))
if *<*>* iswm %s || *‹*›* iswm %s {
echo -g %l 14 $strip($read(files\tmp\tmplog.txt,%i))
}
inc %i
}
echo -g %l ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
echo -g %l 0,14 tümü 
echo -g %l -
}
return
}
alias __query {
if !$window($1) {
!query $1-
background -x $1
.remini $nopath($mircini) background $1
if $address($1,5) isignore {
var %s $input($1 şu anda engelli listenizde. Engelini kaldırmak istiyor musunuz?,y,Engelli Listenizde)
if %s {
$+(.timerclose,$1) off
.ignore -r $1
_bilgix -a $1 engeli kaldırıldı.
}
else {
window -h $1
$+(.timerclose,$1) 1 3 closemsg $1
}
}
whois $1-
.ctcpreply $1 AVATAR2 $_encr($ip) $hvar(avatarport) $file($hget(avatar,myavatar)) $hget(avatar,myavatar)
.ctcp $1 AVATAR
if $getoption(logging) {
var %l $1
set %ld $shortfn($window(%l).logfile)
if $lines(%ld) == 3 {
return
}
if $window(@tmplog) {
window -c @tmplog
}
write -c $shortfn($+($logdir,@tmplog.log))
window -ah @tmplog
.log on @tmplog
loadbuf $calc($lines(%ld) - 12) $+ - $+ $lines(%ld) @tmplog %ld
savebuf @tmplog files\tmp\tmplog.txt
echo -g %l 14Son yazışmalar:
echo -g %l _____________________________________
var %i 1
while %i <= $lines(files\tmp\tmplog.txt) {
%s = $strip($read(files\tmp\tmplog.txt,%i))
if *<*>* iswm %s || *‹*›* iswm %s {
echo -g %l 14 $strip($read(files\tmp\tmplog.txt,%i))
}
inc %i
}
echo -g %l ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
echo -g %l 0,14 tümü 
echo -g %l -
}
}
else {
window -a $1
}
}
alias __address {
if $address($1,$2) {
return $ifmatch
}
else {
return $+($1,!*@*)
}
}
alias _delpf {
if $left($1,1) != $chr(35) {
return $right($1,-1)
}
else {
return $1
}
}
alias _splay {
if $getoption(ses) && %ses == ok {
if $getoption(sesaway) && $away {
return
}
splay $1-
}
}
alias messenger {
nlist
}

alias avatar {
sockclose avatar*
var %p $r(20000,30000)
if !$portfree(%p) {
inc %p
}
socklisten avatar %p
hset avatarport %p
}
on *:socklisten:avatar:sockaccept avatar. $+ $ticks $+ $r(10000,99999)
on *:sockread:avatar.*:{
var %a. [ $+ [ $sockname ] ]
sockread %a. [ $+ [ $sockname ] ]
tokenize 32 %a. [ $+ [ $sockname ] ]
if ($isfile($1-)) {
sockmark $sockname $1- $chr(9) 0
avatarfile $sockname
}
else sockclose $sockname
}
on *:sockwrite:avatar.*:.timer 1 0 avatarfile $sockname
alias avatarfile {
if (!$sock($1)) return
var %i = $sock($1).mark
sockmark $1 $gettok(%i,1,9) $chr(9) $calc($gettok(%i,2,9) + 4096)
bread " $+ $gettok(%i,1,9) $+ " $gettok(%i,2,9) 4096 &b
if ($bvar(&b,0)) sockwrite $1 &b
else sockclose $1
}
alias -l sw sockwrite -nt $sockname $1-
alias getavatar {
if $file(scripting\ico\msn\k\ $+ $+($replace($1,\,=,|, ),€,$gettok(%avimage. [ $+ [ $1 ] ],-1,92))) == %avbyte. [ $+ [ $1 ] ] {
background -p $1 scripting\ico\msn\k\ $+ $+($replace($1,\,=,|, ),€,$gettok(%avimage. [ $+ [ $1 ] ],-1,92))
return
}
if $file(scripting\ico\msn\k\ $+ $+($replace($1,\,=,|, ),€,$gettok(%avimage. [ $+ [ $1 ] ],-1,92))) {
.remove scripting\ico\msn\k\ $+ $+($replace($1,\,=,|, ),€,$gettok(%avimage. [ $+ [ $1 ] ],-1,92))
}
sockclose $+(avget.,$1)
sockopen $+(avget.,$1) %avip. [ $+ [ $1 ] ] %avport. [ $+ [ $1 ] ]
}
on *:sockopen:avget.*:{
if $sockerr {
var %. $iif($query($gettok($sockname,2,46)),$gettok($sock name,2,46),-a)
linesep %.
_bilgiq %. $gettok($sockname,2,46) Bahane kullanmasına karşın görüntü resmi alınamıyor. (Internet Cafeden bağlanıyor olabilir)
linesep %.
return
}
else {
sockwrite -nt $sockname %avimage. [ $+ [ $gettok($sockname,2,46) ] ]
}
}
on *:sockread:avget.*:{
if !$sockerr {
sockread 8192 &r
bwrite scripting\ico\msn\k\ $+ $+($replace($gettok($sockname,2,46),\,=,|, ),€,$gettok(%avimage. [ $+ [ $gettok($sockname,2,46) ] ],-1,92)) -1 -1 &r
}
else {
return
}
}
on *:sockclose:avget.*: {
background -p $gettok($sockname,2,46)) scripting\ico\msn\k\ $+ $+($replace($gettok($sockname,2,46),\,=,|, ),€,$gettok(%avimage. [ $+ [ $gettok($sockname,2,46) ] ],-1,92))
}
alias _encr {
var %e 1 , %ret
while %e <= $len($1) {
%ret = $+(%ret,$iif(%ret,$chr(63)),$asc($mid($1,%e,1)))
inc %e
}
return %ret
}
alias _decr {
var %e 1 , %ret
while %e <= $numtok($1,63) {
%ret = $+(%ret,$chr($gettok($1,%e,63)))
inc %e
}
return %ret
}
alias _fixavatar {
return $replace($1-,\,/,|,')
}
ctcp *:*:?: {
if $1 == avatar {
.ctcpreply $nick AVATAR2 $_encr($ip) $hvar(avatarport) $file($hget(avatar,myavatar)) $hget(avatar,myavatar)
halt
}
}
on *:ctcpreply:*: {
if $1 == AVATAR2 {
%avip. [ $+ [ $nick ] ] = $_decr($2)
%avport. [ $+ [ $nick ] ] = $3
%avbyte. [ $+ [ $nick ] ] = $4
%avimage. [ $+ [ $nick ] ] = $replace($5-,|,')
getavatar $nick
halt
}
}

if $getoption(messoncon) {
nlist
}
avatar
mode $me -TpBCMmCRmc
umode -TpBCMmCRmc
if $hvar(connectlist) {
!list
hunset connectlist
}

on *:open:?:*: {
whois $nick
background -x $nick
.ctcp $nick AVATAR
.remini $nopath($mircini) background $nick
if !$notify($nick) {
if !$hvar(omsecoption) {
hset omsec 1
hset omsecnick $nick
window -h $nick
omsec
return
}
}