alias -l dw.tools {
  if (!%ons) set %ons on
  drawrect -rf @karika $rgb(255,255,255) 1 20 $1 14 13
  drawrect -r @karika $rgb(0,0,0) 1 20 $1 14 13
  drawtext -or @karika $rgb(0,0,0) Tahoma 11 38 $calc($1 + 1) Her Açılışta Göster
  drawrect -r @karika $rgb(245,245,245) 1 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) $width(Kapat,Tahoma,11,1) $height(Kapat,Tahoma,11)
  drawtext -or @karika $rgb(0,0,0) Tahoma 11 $calc($2 - $width(Kapat,Tahoma,11,1))  $calc($1 + 1) Kapat!
  if (%ons == on) drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $1 X
}
alias ktur { if ($1 == acik) { echo -a 4Her açlışta karikatür gösterimi açık! | set %ons on } | elseif ($1 == kapali) { echo -a 4Her açılışta karikatür gösterimi kapalı | set %ons off } }
alias ktr sockopen ka www.komikim.com 80 
on *:sockopen:ka: { 
  var %m = sockwrite -n $sockname 
  %m GET / HTTP/1.1 
  %m Host: www.komikim.com 
  %m $crlf 
}
on *:sockread:ka: { 
  sockread %xw 
  $iif(HTTP/1.1 500 * iswm %xw,echo -a 7(Karikatür Addonu)4Kaynak sitede şuan sorun var.Daha sonra tekrar deneyin.) 
  if (/karikaturgoster.asp isin %xw) { 
    write -c ss.jpg 
    set %kadd $gettok($remove($gettok(%xw,4,32),src=,"),1-2,46) 
    sockopen ktr www.komikim.com 80 
  } 
}
on *:sockopen:ktr: { 
  var %s = sockwrite -n $sockname 
  %s GET %kadd HTTP/1.1 
  %s Host: www.komikim.com 
  %s $crlf 
}
on *:sockread:ktr: { 
  sockread %s 
  $iif(Length: isin %s,set %by $gettok(%s,2,32)) 
  if (Data isin %s) set %hazır sadsadsa 
  elseif (* !iswm %s) { 
    set %size $sock(ktr).rcvd | sockrename ktr re
  }
}
on *:sockread:re: {
  sockread &oo
  bwrite ss.jpg -1 -1 &oo  
  var %yuz = $round($calc(100 * ($sock(re).rcvd - %size) / %by),1)
  if (%yuz >= 100) {
    set %pw $pic($shortfn(ss.jpg)).width
    set %ph $calc($pic($shortfn(ss.jpg)).height + 30)
    window -dohpBk[0]C +dL @karika 0 0 %pw %ph
    window -a @karika
    drawrect -rf @karika $rgb(245,245,245) 1 0 0 %pw %ph  
    drawpic @karika 0 0 $shortfn(ss.jpg)
    drawrect -r @karika $rgb(0,0,0) 1 0 0 %pw %ph
    drawrect -r @karika $rgb(0,0,0) 1 0 $calc(%ph - 30) %pw 1
    dw.tools $calc(%ph -  20) $calc(%pw - 20) 
    .remove $shortfn(ss.jpg)
    unset %hazır %by %s %size %xw %kadd
  }
}
menu @karika {
  uclick: {
    if ($inrect($mouse.x,$mouse.y,20,$calc(%ph - 20),13,13)) {
      if (%ons == on) { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 13 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 13 13 | set %ons off }
      else { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 14 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 14 13 | drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $calc(%ph - 20) X | set %ons on }
    }
    if ($inrect($mouse.x,$mouse.y,$calc((%pw - 20) - $width(Kapat,Tahoma,11,1)),$calc((%ph - 20) + 1),$width(Kapat,Tahoma,11,1),$height(Kapat,Tahoma,11))) { window -c @karika | unset %ph %pw }
  }
}
on *:start: { if (!%ons) set %ons on | if (%ons == on) ktr }