mIRC Scripting - Motd Addonu

Merhaba SevgiLi mİRCScripting.NET Forum Üyeleri

Merhaba SevgLi mS Ailesi ConferenceRoom Sunucular için Hazırlamış Olduğum Diyaloglu Motd Kodunu Sizlerlede Paylaşmak İstedim.

Bu Diyaloglu Kodumuzla Sunucu Paneline Girmeden Motd Ekliyebilirsiniz Panele Girmeden iDent Ekleyip Silebilirsiniz
Hatda İdenti Komutla Ekleme Derdinede Son Ayrıca Bi Kaçtanede Kolaylık Olsun Diye Olmuşken Bildiklerimin Hepsi Olsun Diye Motd List Butonuda Ekliyerek iRC Sunucusundaki Motdu Görüntülüyebilirsiniz.

Komutla Z-Default Şifresini Ekleyip Silme Derdinede Son Herşey Diyalogda Mevcut Yapınca Yaptıkça Göreceksniz Umarım Beğenirsiniz.İdenti Eklediğinizde Silmeside Bil Hassa kolay Silceğiniz identin üzerine gelip mausla iki defa tıklayın kendisi silinecektir.

Not:Daha İyisini Yapmak İçin Elimden Gelenin İyisini Yapmaya Çalışıyorum.

mIRC Scriptinzde Olması Gerekenler Hakkında Bilgi Verceğim mdx.dll olması gerekiyor olmadığı sürece Diyalogun renklerinde sorun yaşayabilirsiniz.Ayrıca mdx.dll dll klasörünün içinde bulunması gerekiyor.

Ve Yine mIRC Scriptinizin İçerisine Motd.txt ve ident.txt Metin Belgeleri Olması Gerekiyor.Yani İçinde Bu Adlarda Bu isimli .txt Lerin bulunması gerekiyor aksi takdirde işlevlerde hata alacaksınız olduğu sürece sıkıntı yok.

Download mdx.dll İndir mdx dll

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;-----

;;;;Motd PaneL Diyalog Sistemi

;;;;-----

;;;;iRC ConferenceRoom TechnicaL Admin Goemon

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

menu channel,query,status { 

  Motd/Ekle/Sil Diyalogu:/Motdpanel

}

alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }

