I died in one hit...
Posts: 222
Threads: 10
Joined: Mar 2006
@Cha0s and Axipher:
That's Z!re for you
will Live Forever, or Die Trying >_<;;
Posts: 1,025
Threads: 44
Joined: May 2005
hehe, glad I'm not in that z!re proggie.
Posts: 222
Threads: 10
Joined: Mar 2006
Quote:hehe, glad I'm not in that z!re proggie.
You are now ^_~
will Live Forever, or Die Trying >_<;;
Posts: 3,522
Threads: 189
Joined: Dec 2003
I vote for Pritchard!
Posts: 222
Threads: 10
Joined: Mar 2006
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
will Live Forever, or Die Trying >_<;;
hahah, i like the v1c one ;P
Posts: 222
Threads: 10
Joined: Mar 2006
^_^;; Me too! Now who else should I make...?
will Live Forever, or Die Trying >_<;;
Posts: 488
Threads: 19
Joined: Sep 2005
Take a crack at me lol, see who can make the best program of me, i'll judge. :king: :evil: 8)
Posts: 484
Threads: 14
Joined: Apr 2005
axipher:
10 Print "Help me with these circles please"
20 Goto 10
EVEN MEN OF STEEL RUST.
|