Anonymous

menu * { 
  .Checkers: playcheck
}
;;Challenger
alias challenge {
  if ($1 ison #checkers && $1 != $me) {
    set %challenged. $1
    set %challenger. $me
    set %checkstatus. on
    msg $1 3 $+ $me thinks you can beat him in Checkers! Do you accept his challenge? Type Yes to accept, and No to deny.
  }
}
on *:text:*:?: { 
  if ($nick == %challenged. && %checkstatus. == on && %check.accepted. == $null) {
    if ($1- == yes) {
      msg $nick 3Challenge accepted, starting in 10 seconds!
      timercheck 1 10 playcheck
      set %check.accepted. 1
    }
    if ($1- == no) {
      msg $nick 3Challenge denied, coward!
      set %check.accepted. 0
    }
  }
}
;;Challenged
on *:text:*:?: {
  if ($2- == thinks you can beat him in Checkers! Do you accept his challenge? Type Yes to accept, and No to deny.) {
    if (%checkstatus == on) { msg $nick 3I'm already in a challenge! Please wait till that one is over. | halt }
    set %challenged. $me
    set %challenger. $nick
    set %checkstatus. on
  }
}
;;Challenged
on *:input:*: {
  if ($1 == Yes && %checkstatus. == on && %challenged. == $me && %check.accepted. == $null) {
    set %check.accepted. 1
    timercheck 1 10 playcheck
  }
  if ($1 == No && %checkstatus. == on && %challenged. == $me) {
    set %checkstatus. on
  }
}
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 }
  }
  if (%moetslaan2.0 == %dam.pic || %moetslaan2.1 == %dam.pic || %moetslaan.0 == %dam.pic || %moetslaan.1 == %dam.pic || (%moetslaan.0 == $null && %moetslaan2.0 = $null)) { 
    set %slaan.selected 1
    goto one 
  }
  elseif ((%slaan.selected == 1 && (%dam.pic == %moetslaan11.0 || %dam.pic == %moetslaan11.1 || %dam.pic == %moetslaan22.0 || %dam.pic == %moetslaan22.1)) && (%moetslaan2.0 || %moetslaan2.1 || %moetslaan.0 || %moetslaan.1) && (%dam.pic == $remove(%moetslaan11,-) || %dam.pic == $remove(%moetslaan22,-))) {
    unset %moetslaan*
    unset %slaan*
    goto one
  }
  else { 
    echo -s dam: %dam.pic
    echo -s 11.0: %moetslaan11.0 11.1: %moetslaan11.1 22.0: %moetslaan22.0 22.1: %moetslaan22.1
    echo -s selected? %slaan.selected
    echo -s Slaan: 1: %moetslaan.0 2: %moetslaan.1 3: %moetslaan2.0 4: %moetslaan2.1
    echo -s ___________________________________________________________________________________________
    halt 
  }
  :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 {
  var %count = 0
  var %count2 = 0
  unset %dam.select
  unset %check.slaan
  set %selectx $gettok(%dam.pic,1,32)
  set %selecty $gettok(%dam.pic,2,32)
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 2) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 1
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx + 158) $calc(%selecty + 132) 
      set %moetslaan11 $calc(%selectx + 158) $calc(%selecty + 132) 
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] $calc(%selectx + 79) $calc(%selecty + 66)
      set %check.slaan 2 
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx - 79) $calc(%selecty - 66)
      set %moetslaan22 $calc(%selectx - 79) $calc(%selecty - 66)
      inc %count 1
      inc %count2 1
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 1 
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx - 158) $calc(%selecty - 132)
      set %moetslaan11 $calc(%selectx - 158) $calc(%selecty - 132)
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] $calc(%selectx - 79) $calc(%selecty - 66)
      set %check.slaan 2 
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx + 79) $calc(%selecty + 66)
      set %moetslaan22 $calc(%selectx + 79) $calc(%selecty + 66)
      inc %count 1
      inc %count2 1
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 1 
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx - 158) $calc(%selecty + 132)
      set %moetslaan11 $calc(%selectx - 158) $calc(%selecty + 132)
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] $calc(%selectx - 79) $calc(%selecty + 66)
      set %check.slaan 2 
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx + 79) $calc(%selecty - 66)
      set %moetslaan22 $calc(%selectx + 79) $calc(%selecty - 66)
      inc %count 1
      inc %count2 1
    }
  }
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 1 
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx + 158) $calc(%selecty - 132)
      set %moetslaan11 $calc(%selectx + 158) $calc(%selecty - 132)
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 2 
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx - 79) $calc(%selecty + 66)
      set %moetslaan22 $calc(%selectx - 79) $calc(%selecty + 66)
      inc %count 1
      inc %count2 1
    }
  }
  echo -s %count2
}
alias moetslaan2 {
  var %count = 0
  var %count2 = 0
  unset %dam.select2
  unset %check.slaan
  set %selectx $gettok(%dam.pic,1,32)
  set %selecty $gettok(%dam.pic,2,32)
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 2 
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx + 158) $calc(%selecty + 132)
      set %moetslaan22 $calc(%selectx + 158) $calc(%selecty + 132)
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] $calc(%selectx + 79) $calc(%selecty + 66)
      set %check.slaan 1 
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx - 79) $calc(%selecty - 66)
      set %moetslaan11 $calc(%selectx - 79) $calc(%selecty - 66)
      inc %count 1
      inc %count2 1
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 2 
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx - 158) $calc(%selecty - 132)
      set %moetslaan22 $calc(%selectx - 158) $calc(%selecty - 132)
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] $calc(%selectx - 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx + 79) $calc(%selecty +66)
      set %moetslaan11 $calc(%selectx + 79) $calc(%selecty +66)
      inc %count 1
      inc %count2 1
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 2
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx - 158) $calc(%selecty + 132) 
      set %moetslaan22 $calc(%selectx - 158) $calc(%selecty + 132)
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] $calc(%selectx - 79) $calc(%selecty + 66)
      set %check.slaan 1
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx + 79) $calc(%selecty - 66) 
      set %moetslaan11 $calc(%selectx + 79) $calc(%selecty - 66)
      inc %count 1
      inc %count2 1
    }
  }
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2. [ $+ [ %count ] ] %dam.pic
      set %check.slaan 2 
      set %moetslaan22. [ $+ [ %count2 ] ] $calc(%selectx + 158) $calc(%selecty - 132)
      set %moetslaan22 $calc(%selectx + 158) $calc(%selecty - 132)
      inc %count 1
      inc %count2 1
    }
    if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 0) {
      set %moetslaan. [ $+ [ %count ] ] $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11. [ $+ [ %count2 ] ] $calc(%selectx - 79) $calc(%selecty + 66)
      set %moetslaan11 $calc(%selectx - 79) $calc(%selecty + 66)
      inc %count 1
      inc %count2 1
    }
  }
  echo -s %count2
}
on *:close:@checkers: {
  unset %dam*
  unset %*-*
  unset %*check*
  unset %select*
  unset %moetslaan*
  unset %slaan.*
}