I was just playing around with newbie stuff and I may of just made the best screensaver in the world.
Reason is because my drunken friend came into my room while I was testing it and said "I best you 5 bucks the X wins!"
Haha
set display mode screen width(),screen height(),screen depth()
hide mouse
oldmousex# = mousex()
oldmousey# = mousey()
placementxa# = screen width()/2
placementya# = screen height()/2
placementxb# = screen width()/2
placementyb# = screen height()/2
stringya$ = "O"
stringyb$ = "X"
oldwhicha# = 1
oldwhichb# = 1
do
oldwhichb# = whichb#
repeat
whichb# = rnd(3)
acceptableb# = 1
if whichb# = 1
if oldwhichb# = 0
acceptableb# = 0
endif
endif
if whichb# = 0
if oldwhichb# = 1
acceptableb# = 0
endif
endif
if whichb# = 2
if oldwhichb# = 3
acceptableb# = 0
endif
endif
if whichb# = 3
if oldwhichb# = 2
acceptableb# = 0
endif
endif
until acceptableb# = 1
oldwhicha# = whicha#
repeat
whicha# = rnd(3)
acceptablea# = 1
if whicha# = 1
if oldwhicha# = 0
acceptablea# = 0
endif
endif
if whicha# = 0
if oldwhicha# = 1
acceptablea# = 0
endif
endif
if whicha# = 2
if oldwhicha# = 3
acceptablea# = 0
endif
endif
if whicha# = 3
if oldwhicha# = 2
acceptablea# = 0
endif
endif
until acceptablea# = 1
for xxx = 1 to 10
if whichb# = 0
placementxb# = placementxb# + 1
endif
if whichb# = 1
placementxb# = placementxb# - 1
endif
if whichb# = 2
placementyb# = placementyb# + 1
endif
if whichb# = 3
placementyb# = placementyb# - 1
endif
wait 10
if mousex() <> oldmousex#
cls
end
endif
if mousey() <> oldmousey#
cls
end
endif
if whicha# = 0
placementxa# = placementxa# + 1
endif
if whicha# = 1
placementxa# = placementxa# - 1
endif
if whicha# = 2
placementya# = placementya# + 1
endif
if whicha# = 3
placementya# = placementya# - 1
endif
cls
cls
text placementxa#,placementya#,stringya$
text placementxb#,placementyb#,stringyb$
wait 10
next xxx
if placementxa# > screen width()
placementxa# = screen width()/2
endif
if placementxa# < 0
placementxa# = screen width()/2
endif
if placementya# > screen height()
placementya# = screen height()/2
endif
if placementya# < 0
placementya# = screen height()/2
endif
if placementxb# > screen width()
placementxb# = screen width()/2
endif
if placementxb# < 0
placementxb# = screen width()/2
endif
if placementyb# > screen height()
placementyb# = screen height()/2
endif
if placementyb# < 0
placementyb# = screen height()/2
endif
loop
Note: I named ALL the variables for who they belong to by ending in a or b. everything ending in an A goes for the "O" (placementya#) and anything ending in a B goes for the "X" (placementyb#).
This used to be a very organized piece of code but I doubled for the use of the X and the O so nows it's sort of sloppy xD
Ventures of the worlds around us are only limited by imagination.
