Chanserv Paneli
alias cspanel { dialog -m cspanel cspanel }
dialog cspanel {
title ” ChanServ Paneli // By Simedya”
size -1 -1 279 202
option dbu
box “Ana İşlemler”, 1, 2 1 196 24
button “Kanal Kaydet”, 2, 6 9 43 12
button “Kanalı Tanıt”, 3, 52 9 42 12
button “Kaydını Düşür”, 4, 97 9 46 12
combo 5, 206 9 60 100, size drop
box “İşlem Yapılacak Kanal”, 6, 202 1 70 24
button “Kanal İnfo”, 7, 149 9 43 12
box “Access İşlemleri”, 8, 2 27 195 26
button “Access Ekle”, 9, 6 36 42 12
button “Access Sil”, 10, 52 36 42 12
button “Access Listele”, 11, 97 36 47 12
button “Access Count”, 12, 150 36 43 12
box “Akick İşlemleri”, 13, 2 54 195 26
button “Akick Ekle”, 14, 6 63 42 12
button “Akick Sil”, 15, 52 63 42 12
button “Akick Listele”, 16, 97 63 47 12
button “Akick View”, 17, 149 63 43 12
box “Kanal İşlemleri”, 18, 2 81 147 39
button “Founder Değiştir”, 19, 6 90 47 12
button “Açıklama Değiştir”, 20, 6 104 47 12
button “Şifre Değiştir”, 22, 56 90 39 12
button “URL Değiştir”, 23, 56 104 39 12
button “EMAIL Değiştir”, 25, 101 90 43 12
button “Giriş Mesajı”, 26, 101 104 43 12
box “Topic Lock”, 21, 199 27 74 26
button “Aç”, 24, 202 35 28 12
button “Kapa”, 27, 238 35 28 12
box “Keep Topic”, 28, 200 54 74 26
button “Aç”, 29, 202 63 28 12
button “Kapa”, 30, 238 63 28 12
box “Private”, 31, 151 81 46 39
button “Aç”, 32, 155 90 37 12
button “Kapa”, 33, 155 104 37 12
box “Restricted”, 34, 200 81 35 39
button “Aç”, 35, 202 90 28 12
button “Kapa”, 36, 202 104 28 12
box “SecureOps”, 37, 238 81 36 39
button “Aç”, 38, 242 90 28 12
button “Kapa”, 39, 242 105 28 12
box “Levels İşlemleri”, 40, 2 120 275 58
box “AutoProtect”, 41, 4 126 70 24
button “Seviye”, 42, 7 134 29 12
button “İptal Et”, 43, 39 134 29 12
box “AutoOp”, 44, 4 150 70 25
button “Seviye”, 45, 7 157 30 12
button “İptal Et”, 46, 40 157 29 12
box “AutoHalfop”, 47, 77 126 69 24
button “Seviye”, 48, 80 134 29 12
button “İptal Et”, 49, 112 134 29 12
box “AutoVoice”, 50, 77 150 69 25
button “Seviye”, 51, 80 157 30 12
button “İptal Et”, 52, 112 157 29 12
box “Acc-Change”, 53, 149 126 69 24
box “Acc-List”, 54, 149 150 69 25
button “Seviye”, 55, 153 134 29 12
button “İptal Et”, 56, 185 134 29 12
button “Seviye”, 57, 153 157 30 12
button “İptal Et”, 58, 186 157 29 12
box “Akick”, 59, 219 126 55 24
button “Seviye”, 60, 222 134 23 12
button “İptal Et”, 61, 248 134 23 12
box “Set”, 62, 219 150 55 24
button “Seviye”, 63, 222 157 23 12
button “İptal Et”, 64, 248 157 23 12
button “TAMAM/KAPAT”, 65, 222 180 55 20, ok
}on *:dialog:cspanel:*:*: {
if ($devent == init) {
did -a $dname 5 $chan
var %q 1
var %p $chan(0)
while (%q <= %p) {
did -a cspanel 5 $chan(%q)
inc %q
}
}
if ($devent == sclick) {
if ($did == 2) {
cs register $did(5) $?=”Kanal İçin Şifre Giriniz” $?=”Kanal İçin Açıklama Giriniz”
}
if ($did == 3) {
cs identify $did(5) $?=”Kanal Şifresini Girin”
}
if ($did == 4) {
cs drop $did(5)
}
if ($did == 7) {
cs info $did(5)
}
if ($did == 9) {
cs access $did(5) add $?=”Access Eklenecek Nicki Yazın” $?=”Access Seviyesini Yazın”
}
if ($did == 10) {
cs access $did(5) del $?=”Access Silinecek Nicki Yazın”
}
if ($did == 11) {
cs access $did(5) list
}
if ($did == 12) {
cs access $did(5) count
}
if ($did == 14) {
cs akick $did(5) add $?=”Akicke Alınacak Nicki Yazın” $+ !*@* $?=”Akick Sebebi”
}
if ($did == 15) {
cs akick $did(5) del $?=”Akick Silinecek Nicki Yazın” $+ !*@*
}
if ($did == 16) {
cs akick $did(5) list
}
if ($did == 17) {
cs akick $did(5) view
}
if ($did == 19) {
cs set $did(5) founder $?=”Yeni Founder Nickini Yazın”
}
if ($did == 20) {
cs set $did(5) desc $?=”Yeni Açıklama Girin”
}
if ($did == 22) {
cs set $did(5) password $?=”Yeni Şifreyi Girin”
}
if ($did == 23) {
cs set $did(5) url http:// $+ $?=”Yeni URL Adresi Girin”
}
if ($did == 24) {
cs set $did(5) topiclock on
}
if ($did == 25) {
cs set $did(5) email $?=”Yeni EMAIL Adresi Girin”
}
if ($did == 26) {
cs set $did(5) entrymsg $?=”Yeni Giriş Mesajını Yazın”
}
if ($did == 27) {
cs set $did(5) topiclock off
}
if ($did == 29) {
cs set $did(5) keeptopic on
}
if ($did == 30) {
cs set $did(5) keeptopic off
}
if ($did == 32) {
cs set $did(5) private on
}
if ($did == 33) {
cs set $did(5) private off
}
if ($did == 35) {
cs set $did(5) restricted on
}
if ($did == 36) {
cs set $did(5) restricted off
}
if ($did == 38) {
cs set $did(5) secureops on
}
if ($did == 39) {
cs set $did(5) secureops off
}
if ($did == 42) {
cs levels $did(5) set autoprotect $?=”Seviye Girin”
}
if ($did == 43) {
cs levels $did(5) dis autoprotect
}
if ($did == 45) {
cs levels $did(5) set autoop $?=”Seviye Girin”
}
if ($did == 46) {
cs levels $did(5) dis autoop
}
if ($did == 48) {
cs levels $did(5) set autohalfop $?=”Seviye Girin”
}
if ($did == 49) {
cs levels $did(5) dis autohalfop
}
if ($did == 51) {
cs levels $did(5) set autovoice $?=”Seviye Girin”
}
if ($did == 52) {
cs levels $did(5) dis autovoice
}
if ($did == 55) {
cs levels $did(5) set acc-change $?=”Seviye Girin”
}
if ($did == 56) {
cs levels $did(5) dis acc-change
}
if ($did == 57) {
cs levels $did(5) set acc-list $?=”Seviye Girin”
}
if ($did == 58) {
cs levels $did(5) dis acc-list
}
if ($did == 60) {
cs levels $did(5) set akick $?=”Seviye Girin”
}
if ($did == 61) {
cs levels $did(5) dis akick
}
if ($did == 63) {
cs levels $did(5) set set $?=”Seviye Girin”
}
if ($did == 64) {
cs levels $did(5) dis set
}
}
}
Remotenize Ekledikten Sonra /cspanel Yazarak Panele UlaşabilirsinizAlıntıdır
Memoserv Paneli
alias memoservx {
if !$dialog(memoservx) { /dialog -m memoservx memoservx }
else { return }
}
dialog memoservx {
title “Dost Script v5 – MemoServ Paneli”
size 240 228 280 142
button “Memo Gönder”, 1, 13 18 105 23,flat
box “Memo Oku:”, 2, 134 3 140 99,flat
button “Memo 1″, 31, 140 21 53 20,flat
button “Memo 4″, 34, 211 21 53 20,flat
button “Memo 2″, 32, 140 46 53 20,flat
button “Diğer”, 6, 211 71 53 20,flat
button “Memo 3″, 33, 140 71 53 20,flat
button “Son”, 8, 211 46 53 20,flat
button “Memo Sil”, 9, 13 46 105 23,flat
button “Tümünü Sil”, 11, 13 75 105 23,flat
button “Memo List”, 12, 12 104 105 23,flat
box “”, 13, 5 2 122 133
button “Tamam”, 14, 137 111 65 22,ok flat default
button “İptal”, 15, 208 111 65 22, cancel flat
}
on 1:dialog:memoservx:sclick:*:{
if $did == 1 { if $dialog(memo1) == $null { dialog -ma memo1 memo1 }
}
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did – 30) }
if $did == 15 { halt }
if $did == 12 {
}
if $did == 12 { %msg memoserv list }
if $did == 11 { %msg memoserv del all }
if $did == 9 { If $dialog(memo2) == $null {
%memo.t = Memo Sil
%memo.b = Sil
%memo.c = del
dialog -ma memo2 memo2 } }
if $did == 6 { If $dialog(memo2) == $null {
%memo.t = Memo Oku
%memo.b = Oku
%memo.c = read
dialog -ma memo2 memo2 } }
}
dialog memo1 {
title “Memo Gönder”
size 307 197 233 170
button “Gönder”, 1, 36 146 75 20, ok flat
text “Nick:”, 2, 15 7 26 13
edit “”, 3, 47 5 175 19, autohs
text “Memo:”, 4, 6 31 36 16, right
edit “”, 5, 48 29 174 99, multi, return, vsbar
box “”, 8, 6 129 221 11
button “Vazgeç”, 9, 119 146 75 20,cancel flat
}
on 1:dialog:memo1:sclick:1:{
if $did(3) == $null { %erromsg = Yanlış Deneme | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = Yanlış Deneme | dialog -ma erro erro | halt }
var %tmp = 1
var %tmp2 = $did(5).lines
var %memo = “”
while (%tmp <= %tmp2) {
%memo = %memo $chr(32) $+ $did(5,%tmp)
inc %tmp
}
%msg memoserv send $did(3) %memo
unset %memo.*
}
dialog memo2 {
title %memo.t
size 307 197 175 74
button %memo.b, 1, 13 48 68 20,ok flat
text “Mesaj No:”, 2, 22 9 87 13
edit “”, 3, 113 5 35 21, autohs
box “”, 8, 4 29 165 11
button “Vazgeç”, 9, 92 48 67 20,cancel flat
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
}
dialog erro {
title “Dikkat! HATA Oluştu”
size 238 164 220 90
text %erromsg, 2, 60 19 145 18, center
box “”, 3, 12 46 196 10
button “Tamam”, 4, 72 62 75 22, ok flat
}
dialog chan3 {
title %chan.t
size 290 181 229 101
button %chan.b, 1, 34 73 75 20,ok flat
text “Kanal:”, 2, 29 11 31 13
edit “”, 3, 65 7 148 19, autohs
text “Sifre:”, 4, 26 31 35 14
edit “”, 5, 65 29 148 19, autohs
box “”, 8, 7 55 217 11
button “Vazgeç”, 9, 123 72 75 20,cancel flat
}
dialog chan4 {
title %chan.t
size 290 181 228 75
button %chan.b, 1, 34 48 75 20,ok flat
text “Kanal:”, 2, 29 11 31 13
edit “”, 3, 65 7 148 19, autohs
box “”, 8, 5 29 217 11
button “Vazgeç”, 9, 124 48 75 20,cancel flat
}
dialog chan5 {
title %chan.t
size 290 181 229 101
button %chan.b, 1, 34 73 75 20,ok flat
text “Kanal:”, 2, 29 11 31 13
edit “”, 3, 65 7 148 19, autohs
text “Nick:”, 4, 33 31 26 14
edit “”, 5, 65 29 148 19, autohs
box “”, 8, 7 55 217 11
button “Vazgeç”, 9, 123 72 75 20,cancel flat
}
dialog chan6 {
title “Access Ekle”
size 290 181 232 117
button “Ekle”, 1, 36 92 75 20,ok flat
text “Kanal:”, 2, 29 11 31 13
edit “”, 3, 65 7 148 19, autohs
text “Nick:”, 4, 33 31 26 14
edit “”, 5, 65 29 148 19, autohs
text “Level:”, 6, 30 54 30 14
edit “”, 7, 65 52 32 19
box “”, 8, 8 75 217 11
button “Vazgeç”, 9, 122 92 75 20,cancel flat
}
dialog chan7 {
title %chan.t
size 290 181 229 101
button %chan.b, 1, 34 73 75 20,ok flat
text “Kanal:”, 2, 29 11 31 13
edit “”, 3, 65 7 148 19, autohs
text “Nick:”, 4, 33 31 26 14
edit “”, 5, 65 29 148 19, autohs
box “”, 8, 7 55 217 11
button “Vazgeç”, 9, 123 72 75 20,cancel flat
}
dialog chan8 {
title %chan.t
size 290 181 232 117
button %chan.b, 1, 36 92 75 20,ok flat
text “Kanal:”, 2, 36 11 31 13
edit “”, 3, 72 7 148 19, autohs
text “Nick/Host->>:”, 4, 2 31 67 15
edit “”, 5, 72 29 148 19, autohs
text “Sebeb:”, 6, 32 54 35 14
edit “”, 7, 73 53 145 19, autohs
box “”, 8, 6 75 217 11
button “Vazgeç”, 9, 122 92 75 20,cancel flat
}
dialog chan9 {
title %chan.t
size 290 181 243 96
button %chan.b, 1, 41 69 75 20,ok flat
text “Kanal:”, 2, 6 8 77 14,right
edit “”, 3, 87 6 148 19, autohs
text %chan.e, 4, 6 31 77 16, right
edit “”, 5, 87 29 148 19, autohs
box “”, 8, 5 51 231 11
button “Vazgeç”, 9, 126 68 75 20,cancel flat
}
dialog chan31 {
title %chan.t
size 290 181 243 96
button %chan.b, 1, 41 69 75 20,ok flat
text “Kanal:”, 2, 6 8 77 14,right
edit “”, 3, 87 6 148 19, autohs
text %chan.e, 4, 6 31 77 16, right
edit “”, 5, 87 29 148 19, autohs
box “”, 8, 5 51 231 11
button “Vazgeç”, 9, 126 68 75 20,cancel flat
}
dialog nick4 {
title %nick.t
size 290 181 229 101
button %nick.b, 1, 34 73 75 20,ok flat
text “Sifre:”, 2, 33 11 31 13
edit “”, 3, 65 7 148 19, autohs
text “e-mail:”, 4, 28 31 34 14,left
edit “”, 5, 65 29 148 19, autohs
box “”, 8, 7 55 217 11
button “Vazgeç”, 9, 123 72 75 20,cancel flat
}
on 1:dialog:nick4:sclick:1:{
if $did(3) == $null { %erromsg = Sifre Bos Birakilmis | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = e-mail Bos Birakilmis | dialog -ma erro erro | halt }
%msg nickserv %nick.c $did(3) $did(5)
unset %nick.*
}
on 1:dialog:chan31:init:0:{
did -a chan31 3 %chana
}Remotenize Ekledikten Sonra /memoservx memoservx Panele Ulaşabilirsiniz
Alıntıdır
Botserv Paneli
dialog Services {
title “Services Bot Menü”
size -1 -1 139 116
option dbu
button “Kanala Sok”, 1, 8 64 50 12
button “Bot nick değiş”, 2, 8 32 50 12
button “Konuştur”, 3, 8 80 50 12
button “Bot Yap”, 4, 8 16 50 12
button “Komut uygulat”, 5, 8 48 50 12
text “serci”, 6, 107 102 28 10
}
on *:dialog:Services:sclick:4:{
MSG OperServ RAW NICK $$?=”Nick:” 1 1 username $$?=”username:” services.sohbetstar.com $+(:,$$?=”name:”)
}
on *:dialog:Services:sclick:1:{
MSG OperServ RAW $+(:,$$?=”nick:”) JOIN $$?=”kanal”
}
on *:dialog:Services:sclick:3:{
msg operserv raw $+(:,$$?=”Bot nick:”) privmsg $$?=”kanal” $$?=”msg”
}
on *:dialog:Services:sclick:2:{
OperServ raw $+(:,$$?=”Bot nicki:”) nick $$?=”Yeni nick”
}
on *:dialog:Services:sclick:5:{
msg operserv raw $+(:,$$?=”Bot nick:”) mode $$?=”kanal:” $$?=”mode:” $$?=”nick:”
}
menu * {
Bot yap:/dialog -m services services
}Remoteyi Ekledikten Sonra /services services Yazarak Panele Ulaşabilirsiniz
Alıntıdır
Admin Paneli
alias kralaz { dialog -m kralaz kralaz }
dialog kralaz {
title “Operserv | H-Net”
size -1 -1 250 263
box “Operserv serci” 1, 5 0 240 240
button “Nick Şifresi Öğren” 4, 24 20 100 25
button “Kanal Şifresi Öğren” 5, 125 20 100 25
button “Nick Yasakla” 6, 24 50 100 25
button “Kanal Yasakla” 7, 125 50 100 25
button “Nick Dropla” 8, 24 80 100 25
button “Kanal Dropla” 9, 125 80 100 25
button “Kanal Şifre Değiş” 10, 24 110 100 25
button “oper Ekle” 11, 125 110 100 25
button “Suspend ekle” 12, 24 140 100 25
button “Suspend Sil” 13, 125 140 100 25
button “Nickini Değiştir” 14, 24 170 100 25
button “Şifresini Değiştir” 15, 125 170 100 25
button “Auth Kodu Öğren” 16, 24 200 100 25
button “Banları Aç” 17, 125 200 100 25
button “GERİ DÖN” 18, 125 243 100 18
}on 1:dialog:kralaz:sclick:*:{
if ($did == 4) { .ns GETPASS $$?=”Şifresini Öğrenmek İstediğiniz Nick” }
if ($did == 5) { .cs getpass $$?=”Şifresini Öğrenmek Kanal” }
if ($did == 6) { .ns forbid $$?=”Yasaklamak istediğiniz Nick” }
if ($did == 7) { .cs forbid $$?=”Yasaklmak İstediğiniz #Kanal” }
if ($did =={ .ns dropnick $$?=”Yasağını Kaldırmak İstediğiniz Nick” }
if ($did == 9) { .cs drop $$?=”Yasağını Kaldırmak İstediğiniz #kanal” }
if ($did == 10) { .cs set $$?=”kanal:” password $$?*=”şifre:”" }
if ($did == 11) { .os oper add $$?=”IRCop Eklemek İstediğiniz Nick” }
if ($did == 12) { .ns suspend $$?=”Yasaklamak istediğiniz Nick” ss }
if ($did == 13) .ns unsuspend $$?=”Suspend kaldırmak istediğiniz Nick” {
if ($did == 14) { .operserv raw svsnick $$?=”Şuanki Nicki:” $$?=”Yapılacak Nick:” 0:1″ }
if ($did == 15) { .ns set $$?=”nick:” password $$?*=”şifre:”" }
if ($did == 16) { .nickserv getauth $$?=”Öğrenmek İstediğiniz Nick?:” }
if ($did == 17) { .rmtkl * * }
if ($did == 18) { /dialog -x kralaz kralaz }
}Remotenize Ekledikten Sonra /kralaz kralaz Yazarak Panele Ulaşabilirsiniz
Forum Paneli
alias serci { dialog -m serci serci }
dialog serci {
title “SohbetStar.Com”
size -1 -1 250 263
box “serci” 1, 5 0 240 240
button “SohbetStar/forum” 4, 24 20 100 25
button “İRC Forumları” 5, 125 20 100 25
button “Forum.net” 6, 24 50 100 25
button “Forumda.net” 7, 125 50 100 25
button “Sohbet.gen.tr Forum” 8, 24 80 100 25
button “Forum.tr” 9, 125 80 100 25
button “Zurnaalemi Forum” 10, 24 110 100 25
button “Chatmerkezi Forum” 11, 125 110 100 25
button “Trsohbet Forum” 12, 24 140 100 25
button “r10net Forum” 13, 125 140 100 25
button “Mirc Forum” 14, 24 170 100 25
button “Forum irc.org” 15, 125 170 100 25
button “Forum mircturk.com” 16, 24 200 100 25
button “Forumuz.net” 17, 125 200 100 25
button “GERİ DÖN” 18, 125 243 100 18
}on 1:dialog:serci:sclick:*:{
if ($did == 4) { /run http://sohbetstar.com }
if ($did == 5) { /run http://www.ircforumlari.net/ }
if ($did == 6) { /run http://www.ircforum.net/ }
if ($did == 7) { /run http://www.ircforumda.net/ }
if ($did ==
if ($did == 9) { /run http://www.frmtr.com/index.php }
if ($did == 10) { /run http://www.zurnaalemi.net/ }
if ($did == 11) { /run http://chatmerkeziforum.org/ }
if ($did == 12) { /run http://www.forumuz.net/trsohbet-f466.html }
if ($did == 13) { /run http://www.r10.net/index.php }
if ($did == 14) { /run http://www.mircforum.com/ }
if ($did == 15) { /run http://www.forumirc.org/ }
if ($did == 16) { /run http://forum.mircturk.com/ }
if ($did == 17) { /run http://www.forumuz.net/ }
if ($did == 18) { /dialog -x serci serci }
}Remotenize Ekledikten Sonra /serci Yazarak Panele Ulaşabilirsiniz
Sban Ban Açma
dialog SBan {
title “Server Ban Aç”
size -1 -1 79 175
option dbu
button “zLine”, 1, 20 13 37 12
button “gLine”, 2, 20 30 37 12
button “GZLine”, 4, 20 47 37 12
button “Shun”, 5, 20 81 37 12
button “K-Line”, 6, 20 64 37 12
button “Akill”, 15, 20 98 37 12
edit “”, 3, 12 117 56 10
button “RMTKL”, 7, 20 134 37 32
box “Options”, 8, 3 5 73 167
}
alias SBan dialog -m SBan SBan
on 1:dialog:SBan:sclick:*:{
if ($did == 1 ) { .zline -*@ $+ $did(3) }
if ($did == 2 ) { .gline -*@ $+ $did(3) }
if ($did == 4 ) { .gzline -*@ $+ $did(3) }
if ($did == 5 ) { .shun -*@ $+ $did(3) }
if ($did == 6 ) { .kline -*@ $+ $did(3) }
if ($did == 7 ) { .rmtkl * * }
if ($did == 15 ) { .os akill del *@ $+ $did(3) }
}Remotenize Ekledikten Sonra /sban Yazarak Panle Ulaşıp Banları Açabilirsiniz
Alıntıdır
Ame Amsg Engelleme
alias ame {
var %x 1
while %x <= $chan(0) {
if ($istok(#master #operhelp #ops #founders #opers #help,$chan(%x),32) == $false) {
describe $chan(%x) $1-
}
inc %x
}
}alias amsg {
var %x 1
while %x <= $chan(0) {
if ($istok(#master #operhelp #ops #founders #opers #help,$chan(%x),32) == $false) {
msg $chan(%x) $1-
}
inc %x
}
}İstediğiniz Kanallardan Ame Ve Amsg Mesajlarınızı Engeller
Alıntıdır
Whois Bilgi
on *:sockopen:yerelbilgi:{
sockwrite -n $sockname GET /ip_tracer/ $+ %yerelipno HTTP/1.1
sockwrite -n $sockname Host: www.ip-adress.com $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:yerelbilgi:{
if ($sockerr) {
echo 4 -a Veri alımında Hata oluştu. | .timers off | halt
}
else {
var %difi
sockread %difi
if (*</td>* iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
if (*<img src*alt=”ip address flag”>*</td>* iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
}
}
alias bağlan {
sockclose yerelbilgi
sockopen yerelbilgi www.ip-adress.com 80
if !$window(@Whois) {
.timer -h 1 2800 window -adk0 +let @Whois 700 80 260 175 Verdana 12
.timer -h 1 2850 titlebar @Whois yerel bilgiler…
}
else { .timer -h 1 2800 window -a @Whois }
.timer -h 1 2900 aline @Whois 11,1Nick1…11:8 $!eval(%yerelnick,1) 1…………………………………………….
.timer -h 1 2950 aline @Whois 11,1IP no1.11:8 $!eval(%yerelipno,1) 1……………………………………………..
.timer -h 1 3000 aline @Whois 11,1Ülke1……………11:9 $!eval(%yerelulke,1) 1……………………………………..
.timer -h 1 3100 aline @Whois 11,1Bölge1………….11:9 $!token(%yerelbilgi,1,126) 1…………………………………
.timer -h 1 3200 aline @Whois 11,1Şehir1…………..11:9 $!token(%yerelbilgi,2,126) 1………………………………..
.timer -h 1 3300 aline @Whois 11,1Enlem1…………11:9 $!token(%yerelbilgi,3,126) 1………………………………….
.timer -h 1 3400 aline @Whois 11,1Boylam1……….11:9 $!token(%yerelbilgi,4,126) 1…………………………………..
.timer -h 1 3500 aline @Whois 11,1Organizasyon:9 $!token(%yerelbilgi,5,126) 1………………………………………….
.timer -h 1 3600 aline @Whois 11,1Yerel Zaman1..11:9 $!token(%yerelbilgi,7,126) 1……………………………………..
.timer -h 1 3700 aline @Whois 0,1—————-Bilgi Sonu——————-
.timer -h 1 3750 sockclose yerelbilgi
.timer -h 1 4000 unset %yerel*
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:snotice:*whois*on*you*: {
if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
set %yerelipno $remove($token($3,2,64),$chr(41))
set %yerelnick $2
bağlan
echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor…
}
}Size Whois Çekildiğinde Whois Çeken Kişinin Bilgilerini Verir
Alıntıdır
Memo Bilgi Kutusu
dialog ms {
title “MemoServ Bilgi Kutusu”
size -1 -1 220 85
text “*** Yeni bir notunuz var.”,2,10 10 220 200
text “*** Okumak için tamam butonuna basınız.”,3,10 30 220 200
button “&Tamam”,4,70 50 85 25,ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}Size Memo Geldiğinde Sizi Uyaran Remote
Günlük Burç Öğrenme
; » SohbetStar.Com Commands «
dialog astro {
title “SohbetStar.Com Burc Yorumlariniz”
size -1 -1 136 89
icon $shortfn($mircdiricon/burc.ico), 0
option dbu
text “Bir burc seciniz:”, 1, 4 7 37 8
combo 2, 43 4 60 100, size drop
box “”, 3, 1 -2 134 20
button “Oku”, 4, 105 4 26 11, disable
edit “”, 5, 1 28 134 46, read multi vsbar
button “Kapat”, 7, 1 76 134 12, flat cancel
text “”, 8, 2 20 133 8
}
alias yorumcu {
if (!$dialog(astro) == $null) { dialog -x astro astro | dialog -m astro astro }
else { dialog -m astro astro }
}
on *:dialog:astro:init:*: {
did -a $dname 2 Koc
did -a $dname 2 Boga
did -a $dname 2 Ikizler
did -a $dname 2 Yengec
did -a $dname 2 Aslan
did -a $dname 2 Basak
did -a $dname 2 Terazi
did -a $dname 2 Akrep
did -a $dname 2 Yay
did -a $dname 2 Oglak
did -a $dname 2 Kova
did -a $dname 2 Balik
tarih_algila
}
alias -l yorum_algilamayi_baslat {
sockclose astro
sockopen astro muneccim.com 80
}
alias -l tarih_algila {
set %mm $asctime(mm)
if (%mm == 01) { set %ay Ocak } | elseif (%mm == 02) { set %ay Subat } | elseif (%mm == 03) { set %ay Mart } | elseif (%mm == 04) { set %ay Nisan }
elseif (%mm == 05) { set %ay Mayis } | elseif (%mm == 06) { set %ay Haziran } | elseif (%mm == 07) { set %ay Temmuz } | elseif (%mm == 08) { set %ay Agustos }
elseif (%mm == 09) { set %ay Eylul } | elseif (%mm == 10) { set %ay Ekim } | elseif (%mm == 11) { set %ay Kasim } | elseif (%mm == 12) { set %ay Aralik }
}
on *:sockopen:astro: {
if ($sockerr) { sockclose astro | did -ra astro 5 Internet baglantisi bulunamadi… }
else {
did -ra astro 5 Yorum bulunuyor.Lutfen bekleyiniz…
sockwrite -n astro GET /gunluk_fal/bugun.asp?burc= $+ $did(astro,2).sel HTTP/1.1
sockwrite -n astro Host:muneccim.com
sockwrite -n astro $crlf
}
}
on *:sockread:astro: {
if ($sockerr) { sockclose astro | did -ra astro 5 Internet baglantisi bulunamadi… }
else {
sockread %hcomt
if (face=”Arial Narrow” isin %hcomt) {
set %rmv1 $remove(%hcomt,<p><font color=”#000000″ face=”Arial Narrow”><strong><big>)
set %rmv2 $remove(%rmv1,$right(%rmv1,27))
did -ra astro 5 %rmv2
if (%hrsel == 1) { did -ra astro 8 21 Mart – 20 Nisan }
if (%hrsel == 2) { did -ra astro 8 21 Nisan – 21 Mayis }
if (%hrsel == 3) { did -ra astro 8 22 Mayis – 21 Haziran }
if (%hrsel == 4) { did -ra astro 8 22 Haziran – 23 Temmuz }
if (%hrsel == 5) { did -ra astro 8 24 Temmuz – 23 Agustos }
if (%hrsel == 6) { did -ra astro 8 24 Agustos – 23 Eylul }
if (%hrsel == 7) { did -ra astro 8 24 Eylul – 22 Ekim }
if (%hrsel ==
if (%hrsel == 9) { did -ra astro 8 23 Kasim – 22 Aralik }
if (%hrsel == 10) { did -ra astro 8 23 Aralik – 20 Ocak }
if (%hrsel == 11) { did -ra astro 8 21 Ocak – 19 Subat }
if (%hrsel == 12) { did -ra astro 8 20 Subat – 20 Mart }
did -a astro 8 $did(astro,8).text $+ $chr(32) $+ (Bugun: $+ $chr(32) $+ $asctime(dd) $+ $chr(32) $+ %ay $+ $chr(32) $+ $asctime(yyyy) $+ )
sockclose astro
unset %rmv1 %rmv2
}
}
}
on *:dialog:astro:sclick:*: {
if ($did == 2) { did -e $dname 4 | set %hrsel $did(2).sel }
if ($did == 4) { yorum_algilamayi_baslat }
}
on *:load: {
echo 4Gunluk Burc Yorumcusu $+ $color(normal text) $+ addonu yuklendi.
echo Acmak icin 4/yorumcu $+ $color(normal text) $+ yazin.Menubar veya status’den de acabilirsiniz…
}
on *:unload: {
unset %mm %ay
echo 4Gunluk Burc Yorumcusu $+ $color(normal text) $+ addonu kaldirildi.
}Remotenize Ekledikten Sonra /yorumcu Yazarak Burcunucu Görebilirsiniz
Alıntıdır