Tekil Mesaj gösterimi
Alt 17.Ocak.2019   #1
DurumuÇevrimdışı
Seth
Kıdemli Üye
Seth - ait Kullanıcı Resmi (Avatar)
Üye No: 86
Üyelik tarihi: 16.Ocak.2019
Şehir: 34 İstanbul
Mesaj Sayısı: 110
Konu Sayısı: 54
Beğendikleri: 22
Alınan Beğeni: 32
HF Ticaret Sayısı: (0)
HF Ticaret Yüzdesi: (%)
Ruh Hali
Kan Grubum: B RH +

Standart mIRC Anket Kodu ( Bot Için)

merhaba; Kodu çalıştırmak için mirc'e yükleyip, f1 tuşuna basmanız yeterlidir.

Kod:

On *:Join:#: {
if ($nick !== $me) {
if ($chan == %anketkanal) { .msg $nick Anketimize katılmak ister misiniz? | .msg $nick Anketimize katılmak için lütfen !Anket yazınız. | .msg $nick Anket sonuçlarını görmek içinse !Sonuc yazınız. | AnketleriBirArttir }
if ($chan !== %anketkanal) { Halt }
}
}
On *:Text:*:?: {
if ($1 == !Sonuc) { Sonuclar }
if ($1 == !Anket) { Anket }
if ($1 == !Oy) { Set %OyAdresi $address($nick,3) | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }
}
Alias Sonuclar {
if (%sonuc1 !== $null) { .msg $nick 4 %sonuc1 sonucunun aldığı oy sayısı %sonucoy1 }
if (%sonuc2 !== $null) { .msg $nick 2 %sonuc2 2sonucunun aldığı oy sayısı %sonucoy2 }
if (%sonuc3 !== $null) { .msg $nick 4 %sonuc3 2sonucunun aldığı oy sayısı %sonucoy3 }
if (%sonuc4 !== $null) { .msg $nick 2 %sonuc4 2sonucunun aldığı oy sayısı %sonucoy4 }
}
Alias Anket {
.msg $nick Anketimize hoşgeldiniz.
.msg $nick Anket sorumuz şöyledir.
.msg $nick
.msg $nick %anketsoru
.msg $nick
.SonucOzel
}
Alias SonucOzel {
if (%sonuc1 !== $null) { .msg $nick 1) 4 %sonuc1 }
if (%sonuc2 !== $null) { .msg $nick 2) 4 %sonuc2 }
if (%sonuc3 !== $null) { .msg $nick 3) 4 %sonuc3 }
if (%sonuc4 !== $null) { .msg $nick 4) 4 %sonuc4 }
.msg $nick
.msg $nick Anketimize katılmak için lütfen !Oy Seçtiğiniz şıkkın numarası. Örn : !Oy 1
}
Alias Denetleme {
if $read(Liste.txt,w,%OyAdresi) { .msg %Oyveren Üzgünüm, daha önceden oy kullanmışsınız. | halt }
if !$read(Liste.txt,w,%OyAdresi) { .Oylamayap }
}
Alias OylamaYap {
if (%VerdigiOy == $NULL) { .msg %Oyveren Lütfen seçtiğiniz anket cevabının numarasını giriniz. | .msg %Oyveren Örnek : !Oy 2 | halt }
if (%VerdigiOy == 1) { inc %sonucoy1 }
if (%VerdigiOy == 2) { inc %sonucoy2 }
if (%VerdigiOy == 3) { inc %sonucoy3 }
if (%VerdigiOy == 4) { inc %sonucoy4 }
.msg $nick Oyunuz kaydedilmiştir. Oylama yaptığınız anket cevap numarası %VerdigiOy
.write Liste.txt %OyAdresi
.halt
}
Alias AnketleriBirArttir {
inc %ilkanketgiris
if (%ilkanketgiris == 1) {
if (%sonuc1 !== $null) { inc %sonucoy1 }
if (%sonuc2 !== $null) { inc %sonucoy2 }
if (%sonuc3 !== $null) { inc %sonucoy3 }
if (%sonuc4 !== $null) { inc %sonucoy4 }
}
if (%ilkanketgiris !== 1) { return }
}
Alias f1 {
set %anketkanal $$?="Anket kanalını başında # olarak yazınız." | TestKanal
}
Alias TestKanal {
if (%anketkanal == $null) { echo -a Anket sistemi anket kanalı olmadan maalesef çalışmaz. | halt }
if (%anketkanal !== $null) { set %anketsoru $$?"Anketin sorusunu açık bir dille yazınız." | AnketSoruTest }
}
Alias AnketSoruTest {
if (%anketsoru == $Null) { echo -a Sorusuz anket olur mu hiç? :) | echo -a Lütfen ankete soru girin. | halt }
if (%anketsoru !== $null) { Set %sonuc1 $$?="Anket cevap 1 yazınız" | Cevapbirtest }
}
Alias CevapbirTest {
if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc1 !== $null) { set %sonuc2 $$?="Anket cevap 2 yazınız" | Cevapikitest }
}
Alias CevapikiTest {
if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc2 !== $null) { set %sonuc3 $$?="Anket cevap 3 yazınız" | Cevapuctest }
}
Alias CevapucTest {
if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc3 !== $null) { set %sonuc4 $$?="Anket cevap 4 yazınız" | Cevapdorttest }
}
Alias CevapdortTest {
if (%sonuc4 == $null) { halt }
if (%sonuc4 !== $null) { halt }
}






Popüler Olabilirsin Ama Kalite Başka Birşey..
  Alıntı

Seth Üyenin Son 5 Konusu
Baslik Kategori Son Yazan Cevaplar Okunma Son Mesaj
Temel kovboy filmi Günün Fıkrası Seth 0 669 23.Ocak.2019 10:16
Gözünüz aydın olsun Günün Sözü Seth 0 622 23.Ocak.2019 10:13
23 Ocak 2019 Günün Ayet ve Hadisi Günün Hadis-i Seth 0 686 23.Ocak.2019 10:11
Kıskanmak sünnettir İslamda Kadın ve Aile Seth 0 614 22.Ocak.2019 18:54
Kardeş hakkı İslamda Kadın ve Aile Seth 0 547 22.Ocak.2019 18:52