Qbasicnews.com
January 22, 2022, 09:26:33 AM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: 1 [2] 3 4 5
  Print  
Author Topic: Make a program that is a person if they were coded!  (Read 33289 times)
Pritchard
Wandering Guru
***
Posts: 328


« Reply #15 on: March 30, 2006, 10:52:30 PM »

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
Logged

 will Live Forever, or Die Trying >_<;;
Anonymous
Guest
« Reply #16 on: March 31, 2006, 06:14:25 AM »

hahah, i like the v1c one ;P
Logged
Pritchard
Wandering Guru
***
Posts: 328


« Reply #17 on: March 31, 2006, 06:52:30 AM »

^_^;; Me too! Now who else should I make...?
Logged

 will Live Forever, or Die Trying >_<;;
axipher
Ancient Guru
****
Posts: 544



« Reply #18 on: March 31, 2006, 03:41:49 PM »

Take a crack at me lol, see who can make the best program of me, i'll judge. :king:  :evil:  Cool
Logged
yetifoot
Ancient Guru
****
Posts: 575



« Reply #19 on: April 01, 2006, 11:26:30 AM »

axipher:

10 Print "Help me with these circles please"
20 Goto 10
Logged

EVEN MEN OF STEEL RUST.
Pritchard
Wandering Guru
***
Posts: 328


« Reply #20 on: April 01, 2006, 08:03:50 PM »

:rotfl:
Logged

 will Live Forever, or Die Trying >_<;;
Z!re
*/-\*
*****
Posts: 4599


« Reply #21 on: April 01, 2006, 08:06:42 PM »

I was going to make an axipher.. but I'm too lazy..

Plan:
Program that blits random smileys all over the screen, all the time.. looped..
Logged
thegrogen
Ancient QBer
****
Posts: 444



« Reply #22 on: April 01, 2006, 09:17:48 PM »

How about me?
Logged

.14159265358979323846264338327950288419716939937510582709445
Glarplesnarkleflibbertygibbertygarbethparkentalelelangathaffendoinkadonkeydingdonkaspamahedron.
Zack
*/-\*
*****
Posts: 3974



WWW
« Reply #23 on: April 01, 2006, 10:25:52 PM »

How about an AOLer translator for Z!re, and don't skimp on the sarcasm-factor.
Logged

f only life let you press CTRL-Z.
--------------------------------------
Freebasic is like QB, except it doesn't suck.
thegrogen
Ancient QBer
****
Posts: 444



« Reply #24 on: April 02, 2006, 01:16:54 AM »

Here's another idea: how about an AI chatbot that emulates the person?
Logged

.14159265358979323846264338327950288419716939937510582709445
Glarplesnarkleflibbertygibbertygarbethparkentalelelangathaffendoinkadonkeydingdonkaspamahedron.
Deleter
Na_th_an
*****
Posts: 1293



WWW
« Reply #25 on: April 02, 2006, 01:28:18 AM »

Quote from: "yetifoot"
axipher:

10 Print "Help me with these circles please"
20 Goto 10

 :rotfl:  Cheesy
very nice, lol.
Logged

Pritchard
Wandering Guru
***
Posts: 328


« Reply #26 on: April 02, 2006, 01:36:19 AM »

Quote from: "Z!re"
I was going to make an axipher.. but I'm too lazy..

Plan:
Program that blits random smileys all over the screen, all the time.. looped..
Sounds good! I went away from the challenge itself and started putting the people in the program. I have no idea how you would put yourself, in yourself O_O;;

Oh well though, it's been fun XD!
Logged

 will Live Forever, or Die Trying >_<;;
Mr Match
Ancient Guru
****
Posts: 575



WWW
« Reply #27 on: April 02, 2006, 03:11:02 AM »

Ah man, I wasn't able to get my ass kicked by Z!re, I wasn't even in the program!... :cry:



 :lol:
Logged

Itch-Five Design - Your source for free, well designed, web design.
- - - - - - - - - - - - -
Quote from: stylin
I use QB religiously. Too bad I'm an athiest.
Pritchard
Wandering Guru
***
Posts: 328


« Reply #28 on: April 02, 2006, 03:20:56 AM »

Quote from: "Mr Match"
Ah man, I wasn't able to get my ass kicked by Z!re, I wasn't even in the program!... :cry:
Sorry man, I'll add you. I just don't know a bunch of people from QBN. My site's always been QBNZ and Freebasic.net

Edit: There. Now have fun getting your ass kicked by Z!re.
Logged

 will Live Forever, or Die Trying >_<;;
KiZ
__/--\__
*****
Posts: 2879


WWW
« Reply #29 on: April 02, 2006, 06:21:44 PM »

Quote from: "thegrogen"
Here's another idea: how about an AI chatbot that emulates the person?



Code:
do
   input "Talk:", chat$
   select case int(rnd * 3)
   case 0
      print "Z!re: SHUTUP PUNY MORTAL"
   case 1
      print "Z!re: BOW TO ME, I AM THE GODDESS"
   case 2
      print "Z!re: I AM IMMORTAL!!!!!1"
   end select
loop
Logged
Pages: 1 [2] 3 4 5
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!