# Qbasicnews.com

Full Version: Make a program that is a person if they were coded!
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4 5 6 7 8
I died in one hit...
@Cha0s and Axipher:

That's Z!re for you
hehe, glad I'm not in that z!re proggie.
Quote:hehe, glad I'm not in that z!re proggie.
You are now ^_~
I vote for Pritchard!
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```
hahah, i like the v1c one ;P
^_^;; Me too! Now who else should I make...?
Take a crack at me lol, see who can make the best program of me, i'll judge. :king: :evil: 8)
axipher:

10 Print "Help me with these circles please"
20 Goto 10
Pages: 1 2 3 4 5 6 7 8