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

HeRCai · 07 Temmuz 2008, 05:04

selam arkadaşlar bu kodu burda paylaşmak istedim ConferenceRoom ilgilendirdiği için ; birden çok client klasörünüz (yaklaşık 20,30 klasör) var ve uzun bir motd hazırlamışsınız panele girip teker teker klasörlere pastelemekten sıkıldıysanız sizlere yazmış olduğumuz kodu paylaşmak istedim.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias motdekle {
bread motd.txt 0 $file(motd.txt) &s
var %p = 1 , %client
while %p <= $lines(clients.txt) {
%client = $read(clients.txt,%p)
as client %client 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 %client motd append $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160))
bunset &b
%c = %i
}
inc %p
}
}

mirc klasörüne clients.txt açıp oraya client klasörlerini yazıyoruz
yine mirc klasörüne motd.txt açıp ona da motd ekliyoruz

/motdekle komutu kodu çalıştırıp motdu ekliyoruz. (kodu Remote kısmına ekliyoruz )

11 Temmuz 2008, 15:00

Merhaba İf Ailesi ConferenceRoom Sunucular için Hazırlamış Olduğum Diyaloglu Motd Kodunu Sizlerlede Paylaşmak İstedim.Kodumuz Ne İşe Yarar Faydası Ney Zararı Ney
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu Diyaloglu Kodumuzla Panele Girmeden Motd Ekliyebilirsiniz Panele Girmeden iDent Ekleyip Silebilirsiniz Hatda İ;denti Komutla Ekleme Derdinede Son
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 iRC den Baya Uzakdım Geri Döndüm İnş Burda Bir Takım ConferenceRoom Sunucular İçin Birşeyler Elimden Geldikçe Paylaşçam.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:Eski Bir Çalışmam Şuan Daha İyisini Yapıp İlerliyen Zamanlarda Siz İf Ailesinein Paylaşımına Sunacağım İnş.

mIRC Scripitinzde 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 Belgelerini Yüklüyoruz 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 inş.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;-----
;;;;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(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List)) { window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List }
echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List 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;;;;;;;;;;;;;;;;;

ResimleR

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

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

19 Aralık 2014, 10:18

Evet Arkadaşlar bu ikinci çalışmamda bitdi inş ileride üçüncü bir çalışma ile dahadaa iyisini yapmaya çalışçam bu sefer herşey full olsun istiyorum ama yeni olduğum için öğrendikçe yapıyorum yaptıkçada sizlerlede paylaşıyorum.

kodun son hali hoş olmamışsada bu kadar yaptım enazından sizler için emek harcadığımı düşünüyorum bi tşk butonuna basmanız bile kafi.emeği çok görmeyelim arkadaşlar altı üstü bi tşk butonuna basmak.

resim 1

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

resim 2

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

resim 3

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

AŞŞAĞIDAKİ LİNKLERDEN SİZE GEREKLİ OLAN 3 DOSYAYI DA İNDİRİNİZ

Hangi Linkler Sağlamsa O Linki Kullanarak Üçünüde İndiriniz.

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

İkinci UPLOAD Sitesi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yapılması Gerekenler

Evet Arkadaşlar Mavi Renkli İle Codede Göstermiş olduğum goe Adı Bir Klasör Adıdır.mIRC Scriptinize goe Adında Bir Klasör Açıp Kaydederek Yükleyiniz.Tabi Siz Farklı Ad İstiyorsanız goe Adının Mavi Renkle Belli Olan Yerlerdeki İsimleri Değiştirerek Kendi İstemiş Olduğunuz Bir Adıda Yazabilirsiniz goe olmamışda dosyam olmuş buna dikkat ediniz.

Evet Arkadaşlar Dikkat Edilmesi Gerekilen Yeşil Renk iLe Codede Belirtdiğim mdx.dll ve mDC.dll dosyalarıdır.Bu Dosyalarıda mIRC SCRİPT Klasörüne Kayıt Eddiğiniz Klasörün İçine Atacaksınız.

Yapılması Gerekilen Turuncu Renk İle Belirttiğim ident.txt ve motd.txt metin belgeleridir bunlarıda scriptin içine doğrudan kaydedip yüklüyoruz.

