on *:text:*:#:{
  if $regex($1,/^[!.-]gbt$/Si) {
    if !$2 { msg # Lütfen nick belirtiniz. 4ORN 2!gbt Abuzittin }
    msg # 4 $2  Nickinin GBT'sine bakılıyor... 
    msg # 4Adı Soyadı : 4[ 2 $read(kim/isim.txt) 4 ]1 - 4 Meslek : 4[2 $read(kim/meslek.txt) 4]1 - 4Memleket : 4[2 $read(kim/sehir.txt) 4] 1- 4Medeni Durumu : 4[2 $read(kim/medeni.txt) 4] 1- 4Takımı : 4[2 $read(kim/takim.txt) 4]1 - 4Yaş : 4[2  $(,$str($!r(18,80) $chr(32) , 1)) 4]  1 - 4Burç: 4[2 $read(kim/burc.txt) 4] 1 -  4Sevdiği Renk: 4[2 $read(kim/renkler.txt) 4]
  }
}