mIRC Scripting  


Geri dön   mIRC Scripting > IRCd Sistemleri > ConferenceRoom

ConferenceRoom Conferenceroom hakkında yenilikler, korumalar, sistem sorunları, bilinmeyenler ve niceleri...

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 23 Ağustos 2015, 09:55
Avatar Yok

mS Puan: 311
mS Derece: Goemon MeraklıGoemon MeraklıGoemon MeraklıGoemon Meraklı
 
Üyelik tarihi: 05 Ekim 2012
Mesajlar: 91
Konular: 70
Eklentiler: 0
Alınan Teşekkür: 5
Yapılan Teşekkür: 28
Arrow 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






Not:Code Bana Ait.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
addonu, motd

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
CR de RenkLi Nick Addonu Goemon ConferenceRoom 0 23 Ağustos 2015 09:52
CR iRC Motd Listesi Goemon ConferenceRoom 0 23 Ağustos 2015 09:48
Pc-Win Pc-Kontrol Addonu absolut Showcase - Hazır kodlar 0 15 Temmuz 2009 12:19


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76