Anonymous

menu * {
  .cross the street:{
    /new2
    .timer 1 1 .timerenemy -m 0 150 /enemy
  }
}
alias new2 {
  window -pdk0 +fxnbt @Cross
  clear @cross
  /drawdot @cross 03 1000 1 1
  /drawline @cross 15 120 1 132 850 132
  /drawline @cross 15 120 1 347 850 347
  /drawline @cross 8 10 1 132 850 132
  /drawline @cross 8 10 1 347 850 347
  /drawdot @cross 12 20 380 500
  set %.x 380
  set %.y 500
}
alias new {
  window -pdk0 +fxnbt @Cross
  clear @cross
  /drawdot @cross 03 1000 1 1
  /drawline @cross 15 120 1 132 850 132
  /drawline @cross 15 120 1 347 850 347
  /drawline @cross 8 10 1 132 850 132
  /drawline @cross 8 10 1 347 850 347
}
menu @cross {
  sclick {
    if (%gameover) { 
      /new2
    }
  }
}
alias enemy {
  if (!%gameover) {
    if (%rr > 850) {
      set %rr 1
      set %r 31
    }
    if (!%rr) { set %rr 1 }
    if (!%r) { set %r 31 }
    if ((%rr) && (%r)) {
      /drawline @cross 15 30 %rr 380 %r 380
      inc %rr 10
      inc %r 10
      /drawline @cross 7 30 %rr 380 %r 380 
    }
    if (%tt > 850) {
      set %tt 101
      set %tt 131
    }
    if (!%tt) { set %tt 101 }
    if (!%t) { set %t 131 }
    if ((%tt) && (%t)) {
      /drawline @cross 15 30 %tt 380 %t 380
      inc %tt 10
      inc %t 10
      /drawline @cross 7 30 %tt 380 %t 380 
    }
    if (%vv > 850) {
      set %vv 221
      set %v 251
    }
    if (!%vv) { set %vv 221 }
    if (!%v) { set %v 251 }
    if ((%vv) && (%v)) {
      /drawline @cross 15 30 %vv 380 %v 380
      inc %vv 10
      inc %v 10
      /drawline @cross 7 30 %vv 380 %v 380 
    }
  }
}
on *:keydown:@cross:37,38,39,40:{ 
  if (%gameover) { window -c @cross
    //echo -a The game was over nub
    halt
  }
  if ($keyval == 37) {
    /new
    Set %.x $calc(%.x - 15) 
    drawdot @cross 12 20 %.x %.y
  }
  if ($keyval == 38) {
    /new
    set %.y $calc(%.y - 15)
    drawdot @cross 12 20 %.x %.y
  }
  if ($keyval == 39) { 
    /new
    set %.x $calc(%.x + 15)
    drawdot @cross 12 20 %.x %.y
  }
  if ($keyval == 40) {
    /new
    set %.y $calc(%.y + 15) 
    drawdot @cross 12 20 %.x %.y
  }
  if (%col == 225) {  
    /drawtext @cross 4 370 250 Game over, Click to play again!
    set %gameover yes
    unset %col
    .timerenemy off
  }
  if (%.y <= 30) {
    /drawtext @cross 4 370 250 Great, you made it, Click to play again
    set %gameover yes
    unset %col
  }
}
on *:close:@cross:{
  unset %col
  unset %gameover
  unset %r
  unset %rr
  .timerenemy off
}