03-30-2006, 11:19 PM
03-31-2006, 01:59 AM
@Cha0s and Axipher:
That's Z!re for you
That's Z!re for you
03-31-2006, 02:24 AM
hehe, glad I'm not in that z!re proggie.
03-31-2006, 03:00 AM
Quote:hehe, glad I'm not in that z!re proggie.You are now ^_~
03-31-2006, 06:18 AM
I vote for Pritchard!
03-31-2006, 06:52 AM
V1ctor:
Code:
Declare Function Handle_Input
Declare Function Draw_Stuff_and_barriers
const false = 0, true = not false
Screenres 640, 480, 24, 2
dim shared as integer x, y, workpage, left_check, right_check, up_check, down_check
dim shared as single version
dim shared button_left = &h4b
dim shared button_right = &h4d
dim shared button_up = &h48
dim shared button_down = &h50
workpage = 0
x = 300
y = 300
WindowTitle "V1ctor by Pritchard"
do
cls
Handle_Input
Draw_stuff_and_Barriers
workpage = workpage xor 1
screenset workpage, workpage xor 1
loop until multikey(&h01)
Function Handle_Input
if multikey(button_left) then
x -= 1
end if
if multikey(button_right) then
x += 1
end if
if multikey(button_down) then
y += 1
end if
if multikey(button_up) then
y -= 1
end if
If Left_Check = true and x < 0 then x = 0
if Right_Check = true and (x + 9) > 640 then x = (640 - 9)
if up_check = true and y < 0 then y = 0
if down_check = true and (y + 9) > 480 then y = (480 - 9)
End Function
Function Draw_stuff_And_Barriers
if left_check = true and right_check = true and down_check = true and up_check = true then
line (0, 0)-(639, 479), rgb(120, 120, 120), bf
locate 20, 2: Print "V1ctor: Version 1.0 now in full effect."
? "Thanks for testing. Please hit Escape to exit"
end if
Line (x, y)-(x + 9, y + 9), rgb(20, 30, 180), bf
locate 1, 1: Print "Move with the Arrow Keys or Hit Escape to End"
? version
If Left_Check = false and x < 0 then
Print "V1ctor! There's a bug! I can go off-screen to the left!"
?
Print "V1ctor: Fixed, changes made in CVS"
?
Print "Downloading CVS. . ."
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
Print "CVS Downloaded, Changes are now in effect"
version += .25
Left_Check = true
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 1000, 1
end if
if Right_Check = false and (x + 9) > 640 then
Print "V1ctor! There's a bug! I can go off-screen to the right!"
?
Print "V1ctor: Fixed, changes made in CVS"
?
Print "Downloading CVS. . ."
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
Print "CVS Downloaded, Changes are now in effect"
version += .25
right_Check = true
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 1000, 1
end if
if up_check = false and y < 0 then
Print "V1ctor! There's a bug! I can go off-screen upward!"
?
Print "V1ctor: Fixed, changes made in CVS"
?
Print "Downloading CVS. . ."
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
Print "CVS Downloaded, Changes are now in effect"
version += .25
up_Check = true
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 1000, 1
end if
if down_check = false and (y + 9) > 480 then
Print "V1ctor! There's a bug! I can go off-screen downward!"
?
Print "V1ctor: Fixed, changes made in CVS"
?
Print "Downloading CVS. . ."
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
Print "CVS Downloaded, Changes are now in effect"
version += .25
down_Check = true
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 1000, 1
end if
end Function
Anonymous
03-31-2006, 02:14 PM
hahah, i like the v1c one ;P
03-31-2006, 02:52 PM
^_^;; Me too! Now who else should I make...?
03-31-2006, 11:41 PM
Take a crack at me lol, see who can make the best program of me, i'll judge. :king: :evil: 8)
04-01-2006, 07:26 PM
axipher:
10 Print "Help me with these circles please"
20 Goto 10
10 Print "Help me with these circles please"
20 Goto 10