on *:load:{
  set %imgauche 226
  set %imright 87
  set %imfist 49
  set %imkick 50
  set %imdef1 51
  set %imdef2 52
  set %impseudo player1
  set %im2gauche 37
  set %im2right 39
  set %im2fist 97
  set %im2kick 98
  set %im2def1 99
  set %im2def2 13
  set %im2pseudo player2
  set %score 20
  set %imtime 60
  echo -a 15 Welcom On Teken 2
  echo -a 15 By aBd0ulaX
  .timerrun 1 3 teken_game
}
menu menubar {
  Teken 2 :/teken_game
}
alias addmap { .remove teken\image\back.jpg | .copy teken\image\map\ $+ $1 $+ .jpg teken\image\back.jpg }

alias mimess {
  drawrect -f @map 1 3 3 3 594 17
  drawtext @map 15 10 3 $1-
  drawtext @map 15 530 3 Menu
  drawtext @map 15 580 3 X
}
alias imtim {
  if ( ( %system != 2 ) && ( %system != 9 ) ) || ( !$window(@map) ) { .timerimtim off }
  drawrect -f @map 14 3 280 30 40 20
  drawrect @map 15 2 280 30 40 20
  drawtext @map 0 290 33 %imtime2
  set %imtime2 $calc( %imtime2 -1)
  if ( %imtime2 < 0  ) {
    .timerimtim 1 5 imrun %system 
    set %system 8
    set %statu2 4
    .timerrandbo* off
    drawrect -f @map 14 3 200 125 200 60
    drawrect @map 15 2 200 125 200 60
    drawtext @map 0 270 132 Time Out
    if ( %score1 > %score2 ) { drawtext @map 0 260 162 %impseudo win }
    elseif ( %score1 < %score2 ) { drawtext @map 0 260 162 %im2pseudo win }
    else { drawtext @map 0 273 162 Equality }
    halt 
  }
}
alias score {
  drawrect -f @map 12 3 12 30 $calc( %score2 * (246/ %score )) 20  
  drawrect -f @map 12 3 342 30 $calc( %score1 * (246/ %score )) 20 
  drawrect @map 2 3 10 30 250 20  
  drawrect @map 2 3 340 30 250 20
  drawtext @map 2 10 52 %impseudo
  drawtext @map 2 340 52 %im2pseudo
  if ( %score1 >= %score ) {
    .timerimtim 1 5 imrun %system 
    set %system 8
    set %statu2 4
    .timerrandbo* off
    drawrect -f @map 14 3 200 125 200 30
    drawrect @map 15 2 200 125 200 30
    drawtext @map 0 260 132 %impseudo win
  }
  elseif ( %score2 >= %score ) {
    .timerimtim 1 5 imrun %system 
    set %system 8
    set %statu2 4
    .timerrandbo* off
    drawrect -f @map 14 3 200 125 200 30
    drawrect @map 15 2 200 125 200 30
    drawtext @map 0 260 132 %im2pseudo win
  }
}

