Mine

alias playcheck {
  set %turn. %challenger.
  set %white. %challenger.
  set %first 1
  window -Bkdp @Checkers -1 -1 793 715
  drawfill -rn @checkers $rgb(80,40,200) $rgb(80,30,00) 0 0
  drawpic -msn @checkers 0 20 785 660 c:\dambord2.bmp
  drawpic -msn @checkers 79 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*3) 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*5) 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*7) 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*9) 20 75 65 c:\wit.bmp
  drawpic -msn @checkers 79 152 79 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*3) 152 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*5) 152 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*7-2) 152 76 64 c:\wit.bmp
  drawpic -msn @checkers $calc(79*9-2) 152 75 63 c:\wit.bmp
  drawpic -msn @checkers 0 88 79 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*2) 88 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*4) 87 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*6-2) 88 76 64 c:\wit.bmp
  drawpic -msn @checkers $calc(79*8-2) 88 75 63 c:\wit.bmp
  drawpic -msn @checkers 0 219 79 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*2) 219 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*4) 219 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*6-2) 219 76 64 c:\wit.bmp
  drawpic -msn @checkers $calc(79*8-2) 219 75 63 c:\wit.bmp
  drawpic -msn @checkers 0 $calc(66*7+20) 79 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*2) $calc(66*7+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*4) $calc(66*7+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*6-2) $calc(66*7+20) 76 64 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*8-2) $calc(66*7+20) 75 63 c:\zwart.bmp
  drawpic -msn @checkers 0 $calc(66*9+20) 79 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*2) $calc(66*9+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*4) $calc(66*9+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*6-2) $calc(66*9+20) 76 64 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*8-2) $calc(66*9+20) 75 63 c:\zwart.bmp
  drawpic -msn @checkers 79 $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*3) $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*5) $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*7) $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*9) $calc(66*6+20) 75 65 c:\zwart.bmp
  drawpic -msn @checkers 79 $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*3) $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*5) $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*7) $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*9) $calc(66*8+20) 75 65 c:\zwart.bmp
  drawtext -rn @checkers $rgb(0,0,0) Evanescent 20 10 -4 Checkers - ©2007 Supamagier
  drawtext -rn @checkers $rgb(100,0,255) Evanescent 50 100 300 Checkers is made by Supamagier!
  drawtext -rn @checkers $rgb(100,50,255) Evanescent 50 100 366 Left click to continue.
  drawtext @checkers 
  drawpic @checkers
}
menu @checkers {
  sclick: if (%first == 1) { checkers2 } | if (%first == 0) { set %mouse.x $mouse.x | set %mouse.y $mouse.y | damclick }
}
alias setplaces {
  set %79-20 1
  set %237-20 1
  set %395-20 1
  set %553-20 1
  set %711-20 1
  set %0-86 1
  set %158-86 1
  set %316-86 1
  set %474-86 1
  set %632-86 1
  set %79-152 1
  set %237-152 1
  set %395-152 1
  set %553-152 1
  set %711-152 1
  set %0-218 1
  set %158-218 1
  set %316-218 1
  set %474-218 1
  set %632-218 1
  set %79-284 0
  set %237-284 0
  set %395-284 0
  set %553-284 0
  set %711-284 0
  set %0-350 0
  set %158-350 0
  set %316-350 0
  set %474-350 0
  set %632-350 0
  set %79-416 2
  set %237-416 2
  set %395-416 2
  set %553-416 2
  set %711-416 2
  set %0-482 2
  set %158-482 2
  set %316-482 2
  set %474-482 2
  set %632-482 2
  set %79-548 2
  set %237-548 2
  set %395-548 2
  set %553-548 2
  set %711-548 2
  set %0-614 2
  set %158-614 2
  set %316-614 2
  set %474-614 2
  set %632-614 2
}
alias damclick {
  set %dam.right 0
  if (%mouse.y <= 86) {
    if (%mouse.x >= 79 && %mouse.x < 158) { set %dam.pic 79 20 | set %dam.right 1 }
    if (%mouse.x >= 237 && %mouse.x < 316) { set %dam.pic 237 20 | set %dam.right 1 }
    if (%mouse.x >= 395 && %mouse.x < 474) { set %dam.pic 395 20 | set %dam.right 1 }
    if (%mouse.x >= 553 && %mouse.x < 632) { set %dam.pic 553 20 | set %dam.right 1 }
    if (%mouse.x >= 711) { set %dam.pic 711 20 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 152) {
    if (%mouse.x < 79) { set %dam.pic 0 86 | set %dam.right 1 }
    if (%mouse.x >= 158 && %mouse.x < 237) { set %dam.pic 158 86 | set %dam.right 1 }
    if (%mouse.x >= 316 && %mouse.x < 395) { set %dam.pic 316 86 | set %dam.right 1 }
    if (%mouse.x >= 474 && %mouse.x < 553) { set %dam.pic 474 86 | set %dam.right 1 }
    if (%mouse.x >= 632 && %mouse.x < 711) { set %dam.pic 632 86 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 218) {
    if (%mouse.x >= 79 && %mouse.x < 158) { set %dam.pic 79 152 | set %dam.right 1 }
    if (%mouse.x >= 237 && %mouse.x < 316) { set %dam.pic 237 152 | set %dam.right 1 }
    if (%mouse.x >= 395 && %mouse.x < 474) { set %dam.pic 395 152 | set %dam.right 1 }
    if (%mouse.x >= 553 && %mouse.x < 632) { set %dam.pic 553 152 | set %dam.right 1 }
    if (%mouse.x >= 711) { set %dam.pic 711 152 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 284) {
    if (%mouse.x < 79) { set %dam.pic 0 218 | set %dam.right 1 }
    if (%mouse.x >= 158 && %mouse.x < 237) { set %dam.pic 158 218 | set %dam.right 1 }
    if (%mouse.x >= 316 && %mouse.x < 395) { set %dam.pic 316 218 | set %dam.right 1 }
    if (%mouse.x >= 474 && %mouse.x < 553) { set %dam.pic 474 218 | set %dam.right 1 }
    if (%mouse.x >= 632 && %mouse.x < 711) { set %dam.pic 632 218 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 350) {
    if (%mouse.x >= 79 && %mouse.x < 158) { set %dam.pic 79 284 | set %dam.right 1 }
    if (%mouse.x >= 237 && %mouse.x < 316) { set %dam.pic 237 284 | set %dam.right 1 }
    if (%mouse.x >= 395 && %mouse.x < 474) { set %dam.pic 395 284 | set %dam.right 1 }
    if (%mouse.x >= 553 && %mouse.x < 632) { set %dam.pic 553 284 | set %dam.right 1 }
    if (%mouse.x >= 711) { set %dam.pic 711 284 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 416) {
    if (%mouse.x < 79) { set %dam.pic 0 350 | set %dam.right 1 }
    if (%mouse.x >= 158 && %mouse.x < 237) { set %dam.pic 158 350 | set %dam.right 1 }
    if (%mouse.x >= 316 && %mouse.x < 395) { set %dam.pic 316 350 | set %dam.right 1 }
    if (%mouse.x >= 474 && %mouse.x < 553) { set %dam.pic 474 350 | set %dam.right 1 }
    if (%mouse.x >= 632 && %mouse.x < 711) { set %dam.pic 632 350 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 482) {
    if (%mouse.x >= 79 && %mouse.x < 158) { set %dam.pic 79 416 | set %dam.right 1 }
    if (%mouse.x >= 237 && %mouse.x < 316) { set %dam.pic 237 416 | set %dam.right 1 }
    if (%mouse.x >= 395 && %mouse.x < 474) { set %dam.pic 395 416 | set %dam.right 1 }
    if (%mouse.x >= 553 && %mouse.x < 632) { set %dam.pic 553 416 | set %dam.right 1 }
    if (%mouse.x >= 711) { set %dam.pic 711 416 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 548) {
    if (%mouse.x < 79) { set %dam.pic 0 482 | set %dam.right 1 }
    if (%mouse.x >= 158 && %mouse.x < 237) { set %dam.pic 158 482 | set %dam.right 1 }
    if (%mouse.x >= 316 && %mouse.x < 395) { set %dam.pic 316 482 | set %dam.right 1 }
    if (%mouse.x >= 474 && %mouse.x < 553) { set %dam.pic 474 482 | set %dam.right 1 }
    if (%mouse.x >= 632 && %mouse.x < 711) { set %dam.pic 632 482 | set %dam.right 1 }
  }
  elseif (%mouse.y <= 614) {
    if (%mouse.x >= 79 && %mouse.x < 158) { set %dam.pic 79 548 | set %dam.right 1 }
    if (%mouse.x >= 237 && %mouse.x < 316) { set %dam.pic 237 548 | set %dam.right 1 }
    if (%mouse.x >= 395 && %mouse.x < 474) { set %dam.pic 395 548 | set %dam.right 1 }
    if (%mouse.x >= 553 && %mouse.x < 632) { set %dam.pic 553 548 | set %dam.right 1 }
    if (%mouse.x >= 711) { set %dam.pic 711 548 | set %dam.right 1 }
  }
  elseif (%mouse.y > 614) {
    if (%mouse.x < 79) { set %dam.pic 0 614 | set %dam.right 1 }
    if (%mouse.x >= 158 && %mouse.x < 237) { set %dam.pic 158 614 | set %dam.right 1 }
    if (%mouse.x >= 316 && %mouse.x < 395) { set %dam.pic 316 614 | set %dam.right 1 }
    if (%mouse.x >= 474 && %mouse.x < 553) { set %dam.pic 474 614 | set %dam.right 1 }
    if (%mouse.x >= 632 && %mouse.x < 711) { set %dam.pic 632 614 | set %dam.right 1 }
  }
  :one
  if (% [ $+ [ $replace(%dam.pic,$chr(32),-) ] ] == 1 && %dam.right == 1) {
    if (%dam.select != $null) {
      drawpic -msn @checkers %dam.select 76 65 c:\wit.bmp
    }
    set %dam.selected 1
    set %dam.select %dam.pic
    drawpic -msn @checkers %dam.pic 76 65 c:\wit.select.bmp
    drawpic @checkers
  }
  if (% [ $+ [ $replace(%dam.pic,$chr(32),-) ] ] == 2) {
    if (%dam.select2 != $null) {
      drawpic -msn @checkers %dam.select2 76 65 c:\zwart.bmp
    }
    set %dam.selected2 1
    set %dam.select2 %dam.pic
    drawpic -msn @checkers %dam.pic 76 65 c:\zwart.select.bmp
    drawpic @checkers
  }
  if (% [ $+ [ $replace(%dam.pic,$chr(32),-) ] ] == 0 && %dam.selected != $null && %dam.right == 1) {
    if (($calc($gettok(%dam.select,1,32) - $mouse.x) < 79 && $calc($gettok(%dam.select,1,32) - $mouse.x) > 0) || ($calc($mouse.x - $gettok(%dam.select,1,32)) < 158 && $calc($mouse.x - $gettok(%dam.select,1,32)) > 0)) {
      if ($calc($mouse.y - $gettok(%dam.select,2,32)) < 0) { halt }
      if ($calc($mouse.y - $gettok(%dam.select,2,32)) < 130 && $calc($mouse.y - $gettok(%dam.select,2,32) > 0)) {
        if (%dam.select) {
          drawpic -msn @checkers %dam.select 76 65 c:\zwart.vak.bmp
          drawpic -msn @checkers %dam.pic 76 65 c:\wit.bmp
          drawpic @checkers
          set % [ $+ [ $replace(%dam.select,$chr(32),-) ] ] 0
          set % [ $+ [ $replace(%dam.pic,$chr(32),-) ] ] 1
          unset %dam.select
          moetslaan
        }
      }
    }
    elseif (($calc($gettok(%dam.select,1,32) - $mouse.x) < 158 && $calc($gettok(%dam.select,1,32) - $mouse.x) > 79) && ($calc($gettok(%dam.select,2,32) - $mouse.y) < -132 && $calc($gettok(%dam.select,2,32) - $mouse.y) > -198)) {
      set %select3 $calc($gettok(%dam.select,1,32) - 79) $calc($gettok(%dam.select,2,32) + 66)
      set %select4 $calc($gettok(%dam.select,1,32) - 158) $calc($gettok(%dam.select,2,32) + 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 2) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\wit.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 1
        set % [ $+ [ $replace(%dam.select,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        unset %dam.select2
        moetslaan
      }
    } 
    elseif (($calc($gettok(%dam.select,1,32) - $mouse.x) < -154 && $calc($gettok(%dam.select,1,32) - $mouse.x) > -234) && ($calc($gettok(%dam.select,2,32) - $mouse.y) < -132 && $calc($gettok(%dam.select,2,32) - $mouse.y) > -198)) {
      set %select3 $calc($gettok(%dam.select,1,32) + 79) $calc($gettok(%dam.select,2,32) + 66)
      set %select4 $calc($gettok(%dam.select,1,32) + 158) $calc($gettok(%dam.select,2,32) + 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 2) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\wit.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 1
        set % [ $+ [ $replace(%dam.select,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        moetslaan
      }
    } 
    elseif (($calc($gettok(%dam.select,1,32) - $mouse.x) < 158 && $calc($gettok(%dam.select,1,32) - $mouse.x) > 79) && ($calc($gettok(%dam.select,2,32) - $mouse.y) > 66 && $calc($gettok(%dam.select,2,32) - $mouse.y) < 132)) {
      set %select3 $calc($gettok(%dam.select,1,32) - 79) $calc($gettok(%dam.select,2,32) - 66)
      set %select4 $calc($gettok(%dam.select,1,32) - 158) $calc($gettok(%dam.select,2,32) - 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 2) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\wit.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 1
        set % [ $+ [ $replace(%dam.select,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        moetslaan
      }
    } 
    elseif (($calc($gettok(%dam.select,1,32) - $mouse.x) < -154 && $calc($gettok(%dam.select,1,32) - $mouse.x) > -234) && ($calc($gettok(%dam.select,2,32) - $mouse.y) > 66 && $calc($gettok(%dam.select,2,32) - $mouse.y) < 132)) {
      set %select3 $calc($gettok(%dam.select,1,32) + 79) $calc($gettok(%dam.select,2,32) - 66)
      set %select4 $calc($gettok(%dam.select,1,32) + 158) $calc($gettok(%dam.select,2,32) - 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 2) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\wit.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 1
        set % [ $+ [ $replace(%dam.select,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        moetslaan
      }
    } 
  }
  if (% [ $+ [ $replace(%dam.pic,$chr(32),-) ] ] == 0 && %dam.selected2 != $null && %dam.right == 1) {
    if (($calc($gettok(%dam.select2,1,32) - $mouse.x) < 79 && $calc($gettok(%dam.select2,1,32) - $mouse.x) > 0) || ($calc($mouse.x - $gettok(%dam.select2,1,32)) < 158 && $calc($mouse.x - $gettok(%dam.select2,1,32)) > 0)) {
      if ($calc($mouse.y - $gettok(%dam.select2,2,32)) > 0) { halt }
      if ($calc($mouse.y - $gettok(%dam.select2,2,32)) > -63 && $calc($mouse.y - $gettok(%dam.select2,2,32) < 0)) {
        drawpic -msn @checkers %dam.select2 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %dam.pic 76 65 c:\zwart.bmp
        drawpic @checkers
        set % [ $+ [ $replace(%dam.select2,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%dam.pic,$chr(32),-) ] ] 2
        unset %dam.select2
        moetslaan2
      }
    }
    elseif (($calc($gettok(%dam.select2,1,32) - $mouse.x) < 158 && $calc($gettok(%dam.select2,1,32) - $mouse.x) > 79) && ($calc($gettok(%dam.select2,2,32) - $mouse.y) < -132 && $calc($gettok(%dam.select2,2,32) - $mouse.y) > -198)) {
      set %select3 $calc($gettok(%dam.select2,1,32) - 79) $calc($gettok(%dam.select2,2,32) + 66)
      set %select4 $calc($gettok(%dam.select2,1,32) - 158) $calc($gettok(%dam.select2,2,32) + 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 1) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\zwart.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 2
        set % [ $+ [ $replace(%dam.select2,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select2 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        moetslaan2
      }
    } 
    elseif (($calc($gettok(%dam.select2,1,32) - $mouse.x) < -154 && $calc($gettok(%dam.select2,1,32) - $mouse.x) > -234) && ($calc($gettok(%dam.select2,2,32) - $mouse.y) < -132 && $calc($gettok(%dam.select2,2,32) - $mouse.y) > -198)) {
      set %select3 $calc($gettok(%dam.select2,1,32) + 79) $calc($gettok(%dam.select2,2,32) + 66)
      set %select4 $calc($gettok(%dam.select2,1,32) + 158) $calc($gettok(%dam.select2,2,32) + 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 1) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\zwart.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 2
        set % [ $+ [ $replace(%dam.select2,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select2 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        moetslaan2
      }
    } 
    elseif (($calc($gettok(%dam.select2,1,32) - $mouse.x) < 158 && $calc($gettok(%dam.select2,1,32) - $mouse.x) > 79) && ($calc($gettok(%dam.select2,2,32) - $mouse.y) > 66 && $calc($gettok(%dam.select2,2,32) - $mouse.y) < 132)) {
      set %select3 $calc($gettok(%dam.select2,1,32) - 79) $calc($gettok(%dam.select2,2,32) - 66)
      set %select4 $calc($gettok(%dam.select2,1,32) - 158) $calc($gettok(%dam.select2,2,32) - 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 1) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\zwart.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 2
        set % [ $+ [ $replace(%dam.select2,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select2 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        moetslaan2
      }
    } 
    elseif (($calc($gettok(%dam.select2,1,32) - $mouse.x) < -154 && $calc($gettok(%dam.select2,1,32) - $mouse.x) > -234) && ($calc($gettok(%dam.select2,2,32) - $mouse.y) > 66 && $calc($gettok(%dam.select2,2,32) - $mouse.y) < 132)) {
      set %select3 $calc($gettok(%dam.select2,1,32) + 79) $calc($gettok(%dam.select2,2,32) - 66)
      set %select4 $calc($gettok(%dam.select2,1,32) + 158) $calc($gettok(%dam.select2,2,32) - 132)
      if (% [ $+ [ $replace(%select3,$chr(32),-) ] ] == 1) {
        drawpic -msn @checkers %select3 76 65 c:\zwart.vak.bmp
        drawpic -msn @checkers %select4 76 65 c:\zwart.bmp
        set % [ $+ [ $replace(%select3,$chr(32),-) ] ] 0
        set % [ $+ [ $replace(%select4,$chr(32),-) ] ] 2
        set % [ $+ [ $replace(%dam.select2,$chr(32),-) ] ] 0
        drawpic -msn @checkers %dam.select2 76 65 c:\zwart.vak.bmp
        drawpic @checkers
        moetslaan2
      }
    } 
  }
}
alias checkers2 {
  set %first 0
  drawfill -rn @checkers $rgb(80,40,200) $rgb(80,30,00) 0 0
  drawpic -msn @checkers 0 20 785 660 c:\dambord2.bmp
  drawpic -msn @checkers 79 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*3) 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*5) 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*7) 20 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*9) 20 75 65 c:\wit.bmp
  drawpic -msn @checkers 79 152 79 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*3) 152 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*5) 152 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*7-2) 152 76 64 c:\wit.bmp
  drawpic -msn @checkers $calc(79*9-2) 152 75 63 c:\wit.bmp
  drawpic -msn @checkers 0 88 79 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*2) 88 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*4) 87 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*6-2) 88 76 64 c:\wit.bmp
  drawpic -msn @checkers $calc(79*8-2) 88 75 63 c:\wit.bmp
  drawpic -msn @checkers 0 219 79 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*2) 219 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*4) 219 76 65 c:\wit.bmp
  drawpic -msn @checkers $calc(79*6-2) 219 76 64 c:\wit.bmp
  drawpic -msn @checkers $calc(79*8-2) 219 75 63 c:\wit.bmp
  drawpic -msn @checkers 0 $calc(66*7+20) 79 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*2) $calc(66*7+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*4) $calc(66*7+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*6-2) $calc(66*7+20) 76 64 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*8-2) $calc(66*7+20) 75 63 c:\zwart.bmp
  drawpic -msn @checkers 0 $calc(66*9+20) 79 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*2) $calc(66*9+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*4) $calc(66*9+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*6-2) $calc(66*9+20) 76 64 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*8-2) $calc(66*9+20) 75 63 c:\zwart.bmp
  drawpic -msn @checkers 79 $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*3) $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*5) $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*7) $calc(66*6+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*9) $calc(66*6+20) 75 65 c:\zwart.bmp
  drawpic -msn @checkers 79 $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*3) $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*5) $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*7) $calc(66*8+20) 76 65 c:\zwart.bmp
  drawpic -msn @checkers $calc(79*9) $calc(66*8+20) 75 65 c:\zwart.bmp
  drawtext -r @checkers $rgb(0,0,0) Evanescent 20 10 -4 Checkers - ©2007 Supamagier
  drawpic @checkers
  setplaces
}
alias moetslaan {
  unset %dam.select
  unset %check.slaan
  set %selectx $gettok(%dam.pic,1,32)
  set %selecty $gettok(%dam.pic,2,32)
  set %selectxy $calc(%selectx + 79) $calc(%selecty + 66)
  set %selectxy2 $calc(%selectx + 158) $calc(%selecty + 132)
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 2) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1
      set %moetslaan11 %selectxy2 
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx + 79) $calc(%selecty + 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx - 79) $calc(%selecty - 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx - 79) $calc(%selecty + 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  echo -e slaan1: %moetslaan --- slaan2: %moetslaan2 --- xy: %selectxy --- xy2: %selectxy2
  unset %moetslaan*
  unset %select*
}
alias moetslaan2 {
  unset %dam.select2
  unset %check.slaan
  set %selectx $gettok(%dam.pic,1,32)
  set %selecty $gettok(%dam.pic,2,32)
  set %selectxy $calc(%selectx + 79) $calc(%selecty + 66)
  set %selectxy2 $calc(%selectx + 158) $calc(%selecty + 132)
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2
      set %moetslaan22 %selectxy2 
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1
      set %moetslaan11 %selectxy2 
    }
  }
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
  }
  echo -e slaan1: %moetslaan --- slaan2: %moetslaan2 --- xy: %selectxy --- xy2: %selectxy2
  unset %moetslaan*
  unset %select*
}
on *:close:@checkers: {
  unset %dam*
  unset %*-*
  unset %*check*
  unset %moetslaan*
  unset %select*
}