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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - BagLantI menusu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/31626-baglanti-menusu.html)

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

;

Kod:

Bağlantı Penceresi

alias mdx_fullpath { return $+(",dll\mdx.dll,") }

alias mdx { dll $mdx_fullpath $1- }

alias start { if ($dialog(start)) { dialog -x start } | dialog -md start start }

dialog Start {

title "siLvEr v2.1"

size -1 -1 238 152

option dbu

box "", 1, 4 0 230 50

icon 2, 7 5 223 41, Bin\cCc.Gif

box "", 3, 4 49 118 82

text " Nick :", 4, 8 62 48 13

text " Yedek Nick :", 5, 8 78 50 13

text " Identd :", 6, 8 94 50 13

text " FuLLname :", 7, 8 111 50 13

edit "", 8, 60 60 50 13

edit "", 9, 60 76 50 13

edit "", 10, 60 92 50 13

edit "", 11, 60 108 50 13

box "", 12, 124 49 109 31

button "", 16, 128 55 100 21, flat

box "", 14, 124 79 110 52

button "Chat", 15, 128 86 101 12, flat

button "Sohbet", 13, 128 101 101 12, flat

button "Zurna", 17, 128 116 101 12, flat

box "", 18, 3 129 138 21

box "", 19, 143 129 91 20

button "K A P A T", 20, 146 134 84 12, ok flat

edit "", 21, 7 133 132 14, read

}

 

alias anim.bouton {

if ( $dialog(Start).title == $null ) { timerConnexion off | halt }

did -ra Start 16 $gettok($hget(start,anim.start),$hget(start,anim.start16),46)

hadd -m start anim.start16 $calc(1 + $hget(start,anim.start16)) | if ( $hget(start,anim.start16) > 6 ) { hadd -m start anim.start16 1 }

}

On *:DIALOG:Start:*:* {

if ($devent == init) { 

hadd -m start anim.start ! mIRCturkiye'ye BagLan ! | .timerConnexion -mo -0 200 anim.bouton

mdx MarkDialog $dname

mdx SetColor $dname 4,5,6,7,22 text $rgb(56,2,0)

mdx SetColor $dname 23 text $rgb(255,255,255)

mdx SetColor $dname 2,3,19 text $rgb(0,0,85)

mdx SetColor $dname 4,5,6,20,21,23 text $rgb(255,255,255)

mdx SetColor $dname 4,5,6,7,21 text $rgb(2,1,85)

mdx SetColor $dname 23,24,21 check $rgb(255,0,0)

dll dll\mdx.dll SetColor $dname 8,9,10,11,12,13 textbg $rgb(255,255,255) 

mdx SetFont 1,2,3,4,5,6,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,30,21,22,23,26 -12 700 Tahoma

mdx SetFont 7,8,9, -11 700 Tahoma

mdx SetFont 4,5,6,7,8,18,19,20,21,22,23,24,25,26,16,9,10,11,12,13 -12 700 Tahoma

mdx SetColor $dname 8,9,10,11,12,13 background $rgb(255,255,255)

did -a $dname 8 $me

did -a $dname 9 SilverUser- $+ $rand(1,9999)

did -a $dname 11 $FuLLname

} 

if ($devent == sclick) { 

if ($did == 15 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.mIRCTurkiye.net }

if ($did == 13 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }

if ($did == 17 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }

if ($did == 16 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.mIRCTurkiye.net }

if ($did == 20 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }

if $devent == edit {

set %me $did(8) 

Set %anick $did(9)

set %fullnames $did(11)

}

}

}

on *:start:{

if %sayac == $null {

.set %sayac 1

.dialog -m Start Start | 

.did -a Start 21 Scriptinizin İlk Açılışı..

}

else {

.inc %sayac

.dialog -m Start Start

.did -a Start 21 Scriptinizin Açma Sayınız: %sayac

}

}

-----------------------------------------------------------------------
siLvEr v2.1 De kullanmı$ oLduqum ßir ßaqLantı menusu sizLErLe payLa$mak istedim.
Arkada$LAr ßunun için mdx.dll dll kLasorüne atın mdx.dll'i Sorunsuz CaLı$ır. :) mdx.dll Lazım Down. u nu KoymadIm Coqumuzda vardır diye.
Deqi$tircenız yerLeri kırmızı iLe qÖsterdim..
Sayac CipriX'e aittir.

Cevap: BagLantI menusu

hocam ellerine sağlık.
dll/mdx.dll olarak attım.fakat ;
ben bunu mircte /start olarak bir türlü çalıştırmadım.verdiğin kodu txt dosyası olarak kaydettim ve mirc te loadladım. /start yazdıgımda neden bağlantı menüsü açılmıyor, baya bi bakındım, hatanın nerede oldugunu bulamadım Ne Yapmalıyım???;boggled
ÖnemLi : mircde /start yazdığımda eski menü ortaya cıkıyor.Ne yapmam lazım:confused:
Ve birde scripti açtığımda satır 33 ve 76 da hata veriyor

Cevap: BagLantI menusu