alias teken_game { 
  window -doapBkC +dL @map 1 1 600 270 
  drawrect @map 14 3 0 0 600 270  
  drawrect @map 15 1 0 0 600 270

  set %system 0
  intro1
}
alias intro1 {
  set %system 0
  mimess Welcom on teken II ...
  drawpic @map -30 20 teken\image\intro.jpg
  intro2
} 
alias intro2 {
  drawtext -o @map 15 277 130 PLAY
  drawtext -o @map 14 276 131 PLAY
  drawrect -d @map 15 2 246 124 100 25
  drawrect -d @map 14 2 245 125 100 25
  drawtext -o @map 15 268 160 SETTING
  drawtext -o @map 14 267 161 SETTING
  drawrect -d @map 15 2 246 154 100 25
  drawrect -d @map 14 2 245 155 100 25
}
alias intplay1 {
  set %system 10
  mimess Palying Mode ...
  drawpic @map -30 20 teken\image\intro.jpg
  intplay2
} 
alias intplay2 {
  drawtext -o @map 15 247 130 Player vs Player
  drawtext -o @map 14 246 131 Player vs Player
  drawrect -d @map 15 2 216 124 170 25
  drawrect -d @map 14 2 215 125 170 25
  drawtext -o @map 15 238 160 Player vs Computer
  drawtext -o @map 14 237 161 Player vs Computer
  drawrect -d @map 15 2 216 154 170 25
  drawrect -d @map 14 2 215 155 170 25
}
alias intserv {
  set %system 4
  mimess Choice your map ...
  set %immap 2
  drawpic @map -30 20 teken\image\intro.jpg
  drawpic -t @map $rgb(255,0,255) 120 150 teken\image\gauche.bmp
  drawpic -t @map $rgb(255,0,255) 400 150 teken\image\droite.bmp
  intserv2
} 
alias intserv2 {
  drawpic -s @map 200 130 200 100 teken\image\map\ $+ %immap $+ .jpg
  drawrect @map 14 2 200 130 200 100
  drawrect @map 15 2 198 128 204 104
}
alias tsetting1 {
  mimess Setting ...
  drawpic @map -30 20 teken\image\intro.jpg

  drawrect -df @map 1 1 0 225 200 25
  drawrect -df @map 1 1 200 225 200 25
  drawrect -df @map 1 1 400 225 200 25
  drawtext @map 0 50 230 Player left
  drawtext @map 0 250 230 Player right
  drawtext @map 0 450 230 Other option

  drawrect -f @map 14 1 90 125 50 18
  drawrect @map 15 1 90 125 50 18

  drawrect -f @map 14 1 90 160 50 18
  drawrect @map 15 1 90 160 50 18

  if ( $1 == 7 ) || ( $1 == 6 ) {
    drawtext @map 14 41 126 Left :
    drawtext @map 15 40 125 Left :

    drawtext @map 14 41 161 Fist :
    drawtext @map 15 40 160 Fist :

    drawtext @map 14 41 196 Kick :
    drawtext @map 15 40 195 Kick :
    drawrect -f @map 14 1 90 195 50 18
    drawrect @map 15 1 90 195 50 18


    drawtext @map 14 231 126 Right :
    drawtext @map 15 230 125 Right :
    drawrect -f @map 14 1 290 125 50 18
    drawrect @map 15 1 290 125 50 18

    drawtext @map 14 221 161 Defend :
    drawtext @map 15 220 160 Defend :
    drawrect -f @map 14 1 290 160 50 18
    drawrect @map 15 1 290 160 50 18

    drawtext @map 14 220 195 Defend :
    drawtext @map 15 221 196 Defend :
    drawrect -f @map 14 1 290 195 50 18
    drawrect @map 15 1 290 195 50 18

    drawtext @map 14 400 125 Pseudo :
    drawtext @map 15 401 126 Pseudo :
    drawrect -f @map 14 1 470 125 100 18
    drawrect @map 15 1 470 125 100 18

    if ( $1 == 7 ) {
      drawrect -df @map 0 1 0 225 200 25
      drawtext @map 1 50 230 Player left
      drawtext @map 15 102 125 %imgauche
      drawtext @map 15 102 161 %imfist
      drawtext @map 15 102 196 %imkick
      drawtext @map 15 302 125 %imright
      drawtext @map 15 302 161 %imdef1
      drawtext @map 15 302 196 %imdef2
      drawtext -c @map 15 475 126 90 18 %impseudo
    }
    elseif ( $1 == 6 ) {
      drawrect -df @map 0 1 200 225 200 25
      drawtext @map 1 250 230 Player right
      drawtext @map 15 102 125 %im2gauche
      drawtext @map 15 102 161 %im2fist
      drawtext @map 15 102 196 %im2kick
      drawtext @map 15 302 125 %im2right
      drawtext @map 15 302 161 %im2def1
      drawtext @map 15 302 196 %im2def2
      drawtext -c @map 15 475 126 90 18 %im2pseudo
    }
  }
  else {

    drawrect -df @map 0 1 400 225 200 25
    drawtext @map 1 450 230 Other option

    drawtext @map 14 41 126 Score :
    drawtext @map 15 40 125 Score :
    drawtext @map 15 102 125 %score

    drawtext @map 14 41 161 Time :
    drawtext @map 15 40 160 Time :
    drawtext @map 15 102 161 %imtime
  }

  drawrect -d @map 15 3 0 225 200 25
  drawrect -d @map 15 3 200 225 200 25
  drawrect -d @map 15 3 400 225 200 25
  drawrect -d @map 14 1 0 225 200 25
  drawrect -d @map 14 1 200 225 200 25
  drawrect -d @map 14 1 400 225 200 25

  .timertmp 1 1 set %system $1
}
alias imrun {
  if ( $1 == 2 ) { set %system 2 }
  elseif ( $1 == 9 ) { set %system 9 }
  set %joueur1 0
  set %joueur2 470
  set %score1 0
  set %score2 0
  set %statu 1 
  set %statu2 1 
  set %imtime2 %imtime
  mimess Play ...
  drawpic @map 0 20 teken\image\back.jpg
  imtim
  .timerimtim 0 1 imtim
  score
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp
  if ( %system == 9 ) { 
    randbot
    .timerrandbot3 0 1 randbot
    ;.timerrandbot4 0 1 randbot
    ;.timerrandbot5 0 1 randbot
    ;.timerrandbot6 0 1 randbot
    ;.timerrandbot7 0 1 randbot
    ;.timerrandbot8 0 1 randbot
  }
}
alias jm1.1 {
  score
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\2.bmp
  jm1
}
alias im1.1 {
  score
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\2.bmp
  im1
}
alias jm1 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp
  %statu2 = 1
  if ( %system == 9 ) { .timerrandbot2 1 .1 randbot }
}
alias im1 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp
  %statu = 1
}
alias im2 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\3.bmp
  if ( %joueur2 < $calc( %joueur1 +50) ) { set %joueur2 $calc( %joueur2 +2) | if ( %statu2 != 4 ) { inc %score1 | score } }
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\4.bmp
  sleep1 10 im1
}
alias jm2 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\3.bmp
  if ( %joueur2 < $calc( %joueur1 +50) ) { set %joueur1 $calc( %joueur1 -2) | if ( %statu != 4 ) { inc %score2 | score } }
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\4.bmp
  sleep2 10 jm1
}
alias im3 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\5.bmp
  if ( %joueur2 < $calc( %joueur1 +60) ) { set %joueur2 $calc( %joueur2 +2) | if ( %statu2 != 5 ) { inc %score1 | score } }
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\6.bmp
  sleep1 15 im1
}
alias jm3 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\5.bmp
  if ( %joueur2 < $calc( %joueur1 +60) ) { set %joueur1 $calc( %joueur1 -2) | if ( %statu != 5 ) { inc %score2 | score } }
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\6.bmp
  sleep2 15 jm1
}
alias im4 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\7.bmp
  sleep1 25 im1
}
alias jm4 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\7.bmp
  sleep2 15 jm1
}
alias im5 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\5.bmp
  sleep1 25 im1
}
alias jm5 {
  drawpic -n @map 0 20 teken\image\back.jpg
  if ( %joueur2 > $calc( %joueur1 +100) ) { drawpic -nt @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  else { drawpic -t @map $rgb(255,0,255) %joueur1 100 teken\image\joueur1\1.bmp }
  drawpic -t @map $rgb(255,0,255) %joueur2 100 teken\image\joueur2\5.bmp
  sleep2 15 jm1
}
alias randbot {
  if ( %system != 9 ) || ( !$window(@map) ) { .timerrandbo* off }
  if ( %statu2 != 1 ) { goto end }
  if ( %joueur2 < $calc( %joueur1 +60) ) { goto $rand($rand(0,2),5) }
  else { goto $rand(0,$rand(0,1)) }
  :0
  if ( %joueur2 > $calc( %joueur1 +25) ) { set %joueur2 $calc( %joueur2 -20) | jm1.1 }
  else { set %joueur2 $calc( %joueur2 -3) | set %joueur1 $calc( %joueur1 -3) | jm1.1 }
  goto end
  :1
  if ( %joueur2 < 470 ) { set %joueur2 $calc( %joueur2 +20) | jm1.1 }
  goto end
  :2
  %statu2 = 2 | jm2
  goto end
  :3
  %statu2 = 3 | jm3 
  goto end
  :4
  %statu2 = 4 | jm4
  goto end
  :5
  %statu2 = 5 | jm5 
  :end
  .timerrandbot 1 1 randbot
}
alias sleep1 {
  if ( $1 != 0 ) { %n = $1 | %m = 0 }
  if ( %n != %m ) { .timerim1 1 .1 sleep1 0 $2- | inc %m }
  elseif ( $window(@map) ) { $2- }
}
alias sleep2 {
  if ( $1 != 0 ) { %a = $1 | %b = 0 }
  if ( %a != %b ) { .timerim2 1 .1 sleep2 0 $2- | inc %b }
  elseif ( $window(@map) ) { $2- }
}

menu @map {
  mouse {
    if ($mouse.x >= 530) && ($mouse.x <= 570) && ($mouse.y >= 3) && ($mouse.y <= 18) {   drawtext @map 11 530 3 Menu | sleep1 20 drawtext @map 15 530 3 Menu }
    elseif ($mouse.x >= 580) && ($mouse.x <= 590) && ($mouse.y >= 6) && ($mouse.y <= 15) {   drawtext @map 11 580 3 X | sleep2 20 drawtext @map 15 580 3 X }
    elseif ( %system == 0 ) {
      if ($mouse.x >= 245) && ($mouse.x <= 345) && ($mouse.y >= 124) && ($mouse.y <= 150) { 
        drawtext -o @map 14 276 131 PLAY
        drawtext -o @map 15 277 130 PLAY
        drawrect -d @map 14 2 245 125 100 25
        drawrect -d @map 15 2 246 124 100 25
      }
      elseif ($mouse.x >= 245) && ($mouse.x <= 345) && ($mouse.y >= 154) && ($mouse.y <= 180) {
        drawtext -o @map 14 267 161 SETTING
        drawtext -o @map 15 268 160 SETTING
        drawrect -d @map 14 2 245 155 100 25
        drawrect -d @map 15 2 246 154 100 25
      }
      else { .timerintro 1 .1 intro2 }
    }
    elseif ( %system == 10 ) {
      if ($mouse.x >= 216) && ($mouse.x <= 384) && ($mouse.y >= 124) && ($mouse.y <= 150) { 
        drawtext -o @map 14 247 130 Player vs Player
        drawtext -o @map 15 246 131 Player vs Player
        drawrect -d @map 14 2 216 124 170 25
        drawrect -d @map 15 2 215 125 170 25
      }
      elseif ($mouse.x >= 216) && ($mouse.x <= 384) && ($mouse.y >= 154) && ($mouse.y <= 180) {
        drawtext -o @map 14 238 160 Player vs Computer
        drawtext -o @map 15 237 161 Player vs Computer
        drawrect -d @map 14 2 216 154 170 25
        drawrect -d @map 15 2 215 155 170 25
      }
      else { .timerintro 1 .1 intplay2 }
    }
  }
  sclick {
    if ($mouse.x >= 530) && ($mouse.x <= 570) && ($mouse.y >= 3) && ($mouse.y <= 18) { set %system 0 | intro1 }
    elseif ($mouse.x >= 580) && ($mouse.x <= 590) && ($mouse.y >= 6) && ($mouse.y <= 15) { .timerim1 off | window -c @map | imclose }
    elseif ( %system == 0 ) {
      if ($mouse.x >= 245) && ($mouse.x <= 345) && ($mouse.y >= 124) && ($mouse.y <= 150) { intserv }
      elseif ($mouse.x >= 245) && ($mouse.x <= 345) && ($mouse.y >= 154) && ($mouse.y <= 180) { set %system -1 | tsetting1 7 }
      else { placemap $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) } 
    }
    elseif ( %system == 10 ) {
      if ($mouse.x >= 216) && ($mouse.x <= 384) && ($mouse.y >= 124) && ($mouse.y <= 150) { set %system 2 | imrun 2 }
      elseif ($mouse.x >= 216) && ($mouse.x <= 384) && ($mouse.y >= 154) && ($mouse.y <= 180) { set %system 9 | imrun 9 }
      else { placemap $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) } 
    }
    elseif ( %system == 4 ) {
      if ($mouse.x >= 200) && ($mouse.x <= 400) && ($mouse.y >= 130) && ($mouse.y <= 230) { addmap %immap | intplay1 }
      elseif ($mouse.x >= 130) && ($mouse.x <= 180) && ($mouse.y >= 160) && ($mouse.y <= 205) && ( $exists( teken\image\map\ $+ $calc( %immap -1) $+ .jpg ) ) { set %immap $calc( %immap -1) | intserv2 }
      elseif ($mouse.x >= 415) && ($mouse.x <= 460) && ($mouse.y >= 160) && ($mouse.y <= 205) && ( $exists( teken\image\map\ $+ $calc( %immap +1) $+ .jpg ) ) { inc %immap | intserv2 }
      else { placemap $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) } 
    }
    elseif ( %system == 7 ) || ( %system == 6 ) || ( %system == 5 ) {
      if ($mouse.x >= 0) && ($mouse.x <= 200) && ($mouse.y >= 226) && ($mouse.y <= 245) { set %system 7 | tsetting1 7 }
      elseif ($mouse.x >= 200) && ($mouse.x <= 400) && ($mouse.y >= 226) && ($mouse.y <= 245) { set %system 6 | tsetting1 6 }
      elseif ($mouse.x >= 400) && ($mouse.x <= 600) && ($mouse.y >= 226) && ($mouse.y <= 245) { set %system 5 | tsetting1 5 }      
      elseif ( %system == 6 ) {
        if ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 125) && ($mouse.y <= 142) { set %selbut set2gauche | seltek } 
        elseif ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 160) && ($mouse.y <= 177) { set %selbut set2fist | seltek }
        elseif ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 195) && ($mouse.y <= 210) { set %selbut set2kick | seltek }
        elseif ($mouse.x >= 290) && ($mouse.x <= 340) && ($mouse.y >= 125) && ($mouse.y <= 142) { set %selbut set2right | seltek } 
        elseif ($mouse.x >= 290) && ($mouse.x <= 340) && ($mouse.y >= 160) && ($mouse.y <= 177) { set %selbut set2def1 | seltek }
        elseif ($mouse.x >= 290) && ($mouse.x <= 340) && ($mouse.y >= 195) && ($mouse.y <= 210) { set %selbut set2def2 | seltek }
        elseif ($mouse.x >= 470) && ($mouse.x <= 570) && ($mouse.y >= 125) && ($mouse.y <= 140) { set %im2pseudo $$?="Type your pseudo :" | tsetting1 6 }
        else { placemap $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) } 
      }
      elseif ( %system == 7 ) {
        if ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 125) && ($mouse.y <= 142) { set %selbut setgauche | seltek } 
        elseif ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 160) && ($mouse.y <= 177) { set %selbut setfist | seltek }
        elseif ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 195) && ($mouse.y <= 210) { set %selbut setkick | seltek }
        elseif ($mouse.x >= 290) && ($mouse.x <= 340) && ($mouse.y >= 125) && ($mouse.y <= 142) { set %selbut setright | seltek } 
        elseif ($mouse.x >= 290) && ($mouse.x <= 340) && ($mouse.y >= 160) && ($mouse.y <= 177) { set %selbut setdef1 | seltek }
        elseif ($mouse.x >= 290) && ($mouse.x <= 340) && ($mouse.y >= 195) && ($mouse.y <= 210) { set %selbut setdef2 | seltek }
        elseif ($mouse.x >= 470) && ($mouse.x <= 570) && ($mouse.y >= 125) && ($mouse.y <= 140) { set %impseudo $$?="Type your pseudo :" | tsetting1 7 }
        else { placemap $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) } 
      }
      elseif ( %system == 5 ) {
        if ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 125) && ($mouse.y <= 142) { set %score $$?="Enter the score for winning :" | tsetting1 5 } 
        elseif ($mouse.x >= 90) && ($mouse.x <= 140) && ($mouse.y >= 160) && ($mouse.y <= 177) { set %imtime $$?="Enter the time for the round :" | tsetting1 5 }
      }
    }
    else { placemap $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) } 
  }
  Close :/window -c @map | imclose
}

