IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Programları (https://www.ircforumlari.net/mirc-scripting-programlari/)
-   -   Popups.dll (https://www.ircforumlari.net/mirc-scripting-programlari/158581-popupsdll.html)

Mc_AyALa 19 Kasım 2008 14:46

Popups.dll
 
Ben bu konuyu sizden yardım almak için açmıştım fakat popups.ini'yi sildiğimde istediğim görünüm ortaya çıktı.

Konuyu silmek istemedim çünkü sizinle paylaşmak istedim.

Bu menüye sevgili JİN'in yaptığı Joytürk Script'de hayran olmuştum çok aramıştm bunu ama sonunda buldum :)

Anamantığı

;[code baslangıcı ] [remote ]
; aliaslar
;; Aliaslar ile dll nin yerini ve code de olası muhtemel hataları
; engellemek vede bunları durdurmak için asagıdaki aliases ları mutlak
; suretle ekliyoruz

;dll deki ID lerin dogrulanması veyahut yanlışlıgını belirler alias.
alias pop { tokenize 32 $dll($pdll,Popup,$1-) | if ($isid) return $1- | $iif($4- != did not select a menu item,$4-) }

alias popups { return $dll($pdll,$1,$2-) }

;Aşagıdaki alias üstte bahsettigim mIRC\DLL dizinini belirtiyor
alias pdll { return $+(",$mircdirdll\popups.dll,") }

;popups'umuzun aliases adı (/cocorico_pop)

alias cocorico_pop {
;donma risklerine karsı ilk tıklanan yerde cıkması için mouse x,y konumu
var %t $mouse.dx $mouse.dy
;burada boyutları azaltmak için Variables kullanıyoruz normalde
;popups LoadImg resim icon 388,ico\baglanti.ico [icon arsivi] dosyası
;yoksa .icl uzntılı toplu simge dosyasıda kullanabilirsiniz.) seklinde cok uzun
;oldugundan var %q ile komutu variablesden kısaltıp okutuyoruz.


var %q popups LoadImg resim icon

;buradaki kısımda parcanın isminin ne olacagı (resim)
var %qp popups AddItem resim end

;bu kısımda ise resim adını verdigimiz pop un icon boyutları x,y ( gecerli icon boyutlarını tavsiye ederim 16 16 )
popups New resim 32 32
;bu kısımda yukarıda Var ekledigimiz %q ile icon tipini belirleyip hangi arsiv nosunda ve hangi dosyadan icon alacagını belirliyoruz.
boyutlar ve cözünürlük [small normal large] simgedosyası.icl yada bilmemne.ico ico kullanmadaki tek fark 388,\simge.icl yerine \simge.ico,3 gibi icerisindeki icon nosunu kulanıyoruz yani birbirinin tam tersi
%q normal 388,ico\baglanti.ico
%q normal 25,ico\baglanti.ico
;buradaki + metinler arasına cizgi koymak için

%qp +
;tüm pop komutlarında + vardır %qp yi yukarıda variablese ekletmiştik,
;1 ise yukarıda yine 388 iconunu cagırdıgımız icon ekleme sırasını ifade ediyor.
; $cr ise pop daki satırın sona erdigini ve komut gelişini ifade eder ve sonraki yazı komut olarak işlenir
%qp + 1 Resimlerim $cr /resimlerimdizini (yada alias komutu)
%qp +
%qp + 2 Resim Editörü $cr /resim.edit
%qp +
;burada ise popups'umuzun son asaması olan bitiş kısmı %t ile yukarı set ettigimiz variablesi burada mouse un pop u acıcagı yeri vererek code'a son veriyoruz.
pop resim %t
}
[Code sonu ]
+ Lardan sonra +b (dizini karartma yanı sadece okunur satır )
C 2 li pop saga ve sora 2 parca halinde kullanımı alt satırları sola iter
örnegin
%qp +C
%qp + 2 Resim Editörü $cr /resim.edit
sayet > işareti ile kenara dökülür yapmak isyerseniz +> işaretini kullanmanız gerekir
örnegin
%qp end +> 1 Resimler $cr /kullanıcı
buradaki kullanıcı yeni bir pop demekdir ve bunda yukarıdaki mouse işlemi bulunmuyor

