Qbasicnews.com
January 22, 2022, 09:26:33 AM
 Pages: 1 [2] 3 4 5
 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"
?
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
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"
?
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
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"
?
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
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"
?
workpage = workpage xor 1
screenset workpage, workpage xor 1
sleep 2700, 1
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:
 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 »

 Logged

.14159265358979323846264338327950288419716939937510582709445
Zack
*/-\*

Posts: 3974

 « 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
Deleter
Na_th_an

Posts: 1293

 « 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:
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

 « 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

- - - - - - - - - - - - -
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

 « 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