Chat Sohbet Mirc Mirç indir yükle Download BilgiChat.Net

Merhaba arkada?lar. Wordpress\\\'te anket sistemi ararken akl?ma mirc için yap?lm?? anket addonu var m?d?r diye dü?ündüm. Google\\\'da arad?m anket addonu yok, ircforumlari.net adresinde farkl? kelimeler ile arad?m yok.
?u an bu mesaj? yazmadan önce tekrar bir arayay?m dedim ve yine yok...
Kar??n?zda anket addonu.

Kodu çal??t?rmak için mirc\\\'e yükleyip, f1 tu?una basman?z yeterlidir.

Kod:

;Anket Addonu.
;Tüm kodlar kullan?labilir.
;Tek ricam bu addonu kalk?p ba?ka bir nick alt?nda \\"ben yazd?m diye yay?nlamay?n lütfen.
;Güle güle kullan?n.
;Ileti?im MSN : admin@chatix.org

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 }
}

Kaynak: ircDforumlari.net

Tek komutla bir kullanıcıyı onlarca kanala sokmak için gereken addon sajj.

<!– /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:”"; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:”Times New Roman”; mso-fareast-font-family:”Times New Roman”;} @page Section1 {size:595.3pt 841.9pt; margin:70.85pt 70.85pt 70.85pt 70.85pt; mso-header-margin:35.4pt; mso-footer-margin:35.4pt; mso-paper-source:0;} div.Section1 {page:Section1;} –>

Kodu mirc scriptinizin aliases kısmına olduğu gibi ekleyin.

sajj {

var %q = mirc sohbet mırc mırç mirç türkçe sohbet sohpet çet chat çat ses sis bak sen ne yaptın beni kaç kanala soktun yavaş ol script donuyor bu ne ya yüz kanal oldu tamam abi büyüksün sen kralsın kahramansın cartsın curtsun felan filan şeklinde boşluk bırakarak kanal sayısını arttır

var %w = 1

while %w <= $numtok(%q,32) {

sajoin $1 $chr(35) $+ $gettok(%q,%w,32)

inc %w

}

}

Kanal sayısını kendiniz arttırabilirsiniz. Kullanım şekli /sajj nick

Sunucuya girişte otomatik olarak nickinizi, oper şifrenizi, nick şifrenizi ve hostunuzu ayarlamak için gereken addon.

Kodu mirc scriptinizin remote bölümüne ekleyiniz.

on 1:CONNECT: {
.oper nick şifre
.nick nickiniz
.identify şifreniz
.sethost Hostunuz.com
}

Eğer admin veya oper deilseniz operlerle ilgili olan diyalog kısmını çıkarabilirsiniz. host ve oper kısımlarını.. Nick bölümlerine kendi nickinizi ve şifre kısımlarına kendi passwordunuzu yazınız. Mirc34.net mirc ekibi en yararlı addonları sizlerle paylaşmaya devam edecektir.Bizi takip etmeye devam edin.

Son zamanlarda reklamcı botların sıkça tercih ettiği reklam türü away mesajına reklam eklemek. Böylelikle spamfilter, adwords gibi reklam korumalarından etkilenmeden  istedikleri gibi reklamlarını yazabiliyorlar.

Bunun birkaç çözüm yöntemi var; biri şimdi vereceğim kod ile scriptinize kolayca away taraması yaptırtabilirsiniz. ikinci seçenek ise Unreal’inizi editleyerek away olmayı yasaklayabilir veya kayıtsız nicklerin away olmalarını engelleyebilirsiniz. Ben açıkçası 2. şıkka karşıyım. Şu yüzden karşıyım mirc de reklam yapan lamerlerin reklamlarını engellemek için user’lerimizin away haklarını ellerinden almamamız gerektiğine inanıyorum. O kodu da IRC makaleleri bölümünde yakında paylaşacağım fakat bence mirc ile tarama yaptırmak daha mantıklı. Şayet güzelim Unreal IRCd’in özelliklerini lamerleri engellemek için kapatırsak biz kaybederiz, IRC kaybeder. Neyse lafı uzatmadan kodu vereyim sizlere;

on *:text:!awaytara &:#takip:{ tarama $2 }

