on $*:text:/[!.]dna\s+\S+$/SAi:#: {
if !$istok($me BadBot Ema GevezeBot Geveze-ANALIZ NoMercy $Nick, $2 ,32) {
if $hget(kmt,$nick) { notice $nick Bu Komutu (10) saniye icerisinde, sadece 1 Kez Kullanabilirsiniz.. | return }
if ($2 ison $chan) { msg $chan 13[12DNA13]4 $2 2Nick'inin 4DNA TESTİ 2Sonuçları Gösteriliyor.. | %baba = $rand(10,100) }
if ($2 ison $chan) { msg $chan 13[12DNA13] 4¤ }
if ($2 ison $chan) { msg $chan 13[12DNA13] 2,2*10,10*4,4*11,2 Nicki:8,2 $2 4,4*10,10*2,2* }
if ($2 ison $chan) { msg $chan 13[12DNA13] 2,2*10,10*4,4*11,2 ANNE GENİ8,2 %baba 4,4*10,10*2,2* }
if ($2 ison $chan) { msg $chan 13[12DNA13] 2,2*10,10*4,4*11,2 BABA GENİ8,2 $calc(100-%baba)) 4,4*10,10*2,2* }
if ($2 ison $chan) { msg $chan 13[12DNA13] 2,2*10,10*4,4*11,2 DNA Testi Sonucuna Göre 4,4*10,10*2,2* }
if ($2 ison $chan) { msg $chan 13[12DNA13] 2,2*10,10*4,4*11,2 Muhtemel Akraban Olan Kişiler: 4,4*10,10*2,2* }
if ($2 ison $chan) { msg $chan 13[12DNA13] 2,2*10,10*4,4*8,2 $read(dnaakraba.txt) 4,4*10,10*4,4*11,2 ve8,2 $read(dnaaakraba.txt) 4,4*10,10*2,2* }
if ($2 ison $chan) { msg $chan 13[12DNA13] 4¤ }
if ($2 ison $chan) { msg $chan 13[12DNA13] 4¤¤¤¤¤¤ 2DNA TESTİ SONUCU 4¤¤¤¤¤¤ }
else { msg $chan $2 Nicki Kanalda Bulunmuyor. }
.hinc -msu10 kmt $nick
}
}