Session end : 11h59m52s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
1130 FOR T=1 TO 30
1140 R1=CINT(RND(1)*15+1)
1150 R2=CINT(RND(1)*15+1)
1160 O1=POSITION(R1)
1170 O2=POSITION(R2)
1180 POSITION(R1)=O2
1190 POSITION(R2)=O1
1200 NEXT T
1130 RANDOMIZE TIME:PosX%=4:PosY%=4:FOR T=1 TO 30
1140 FinalPosX%=INT(RND*4)+1:FinalPosY%=INT(RND*4)+1:IF FinalPosX%=PosX% OR FinalPosY%=PosY% THEN 1140
1150 WHILE PosX% < FinalPosX%:GOSUB 1160:WEND:WHILE PosX% > FinalPosX%:GOSUB 1170:WEND:WHILE PosY% < FinalPosY%:GOSUB 1180:WEND:WHILE PosY% > FinalPosY%:GOSUB 1190:WEND:GOTO 1200
1160 IF PosX%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%+1):POSITION(PosI%+1)=16:PosX%=PosX%+1:RETURN ELSE RETURN
1170 IF PosX%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%-1):POSITION(PosI%-1)=16:PosX%=PosX%-1:RETURN ELSE RETURN
1180 IF PosY%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%+4):POSITION(PosI%+4)=16:PosY%=PosY%+1:RETURN ELSE RETURN
1190 IF PosY%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSITION(PosI%)=POSITION(PosI%-4):POSITION(PosI%-4)=16:PosY%=PosY%-1:RETURN ELSE RETURN
1200 NEXT T
1050 FOR T=1 TO 30
1060 R1=CINT(RND(1)*15+1)
1070 R2=CINT(RND(1)*15+1)
1080 O1=POSICION(R1)
1090 O2=POSICION(R2)
1100 POSICION(R1)=O2
1110 POSICION(R2)=O1
1120 NEXT T
1050 RANDOMIZE TIME:PosX%=4:PosY%=4:FOR T=1 TO 30
1060 FinalPosX%=INT(RND*4)+1:FinalPosY%=INT(RND*4)+1:IF FinalPosX%=PosX% OR FinalPosY%=PosY% THEN 1060
1070 WHILE PosX% < FinalPosX%:GOSUB 1080:WEND:WHILE PosX% > FinalPosX%:GOSUB 1090:WEND:WHILE PosY% < FinalPosY%:GOSUB 1100:WEND:WHILE PosY% > FinalPosY%:GOSUB 1110:WEND:GOTO 1120
1080 IF PosX%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%+1):POSICION(PosI%+1)=16:PosX%=PosX%+1:RETURN ELSE RETURN
1090 IF PosX%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%-1):POSICION(PosI%-1)=16:PosX%=PosX%-1:RETURN ELSE RETURN
1100 IF PosY%<4 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%+4):POSICION(PosI%+4)=16:PosY%=PosY%+1:RETURN ELSE RETURN
1110 IF PosY%>1 THEN PosI%=PosX%+(PosY%-1)*4:POSICION(PosI%)=POSICION(PosI%-4):POSICION(PosI%-4)=16:PosY%=PosY%-1:RETURN ELSE RETURN
1120 NEXT T