icon hakkında birşeyler soracak olacaksanızda burdan hemen bunuda anlatayım ben tek icon kullandım eğer siz farklı farklı iconlar kullanmak istiyorsanız öncelikle bu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beğendiğiniz iconları indirin.
e3.ico Yazan Yerlere Eklemek İstediğiniz İconların Adını Yazınız Yok Yine Tek İcon Olsun Benim İstediğim İcon Olsun Diyorsanız Şayet Yine Aynı Şeyi Yapacaksınız İconun Adını Yazacaksanız.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;-----
;;;;Motd PaneL Diyalog Sistemi v1
;;;;-----
;;;;m12IRC1Scripting - 5IRC 4CR 10C2o12d1eman 7==> 1By 10Goemon
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
menu channel,query,status { 
  iDent,Motd/Ekle/Sil Diyalogu:/motdpanelaç
}
alias mdx { return $dll(goe\mdx.dll,$1,$2-) }
alias mdcx { return $dll(goe\mdc.dll,$1,$2-) }
alias motdpanelaç { if $dialog(motdgoe) { !echo -a 2Motd PaneL Dialog'u Zaten 4AÇIK! } | else { !dialog -m motdgoe motdgoe } }
dialog motdgoe {
  title "Motd Ekleme // ident Ekleme/Silme/Listeleme // Web ident Ekleme/Silme // By Goemon"
  size -1 -1 468 186
  option dbu
  box "iDent EkLe", 1, 3 4 63 147
  edit "", 2, 6 14 58 13
  list 4, 5 44 58 81, size vsbar
  text "Not: ident Listesi Silmek   İçin İdentin Üstüne İki     Defa Tıklayın By Goemon", 5, 5 128 60 19
  box "Motd PaneL Statüs Listesi", 7, 70 4 288 147
  list 8, 73 14 281 111, size vsbar
  text "Motd PaneL Statüs Listesi By Goemon", 30, 75 158 277 18
  box "Bilgiler", 13, 360 4 105 147
}

on *:dialog:motdgoe:init:*: {
  dialog -s $dname -1 -1 137 371
  if $isfile(ident.txt) { loadbuf -o $dname 4 ident.txt }
  if $isfile(motd.txt) { loadbuf -o $dname 8 motd.txt }
  mdcx BitBtn Create $dname 3 11 57 116 27 > ident Ekle
  mdcx BitBtn Icon 3 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 3 left
  mdcx BitBtn Color 3 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 3 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 3 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 6 5 305 126 30 > ident.txt Aç
  mdcx BitBtn Icon 6 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 6 left
  mdcx BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 6 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 9 156 260 126 30 > Motd Ekle.
  mdcx BitBtn Icon 9 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 9 left
  mdcx BitBtn Color 9 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 9 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 9 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 10 293 260 126 30 > Motd YeniLe
  mdcx BitBtn Icon 10 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 10 left
  mdcx BitBtn Color 10 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 10 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 10 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 11 427 260 126 30 > Motd List
  mdcx BitBtn Icon 11 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 11 left
  mdcx BitBtn Color 11 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 11 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 11 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 12 562 260 126 30 > Motd.txt Aç
  mdcx BitBtn Icon 12 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 12 left
  mdcx BitBtn Color 12 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 12 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 12 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 14 725 28 200 30 > Z-Default Panel AUTO ON/OF
  mdcx BitBtn Icon 14 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 14 left
  mdcx BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 14 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 15 725 60 200 30 > Z-Default Panel Bilgilendirme
  mdcx BitBtn Icon 15 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 15 left
  mdcx BitBtn Color 15 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 15 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 15 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 16 725 92 200 30 > Z-Default mIRC ident Ekleyin
  mdcx BitBtn Icon 16 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 16 left
  mdcx BitBtn Color 16 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 16 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 16 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 17 725 124 200 30 > Z-Default mIRC ident Siliniz..
  mdcx BitBtn Icon 17 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 17 left
  mdcx BitBtn Color 17 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 17 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 17 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 18 725 156 200 30 > Z-Default mIRC ident Bilgisi..
  mdcx BitBtn Icon 18 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 18 left
  mdcx BitBtn Color 18 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 18 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 18 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 19 725 188 200 30 > Z-Default Web ident Ekleyin
  mdcx BitBtn Icon 19 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 19 left
  mdcx BitBtn Color 19 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 19 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 19 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 20 725 220 200 30 > Z-Default Web ident Siliniz.
  mdcx BitBtn Icon 20 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 20 left
  mdcx BitBtn Color 20 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 20 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 20 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 21 6 338 126 30 > Motd PaneL
  mdcx BitBtn Icon 21 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 21 left
  mdcx BitBtn Color 21 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 21 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 21 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 22 725 253 200 45 > Ana Sayfa Geri Dön 
  mdcx BitBtn Icon 22 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 22 top
  mdcx BitBtn Color 22 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(19,232,55) $rgb(122,233,20) 
  mdcx BitBtn downcolor 22 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(19,232,55) $rgb(2,0,0)
  mdcx BitBtn Font 22 $rgb(0,0,0) 8  +b > Tahoma
  mdcx BitBtn Create $dname 23 725 307 200 60 > Tamam/KapaT
  mdcx BitBtn Icon 23 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 23 top
  mdcx BitBtn Color 23 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(255,0,0) $rgb(122,233,20) 
  mdcx BitBtn downcolor 23 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(255,0,0) $rgb(2,0,0)
  mdcx BitBtn Font 23 $rgb(0,0,0) 8  +b > Tahoma
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(48,213,255) 
  mdx SetColor $dname 5,30 textbg $rgb(48,213,255)
  mdx SetColor $dname 1,7,13 background $rgb(48,213,255)
  mdx SetColor $dname 30 text $rgb(255,255,0)
  mdx SetFont $dname 30 35 700 Tahoma
}

on *:signal:mdc: {
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 3) { ident1ekle }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 6) { run $mircdirident.txt }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 9) { motdekle }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 10) { yen1l3motd }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 11) { enable #motdlist | .motd | echo -a 2Motd Listesi Başarıyla 3Tamamlandı... | .timer 1 1 /disable #motdlist }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 12) { run $mircdirmotd.txt }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 14) { zdefa }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 15) { zbilgi }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 16) { 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 }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 17) { set %mIRCidentsil $$?="mIRC Email iDent Adını Yazarak Silebilirsiniz.Örn: mIRC Gibi" | enable #identsilindi | .as client %mIRCidentsil del | .timer 1 1 /disable #identsilindi }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 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 }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 19) { enable #webident | set %mIRCwebident $$?="mIRC Web iRC Girişi Eklemek için İdent Adını Yazınız.Örn: mircscripting@* Gibi" | .as client z-default mask add %mIRCwebident | .timer 1 1 /disable #webident }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 20) { enable #webident | set %mIRCwebidentsil $$?="mIRC Web iRC Girişi İdent Adını Yazarak Silebilirsiniz.Örn: mircscripting@* Gibi" | .as client z-default mask del %mIRCwebidentsil | .timer 1 1 /disable #webident }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 21) { ilerigit }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 22) { gerigel }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 23) { .timer 1 0 dialog -x motdgoe motdgoe }
}

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(motdgoe,4).lines
  while %id_ <= %idt_ { 
    echo -a 4 $did(motdgoe,4,%id_).text 12Identine Motd Eklendi..
    inc %id_
  }
}

