menu * {

  Renk Karistirma Tablosu:/rgdene

}



alias -l rwind return @ReNk-Karistirici

menu @ReNk-Karistirici {

  sclick:{

    if ($mouse.x isnum 1-260 && $mouse.y isnum 1-255) {

      drawrect -fr $rwind $getdot($rwind,$mouse.x,$mouse.y) 1 300 1 255 255

      editbox $rwind

      set -e %_rnk_1_secildi $getdot($rwind,$mouse.x,$mouse.y)

    }

    if ($mouse.x isnum 1-260 && $mouse.y isnum 300-555) {

      if !%_rnk_1_secildi { editbox $rwind Once ustteki tablodan renk secmelisiniz. | return  }

      drawrect -fr $rwind $getdot($rwind,$mouse.x,$mouse.y) 1 300 300 255 255

      drawrect -f $rwind 14 5 600 525 110 30 

      drawtext -c $rwind 1 arial 14 600 530 120 30  [Renkleri Karistir]

      editbox $rwind Renklerin karismasi icin [Renkleri Karistir] yazan kutucuga tiklamalisiniz.

      set -e %_rnk_2_secildi $getdot($rwind,$mouse.x,$mouse.y)

    }

    if ($mouse.x isnum 600-700 && $mouse.y isnum 525-550 && %_rnk_2_secildi) {

      drawrect -fr $rwind %_rnk_1_secildi 1 630 145 255 255

      _renk_karistir

    }

  }

  Resmi Kaydet:var %rsmk = $+(renk-karistirici-,$time(dd-mm-yyyy-hh-nn),.jpg) | drawsave $rwind %rsmk | run %rsmk | run $mircdir

}

alias _renk_karistir {

  var %m = 142

  while %m <= 400 { 

    var %x = 628, %j = 129

    while (%j) {

      drawdot -r $rwind %_rnk_2_secildi 1 %x %m

      inc %x 2

      dec %j

    }

    inc %m

  }

}

alias rgdene {

  if !$window($rwind) { window -ape $rwind }

  if ($window($rwind).bw < 900 || $window($rwind).bh < 550) {

    close $+(-,$rwind)

    .timer -m 1 500 echo $color(info) * Yeterli cizim alani yok ekrani buyutup o sekilde deneyin.

    return

  }

  clear $rwind
Your Adsense Code

  var %m = 1

  var %z = 16646400

  while %m <= 255 { 

    var %x = 1, %j = 255

    while (%j) {

      drawdot -r $rwind %z 1 %x %m

      inc %x

      dec %z 255

      dec %j

    }

    drawdot -r $rwind $rgb(%m,%m,%m) 5 $calc(255 + 3) %m 

    dec %z 255

    inc %m

  }

  drawcopy $rwind 1 1 260 255 $rwind 1 300 260 255

  editbox $rwind Once ustteki tablodan bir renk secin daha sonra alttaki tablodan bir renk secin.

}

on *:close:$($rwind):{

  unset %_rnk_*_sec*

}