|
Mylife Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |
Çan sıkıntısı üzerine hazırladığım eğlenceli bir çalışma geliştirilebilir.
[CODE] Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#: {
if ($regex($1,/^[.!](basla)$/Si)) {
msg # Sayısal loto başlıyor.
msg # 6 adet numara girin (1'den 49'a kadar)
msg # Örnek kullanım; !loto 11 23 33 41 23 07
}
if ($regex($1,/^[.!](loto)$/Si)) {
if ($2 !isnum) { msg # Hatalı kullanım. }
else {
write loto.txt $2- $nick
msg # Kayıt edildi.
msg # Başka tahmin yoksa, ( .kazanan )
}
}
if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) {
var %:loto $rand(1,49)
var %:loto2 $rand(1,49)
var %:loto3 $rand(1,49)
var %:loto4 $rand(1,49)
var %:loto5 $rand(1,49)
var %:loto6 $rand(1,49)
timer 1 0 msg # Lütfen bekleyin...
timer 1 1 msg # 5
timer 1 2 msg # 4
timer 1 3 msg # 3
timer 1 4 msg # 2
timer 1 5 msg # 1
.timer 1 6 msg # Kazanan numaralar: %:loto %:loto2 %:loto3 %:loto4 %:loto5 %:loto6
.timer 1 8 msg # Tahminde bulunanlar;
var %:Mylife 1
while %:Mylife <= $lines(loto.txt) {
.timer 1 10 msg # $read(loto.txt,%:Mylife)
inc %:Mylife
}
}
.timer 1 15 .remove loto.txt
} - Bota eklenmelidir kendinize eklerseniz çalışmicaktır.
- .kazanan komutunu uygulamak için kanalda @(OP) veya halfop(%) olmalısınız.
- Birden fazla tahminde bulunmamalısınız.
- İstek/Öneri lerinizi başlık altında yapabilirsiniz. (Konu ile alakalı)
- İyi eğlenceler, bol şans ..
Örnek görünüm;
[17:49:00] <Mylife> .basla
[17:49:01] <Mircsystem> Sayısal loto başlıyor.
[17:49:01] <Mircsystem> 6 adet numara girin (1'den 49'a kadar)
[17:49:01] <Mircsystem> Örnek kullanım; !loto 11 23 33 41 23 07
[17:49:10] <Mylife> !loto 12 14 16 18 21 7
[17:49:11] <Mircsystem> Kayıt edildi.
[17:49:11] <Mircsystem> Başka tahmin yoksa, ( .kazanan )
[17:49:17] <Mylife> !loto 32 14 42 18 21 7
[17:49:17] <Mircsystem> Kayıt edildi.
[17:49:17] <Mircsystem> Başka tahmin yoksa, ( .kazanan )
[17:49:22] <Mylife> .kazanan
[17:49:22] <Mircsystem> Lütfen bekleyin...
[17:49:23] <Mircsystem> 5
[17:49:24] <Mircsystem> 4
[17:49:25] <Mircsystem> 3
[17:49:26] <Mircsystem> 2
[17:49:27] <Mircsystem> 1
[17:49:28] <Mircsystem> Kazanan numaralar: 35 19 26 47 37 15
[17:49:30] <Mircsystem> Tahminde bulunanlar;
[17:49:32] <Mircsystem> 32 14 42 18 21 7 Mylife
[17:50:02] * Mylife mod değiştirdi:-o Mylife
[17:50:04] <Mylife> .kazanan
|
Gecmişte yapmış olduğum eğlenceli bir calışma can sıkıntısından biraz eklemeler yaptım.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
if ($regex($1,/^[.!](basla)$/Si)) {
msg # Sayısal loto başlıyor.
msg # 6 adet numara girin (1'den 49'a kadar)
msg # Örnek kullanım; !loto 11 23 33 41 23 07
}
if ($regex($1,/^[.!](loto)$/Si)) {
if ($2 !isnum) || ($regex($2-,/ \S \w /i)) || ($regex($8-,/(\w|\d)/i)) { msg # Hatalı kullanım. | return }
if (!$2) || (!$3) || (!$4) || (!$5) || (!$6) { msg # Hatalı kullanım; 6 adet rakam girmelisiniz. | return }
else {
write loto.txt $2- $nick
msg # Kayıt edildi.
msg # Başka tahmin yoksa, ( .kazanan )
}
}
if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) {
var %:loto $rand(1,49)
var %:loto2 $rand(1,49)
var %:loto3 $rand(1,49)
var %:loto4 $rand(1,49)
var %:loto5 $rand(1,49)
var %:loto6 $rand(1,49)
if !$read(loto.txt,t,1) { msg # herhangi bir tahmin yok ( !basla ) | return }
else {
timer 1 0 msg # Lütfen bekleyin...
timer 1 1 msg # 5
timer 1 2 msg # 4
timer 1 3 msg # 3
timer 1 4 msg # 2
timer 1 5 msg # 1
.timer 1 6 msg # Kazanan numaralar: %:loto %:loto2 %:loto3 %:loto4 %:loto5 %:loto6
.timer 1 8 msg # Tahminde bulunanlar;
var %:Mylife 1
while %:Mylife <= $lines(loto.txt) {
.timer 1 10 msg # $read(loto.txt,%:Mylife)
inc %:Mylife
}
}
.timer 1 15 .remove loto.txt
}
}