Variables'te Düzenleme.. Yapilabilirmi? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Coldman · 14 Ekim 2011, 23:20

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

evet Coder Arkadaşlar sizden bir ricam var, üste verdiğim fotoda belirtiğim gibi VARİABLES'Te $Time $date $network 'un görünmesiin istiyorum örnek $time Saat : 22:00 gibi olsun istiyorum.

Birde arkadaşlar diyer bir mircimde Söyle olmasini istiyorum
<Burak> Cem
<04Burak>
<Cem> yayın sendemi
<Cem> abi
<0Can> Evet
<Jack> ehuhe hg

böyle değilde

Böyle İstiyorum

[22:46] <04Cem> SAndor
[22:46] <04~Burak>
[22:46] <04&Cem> yayın sendemi
[22:46] <04&Cem> abi
[22:46] <04~Burakr> Evet
[22:46] <Jack> ehuhe hg

Coldman · 15 Ekim 2011, 14:54

Arkadaşlar birde söyle bir sorunum var yardımcı olurmusunuz teşekkür ediyorum.

* /hmake: 'kufur' Tablosu zaten var (Satır 16, kufur.exe) ( ALDİĞİM HATA )

KODE :

Alıntı:

on *:text:*:#: {
if $istok(%muaf1,#,32) == $true { halt }
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {
if $hfind(kufur,$1-,1,W).data {
if (%kuf1kick == 1) { .kick # $nick 4 %Kufursebeb | ban -u $+ %bantime # $nick 5 }
if {%kuf1kill == 1} { kill $nick 4Küfür Etmeyiniz Kanalda! }
if {%kuf1kline == 1} { kline $nick 4Küfür Etmeyiniz Kanalda! }
inc %istaKufur
inc %istabutun
}
}
}
alias k_start {
hmake $1 $2
hload $1 $+(Remote\Save\,$1,.save)
}
alias kstart {
k_start kufur 1000
}
on *:start: { kstart }

alias kekle {
hadd -m kufur $calc($hget(kufur,0).item + 1) $1-
hsave kufur remote\Save\kufur.save
}

alias yasak { dialog -m yasak yasak }

dialog yasak {
title "Küfür Koruması"
size -1 -1 141 185
option dbu
edit "", 2, 67 62 69 12, multi return
list 1, 5 48 59 132, size
box "", 7, 2 41 137 143
list 3, 74 87 57 9, size
list 4, 74 102 57 9, size
list 5, 72 140 63 8, size
box "", 6, 2 -1 137 43
radio "Kick + Ban", 8, 6 6 88 8
radio "Opersem Kill", 9, 6 18 86 8
radio "Opersem Kline", 10, 6 30 87 8
}

on *:dialog:yasak:sclick:*:{
if ($did = 4) {
hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data
hsave kufur remote\Save\kufur.save
deneme $dname
}
if ($did = 3) { kekle $did($dname,2) | deneme $dname }
if ($did = 5) { .timer 1 0 dialog -x $dname $dname }
if ($did = 8) { if ($did($dname,8).state == 1) { unset %kuf1* | set %kuf1kick 1 } | else { set %kuf1kick 0 } }
if ($did = 9) { if ($did($dname,9).state == 1) { unset %kuf1* | set %kuf1kill 1 } | else { set %kuf1kill 0 } }
if ($did = 10) { if ($did($dname,10).state == 1) { unset %kuf1* | set %kuf1kline 1 } | else { set %kuf1kline 0 } }
}

alias deneme .timer 1 0 .dialog -x $1 $1 | .timer 2 0 .dialog -m $1 $1
on *:dialog:yasak:init:0: {
var %x = 1
while (%x <= $hget(kufur,0).item) {
did -ac yasak 1 $hget(kufur,%x).data
inc %x
}
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetFont 1,2,3,4,5,6,7,8,9,10 -12 700 Tahoma
mdx SetControlMDX $dname 3,4,5 ToolBar flat wrap arrows nodivider list > $bars
mdx SetBorderStyle 3,4,5
did -i $dname 5 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 5 1 bmpsize 16 16
did -i $dname 5 1 setimage icon large remote\dll\Kick.ico
did -a $dname 5 +a 1 Tamam \ Kapat $chr(9) $+ Tamam
did -i $dname 4 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage icon large remote\dll\del.ico
did -a $dname 4 +a 1 Listeden Sil $chr(9) $+ Sil
did -i $dname 3 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 3 1 bmpsize 16 16
did -i $dname 3 1 setimage icon large remote\dll\add.ico
did -a $dname 3 +a 1 Listeye Ekle $chr(9) $+ Ekle
if (%kuf1kick == 1) { did -c $dname 8 }
if (%kuf1kill == 1) { did -c $dname 9 }
if (%kuf1kline == 1) { did -c $dname 10 }
}

Coldman · 16 Ekim 2011, 10:39

kod isteği günceldir,

Alıntı:

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

evet Coder Arkadaşlar sizden bir ricam var, üste verdiğim fotoda belirtiğim gibi VARİABLES'Te $Time $date $network 'un görünmesiin istiyorum örnek $time Saat : 22:00 gibi olsun istiyorum.

Örnek :

Korumalar V3 korumalarini ekledim kick ban sebepleri hoşuma gitmedi değiştirdim bende
sıkıntı oldu VARİABLES'de
*** #CoLdmAn Kanalından CoLdmAn Tarafından Atıldınız ( Tarih: $date Saat: $time [ $Chan ] KanaLına; $network Sunucunda, Kanalda Renk'li Yazı Yazmak Yasaktır! [ X & CoLdmAn Script Technology ]

*** #CoLdmAn Kanalından CoLdmAn Tarafından Atıldınız ( Tarih: 14.10.2011 Saat: 22:22 [ #irckaynak ] KanaLına; İRCkaynak.com Sunucunda, Kanalda Renk'li Yazı Yazmak Yasaktır! [ X & CoLdmAn Script Technology ]
Bu sekilde olmaliydi, umarim daha aciklayici olmuştur.

Narsinha · 16 Ekim 2011, 13:05

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Yukardaki gibi [HH:nn:ss] yaparsan Saat:dakika:sn olarak görürsün
[HH:nn] Saat:dakika
Timestamp events işaretlemeyi unutma

Korumalar v.3 sorununu da

on *:start: {
set %seul $date
}

gibi on start eventine $dateyi mirc açılışta setlettir ceza sebeplerine $date yerine %seul yaz diğerlerinide alt alt alta setlettir farklı şeylere sorunun çözülür.

Coldman · 16 Ekim 2011, 18:42

Biri oldu diyer iolmadi özel mesaj attim. bilgine

Rohit · 16 Ekim 2011, 18:47

diger istedigin, nedir?

Coldman · 16 Ekim 2011, 18:58

[Rohit] Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

diger istedigin, nedir?

evet Coder Arkadaşlar sizden bir ricam var, üste verdiğim fotoda belirtiğim gibi VARİABLES'Te $Time $date $network 'un görünmesiin istiyorum örnek $time Saat : 22:00 gibi olsun istiyorum.

Örnek :

Korumalar V3 korumalarini ekledim kick ban sebepleri hoşuma gitmedi değiştirdim bende
sıkıntı oldu VARİABLES'de
*** #CoLdmAn Kanalından CoLdmAn Tarafından Atıldınız ( Tarih: $date Saat: $time [ $Chan ] KanaLına; $network Sunucunda, Kanalda Renk'li Yazı Yazmak Yasaktır! [ X & CoLdmAn Script Technology ]

*** #CoLdmAn Kanalından CoLdmAn Tarafından Atıldınız ( Tarih: 14.10.2011 Saat: 22:22 [ #irckaynak ] KanaLına; İRCkaynak.com Sunucunda, Kanalda Renk'li Yazı Yazmak Yasaktır! [ X & CoLdmAn Script Technology ]
Bu sekilde olmaliydi, umarim daha aciklayici olmuştur.

Coldman · 16 Ekim 2011, 19:11

birde bu var.

rkadaşlar birde söyle bir sorunum var yardımcı olurmusunuz teşekkür ediyorum.

* /hmake: 'kufur' Tablosu zaten var (Satır 16, kufur.exe) ( ALDİĞİM HATA )

KODE :
Alıntı:
on *:text:*:#: {
if $istok(%muaf1,#,32) == $true { halt }
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {
if $hfind(kufur,$1-,1,W).data {
if (%kuf1kick == 1) { .kick # $nick 4 %Kufursebeb | ban -u $+ %bantime # $nick 5 }
if {%kuf1kill == 1} { kill $nick 4Küfür Etmeyiniz Kanalda! }
if {%kuf1kline == 1} { kline $nick 4Küfür Etmeyiniz Kanalda! }
inc %istaKufur
inc %istabutun
}
}
}
alias k_start {
hmake $1 $2
hload $1 $+(Remote\Save\,$1,.save)
}
alias kstart {
k_start kufur 1000
}
on *:start: { kstart }

alias kekle {
hadd -m kufur $calc($hget(kufur,0).item + 1) $1-
hsave kufur remote\Save\kufur.save
}

alias yasak { dialog -m yasak yasak }

dialog yasak {
title "Küfür Koruması"
size -1 -1 141 185
option dbu
edit "", 2, 67 62 69 12, multi return
list 1, 5 48 59 132, size
box "", 7, 2 41 137 143
list 3, 74 87 57 9, size
list 4, 74 102 57 9, size
list 5, 72 140 63 8, size
box "", 6, 2 -1 137 43
radio "Kick + Ban", 8, 6 6 88 8
radio "Opersem Kill", 9, 6 18 86 8
radio "Opersem Kline", 10, 6 30 87 8
}

on *:dialog:yasak:sclick:*:{
if ($did = 4) {
hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data
hsave kufur remote\Save\kufur.save
deneme $dname
}
if ($did = 3) { kekle $did($dname,2) | deneme $dname }
if ($did = 5) { .timer 1 0 dialog -x $dname $dname }
if ($did = 8) { if ($did($dname,8).state == 1) { unset %kuf1* | set %kuf1kick 1 } | else { set %kuf1kick 0 } }
if ($did = 9) { if ($did($dname,9).state == 1) { unset %kuf1* | set %kuf1kill 1 } | else { set %kuf1kill 0 } }
if ($did = 10) { if ($did($dname,10).state == 1) { unset %kuf1* | set %kuf1kline 1 } | else { set %kuf1kline 0 } }
}

alias deneme .timer 1 0 .dialog -x $1 $1 | .timer 2 0 .dialog -m $1 $1
on *:dialog:yasak:init:0: {
var %x = 1
while (%x <= $hget(kufur,0).item) {
did -ac yasak 1 $hget(kufur,%x).data
inc %x
}
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetFont 1,2,3,4,5,6,7,8,9,10 -12 700 Tahoma
mdx SetControlMDX $dname 3,4,5 ToolBar flat wrap arrows nodivider list > $bars
mdx SetBorderStyle 3,4,5
did -i $dname 5 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 5 1 bmpsize 16 16
did -i $dname 5 1 setimage icon large remote\dll\Kick.ico
did -a $dname 5 +a 1 Tamam \ Kapat $chr(9) $+ Tamam
did -i $dname 4 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage icon large remote\dll\del.ico
did -a $dname 4 +a 1 Listeden Sil $chr(9) $+ Sil
did -i $dname 3 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 3 1 bmpsize 16 16
did -i $dname 3 1 setimage icon large remote\dll\add.ico
did -a $dname 3 +a 1 Listeye Ekle $chr(9) $+ Ekle
if (%kuf1kick == 1) { did -c $dname 8 }
if (%kuf1kill == 1) { did -c $dname 9 }
if (%kuf1kline == 1) { did -c $dname 10 }
}

Narsinha · 18 Ekim 2011, 02:33

alias k_start {
hmake $1 $2
hload $1 $+(Remote\Save\,$1,.save)
}

olan yeri

alias k_start {
if !$hget($1) {
hmake $1 $2
hload $1 $+(Remote\Save\,$1,.save)
}
}

ile değiştir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Variables ($var)	Ezgi	mIRC Scripting Dersleri	0	28 Haziran 2012 16:43
C# Global Variables	Sunay	C#	0	24 Nisan 2010 01:54
C# Variables Değişkenler	Sunay	C#	0	24 Nisan 2010 01:49
Bu şekilde Bot yapilabilirmi	GhostLy	Eggdrop, NeoStats, BNC	9	20 Aralık 2007 23:01
variables random	codcu	mIRC Scripting Sorunları	3	24 Mayıs 2006 23:14

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.