Sorry your browser is not supported!

first, sorry for my bad English i come from Germany.
So, here is my first code snippet. I have used it in my soccer-manager project (i think in England you say football-manager) and modified it to a very basic-version because i think it could be useful for other people in their projects.
so, here it comes.

dim jau(11)
dim player$(11)
player=11
for x=1 to 11
read player$(x)
data "Player 1"
data "Player 2"
data "Player 3"
data "Player 4"
data "Player 5"
data "Player 6"
data "Player 7"
data "Player 8"
data "Player 9"
data "Player 10"
data "Player 11"
next x
out:
cls
set cursor 500,15:ink 50000000,5000000:print "on field :"
set cursor 580,15: ink 50000000,5000000:print onfield
y=1
for x=1 to player
y=40+(15*x)
if jau(x)=1
set cursor 5,y:ink 50000000,50000000:print Player$(x)
else
set cursor 5,y:ink 3000000,3000000:print Player$(x)
endif
next x
sleep 400
do
b=mouseclick()
if b=1 then goto Auswahl
loop
Auswahl:
do
a=mousey()
b=mouseclick()
a1=mousex()
for x=1 to player
y1=40+(15*x)
y2=(15+y1)-1
if b=1 and jau(x)=1 and a=>y1 and a=<y2 and a1<70 then sleep 100:jau(x)=0:onfield=onfield-1:goto out
if b=1 and a=>y1 and a=<y2 and a1<70 then sleep 100:jau(x)=1:onfield=onfield+1:goto out
next x
loop

Why did you post it twice?

sorry, it was a mistake from me. Please moderator delete the other thread