Alias tarama { msg #Takip 4 $1 5kanalında away taraması başlatıldı… | unset %awayscan | .enable #awayscan | who $1 }

#awayscan off

raw 352:*:{ if (G isincs $7) { set %awayscan $addtok(%awayscan,$6,32) | raw -q whois $6 } }

raw 315:*:{ if ($group(#awayscan) = on) { .disable #awayscan | msg #Takip 4 $iif($numtok(%awayscan,32) > 0,$2 5kanalında 4 $ifmatch 5tane away nick bulundu $+ $chr(44) away mesajlarına bakılıyor:,$2 5kanalında kimse away değil.) } }
#awayscan end

raw 301:*:{ if $istok(%awayscan,$2,32) { msg #Takip 5 Away nick : $+( 4,$2, 4) 5 Mesaj : $+( 4,$3-, 4) } }

Yukarıdaki kodu Mirc’inizin remote bölümüne eklemelisiniz. (Alt + R ile açabilirsiniz)

Kodun çalışma prensibi şu şekilde, away kanalında !awaytara #kanaladi yazıldığında mirc’iniz o kanaldaki away kişileri tarıyor, ve takip kanalında size bildiriyor.. Away mesajları ve nickleri ile birlikte. sizde kolayca tespit edip lamerleri sunucunuzdan uzaklaştırıyorsunuz

Bu addon ile sohbet ederken arkadaşlarınizin siteye geldiginde uyari vericektir. Yani Notify eklediginiz kişileri fark edebiliceksiniz.

alias ac { dialog -m notify notify }
dialog notify {
  title "mIRC Notify Addon"
  size -1 -1 116 58
  option dbu
  text "Nick", 1, 5 10 25 8
  edit "", 3, 33 9 78 10
  box "Notify", 2, 2 1 113 23
  button "Ekle", 4, 15 27 37 12
  button "Çıkar", 5, 57 27 37 12
  button "Listele", 6, 35 41 37 12
}
on *:Dialog:notify:sclick:4:{ notify $did(3) | gload notify }
on *:dialog:notify:Sclick:5:{ notify -r $did(3) }
on *:Dialog:notify:Sclick:6:{ notify -l }
on *:notify:{ gtalk -k notify Notify Listenizde Bulunan $nick Şu Anda Servere Giriş

mIRC Scriptleriniz için Günün Sözü Kodu. GununSozu.com sitesinden cekilmektedir.

alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
  var %c = sockwrite -n $sockname
  if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
  %c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
  var %g | sockread %g | if *class="f1001">* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)

on *:text:*:#:{ if $istok(slm sa selam selamlar s.a,$1-,32) { inc -eu60 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # Ãleyküm Selam Ho$geLdiniz $nick } } }
on *:action:*:#:{ if $istok(slm sa selam selamlar s.a,$1-,32) { inc -eu30 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # Ãleyküm Selam Ho$geLdiniz $nick } } }

Addon’u Mirc’a Nasıl Ekliyeceğim ?

Yukarıdaki mevcut kodları Mirc‘ta alt+R yapip remote kısmına kopyalıyoruz. Tamam deyip kapatıyoruz. Herhangi biri kanalda selam, slm vb. yazdıgında otomatik olarak scriptiniz Ãleyküm Selam Ho$geLdiniz cevabını vericektir.

IRC ye sürekli takılan kişilerin en büyük derdi Nuke yemektir. En ufak bir tartışma nuke ile sonuçtada boşa geçmiş download zamanı ile sonuçlanabilir. Peki ircye sahte ip ile girmeye ne dersiniz. Yani kimse sizin gerçek ipnizi bilmeyecek. Nasılmı Wingate denen programı kullanan makineler sayesinde.
Adım 1: Önce wingate kullanan bir maine bulmak gerekli. Bunun için wingate scanner almanız gerekli(sitemizde download bölümünde programlar kısmında bulabilirsiniz). Bu sayede dinamik ipleri taratıp wingate kurulu makinaları bulmanız çocuk oyuncağı. Dediğim gibi bu programı bulup taratma yapın. Örneğin 193.192.38.1 yazın böylece bu ipleri tarayacak ve size wingate yüklü makinaların listesini verecek. Superonline iplerinde bulursunuz.
Adım 2: Mirc programınızı açın. komut satırına /server yazın bekleyin. Size look up fail gibi hata mesajları gelebilir siz bunları görmezden gelip /quote irc.mirc.com:6686 yazın. Yine bir sürü yazı yazar aldırmayın. Connecitng irc.mirc.com yazması önemli.
Adım 3: /quote user xxxxx xxxxx mail@adresiniz.com xxxxx burada xxxxlerin önemi yok bunlar size whois çekilince gözükecek. Ama kelime sayısında hata yapmayın. xx ler yerine istediğinizi yazın boşluklara dikkat edin.
Adım 4: /Quote nick XXXX burayada nickinizi yazın . İşte bu kadar. Eğere olmazsa başka wingat eserver deneyin. Birde bu kalıcı değildir.

» Kişi $chr(58) $nick(#,0)::-
-
$iif(o isin $usermode,» OperServ, $style(2) » OperServ)
.OperServ +o $$1:/os mode # +o $$1
.OperServ – o $$1:/os mode # -o $$1
.OperServ +v $$1:/os mode # +v $$1
.OperServ – v $$1:/os mode # -v $$1
.-
.$me +o $$1:/samode # +o $$1
.$me – o $$1:/samode # -o $$1
.$me +v $$1:/samode # +v $$1
.$me – v $$1:/samode # -v $$1
-
» Bilgileri
.Whois:/whois $$1
.Who:/who $$1
.UCentral:/uwho $1 | echo -a %logo $+ 4,0  $+ $1 $+ 12,0 ‘nin Ucentrali açılıyor. 
.-
.DNS:/dns $$1 | gor 15,1 Kişinin DNS bilgilerini görmek için Status penceresine bakınız. 
.-
.Ping:/gor 4,1 $+ $$1 15,1şu an4,1 $me 15,1tarafından pingleniyor.. | /ping $$1
.SeriPing:/gor 4,1 $+ $$1 15,1şu an4,1 $me 15,1tarafından pingleniyor.. | .ping $$1 | .ping $$1 | .ping $$1 | .ping $$1 | .ping $$1
.Version:ctcp $1 version
.-
.NickServ Info:/msg nickserv info $1
-
$iif($me isop #,» [@] Kontrol, $style(2) » [@] Kontrol)
.(+o) Op ver:/mode # +o $*
.(-o) Op unu al:/mode # -o $*
.-
.(+v) Voice ver:/mode # +v $*
.(-v) Voice al:/mode # -v $*
.-
.(-o/+v) Op al Voice ver:/mode # +v $1 | /mode # -o $1
.-
.(+o) Chanserv Op:/chanserv op # $*
.(-o ) Chanserv Deop:/chanserv deop # $*
-
» (~&&a) Modlar
. $1 (@) +o:/mode # +o $1 | /mode # +o $2 | /mode # +o $3
. $1 (@) -o:/mode # -o $1 | /mode # -o $2 | /mode # -o $3
.-
. $1 (+) +v:/mode # +v $1
. $1 (+) -v:/mode # -v $1
.-
. $1 (~) +q:/mode # +q $1
. $1 (~) -q:/mode # -q $1
.-
. $1 (&&) +a:/mode # +a $1
. $1 (&&) -a:/mode # -a $1
.-
. $1 (%) +h:/mode # +h $1
. $1 (%) -h:/mode # -h $1
-
» ChanServ
.Founder Yap:/msg chanserv set # founder $*
.-
.Op
..Op Ver:/msg chanserv op # $*
..Op’ unu Al:/msg chanserv deop # $*
.Access
..Özel seviye
…Kendin belirle:/msg chanserv access # add $* $$?=”Seviye ?”
…-
…5 seviye:/msg chanserv access # add $* 5
…10 seviye:/msg chanserv access # add $* 10
…50 seviye:/msg chanserv access # add $* 50
…100 seviye:/msg chanserv access # add $* 100
…999 seviye:/msg chanserv access # add $* 999
…9999 seviye:/msg chanserv access # add $* 9999
..-
..Access Ekle:/msg chanserv access # add $1- $$?=”Seviyesi kaç olacak?”
..Access Sil:/msg chanserv access # del $*
..Seviyesini Öğren:/msg chanserv access # list $*
.Aop
..Ekle:/msg chanserv aop # add $*
..Sil:/msg chanserv aop # del $*
..Listele:/msg chanserv aop # list $*
.Sop
..Ekle:/msg chanserv sop # add $*
..Sil:/msg chanserv sop # del $*
..Listele:/msg chanserv sop # list $*
.Vop
..Ekle:/msg chanserv vop # add $*
..Sil:/msg chanserv vop # del $*
..Listele:/msg chanserv vop # list $*
.Hop
..Ekle:/msg chanserv hop # add $*
..Sil:/msg chanserv hop # del $*
..Listele:/msg chanserv hop # list $*
.Auto-Kick
..Ekle:/msg chanserv akick # add $*
..Sil:/msg chanserv akick # del $*
..Listele:/msg chanserv akick # list $*
» NickServ
.Ghost Et (Düşür):/msg nickserv ghost $1- $?*=”Nick şifresini giriniz:”
.-
.Nick Bilgisi:/msg nickserv info $*
» MemoServ
.Mesaj Gönder:/msg memoserv send $1- $$?=”Mesajınızı girin:”
-
$iif($me isop #,» Ban, $style(2) » Ban):/mode # +b $*
$iif($me isop #,» Kick, $style(2) » Kick)
.» Kick:/kick # $* 15,12 $me 
.» Nedenli:/kick # $* 15,12 $$?=”Sebeb?”
.-
.» Hazır Nedenler
..» Reklam yapma!:/kick # $* 14 Reklam yapma Lem! 
..» Adam ol!:/kick # $* 14Adam oL !
..» Biraz dolaş!:/kick # $* 14ßiraz dolaŞ !
..» Lameeeer!:/kick # $* 14Lameeeer.. !
$iif($me isop #,» Kick+Ban, $style(2) » Kick+Ban):/mode # -o+b $1 $address($1,2) | kick # $1 %logo
-
» Ctcp \ Dcc
.» Ping:/ctcp $$1 ping
.» Time:/ctcp $$1 time
.» Version:/ctcp $$1 version
.-
.» Dosya Gönder:dcc send $1
.» Chat (Hızlı):dcc chat $1
-
» Eğlence
.Uyuz Sözler..!
..Kufurhaa:/msg # ulen assalik yaratik kufretme $$1 sen bir dumbeleksin… bea !!!!
..Uyuz:/msg # $$1 . ?! hic uyusmuyo isimlerimiz sana uyuzum uyuzzzz…..
..Muzik:/msg # dusunurr… $1 Muzik esliginde odadan ayrilmalidirr !!!!!!!!!!!!
..YazmaOnu:/msg # hands $1 Yazma oyle sozler uleeaaaaaaa!!” çarparim ha !
..Tokat:/msg # osmanlı tokadını vurur 12 $$1 6hosuna gittigini farkeder daha ister,odadaki herkes onu tokatlamaya baslar.alalalalalalal!
..Cirkin:/msg # odadan cıkmak ister tum chat zevkini kaybettiren $1 $+ ‘in cirkinligidir iykkkk!
..AntiTeknoloji:/msg # derki : 12 $$1 6, senin burda ne isin var uleyn,ozurlu yaratik,kanala girmeyi kac gunde becerebildin,artik bana birsey sorma YETERRRR!!!!!!
..Balta:/msg # Baltasini kaldirir ve bakar ona,hic acımadan tam ortasindan indirir..SMASHHHHHH!!!! $* ortadan ayrilmis sekilde yerdedir….o cesedi soyle bir suzer ve dudaklarindan iki kelime dokulur Muhahahahahahaha…. ”
..Ağzını topla:/msg # uyarır… $1 azini tople uleyn,!..Çiş:/msg # balkonda otururken $$1′assagıdan gecer. cisi gelmistir cikarir ve onun kafasina iser..”
..Hey:/msg # delirir.. HEYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYTTTTTTTTTTTT ULEAAAAAA!!!!!!!!!!!!
..AdamOL:/msg # derki $$1 adam ol alirim aklini takoz!!
..Tekme:/msg # $1′ın kıcına zupher bi tekme indirir LOMPPPPP!
..Nefret:/msg # says “Hey Mr. $1, Reha muhtari bile senden cok seviyom, ”
..Shoot :/msg # silahina bakar nayirr tek kursunu kalmiss…Bunu goren $1 kacmaya calisirken arkasından gelen tek kursun onun omuriligini parcalar!
..Abaza:/msg # 12Dogdugundan beri abazalari hic sevmez ama ne yazik ki 13 $$1 12bir abazadir. 13 $$1 12gece mutlu ve huzurlu uyumasi icin ogun chatde biriyle cybersex yapmis olmasi yeterlidir..bu ona cok mutluluk verir (ama aciyorum 13 $$1 12genede bir abazadir.) |
..Nefret:/msg # 12sayın “Mr. 13 $$1, 12Saadettin Teksoyu bile senden cok seviyom, ” yaaa |
..Yumruk:/msg # 12artık dayanamaz yumrugunu indirir 13 $$1 12nin Suratına Agzı burnu dagılır. 13 $$1 12artık etkisiz hale gelmiştir..! |
.Çiçekler ve Öpücük
..Sarı Lacivert:/msg # 1,812bunlar 0,4@3-}–}—1,812 $$1 için.. 0,4@3-}–}— 1,812 gönderildi..
..Bir Demet:/msg # 13@3-}–}—8@3-}–}—12 $$1 için.. 8@3-}–}— 13@3-}–}–
..Bir bukle Gül:/msg # $$1 3–,–`–,—4(@12 bu gül sana yollandı…
..Bukle Güller:/msg # 1,812 $$1 8,4 bu güller senin için. ))) | /me 16 …. 4@.@.@ | /me 16 …4@ @3\4@3/4@ @ | /me 16… 3\4@3|4@3|4@3|4@3/ | /me 16 ….3\\\|/// | /me 16 …. 3\\|// | /me 16 ….. 3\|/ | /me 16 ….. 13=3&13= | /me 16 ….. 3/|\
.Davet Edişler
..Web Sayfasina Davet.:/msg # 1,812 $$1… web sayfam acıldı.. 8,4 $$?=”Web adresinizi giriniz” 1,812 lutfen ziyaret et.
..Herhangi Bir Yere Davet:/msg # 5,5-13,15 ¸2,15,ø4,15¤º12,15°13,15`12,15°4,15º¤5,15ø, 5,5- 4,4-0,2Hey $$1 seni $$?=”Nereye davet ediceksin” davet etsem benimle gelirmisin.?. 4,4- 5,5-5,15 ,ø4,15¤º12,15°13,15`12,15°4,15º¤2,15ø,13,15¸ 5,5-
..Kemancı veya Roxy bar daveti:/msg # Hey $$1 ya 14,14.4,8kemancı’ya14,14. | /msg # yada 14,14.1,90<~1,9Roxy bar’a0,9~>14,14. gidelim..
..Kemancı’ya Davet:/msg # Hey $$1 benimle 15,15.5,5.415,5Kemancı4,45,5.15,15.10 bar’a gelirmisin?
..Kemancı’ya Gidiş:/msg # 15,15.16,2K1,9E16,3M16,4A1,8N16,10C1,4I16,10I1,9Y16,5A15,15. gidiyoruz13 $$1 ile..bol bol bira içiceez….
..Sinemaya Davet 1:/ say Hey $$1 yaw bi ara seninle 413<İ>6789113 gidelim mi?….
..Sinemaya Davet 2:/msg # 5,5-13,15 ¸2,15,ø4,15¤º12,15°13,15`12,15°4,15º¤5,15ø, 5,5- 4,4-0,2Hey $$1 seni sinemaya davet etsem benimle gelirmisin.?. 4,4- 5,5-5,15 ,ø4,15¤º12,15°13,15`12,15°4,15º¤2,15ø,13,15¸ 5,5-
..Sinemaya Davet 3:/msg # 1,1H2,2a3,3v4,4e5,5 6,6a7,7 8,8G9,9r10,10e11,11a12,12t13,13 14,14D15,15a8,8y8,4Heeey $$1 8,8!15,15 14,14 13,13 12,12 11,11 10,10 9,9 8,8 7,7 6,6 5,5 4,4 3,3 2,2 1,1  | /msg # benimle Sinemaya gelmek istemezmisin.?..
..Mc Donald’a Davet:/msg # Hey $$1 0,15 0,2 0,4 0,2Seni Mc Donald’a hamburger yemeye davet ediyorum..hadi ne olur kırma beni.0,4 0,2 0,15 
.Selamlamalar
..Selam 1:/msg # 4,1:8,1:3,1:12,1:13,1:4,1:8,1:11,1:4,1:8,1:3,1:12,1:13,1:4,1:8,1:11,1:9 Selam $$1 Nasılsın.. 4,1:8,1:3,1:12,1:13,1:4,1:8,1:11,1:4,1:8,1:3,1:12,1:13,1:4,1:8,1:11,1:
..Selam 2:/msg # 1,11,21,31,41,51,61,71,81,91,108,1..merhaba $$1.. 1,101,91,81,71,61,51,41,31,21,1
..Selam 3:/msg # 4@3-}–}— merhaba $$1 13@3-}–}— 8@3-}–}—
..Selam 4:/msg # 4@@@@@@15,15I0,4 Hey $$1.. merhaba.. 15,15 4@@@@@@
..Selam 5:/msg # 3{æ{4©3{æ{4©3{æ{4©3{æ{4©12 merhaba $$1.. 4©3}æ}4©3}æ}4©3}æ}4©3}æ}..
..Selam 6:/msg # 1,8 1,4 1,8 1,7 1,8 1,9 1,8 1,10 1,8 Hey $$1 merhaba… 1,10 1,8 1,9 1,8 1,7 1,8 1,4 1,8 
.Kalp Şekilleri
..Kalp vermek 1:/msg # 2  4(¯`’·.¸7(¯`’·.¸ 87 ¸.·’´¯)4¸.·’´¯)2   | /msg # 3**>*************2 $$1 3*************<** | /msg # 2  4(_¸.·’´7(_¸.·’´ 87 `’·.¸_)4`’·.¸_) 2 
..Kalp vermek 2:/msg # 3___4(¯`’·.¸(¯`’·.¸3 \ /4 ¸.·’´¯)¸.·’´¯)3___ | /msg # 3____4( ***( ***** 0,2 $$1 4***** )*** )3____ | /msg # 3___4(_¸.·’´(_¸.·”´ 3V 4`”·.¸_)`’·.¸_)3___ 
..Kalp vermek 3:/msg # kalbim senin olsun. 2(¯`’·.¸3(¯`’·.¸4 $$1 3¸.·’´¯)2¸.·’´¯) | /msg # kalbim senin olsun. 2(_¸.·’´3(_¸.·’´4 $$1 3`’·.¸_)2`’·.¸_)
..Kalp vermek 4:/msg # 12(¯`’·.¸(¯`’·.¸ ______________ ¸.·’´¯)¸.·’´¯) | /msg # 13(¯`’·.¸(¯`’·.¸ 1Ÿ2Ÿ3Ÿ4Ÿ5Ÿ6Ÿ7Ÿ8Ÿ9Ÿ10Ÿ11Ÿ12Ÿ13Ÿ14Ÿ13¸.·’´¯)¸.·’´¯) | /msg # 4 —-==>>>>—–> $1 <——<<<<==—- | /msg # 13(_¸.·’´(_¸.·’´ 1Ÿ2Ÿ3Ÿ4Ÿ5Ÿ6Ÿ7Ÿ8Ÿ9Ÿ10Ÿ11Ÿ12Ÿ13Ÿ14Ÿ13`’·.¸_)`’·.¸_) | /msg # 12(_¸.·’´(_¸.·’´ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯ `’·.¸_)`’·.¸_)
}

Bunu yaklaşık 10 ay önce falan kodlamıştım. Sistem #Help departmanı üzerine kurulu. Yani “ne sorsam acaba?” diye düşünmenizi engelliyor.

Bu sistemi kullanmak için yapılması gereken işlemler ;

#Sınavdesk kanalını kayıt edin.

//run $mircdir yaparak soru1.txt soru2.txt soru3.txt soru4.txt soru5.txt cevap1.txt cevap2.txt cevap3.txt cevap4.txt cevap5.txt dosyaları oluşturun veya ;

/mkdir soru1.txt Sorunuz…
/mkdir cevap1.txt Cevabınız…

şeklinde dosyaları oluşturun.

Soru1.txt dosyasında ki soruların cevabını Cevap1.txt dosyasına yazınız. Soruları şu şekilde ekleyiniz.

Soru ) Selam, naber?
Soru ) Nerden?

Cevap1.txt dosyasını ise şu şekilde ;

Cevap ) Sağol, iyiyim.
Cevap ) Samsun’dan.

vs.. şeklinde sorularınızı ekleyiniz.
yani soru1.txt dosyasında ki 1. satırda ki soru, cevap1.txt dosyasında ki 1. satır cevaptır.

Örneğin şöyle birşey yapılabilir.
Soru1.txt : Nickserv
Soru2.txt : Chanserv
Soru3.txt : Memoserv
Soru4.txt : Karma
Soru5.txt : Karma

şeklinde 1. soruyu ns, 2. soruyu cs, 3. soruyu ms, 4. ve 5. soruyu karma olarak yapabilirsiniz. Dosyaları oluşturduktan sonra kodu ekleyin ;
Kod:

on *:join:#sınav:{ if ($nick != $me) { !who $nick | ns info $nick } }
raw 352:*:{
msg #sınavdesk 4UYARI ! #Sınav kanalına giriş yapan nick => $6
msg #sınavdesk  $+ $6  $+ nickinin kullandığı ident => $3
msg #sınavdesk  $+ $6  $+ nickinin host adresi => $4
msg #sınavdesk  $+ $6  $+ nickinin kullandığı fullname => $9-
}
on 1:notice:*kayit zamani*:*:{
if ($nick == nickserv) {
msg #sınavdesk Nickin kayıt tarihi => $instok($5,SAAT:,1,32) $+ $chr(32) , $instok($4,GÜN:,1,32)$+ $chr(32) , $instok($remove($3,pst),AY:,1,32) $+ $chr(32) , $instok($6,YIL:,1,32)
}
}
on *:text:*:#: {
if ($chan == #sınavdesk) {
if ($1 == !listele) {
msg #sınavdesk Sorular listeleniyor.
.play $chan liste.txt 3000
msg #helpers [#Sınavdesk] => Helper Seçme Sınavı(HSS) Soru Listesine Giriş Yapıldı.
}
if ($1 == !soru1) {
msg $chan 1 Numaralı Soru Listesi.
msg #helpers [#Sınavdesk] => 1 Numaralı Soru Listesine Bakıldı.
.play $chan soru1.txt 3000
}
if ($1 == !soru2) {
msg $chan 2 Numaralı Soru Listesi.
msg #helpers [#Sınavdesk] => 2 Numaralı Soru Listesine Bakıldı.
.play $chan soru2.txt 3000
}
if ($1 == !soru3) {
msg $chan 3 Numaralı Soru Listesi.
msg #helpers [#Sınavdesk] => 3 Numaralı Soru Listesine Bakıldı.
.play $chan soru3.txt 3000
}
if ($1 == !soru4) {
msg $chan 4 Numaralı Soru Listesi.
msg #helpers [#Sınavdesk] => 4 Numaralı Soru Listesine Bakıldı.
.play $chan soru4.txt 3000
}
if ($1 == !soru5) {
msg $chan 5 Numaralı Soru Listesi.
msg #helpers [#Sınavdesk] => 5 Numaralı Soru Listesine Bakıldı.
.play $chan soru5.txt 3000
}
if $1 == !mesaj {
.msg #helpsop [#Sınavdesk] => $2-
.msg #helpers [#Sınavdesk] => #HelpSop Kanalına Özel Mesaj Gönderildi.
.msg #sınavdesk Mesajınız #HelpSop kanalına iletildi.
}
if $1 == !başla {
if ($nick(#sınav,1,v) == $null) { msg #sınavdesk Şekerim #sınav kanalında voice(+v) olan biri mi var? Ben göremiyorum da? Kimi sınav yapcam ? }
else {
var %a $rand(1,$lines(soru1.txt)), %b $rand(1,$lines(soru2.txt)), %c $rand(1,$lines(soru3.txt)), %d $rand(1,$lines(soru4.txt)), %e $rand(1,$lines(soru5.txt))
if ( %a != %b != %c != %d != %e ) {
msg #sınavdesk $nick(#sınav,1,v) sınava alındı.[ $date - $time ]
msg #sınav  $+ $nick(#sınav,1,v) sınav başlıyor, 5 saniye sonra ilk sorunuz gelicektir. Her soru için 1 dakika süreniz vardır. Başarılar dileriz.
mode #sınav +iK
msg #helpers  $+ [4#Sınavdesk/OTS] :7 $nick(#sınav,1,v) sınava alındı.
timer 1 5 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru1.txt,%a),1-100,32),1,2,32)
timer 1 65 msg $chan(#sınavdesk) $instok($gettok($read(cevap1.txt,%a),1-100,32),1,2,32)
timer 1 65 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 2. soruya geçiyoruz.
timer 1 70 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru2.txt,%b),1-100,32),2,2,32)
timer 1 130 msg $chan(#sınavdesk) $instok($gettok($read(cevap2.txt,%b),1-100,32),2,2,32)
timer 1 130 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 3. soruya geçiyoruz.
timer 1 135 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru3.txt,%c),1-100,32),3,2,32)
timer 1 195 msg $chan(#sınavdesk) $instok($gettok($read(cevap3.txt,%c),1-100,32),3,2,32)
timer 1 195 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 4. soruya geçiyoruz.
timer 1 200 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru4.txt,%d),1-100,32),4,2,32)
timer 1 260 msg $chan(#sınavdesk) $instok($gettok($read(cevap4.txt,%d),1-100,32),4,2,32)
timer 1 260 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 5. soruya geçiyoruz.
timer 1 265 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru5.txt,%e),1-100,32),5,2,32)
timer 1 325 msg $chan(#sınavdesk) $instok($gettok($read(cevap5.txt,%e),1-100,32),5,2,32)
timer 1 325 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Sınav sona ermiştir. Değerlendirme için lütfen bekleyiniz.
timer 1 325 msg $chan(#sınavdesk) $remove($nick(#sınavdesk,1,o) $nick(#sınavdesk,2,o) $nick(#sınavdesk,3,o) $nick(#sınavdesk,4,o) $nick(#sınavdesk,5,o) $nick(#sınavdesk,1,h) $nick(#sınavdesk,2,h),Helpteam) => $nick(#sınav,1,v) nickinin sınavı sonlanmıştır. Değerlendirme yaptıktan sonra sonucu “!mesaj XXX 5 sorudan X’ini bilerek kazandı/kazanamadı.” şeklinde gönderiniz.
timer 1 326 mode #sınav -iK
}
}
}
}
if ($chan == #sınav) {
if ($nick == $nick(#sınav,1,v)) {
if (*/* iswm $1-) { msg #sınavdesk  $+ $nick nickinin verdiği cevap =>4 $1- }
}
}
}

daha sonra kullanılabilicek komutlar ; (#Sınavdesk kanalında kullanılcak)

!listele : HSS soru listesi hakkında bilgi verir. (liste.txt şeklinde dosya oluşturup bilgileri girebilirsiniz.)
!soru1 : HSS Soru1.txt dosyasını listeler. (1 yerine 2-3-4-5 yazabilirsiniz.)
!mesaj mesajınız : Yazdığınız mesaj #helpsop kanalına iletilir. (Bu durumda bot nicki #helpsop kanalında bulunmak zorundadır veya #helpsop kanalı -n modesinde olmalıdır.)
!başla : #Sınav kanalında ki 1. voice(+v) kipi alan kişiyi sınava alır.
Unutulmamalıdır ki sınava alıncak nicki sadece #sınav kanalında bulundurun. Çünkü koda göre nick, ilk ortak kanalda sınava alınır. Kısacası sınava giricek kişi sadece #sınav kanalında bulunsun.

Helper adayının vericeği cevap #sınavdesk kanalına yansicaktır ve sınav bitiminde #sınavdesk yetkilileri uyarılıcaktır.

#sınav kanalına girişlerde #sınavdesk kanalına kullanıcı hakkında bilgi verilicektir.

#Help departmanı ile uğraşan arkadaşların işine yarayabilir.

Kısaca anlatılıcak olursa ;

#sınav kanalına giren helper adayını sınava alıyosunuz. #sınavdesk kanalına !başla diyosunuz ve sınavı sadece izliyosunuz.