Tekstin omaa liikkumista o.O
Posted: Fri Jun 28, 2013 1:25 am
Joo mul on sellanen jännä ongelma et tos ku toi menee eteempäin nii huomaa jo ensimmäises yhteisessä piste taulukossa et toi teksti putoo alaspäin pikku hiljaa.
En tiiä missä on vika mut epäilen vahvasti "Write" komentoa :/
Jos joku viittis auttaa ystävällisesti
En tiiä missä on vika mut epäilen vahvasti "Write" komentoa :/
Jos joku viittis auttaa ystävällisesti
Code: Select all
SCREEN 680,480
While Not KeyHit(28)
Pe1Ni$=Input("Ensimmäisen pelaajan nimi: ")
DrawScreen
Wend
CloseInput
ClearKeys
While Not KeyHit(28)
Pe2Ni$=Input("Toisen pelaajan nimi: ")
DrawScreen
Wend
CloseInput
ClearKeys
While Not KeyHit(28)
Pe3Ni$=Input("Kolmannen pelaajan nimi: ")
DrawScreen
Wend
CloseInput
ClearKeys
While Not KeyHit(28)
Pe4Ni$=Input("Neljännen pelaajan nimi: ")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe1Ni
Print " ensimmäisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe1ki1$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe2Ni
Print " ensimmäisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe2ki1$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe3Ni
Print " ensimmäisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe3ki1$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe4Ni
Print " ensimmäisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe4ki1$=Input(">>")
DrawScreen
Wend
Pe1ki1=Int(Pe1ki1)
Pe2ki1=Int(Pe2ki1)
Pe3ki1=Int(Pe3ki1)
Pe4ki1=Int(Pe4ki1)
Print "Pelaajien pisteet:"
Write " "+Pe1Ni
Print " "+Pe1ki1
Write " "+Pe2Ni
Print " "+Pe2ki1
Write " "+Pe3Ni
Print " "+Pe3ki1
Write " "+Pe4Ni
Print " "+Pe4ki1
If KeyHit(1)Then End
Print "Seuraava kierros suora ja kolmoset alkaa painamalla mitä tahansa paitsi esc:iä"
Print "Poistu painamalla esc"
WaitKey
CloseInput
ClearKeys
Write "Pelaajan "+Pe1Ni
Print " toisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe1ki2$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe2Ni
Print " toisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe2ki2$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe3Ni
Print " toisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe3ki2$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe4Ni
Print " toisen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe4ki2$=Input(">>")
DrawScreen
Wend
Pe1Ki2=Int(Pe1ki1)+Int(pe1ki2)
Pe2Ki2=Int(Pe2ki1)+Int(pe2ki2)
Pe3Ki2=Int(Pe3ki1)+Int(Pe3ki2)
Pe4Ki2=Int(Pe4ki1)+Int(Pe4ki2)
Print "Pelaajien pisteet toisella kieroksella:"
Write " "+Pe1Ni
Print " "+Pe1Ki2
Write " "+Pe2Ni
Print " "+Pe2Ki2
Write " "+Pe3Ni
Print " "+Pe3Ki2
Write " "+Pe4Ni
Print " "+Pe4Ki2
If KeyHit(1)Then End
Print "Seuraava kierros kaksi suoraa alkaa painamalla mitä tahansa paitsi esc:iä"
Print "Poistu painamalla esc"
WaitKey
CloseInput
ClearKeys
Write "Pelaajan "+Pe1Ni
Print " kolmannen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe1ki3$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe2Ni
Print " kolmannen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe2ki3$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe3Ni
Print " kolmannen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe3ki3$=Input(">>")
DrawScreen
Wend
CloseInput
ClearKeys
Write "Pelaajan "+Pe4Ni
Print " kolmannen kierroksen pisteet"
WaitKey
While Not KeyHit(28)
Pe4ki3$=Input(">>")
DrawScreen
Wend
Pe1Ki2=Int(Pe1ki1)+Int(pe1ki2)+Int(pe1ki3)
Pe2Ki2=Int(Pe2ki1)+Int(pe2ki2)+Int(pe2ki3)
Pe3Ki2=Int(Pe3ki1)+Int(Pe3ki2)+Int(pe3ki3)
Pe4Ki2=Int(Pe4ki1)+Int(Pe4ki2)+Int(pe4ki3)
Print "Pelaajien pisteet kolmannella kieroksella:"
Write " "+Pe1Ni
Print " "+Pe1Ki2
Write " "+Pe2Ni
Print " "+Pe2Ki2
Write " "+Pe3Ni
Print " "+Pe3Ki2
Write " "+Pe4Ni
Print " "+Pe4Ki2
If KeyHit(1)Then End
Print "Seuraava kierros kolmet kolmoset alkaa painamalla mitä tahansa paitsi esc:iä"
Print "Poistu painamalla esc"
WaitKey
Print "Error, here is nothing. Press anything for end"
WaitKey