alias Motdpanel { if $dialog(MotdEkle) { !echo -a 2Motd PaneL Dialog'u Zaten 4AÇIK! } | else { !dialog -m MotdEkle MotdEkle } }

dialog MotdEkle {

title "Motd Ekleme // ident Ekleme/Silme/Listeleme // Web ident Ekleme/Silme // By Goemon"

size -1 -1 405 170

option dbu

box "Motd PaneL Statüs Listesi", 1, 116 4 287 130

list 2, 118 13 282 119, size vsbar

box "iDent Listesi", 3, 3 33 67 100

list 4, 8 41 58 81, size vsbar

edit "", 5, 5 12 70 13

button "EkLe", 6, 76 13 33 11

box "iDent EkLe", 7, 3 4 111 25

button "Motd.txt TıkLa Aç", 8, 116 155 50 13

text "Not : iDentleri Silmek için ident Listesindeki identlerin üstüne gelerek identlerden silmek istediğinizi seçerek 2 defa ard arda tıklayıp seçmiş olduğunuz identi silebilirsiniz. Diyalog Tarafımca yazılmışdıR... ( Coded By Goemon ) ", 9, 2 135 111 33

button "Motd EkLe", 10, 74 53 38 12

button "Motd YeniLe", 12, 74 39 38 12, ok

button "Tamam / Kapat", 13, 354 146 47 12, ok

button "ident.txt TıkLa Aç", 11, 116 138 50 13

button "Web iDent oLuştuR", 14, 168 155 54 13

button "mIRC iDent oLuştuR", 15, 168 138 54 13

button "Web iDent SiL", 16, 224 155 50 13

button "mIRC iDent SiL", 17, 224 138 50 13

button "mIRC iDent List Bilgisi", 18, 276 138 75 13

text " ConferenceRoom ", 19, 7 124 61 6

button "Z-Default Girişini AÇ/KAPAT", 20, 276 155 75 13

button "Zdefault Bilgi", 21, 74 67 38 12

button "iLeRi Git", 22, 74 104 38 12

button "Geri GeL", 23, 74 118 38 12

box "", 24, 72 33 43 100

button "Motd List", 25, 74 80 38 12

}
 

on *:dialog:MotdEkle:init:*: { 

dialog -s $dname -1 -1 232 340

if $isfile(ident.txt) { loadbuf -o $dname 4 ident.txt }

if $isfile(motd.txt) { loadbuf -o $dname 2 motd.txt }

mdx MarkDialog $dname

mdx SetDialog $dname bgcolor $rgb(48,213,255)
 

mdx SetColor $dname 9,19 text $rgb(0,0,0)

mdx SetFont $dname 9 11 700 Tahoma

mdx SetFont $dname 19 13 700 Tahoma

mdx SetColor $dname 9,19 textbg $rgb(48,213,255)

mdx SetFont $dname 1,3,7 14 700 Tahoma

mdx SetColor $dname 1,3,7 background $rgb(48,213,255)

mdx SetFont $dname 6,7,8,10,11,12,13,14,15,16,17,18,20,21,22,23,25 12 700 Verdana

}
 

on *:dialog:MotdEkle:sclick:12: { 

if $isfile(motd.txt) { did -r $dname 2 | loadbuf -o $dname 2 motd.txt }

}

on *:dialog:MotdEkle:dclick:2: { var %d2 $$did($dname,2).seltext | did -d $dname 2 $did($dname,2).sel | write -ds $+ %d2 motd.txt | yenile2_ }

on *:dialog:MotdEkle:sclick:10: { motdekle }

on *:dialog:MotdEkle:sclick:8: { run $mircdirmotd.txt }

on *:dialog:MotdEkle:sclick:11: { run $mircdirident.txt }

on *:dialog:MotdEkle:sclick:6: { var %d1 $did(5).text | $iif(!$read(ident.txt,w,%d1), write ident.txt %d1, halt) | did -a $dname 4 $$did(5).text | did -r $dname 5 }

on *:dialog:MotdEkle:dclick:4: { var %d4 $did($dname,4).seltext | did -d $dname 4 $did($dname,4).sel | write -ds $+ %d4 ident.txt | yenile_ }
 

on *:dialog:MotdEkle:sclick:14: { 

set %mIRCwebident $$?="mIRC Web iRC Girişi İdent Adını Yazınız.Örn: mircscripting@* Gibi" 

.as client z-default mask add %mIRCwebident

}
 

on *:dialog:MotdEkle:sclick:15: { 

set %mIRCident $$?="mIRC iRC Girişi İdent Adını Yazınız.Örn: mIRC Gibi" 

set %mIRCpassword $$?="mIRC iRC Girişinin Şifreni Belirleyin.Örn: 123654 Gibi"

set %mIRCemail $$?="mIRC Email Adını Yazınız.Örn: mIRC@* Gibi"

enable #identeklendi

.as client %mIRCident add

.as client %mIRCident set password %mIRCpassword

.as client %mIRCident mask add %mIRCemail

.as client %mIRCident mask add %mIRCemail

.as client %mIRCident enable

.timer 1 1 /disable #identeklendi

}
 

on *:dialog:MotdEkle:sclick:16: { 

set %mIRCwebidentsil $$?="mIRC Web iRC Girişi İdent Adını Yazarak Silebilirsiniz.Örn: mircscripting@* Gibi" 

.as client z-default mask del %mIRCwebidentsil

}
 

on *:dialog:MotdEkle:sclick:17: { 

set %mIRCidentsil $$?="mIRC Email iDent Adını Yazarak Silebilirsiniz.Örn: mIRC Gibi"

enable #identsilindi

.as client %mIRCidentsil del 

.timer 1 1 /disable #identsilindi

}
 

on *:dialog:MotdEkle:sclick:18: { 

set %mIRClist $$?="mIRC Email iDent Adını Yazarak Bilgi Alabilirsiniz.Örn: mIRC Gibi"

enable #identbilgi

.as client %mIRClist list 

.timer 1 1 /disable #identbilgi

}
 

alias yenile_ { did -r MotdEkle 4 | loadbuf -o MotdEkle 4 ident.txt }

alias yenile2_ { did -r MotdEkle 2 | loadbuf -o MotdEkle 2 motd.txt }
 

alias motdekle {

bread motd.txt 0 $file(motd.txt) &s

var %p = 1 , %ident

while %p <= $lines(ident.txt) {

%ident = $read(ident.txt,%p)

as client %ident motd erase

var %i = 0 , %c = 1 , %t

while $bfind(&s,%i,$crlf).text {

%i = $ifmatch

bcopy &b 1 &s %c $calc(%i - %c )

%i = %i + 1

breplace &b 32 160

;echo -s $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160)) 

as client %ident motd append $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160))

bunset &b

%c = %i

}

