rendered paste bodyon *: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