on 1:KEYDOWN:@map:*:{
  if ( %system == 2 ) || ( %system == 9 ) {
    if ( %statu == 1 ) {
      if ( ($keyval == %imright ) ) { 
        if ( %joueur2 > $calc( %joueur1 +25) ) { set %joueur1 $calc( %joueur1 +20) | im1.1 }
        else { set %joueur1 $calc( %joueur1 +3) | set %joueur2 $calc( %joueur2 +3) | im1.1 }
      }
      elseif ($keyval == %imgauche ) && ( %joueur1 > 0 ) { set %joueur1 $calc( %joueur1 -20) | im1.1 }
      elseif ($keyval == %imfist ) { %statu = 2 | im2 }
      elseif ($keyval == %imkick ) { %statu = 3 | im3 }
      elseif ($keyval == %imdef1 ) { %statu = 4 | im4 }
      elseif ($keyval == %imdef2 ) { %statu = 5 | im5 } 
    }
    if ( %statu2 == 1 ) && ( %system == 2 ) {
      if ( ($keyval == %im2gauche ) ) { 
        if ( %joueur2 > $calc( %joueur1 +25) ) { set %joueur2 $calc( %joueur2 -20) | jm1.1 }
        else { set %joueur2 $calc( %joueur2 -3) | set %joueur1 $calc( %joueur1 -3) | jm1.1 }
      }
      elseif ($keyval == %im2right ) && ( %joueur2 < 470 ) { set %joueur2 $calc( %joueur2 +20) | jm1.1 }
      elseif ($keyval == %im2fist ) { %statu2 = 2 | jm2 }
      elseif ($keyval == %im2kick ) { %statu2 = 3 | jm3 }
      elseif ($keyval == %im2def1 ) { %statu2 = 4 | jm4 }
      elseif ($keyval == %im2def2 ) { %statu2 = 5 | jm5 } 
    }
    score
  }
}

