Msw Logo Tic Tac Toe

wawerka

Newbie
Dabei seit
Juni 2009
Beiträge
4
Wundervollen guten Morgen!
Programmiere momentan mit Msw logo tic tac toe jedoch gelningt mir das nciht so ganzweil ich an einer stelle ein problem habe und zwar ich habe alles schön programmiert sprich die mausklicks laufen auch perfekt jedoch fehlt mir eins und zwar der wechsel zwischen dem x und dem kreis

Code:
to a

pu

setxy 50 50

pd
 
O
 
end

to ab

pu

setxy 50 50

pd
 
x
 
end

to b

pu

setxy 150 50

pd
 
O
 
end

to bb

pu

setxy 150 50

pd
 
x
 
end

to c

pu

setxy 250 50

pd
 
O
 
end

to cb

pu

setxy 250 50

pd
 
x
 
end

to change
pu
setxy -50 100
pd
x
pu

setxy -50 50
pd
o

end

to choose
pu
setxy -70 220
pd
x
pu
setxy -70 50
pd
o
end

to d

pu

setxy 50 150

pd
 
O
 
end

to db

pu

setxy 50 150

pd
 
x
 
end

to e

pu

setxy 150 150

pd
 
O
 
end

to eb

pu

setxy 150 150

pd
 
x
 
end

to f

pu

setxy 250 150

pd
 
O
 
end

to fb

pu

setxy 250 150

pd
 
x
 
end

to feld

    ht
   
    setsc [255 255 255]

    setpc [51 102  204]

    setpensize [3 3]
 
 
    cs

    home
   
    pd


    repeat 4 [ fd 300 rt 90]
 
    home

    fd 100

    rt 90
   
    fd 300

    lt 90
 
    fd 100

    lt 90

    fd 300

    home

    rt 90
 
    fd 100

    lt 90

    fd 300

    rt 90

    fd 100

    rt 90

    fd 300
   

end

to g

pu

setxy 50 250

pd
 
O
 
end

to gb

pu

setxy 50 250

pd
 
x
 
end

to h

pu

setxy 150 250

pd
 
O
 
end

to hb

pu

setxy 150 250

pd
 
x
 
end

to i

pu

setxy 250 250

pd
 
O
 
end

to ib

pu

setxy 250 250

pd
 
x
 
end

to mousepressed


    localmake "curpos mousepos

    localmake "x item 1 :curpos

    localmake "y item 2 :curpos

    localmake "suggest -1

    if (AND :x>0 :x<100 :y>0 :y<100) [make "suggest a]

    if (AND :x>100 :x<200 :y>0 :y<100) [make "suggest b]

    if (AND :x>200 :x<300 :y>0 :y<100) [make "suggest c]

    if (AND :x>0 :x<100 :y>100 :y<200) [make "suggest d]

    if (AND :x>100 :x<200 :y>100 :y<200) [make "suggest e]

    if (AND :x>200 :x<300 :y>100 :y<200) [make "suggest f]

    if (AND :x>0 :x<100 :y>200 :y<300) [make "suggest g]

    if (AND :x>100 :x<200 :y>200 :y<300) [make "suggest h]

    if (AND :x>200 :x<300 :y>200 :y<300) [make "suggest i]


end

to O
    pu
   
    setpc [255 0 153]

    setpensize [2 3]
   
    pd
       
 
    circle 42

    pu
   
   
end

to start
cs
feld
choose
mousepressed
yourturn
end

to x
   pu

   setpc [51 255 51]
 
   setpensize [2 3]

   pu

   fd 5

   pd
 
   rt 30

   fd 35

   bk 70

   fd 35

   lt 60

   fd 35

   bk 70
 
   
end

to yourturn


    make "selection -1

    mouseon [mousepressed] [] [] [] []

    while [:selection < 0] [wait 1]

    mouseoff

    place :selection

end

Make "selection -1
Ein Screenshot vom spielfeld


habe mir berlegt das wenn ich auf das x drücke der das x auswählt jedoch kriege ich dasn achher nicht gebacken das so zu programmieren wegen den mauklicks der kommt i wie durcheinander

fals jemand ne idee hat wie der sonst zwischen dem x und dem kreis wechseln kann ohne diese auswahl bitte vorschlagen

achja das spielfeld ist so aufgebaut
das jeder kasten nen buchtsaben hat

der kasten ganz unten links ist mit dem befehl a und ab verbunden a macht nur einen kreis ab macht ein x

hoffe es ist klar geworden wie ich das aufgebaut habe einfach richtig simple

und ich hoffe auf ne menge antworten , danke!
 

wawerka

Newbie
Ersteller dieses Themas
Dabei seit
Juni 2009
Beiträge
4
Update:

Das spiel könnte ich auch gegen den computer spielen lassen wenn jemand ne idee hat wie ich das anstellen könnte bitte posteen!

Danke!
 

wawerka

Newbie
Ersteller dieses Themas
Dabei seit
Juni 2009
Beiträge
4
Update :

Das spiel habe ich jetzt noch einfacher programmiert und es läuft =)
 
Top