alias ident1ekle {
  var %d1 $did(motdgoe,2).text | $iif(!$read(ident.txt,w,%d1), write ident.txt %d1, halt) | did -a motdgoe 4 $$did(motdgoe,2).text | did -r motdgoe 2
}

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

alias yen1l3motd {
  if $isfile(motd.txt) { did -r motdgoe 8 | loadbuf -o motdgoe 8 motd.txt 
  } 
}

alias -l ilerigit { dialog -s motdgoe -1 -1 936 370 }
alias -l gerigel { dialog -s motdgoe -1 -1 138 370 }

alias zbilgi { 
  if (2 // %trm) { noop $input(En Son Z-Default Şifresi Kaldırı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] }
}

#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

#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 1 %mIRClist $+ @  7Adında 10Sunucuda Açılmış 2Böle Bir ident yok! }
}
#identbilgi end

#webident off
on *:snotice:*: {
  if (*Success -- Mask added* iswm $1-) { 
    echo -a 7----------------------------------------
    echo -a 4 %mIRCwebident 2identi 1Z-Default 2PaneL identine Başarıyla 3Eklenmiştir.
  }
  if (*Success -- Mask deleted* iswm $1-) { 
    echo -a 7----------------------------------------
    echo -a 4 %mIRCwebidentsil 2identi 1Z-Default 2PaneL identinden Başarıyla 4Silinmiştir.
  }
}
#webident end

#motdlist off
raw 372:*:{ if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List)) { window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List }
  echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List 4 $date 10 $1 2 $2-
  halt 
} 
#motdlist end
;;;;;;;;;;;;;;;;;;Motd PaneL Listesi Son;;;;;;;;;;;;;;;;;

HeRCai · 29 Mart 2020, 15:08

vay be kaç yıl geçti aradan unutmuşum artık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ConferenceRoom Motd List Komutu ve Kodu	Goemon	Conference Room (CR)	1	22 Kasım 2015 14:12

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.