on 1:KEYDOWN:@select:*:set %seltek $keyval | %selbut | window -c @select
alias seltek { window -doapBkC +dL @select 1 1 200 40 | drawrect -f @select 14 1 0 0 200 50 | drawtext @select 15 20 10 appuyer sur la touche }
alias setgauche { set %imgauche %seltek | unset %seltek | tsetting1 7 }
alias setfist { set %imfist %seltek | unset %seltek | tsetting1 7 }
alias setkick { set %imkick %seltek | unset %seltek | tsetting1 7 }
alias setdef1 { set %imdef1 %seltek | unset %seltek | tsetting1 7 }
alias setdef2 { set %imdef2 %seltek | unset %seltek | tsetting1 7 }
alias setright { set %imright %seltek | unset %seltek | tsetting1 7 }

alias set2gauche { set %im2gauche %seltek | unset %seltek | tsetting1 6 }
alias set2fist { set %im2fist %seltek | unset %seltek | tsetting1 6 }
alias set2kick { set %im2kick %seltek | unset %seltek | tsetting1 6 }
alias set2def1 { set %im2def1 %seltek | unset %seltek | tsetting1 6 }
alias set2def2 { set %im2def2 %seltek | unset %seltek | tsetting1 6 }
alias set2right { set %im2right %seltek | unset %seltek | tsetting1 6 }
alias placemap {  window @map $calc($mouse.dx - $1) $calc($mouse.dy - $2) | if ($mouse.key & 1) .timer $+ $ticks -m 1 0 placemap $1- }
alias imclose { 
  .timerrandbo* off 
  .timerimtim off 
  .timerim off 
  .timertmp off 
  .timerint* off 
  unset %system
  unset %immap
  unset %a
  unset %b
  unset %n
  unset %m
  unset %imtime2
  unset %selbut
}

on *:close:@map:/imclose