ve bu popda satırlar bitince altına
popups New kullanıcı 18 18
diye acıp devam ediyoruz

___________________________________________
Çalışır örnek :

alias cocorico_pop {
var %m $mouse.dx $mouse.dy
var %q popups LoadImg resim icon
var %qp popups AddItem resim end
popups New resim 32 32
%q normal 388,ico\baglanti.ico
%q normal 25,ico\baglanti.ico
%qp +
%qp + 1 Resimlerim $cr pid.mtx 1
%qp +
%qp + 2 Resim Editörü $cr pid.mtx 2
%qp +
pop resim %t
}
alias pid.mtx {
goto $1
:1 {
run $mircdir\resimlerim
}
:2 {
.imaj.edit
}
}
__________________________________________________ _


alias cocorico_pop {
var %m $mouse.dx $mouse.dy
var %q popups LoadImg DENEME icon
var %qp popups AddItem DENEM end
popups New resim 32 32
%q normal 1,ico\baglanti.ico
%q normal 2,ico\baglanti.ico
%qp +
%qp +db $me
%qp +
%qp + 1 birinci iconlu menü $cr /echo menü 1
%qp +
%qp + 2 Menümüz 2 $cr /echo menü 2
%qp +> 2 Acılır menü $cr /Acılır_menü
%qp +
popups New Acılır_menü 18 18
var %kl popups LoadImg Acılır_menü icon
var %qp popups AddItem Acılır_menü end
%kl small 1,ico\baglanti.ico
%kl small 2,ico\baglanti.ico
%ki +dD Disable edilmiş
%ki +dDb Bold yazılı Disable edilmiş
%ki + 1 bu acılan bir $cr /echo acılır 1
%ki + 2 bu acılan iki $cr /echo acılır iki
%ki +CD İkili POP
;yana cizgi attık
%ki +C
%ki + 1 bu acılan bir $cr /echo Deneme
%ki + 2 bu acılan iki $cr /echo Denem
%ki + iconsuzz $cr /echo Denem icon yok
%ki + bu acılan iki $cr /echo $me [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
%ki +
%ki +
;alt alta içi cizgi attık
pop resim %t
}


unutmayın mutlaka bir icl yada ico dosyası kullanmanız gerekir

Anlatımı için ©º©º®î©º Arkadaşa teşekkürler.

Buda benden örnek

Alıntı:

alias leader.pop {
var %A $mouse.dx $mouse.dy
var %q popups LoadImg iki icon
var %qp popups AddItem iki end
popups New iki 16 16
%q small 16x16ico\favori.ico
%q small 16x16ico\away.ico
%q small 16x16ico\yıldız.ico
%q small 16x16ico\explo.ico
%q small 16x16ico\yıldız.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%qp + 1 Korumalar $cr /korumalar
%qp + 2 Away Sistem $cr /awaymenu
%qp + 3 Oyunlar $cr /oyunlar
%qp + 4 Websorf $cr /websorf
%qp +> 5 Nick Islemleri $cr bl
%qp +> 6 Kanal Islemleri $cr a1
%qp + 7 Pencereleri Kapat $cr /partall | /closemsg
%qp + 8 Radyo Istek Yap $cr /istek
var %B popups LoadImg a1 icon
var %N popups AddItem a1 end
popups New a1 16 16
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%N + 1 Kanal'a Gir $cr /kgiris
%N + 2 Kanal Kaydet $cr /kreg
%N + 3 Kanal Dropla $cr /kdrop
%N + 4 Kanallardan Cık $cr /partall
var %B popups LoadImg bl icon
var %N popups AddItem bl end
popups New bl 16 16
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%N + 1 Ozel Görüş $cr /ngiris
%N + 2 Ozelimi Kapat $cr /mode $me +D
%N + 3 Ozeli Temizle $cr /closemsg
%N + 4 Not Bırak $cr /nmemo
%N + 5 Nick Kaydet $cr /nreg
%N + 6 Nick Dropla $cr /ndrop
pop iki %A
}
menu status {
$leader.pop
}
alias nlist {
var %A $mouse.dx $mouse.dy
var %q popups LoadImg iki icon
var %qp popups AddItem iki end
popups New iki 16 16
%q small icon\10.ico
%q small icon\10.ico
%q small icon\10.ico
%q small icon\10.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%qp + 1 Rumuz Bilgisi $cr whois $snicks
%qp + 2 Ozel Sohbet Et $cr query $snicks
%qp + 3 Rumuzu Engelle $cr /ignore $snicks
%qp + 4 Rumuz Engelini Aç $cr $cr /ignore -r $snicks
%qp +> 5 Operator Islemleri $cr bl
%qp +> 6 Kanal Yetki Islemleri $cr a1
%qp + 7 Rumuza Dosya Gönder $cr /dcc send $snicks
var %B popups LoadImg a1 icon
var %N popups AddItem a1 end
popups New a1 16 16
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%N + 1 Operator(@)Ver $cr mode $active +o $snicks
%N + 2 Operator(@)Al $cr mode $active -o $snicks
%N + 3 Halfop(%)Ver $cr mode $active +h $snicks
%N + 4 Halfop(%)Al $cr mode $active -h $snicks
%N + 5 Voice(+)Ver $cr mode $active +v $snicks
%N + 6 Voice(+)Al $cr mode $active -v $snicks
var %B popups LoadImg bl icon
var %N popups AddItem bl end
popups New bl 16 16
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%N + 1 Küfür $cr _kban $1 $2
%N + 2 Reklam $cr _rban $1 $2
%N + 3 Tekrar $cr _tban $1 $2
%N + 4 Tartısmak $cr _tarban $1 $2
%N + 5 Rahatsızlık $cr _raban $1 $2
%N + 6 Hızlı Ban $cr _hban $1 $2
pop iki %A
}
menu nicklist {
$nlist
}
alias qlist {
var %A $mouse.dx $mouse.dy
var %q popups LoadImg iki icon
var %qp popups AddItem iki end
popups New iki 16 16
%q small icon\10.ico
%q small icon\10.ico
%q small icon\10.ico
%q small icon\10.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%q small icon\6.ico
%qp + 1 Rumuz Bilgisi $cr whois $active
%qp + 2 Dosya(DCC) Gönder $cr dcc send $active
%qp + 3 Rumuzu Engelle $cr ignore $active
%qp + 4 Rumuz Engelini Aç $cr $cr /ignore -r $active
%qp + 5 Pencereyi Kapat $cr closemsg $active
%qp +> 6 Rumuz Islemleri $cr bl
var %B popups LoadImg bl icon
var %N popups AddItem bl end
popups New bl 16 16
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%N + 1 Rumuz Info'su $cr ns info $active
%N + 2 Rumuzu Ping'le $cr ping $active
%N + 3 Rumuza Not Bırak $cr msend $1
%N + 4 Arkadas Listeme Ekle $cr notify $active
var %B popups LoadImg al icon
var %N popups AddItem al end
popups New al 16 16
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%B small icon\6.ico
%N + 1 Rumuz Info'su $cr _kban $1 $2
%N + 2 Rumuzu Ping'le $cr _rban $1 $2
%N + 3 Rumuza Not Bırak $cr _tban $1 $2
%N + 4 Arkadas Listeme Ekle $cr _tarban $1 $2
pop iki %A
}
menu query {
$qlist
}
alias -l pop tokenize 32 $dll($pdll,Popup,$1-) | if ($isid) return $1- | $iif($4- != did not select a menu item,$4-)
alias -l popups return $dll($pdll,$1,$2-)
alias -l pdll { return $+(",$mircdirdll\popups.dll,") }
alias -l popup return $shortfn(dll\popups.dll)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Buyrun DLL miz.

Popups.ini'yi silin Remoteye bunu ekleyin.
İconları,Menüyü Vs. herşeyi siz ayarlayın kafanıza göre ...
Görücekseniz çok güzel bir menü olcak :)

Rohit 19 Kasım 2008 21:21

Cevap: Popups.dll
 
wooww :D Cok Saol..
Yanimda Olsan SarILIrdIm Bile

Dost21 16 Mayıs 2009 12:13

Cevap: Popups.dll
 
Paylaşım İçin tşkLer.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:30.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net