Untitled

alias stratego {
  window -poxz @Stratego
  set %stratego 1
  drawpic -s @stratego 0 0 $window(@stratego).w $window(@stratego).h $qt($scriptdir $+ \stratego\strategoback.jpg)
  drawtext -r @Stratego 7910 Arial 105 200 105 Stratego
  drawtext -r @Stratego 4488053 Arial 100 200 100 Stratego
  drawtext -r @Stratego 4488053 Arial 30 300 200 Made by Kerst
  drawtext -r @Stratego 4488053 Arial 30 300 250 Left click to continue.
  drawtext -r @Stratego 4488053 Arial 30 300 300 http://forum.swiftirc.net
}
menu @stratego {
  sclick:{
    if (%stratego == 3) && ($inrect($mouse.x,$mouse.y,200,435,100,50)) strategomenu
    if (%stratego == 3) && ($inrect($mouse.x,$mouse.y,375,225,205,50)) { window -pdoxz @Stratego-pieces | drawpic @Stratego-pieces 0 0 $qt($scriptdir $+ \Stratego\stratego_Pieces.jpg) }
    if (%stratego == 2) && ($inrect($mouse.x,$mouse.y,300,295,100,50)) strategohelp
    if (%stratego == 2) && ($inrect($mouse.x,$mouse.y,300,360,100,50)) run http://en.wikipedia.org/wiki/Stratego
    if (%stratego == 2) && ($inrect($mouse.x,$mouse.y,300,220,100,50)) strategoplay
    if (%stratego == 1) strategomenu
  }
}
on *:close:@stratego: unset %stratego*
alias -l strategomenu {
  clear @stratego
  set %stratego 2
  drawpic -s @stratego 0 0 $window(@stratego).w $window(@stratego).h $qt($scriptdir $+ \stratego\strategoback.jpg)
  drawrect -rf @stratego 0 5 300 220 100 50
  drawrect -rf @stratego 0 5 300 295 100 50
  drawrect -rf @stratego 0 5 300 360 100 50
  drawrect -cr @stratego 7910 5 300 220 100 50 
  drawrect -cr @stratego 7910 5 300 295 100 50 
  drawrect -cr @stratego 7910 5 300 360 100 50 
  drawtext -r @Stratego 7910 Arial 105 200 105 Stratego
  drawtext -r @Stratego 4488053 Arial 100 200 100 Stratego
  drawtext -r @Stratego 4488053 Arial 30 320 225 Play
  drawtext -r @Stratego 4488053 Arial 30 320 300 Help
  drawtext -r @Stratego 4488053 Arial 30 320 375 Wiki
}