dialog dene {
  title "resim değiştirme"
  size -1 -1 84 66
  option dbu
  icon 1, 21 8 40 34
  link "Resim Değiştir.", 2, 24 47 36 8
}


on *:dialog:dene:*:*:{
  if ($devent == sclick) {
    if $did == 1 || $did == 2 {
      degistir
    }
  }
}

alias degistir {
  var %degis $sfile(*.jpg)
  if %degis {
    if $gettok(%degis,-1,46) == jpg {
      %olcak = jpg
    }
    elseif $gettok(%degis,-1,46) == bmp {
      %olcak = bmp
    }
    elseif $gettok(%degis,-1,46) == gif {
      %olcak = gif
    }
    else {
      hata Resim Uzantısı Hatası
      return
    }
    if $file($+(resim\galeri\avatar.,%olcak)) {
      .remove $+(resim\galeri\avatar.,%olcak)
    }
    .copy $shortfn(%degis) $+(resim\galeri\avatar.,%olcak)
    if $dialog(dene) {
      did -g dene 1 $+(resim\galeri\avatar.,%olcak)
    }
    
    hadd -m avatar benimresmim $+(resim\galeri\avatar.,%olcak)
    kayit avatar
  }
}


alias kayit {
  if $hget($1) {
    kayit $1 $+(resim\galeri\,$1,.resimci)
  }
}