| Goemon | 23 Ağustos 2015 09:52 |
CR de RenkLi Nick Addonu
Merhaba SevgiLi mİRCScripting.NET Forum Üyeleri ConferenceRoom Sunucular için hazırlamış olduğum pratik hatda profesyonelce bir code diyebiliriz tabiki çok iyimi tartışılır ama üşenmeden yorulmadan Conferenceroom kullanıcılarımız için renkli nick nasıl yapılır komutu neydi die uğraşmasınlar diye böle bir şey düşündüm her şey ortada farkımız tarzımız dandır.Siz conferenceroom kullanan üyelerimiz için her zaman daha iyisini yapcaz. Codeyi anlatmaya gerek yok resimli hali ile her şey ortada. link i kurup silebiliyorsunuz socketi açıp kapatabiliyorsunuz yetki verip alabiliyorsunuz. Diyalog codesini kullandıkça benim anlatdığımdan da ötesi çıkabilir belki.
Arkadaşlar mIRC Scriptinizin içine linkler adında klasör kaydedip mIRC Scriptinizin içine atmalısınız bu klasör olmadığı sürece düzgün bilgi alamazsınız.
ikinci olarakda mIRC Scriptinizde dll klasöründe mdx.dll si olmalıdır bilginize. Codenin Çalışma Komutu /renkpanel Kod:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;-
;RenkLi Nick Diyalog Panel Sistemi
;-
:ConferenceRoom Sunucular İçin Hazırlandı
;-
;Coded By Goemon
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias renkpanel { if $dialog(rengarenk) { !echo -a 2RenkLi Nick PaneL Dialog'u Zaten 4AÇIK! } | else { !dialog -m rengarenk rengarenk } }
alias goex { return $dll(DLL\mdx.dll,$1,$2-) }
dialog rengarenk {
title "RenkLi Nick Ascii KarakterLeR iLe RenklendiR ve Link Bilgilerini Öğrenebilirsiniz."
size -1 -1 244 187
option dbu
box "Nick Ascii Krakterli Olarak RenklendiR", 1, 3 3 130 50
edit "", 2, 6 12 65 10, autohs
edit "", 3, 6 24 65 10, read center
edit "", 4, 6 36 65 10
box "", 7, 3 53 130 25
box "RenkLi Nick Link Adı AyarLaR Ekle", 10, 3 86 130 99
text "Link Adı ", 11, 6 97 20 6
edit "", 12, 35 96 65 10
text "Şifre Pass", 13, 6 109 24 6
edit "", 14, 35 108 65 10
text "Name Adı", 15, 6 122 23 6
edit "", 16, 35 120 65 10
button "OnayLa", 17, 103 105 27 17
box "RenkLi Nick Link Adı Sil", 18, 5 134 126 22
text "Link SiL ", 19, 7 145 17 6
edit "", 20, 36 143 60 10
button "Link Sil", 21, 98 143 30 10
box "RenkLi Nick Sock System", 22, 135 3 106 75
button "Sockserv Renk Botunu Aktif Ed!! ", 23, 138 15 99 12
button "Sockserv Renk Botunu Deaktif Ed!! ", 24, 138 30 99 12
button "+agcsh Pass VeR", 25, 138 46 50 12
button "-agcsh Pass Al", 26, 138 61 50 12
button "Sockserv List", 27, 191 46 47 12
button "Tamam//KapaT", 28, 191 61 47 12, cancel
list 29, 138 96 100 72, size
box "Link Adı Pass Name Adı Bilgi Alanı", 30, 135 86 106 99
button "YeniLe", 31, 139 171 29 10
button "BilgileR", 32, 170 171 34 10
box "Link Adını Yazarak Link Hakkında Bilgi Alabilirsiniz.", 33, 5 157 126 24
text "Link Adı List ", 34, 7 169 29 6
edit "", 35, 37 167 55 10
button "Bilgi AL", 36, 94 167 34 10
button "Stats C", 37, 207 171 30 10
button "Ascii Nick OluştuR", 5, 73 15 57 12
button "Nicki RenkLendiR", 6, 73 29 57 12
button "Aşşağı İn", 8, 10 61 55 12
button "Yukarı Çık", 9, 70 61 55 12
}
on *:dialog:rengarenk:init:0: {
dialog -s $dname -1 -1 485 160
did -a $dname 2 Buraya Nick Yazınız
did -a $dname 3 Lütfen Birşey Yazmayın
did -a $dname 4 Buraya Bişi Yazma
did -a $dname 12 Link Adını Yazın
did -a $dname 14 Link Şifresini Yaz
did -a $dname 16 Link Name Adı Yaz
goex MarkDialog $dname
goex SetDialog $dname bgcolor $rgb(48,213,255)
goex SetColor $dname 1,3,7,10,18,22,30,33 background $rgb(48,213,255)
goex SetColor $dname 11,13,15,19,34 textbg $rgb(48,213,255)
goex SetColor $dname 2,11,13,15,19,34 text $rgb(255,0,0)
goex SetColor $dname 3 textbg $rgb(48,213,255)
noop $findfile($mircdirlinkler,*.txt,0,did -a rengarenk 29 $nopath($1-))
}
on *:dialog:rengarenk:dclick:29:{
if $did(29).sel {
;did -r $dname 29
loadbuf -ro rengarenk 29 $+(linkler\,$did(29).seltext)
}
}
on *:dialog:rengarenk:sclick:31:{ did -r $dname 29 | noop $findfile($mircdirlinkler,*.txt,0,did -a rengarenk 29 $nopath($1-)) }
on *:dialog:rengarenk:sclick:5:{
set %trans $did(2).text
did -ra rengarenk 2
did -ra rengarenk 4
did -b rengarenk 2
.timer 1 1 did -ra rengarenk 3 Lütfen Bekleyiniz.
.timer 1 2 did -ra rengarenk 3 Lütfen Bekleyiniz..
.timer 1 3 did -ra rengarenk 3 Lütfen Bekleyiniz...
.timer 1 4 did -ra rengarenk 3 Lütfen Bekleyiniz...
.timer 1 5 did -ra rengarenk 3
.timer 1 5 did -ra rengarenk 4 $+ $+(,$r(2,12),$replace(%trans,a,ä,b,ß,c,©,e,è,i,í,j,j,l,£,n,ñ,o,ø,r,®,u,û,y,ÿ))
.timer 1 5 did -ev rengarenk 2
}
on *:dialog:rengarenk:sclick:6: { nickal %trans $did(4).text }
alias nickal { sockwrite -nt renkliyiz svsnick %trans $did(4).text }
;Socket Kısmı
on 1:sockopen:renkliyiz: {
sockwrite -nt $sockname PASS %inpassoutpass
sockwrite -nt $sockname PROTOCTL CBURST
sockwrite -nt $sockname SERVER %linkname 2 : $+ %linkadı
echo -a 5Sockserv ile Bağlantı sağlanmaya Çalışılıyor.
echo -a 5SokcServ e 3Başarıyla Bağlanıldı.
}
on 1:sockread:renkliyiz: {
var %t
sockread %t
tokenize 32 %t
if $1 == PING {
sockwrite -nt $sockname PONG $2-
}
}
on *:dialog:rengarenk:sclick:23: { renkac }
alias renkac { sockopen renkliyiz $server 6667 }
on *:dialog:rengarenk:sclick:24: { renkkapat }
alias renkkapat { sockclose renkliyiz | echo -a 5Sockserv Renkli Nick Sistemi 4KapatılmışdıR.. }
on *:dialog:rengarenk:sclick:27: { socklist }
alias socklist { socklist }
on *:dialog:rengarenk:sclick:25: { pasver }
alias pasver { sockwrite -nt renkliyiz svsmode $$?="Yetki Verilcek Rumuzu Yazın Örn:Goemon Gibi" +osac }
on *:dialog:rengarenk:sclick:26: { pasal }
alias pasal { sockwrite -nt renkliyiz svsmode $$?="Yetkisi Alınacak Rumuzu Yazın Örn:Goemon Gibi" -osach }
on *:dialog:rengarenk:sclick:8: {
geriver
}
on *:dialog:rengarenk:sclick:9: {
ileriver
}
alias -l ileriver {
dialog -s $dname $dialog($dname).x $dialog($dname).y 485 160
}
alias -l geriver {
dialog -s $dname $dialog($dname).x $dialog($dname).y 485 372
}
on *:dialog:rengarenk:sclick:17: {
set %linkadı $did(12).text
set %inpassoutpass $did(14).text
set %linkname $did(16).text
enable #linkekle
/as server $did(12).text add
/as server $did(12).text set inpass $did(14).text
/as server $did(12).text set outpass $did(14).text
;Buraya dikkat buradaki link ismini ve şifresini aşagıdaki verdigimiz kod içersinede girecegiz.
/as server $did(12).text set name $did(16).text
/as server $did(12).text set ping 240
/as server $did(12).text enable
.timer 1 1 /disable #linkekle
echo -s 4Link Adı:10 $did(12).text 4innpass:1 $did(14).text 4outpass:1 $did(14).text 4Link Name : 1 $did(16).text
echo -s 4Başarıyla 2RenkLi Link 5Sockserv 2Komut Sistemi 3Aktif 2EdilmiştiR...
if $isfile(linkler\ $+ $+(%linkadı,.txt)) { write -c $+(linkler\,%linkadı,.txt) | write $+(linkler\,%linkadı,.txt) Link adı: %linkadı $+ $crlf $+ Şifresi: %inpassoutpass $+ $crlf $+ Name Adı: %linkname }
else { write $+(linkler\,%linkadı,.txt) Link adı: %linkadı $+ $crlf $+ Şifresi: %inpassoutpass $+ $crlf $+ Name Adı: %linkname }
did -r $dname 29 | noop $findfile($mircdirlinkler,*.txt,0,did -a rengarenk 29 $nopath($1-))
}
#linkekle off
on *:snotice:*: {
if (*Success -- Server* iswm $1-) && ($5 == disabled) { echo -a 4LinkAdı:2 $4 }
if (*Success -- Receive* iswm $1-) && ($4 == password) { echo -a 4Inpass :2 %inpassoutpass }
if (*Success -- Transmit* iswm $1-) && ($4 == password) { echo -a 4Outpass:2 %inpassoutpass }
if (*Success -- The server name* iswm $1-) && ($9 == been) { echo -a 4Name Adı:2 $12 | echo -a 4Link 3Oluşturuldu... }
}
#linkekle end
on *:dialog:rengarenk:sclick:21: {
did -r $dname 29
enable #linksil
set %lnk.n $did(20).text
/as server $did(20).text del
.timer 1 1 /disable #linksil
.remove $+(linkler\,$did(20).text,.txt)
noop $findfile($mircdirlinkler,*.txt,0,did -a rengarenk 29 $nopath($1-))
}
#linksil off
on *:snotice:*: {
if $regex($1-,/^Success -- Server/i) && ($5 == removed) {
echo -a 4LinkAdı:2 $4 5Silinmiştir. }
elseif $regex($1-,/^Failure -- No such server/i) {
echo -a HATA2 %lnk.n 5 $+ Adında Link Bulunmamaktadır. }
}
#linksil end
on *:dialog:rengarenk:sclick:36: {
set %lb.n $did(35).text
echo -a 4LinkAdı:2 $did(35).text 5 $+ Araştırılıyor.
enable #linkbilgi
as server $did(35).text list
.timer 1 1 /disable #linkbilgi
}
#linkbilgi off
on *:snotice:*: {
if $regex($1-,/^-- server/i) && ($4 == add) {
echo -a 4LinkAdı:2 $3 }
elseif $regex($1-,/^-- server/i) && ($5 == name) {
echo -a 4Server Adı:2 $6 }
elseif $regex($1-,/^-- server/i) && ($5 == port) {
echo -a 4Port:2 $6 }
elseif $regex($1-,/^-- server/i) && ($5 == ping) {
echo -a 4Ping:2 $6 }
elseif $regex($1-,/^-- server/i) && ($5 == inpass) {
echo -a 4Inpass:2 $6 }
elseif $regex($1-,/^-- server/i) && ($5 == outpass) {
echo -a 4Outpass:2 $6 }
elseif $regex($1-,/^-- server/i) && ($4 == enable) {
echo -a 4Server Bilgi:2 $4 }
elseif $regex($1-,/^-- server/i) && ($5 == leaf) {
echo -a 4Server Set:2 $5 }
elseif $regex($1-,/^Failure -- No such server/i) {
echo -a HATA2 %lb.n 5Adında Link Bulunmamaktatır.! }
}
#linkbilgi end
on *:dialog:rengarenk:sclick:37: {
enable #statsc
stats c
.timer 1 1 /disable #statsc
}
#statsc off
raw 213:*: {
echo -a 4Link:2 $+ $gettok($1-,2,42)
halt
}
#statsc end
on *:dialog:rengarenk:sclick:32: { bilgiler }
alias bilgiler {
echo -a 7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
echo -a 7;;;;
echo -a 4Link Adı:10 %linkadı
echo -a 4innpass:1 %inpassoutpass
echo -a 4outpass:1 %inpassoutpass
echo -a 4 Server Adı:2 %linkname
echo -a 7;;;;
echo -a 7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
echo -a 4DİKKAT!
echo -a 1 Orjinali ile oynuyabilmeniz için mırc kodlarından anlamanız lazım.
echo -a 1 Eğer Anlamıyor iseniz Orjinal Kod ile oynamayınız...
echo -a 7;;;;
echo -a 7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
echo -a 7;;;;
echo -a 4Coded 12By 10Goemon
echo -a 7;;;;
echo -a 7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
}
Görüntüler http://i.hizliresim.com/LpZ2bJ.jpg http://i.hizliresim.com/rg6j1B.jpg http://i.hizliresim.com/7o7YDm.jpg Not:Code Bana Ait. |