inc %p

}

identler 

}
 

alias identler {

var %id_ 1, %idt_ $did(motdekle,4).lines

while %id_ <= %idt_ { 

echo -a 4 $did(motdekle,4,%id_).text 12Identine Motd Eklendi..

inc %id_

}

}
 

alias zbilgi { 

if (2 // %trm) { noop $input(En Son Z-Default Açıldı,o,Z-Default Bilgi) }

else { noop $input(En Son Z-Default Şifresi Değiştirildi Şifre: %randompass,o,Z-Default Bilgi) }

}
 

alias zdefa { inc %trm

if 2 // %trm { as client z-default set password | echo -a 10z-default 2Şifresi Kaldırıldı.. }

else { set %randompass $+($r(1,9), $r(a,z), $r(0,9), $r(A,Z), $r(0,9), $r(a,z), $r(A,Z), $r(0,9), $r(a,z)) | As client z-default set password %randompass | echo -a 10z-default 2Şifresi 4AUTO 2degişdirildi 4Şifre;5[12 %randompass 5] }

}
 

on *:dialog:MotdEkle:sclick:21:{ zbilgi }
 

on *:dialog:MotdEkle:sclick:20: { zdefa }
 
 

on *:dialog:MotdEkle:sclick:25: { 

enable #motdlist

.motd

echo -a 2Motd Listesi Başarıyla 3Tamamlandı...

.timer 1 1 /disable #motdlist

}
 

#motdlist on

raw 372:*:{ if (!$window(@MotdList)) { window -n @MotdList }

echo -t @MotdList 4 $date 10 $1 2 $2-

halt 

} 

#motdlist end
 

#identbilgi off

on *:snotice:*: {

if (*Success -- Client class* iswm $1-) { 

echo -a 7----------------------------------------

echo -a 4 $5 2identinin Bilgileri GösteriLdi. 

}

elseif (*Client * set password* iswm $1-) { 

echo -a 4 $3 2identinin Şifresi :10 $6 

}

elseif (*Client * mask add* iswm $1-) { 

echo -a 4 $3 2identinin Maskı :10 $6 

echo -a 7---------------------------------------- 

}

elseif (*Failure -- That client class doesn't exist* iswm $1-) { 

echo -a 4HATA 10Sunucuda Açılmış 2Böle Bir ident yok! }

}

#identbilgi end
 

#identeklendi off

on *:snotice:*: {

if (*Success -- Client class * enabled* iswm $1-) { 

/echo -a 7----------------------------------------

echo -a 4 $5 2identi BaşarıyLa Eklendi.

echo -a 4 $5 2identi Şuan Kullanıma 3AKTİF! 

/echo -a 7----------------------------------------

}

}

#identeklendi end
 

#identsilindi off

on *:snotice:*: {

if (*Success -- Client * deleted.* iswm $1-) { 

/echo -a 7----------------------------------------

echo -a 4 $4 2identi BaşarıyLa Silindi.Kullanıma Kapatıldı.

/echo -a 7----------------------------------------

}

}

#identsilindi end
 

on *:dialog:MotdEkle:sclick:22: { 

ilerigit

}

on *:dialog:MotdEkle:sclick:23: { 

gerigel

}

alias -l ilerigit { 

dialog -s $dname $dialog($dname).x $dialog($dname).y 805 340

}

alias -l gerigel { 

dialog -s $dname $dialog($dname).x $dialog($dname).y 230 340

}

;;;;;;;;;;;;;;;;;;Motd PaneL Listesi Son;;;;;;;;;;;;;;;;;

GörüntüleR

http://i.hizliresim.com/AA3olX.jpg

http://i.hizliresim.com/07yP5W.jpg

Not:Code Bana Ait.