7610 , /start diye deqiLde /dialog -m Start Start oLarak Ac & Ötekı start dialogu SiL veya siLmeden ßa$ka düz ßi scriptte yap caLı$tır Sonra kendi scripttine aktar. dll kLasor'üne atsan yeter dll'i : )
koLay qeLsin.

Cevap: BagLantI menusu

Alıntı:

7610 Nickli Üyeden Alıntı

Kodu yazan arkadaşımız /start yazarak dialogu açabilmen için gerekli kodu yazmamış. Ama sen /start yazarak dialogun açılmasını istiyorsan kodları yeniden al. ben arkadaşın yerine bunu güncelledim..
Eklediğim kod satırı 3. satır olan;

alias start { if ($dialog(start)) { dialog -x start } | dialog -md start start }

Not: Ayrıca scriptinde eskiden kalma bir kod var. Öncelikle onu kaldır..

Cevap: BagLantI menusu

[@]
* /dialog: 'Start' Icon Yüklemede Hata 'bin\ccc.gif' (Satır 77, script2.exe)
[@]

ßu hatayı veriyor yardım edebilir misiniz ?

Cevap: BagLantI menusu

icon 2, 7 5 223 41, Bin\cCc.Gif

Koddaki bu satırı sil.

Cevap: BagLantI menusu

üzerinde hareketli GIF resmi olacak baglantı menüsü olurmu? olursa varsa bilen bi el atarmı?

------------------------------
bu vatan 3 kuruşamı alındıki 5 kuruşa satıyorsunuz. satılmayan hiç bir yer kalmadı türkiyemizde örnek: tekel,fabrikalar,bankalar,tatilbeldelrimiz vs adamlar yıkamadıkları osmanlı yı şimdilerde parasıyla satın alıyorlar yıkıyor satan ******* utansın.;noki

Cevap: BagLantI menusu

Alıntı:

sniper Nickli Üyeden Alıntı (Mesaj 392538)

Bulamassın. son mirc versiyonlarında gif uzantılı resim dosyası kullanırsın ama hareketli olarak o gif resmini kullanamazsın.

Cevap: BagLantI menusu

;oki;oki;oki eyw sağol bilgimiz olsun bi köşede dursun :D

Yanıt: BagLantI menusu

ya şu verdiğiniz şeyleri yapamıyorum. yapamayınca deli oluyorum. dll klasörüne txt olarak attık ? start diyalog vs. hiçbiri işlemiyore.

Cevap: BagLantI menusu

Mc KruGer Arkadasımız icon 2, 7 5 223 41, Bin\cCc.Gif Bu kodu silin demis hatırtlatmak ıcın soyluyorum kendisi bızden ustundur buna gerek yok Bİn\ccc.Gif iconun uzantısıdır. icon kayıtlı olmadıgı ıcın bu hatayı verıyor. mircine boyutlara gore bir icon atarsın. mesela icon addonların ıcınde diyelim AddonLaR\Resim.png gıbi hatayı vermez iconuda once load etmen lazım. rast gele

Cevap: BagLantI menusu

Burda kı en Onemlı sıkıntı baglantı menusunde $me $anick $fullname ve identlerın belli karekterden sonra rakam ve harflerı kabul etmemesi. bunu nasıl degıstırebılırız kodu verıyorum.
did -a $dname 8 $me
did -a $dname 9 SilverUser- $+ $rand(1,9999)
did -a $dname 11 $FuLLname
}
if ($devent == sclick) {
if ($did == 15 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.mIRCTurkiye.net }
if ($did == 13 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }
if ($did == 17 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }
if ($did == 16 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.mIRCTurkiye.net }
if ($did == 20 ) { .nick $did(8) | .anick $did(9) | .identd On $did(10) | .Fullname $did(11) | /dialog -c Start Start | /server irc.07Chat.com }
if $devent == edit {
set %me $did(8)
Set %anick $did(9)
set %fullnames $did(11)
degistirilecek olan bolum burası fakat hata verıyor.yada ben yeterice degıstiremıyorum yardımlarınızı beklıyorum rast gele

Cevap: BagLantI menusu

Şu kısmı ;

PHP- Kodu:

   edit "", 8, 60 60 50 13
edit "", 9, 60 76 50 13
edit "", 10, 60 92 50 13
edit "", 11, 60 108 50 13

Böyle değiştirirsen işini görücektir sanırım

PHP- Kodu:

   edit "", 8, 50 60 70 13
edit "", 9, 50 76 70 13
edit "", 10, 50 92 70 13
edit "", 11, 50 108 70 13

dialog açılışında (init) şu satır atlanmış galiba ;

did -a $dname 10 $emailaddr

güzel paylaşım emeğine sağlık.

Cevap: BagLantI menusu

K1NG yine hata verdı baglantı menusu kodunun icene degistirecegımız yeri ekleyerek kodun tamamıyla beraber bura koyarsan menmun oldurum usta kolay gelsın şimdiden tskler $me en az 21 ident 10 fulname 100 $anick 21 olsun ıstıyorum gorusurz Kralım )