arkadaşlar kendimce birşeyler yapmaya çalışıyorum
amacım aynı kodu kullanan kişilerden kimin özelini açsam veya kim özelime gelse benim arka plan resmim karşımdakinde
onun belirlediği resim karşımdakiyle konuşurken özelde arka planda olması
resim upload ve resim dowonload kodları lazım dowonload kodu buldum lakin upload kodu bulamıyorum socket bilgim az yazamıyorum kodu
bulduğum kodlar ise çalışmıyor yardımcı olursanz sevinirim
Kod:
ctcp ^*:*: { set %fg $1-
if %fg isin $1- { Background -dc $nick " $+ %fg $+ " | ad }
halt
}
on *:OPEN:?:*:{
enable #ds | .ctcp $nick %ff
}
alias query {
enable #ds | query $$1 | .ctcp $$1 %ff
}
menu * {
Avatarım:dsy
}
alias dsy {
var %file = $dll($shortfn($scriptdiredialogs.dll),EDlg,l $+ $nofile(%file) $+ >Avatarınızı Seçin>|Resim Dosyası|*.jpg;);
if (%file) {
inc %av.y 75
inc %av.id
inc %tbox.id
window -Bhp +d @sav 0 0 64 64
drawpic -s @sav 0 0 64 64 $shortfn(%file)
drawsave -b32q100 @sav $qt($scriptdiravsave. $+ $gettok(%file,-1,46))
window -c @sav
set %ff %file
}
}
#ds on
alias ad { .ctcp $nick %fF | .disable #ds | .timer 1 5 .enable #ds }
#ds end
alias ad { }