Qbasicnews.com
January 22, 2022, 09:08:26 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 ... 5
  Print  
Author Topic: Make a program that is a person if they were coded!  (Read 33288 times)
Pritchard
Wandering Guru
***
Posts: 328


« on: March 30, 2006, 12:01:28 AM »

Here's the Challenge:

Design your program, which can be ANY kind of program, around the idea of the person you're modelling it after. It's kind of like you're making that person, but in the form of an exe! Imagine reincarnating someone into an exe. Make that exe for the person ^_^;;

Example: Someone really smart might have been a puzzle game if they were born as a computer program.

Rules:

-You must name the person you are making the program after.
-Program can be of any type, musical, graphics, rpg, text game, etc
-No harrassing people by saying "This stupid program is what *name* would look like if they were an exe" - I don't even want *too much* joking around on this, you can hurt people's feelings.

I'm not so sure of a prize right now, but maybe just seeing people in the form of exe's is good enough ^_^;;

(I personally wanted to make a Z!re or a V1ctor, but I don't think my skills are high enough for a puzzle/extreme graphics program like that...Maybe I'll make a "Pete" - A program where you expect to win by February 18th of the game, but it ends up you can't beat it until June, which makes it all more worth-while and 3x as large *thanks Pete for the amazing QBE #19*)

People Who Are Now EXE's:

  • Adigun A. Polack - By Na_th_an
  • Adigun A. Polack - By Yetifoot
  • Axipher - By Yetifoot
  • Cha0s - By Pritchard
  • Chat_Bot - By KiZ
  • Deleter - By Deleter (note there is nothing for Deleter Cheesy)
  • DrV's Humor - By Pritchard
  • Forum - by TheDarkJay
  • Pritchard - By Cha0s
  • Pyrokid - By J2krei08
  • (sorta)Red_Marvin - By Red_Marvin (sorta?)
  • Seph - By relsoft
  • V1ctor - By Pritchard
  • Z!re- Pritchard
  • Z!re- By relsoft
Logged

 will Live Forever, or Die Trying >_<;;
Agamemnus
x/ \z
*****
Posts: 3491



« Reply #1 on: March 30, 2006, 01:13:49 AM »

:-|

I remember making er.... random ...sentences out of my middle school ...mates'... and.. teachers.... names... when I was in middle school.... something like that..? :-|
Logged

Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."

Visit www.neobasic.net to see rubbish in all its finest.
relsoft
*/-\*
*****
Posts: 3927



WWW
« Reply #2 on: March 30, 2006, 08:07:51 AM »

z!re:

Code:
cls
screen 13

do
pset (rnd * 320, rnd * 200), rnd * 255

loop until inkey$<>""




Seph:

Code:
cls
screen 13

c = 15
do

c = not c
line (0,0)-(319,199), c, bf

loop until inkey$<>""

Logged

y smiley is 24 bit.


Genso's Junkyard:
http://rel.betterwebber.com/
Anonymous
Guest
« Reply #3 on: March 30, 2006, 08:13:31 AM »

haha, seph doesnt do anything.... maybe you meant this:

Code:
Cls
Screen 13

Dim As uByte c = &hf
Do
  c Xor= &hf
  Line (0,0)-(319,199), c, bf

Loop Until Inkey$<>""


? ;P

edit: i look stupid... you edited it hehehe
Logged
Pritchard
Wandering Guru
***
Posts: 328


« Reply #4 on: March 30, 2006, 08:50:31 AM »

Cha0s (Does this remind you of anything you've said to me once? :rotfl: ):

Code:
defint a-z
dim workpage, x, y, t as double
t = timer
screenres 640, 480, 32, 2
workpage = 0
do
    locate 1, 1: Print "We're filling the screen with pset!"
    pset (x, y), rgb(rnd * 255, rnd * 255, rnd * 255)
x += 1
if x > 639 then
    x = 0
    y += 1
end if
workpage = workpage xor 1
screenset workpage, workpage xor 1
loop until timer - t > 4
t = timer
do
cls
    locate 1, 1: Print "Cha0s: Lol...Here's a program that uses a turtle to fill the screen"
workpage = workpage xor 1
screenset workpage, workpage xor 1
loop until timer - t > 2
do
    print "Turtle: I'm faster than using pset"
workpage = workpage xor 1
screenset workpage, workpage xor 1
loop until multikey(&h01)
Logged

 will Live Forever, or Die Trying >_<;;
Anonymous
Guest
« Reply #5 on: March 30, 2006, 09:07:58 AM »

hahaha, wtf?? :rotfl:

how about this

Code:
? "My name's Pritchard."

Input "will you help me with my keylogger program? " meh$

? "Pritchard: Gobbledegook!"
Logged
Pritchard
Wandering Guru
***
Posts: 328


« Reply #6 on: March 30, 2006, 09:52:54 AM »

Kay I totally own you all...

Here's MY Z!re:

Code:
defint a-z
const false = 0, true = not false
Randomize Timer
Declare Function Get_Name
Declare Function Do_Person_Stats
Declare Function Do_Zire_Stats
dim shared Random_Number
dim shared zire_attack
dim shared person_attack
Type Character_Type
    Hp as short
    Strength as short
    Defense as short
    Speed as short
    atb as short
    Name as String
End Type

Dim shared Zire as Character_Type
With zire
    .hp = 9999
    .strength = 255
    .defense = 255
    .speed = 100
    .atb = 0
    .name = "Z!re"
End With

Dim shared Person as Character_Type
With Person
    .hp = 1 + Rnd * 2000
    .strength = 1 + rnd * 50
    .defense = 1 + rnd * 50
    .speed = 1 + rnd * 9
    .atb = 0
end With

Get_Name
Screen 15, 24
Print "Battle! "; Person.name; " Vs. Z!RE!!"
sleep 3000
cls
Do
    Do_Zire_Stats
    Do_Person_Stats
if Person_Attack = true then
        Person.atb = 0
end if

Locate 1, 1: Print Person.name; ":"
Print "  HP: "; person.hp
print "  ATB: "; person.atb
Locate 1, 20: Print Zire.name; ":"
Locate 2, 20:Print "  HP: "; zire.hp
Locate 3, 20:print "  ATB: "; zire.atb
sleep 1000
Loop until Person.hp < 1 or multikey(&h01)

Function Do_Zire_Stats
    zire.atb += zire.speed
    if zire.atb >= 100 then
        zire_attack = true
        zire.atb = 100
    end if
    if Zire_attack = false then
        locate 10, 10: Print "                     "
    end if
    if Person_Attack = true then
        Zire.hp -= (Person.strength - Zire.defense)
        Person_Attack = false
        Person.atb = 0
        Locate 11, 10: Print UCASE$(Person.name); " ATTACKS!"
    end if

end function

Function Do_Person_Stats
    person.atb += person.speed
    if person.atb >= 100 then
        person_attack = true
        person.atb = 100
    end if
    if person_attack = false then
        locate 11, 10: Print "                     "
    end if
    if Zire_Attack = true then
        Person.hp -= (Zire.strength - person.defense)
        Zire_Attack = false
        Zire.atb = 0
        Locate 10, 10: Print "Z!RE ATTACKS!"
    end if
End Function

Function Get_Name
Random_Number = Rnd * 39
if random_number = 0 then Person.Name = "Cha0s"
if random_number = 1 then Person.Name = "Pritchard"
if random_number = 2 then Person.Name = "Z!re? - Not even Z!re is a match for Z!re?"
if random_number = 3 then Person.Name = "V1ctor"
if random_number = 4 then Person.Name = "Lillo"
if random_number = 5 then Person.Name = "D.J. Peters"
if random_number = 6 then Person.Name = "Axipher"
if random_number = 7 then Person.Name = "Pete"
if random_number = 8 then Person.Name = "Adigun A. Polack"
if random_number = 9 then Person.Name = "Seph"
if random_number = 10 then Person.Name = "100101"
if random_number = 11 then Person.Name = "relsoft"
if random_number = 12 then Person.Name = "mambazo"
if random_number = 13 then Person.Name = "arenth"
if random_number = 14 then Person.Name = "yuri"
if random_number = 15 then Person.Name = "coderjeff"
if random_number = 16 then Person.Name = "Stonemonkey"
if random_number = 17 then Person.Name = "DrV"
if random_number = 18 then Person.Name = "SSC"
if random_number = 19 then Person.Name = "VirusScanner"
if random_number = 20 then Person.Name = "Ophelius"
if random_number = 21 then Person.Name = "Ryan"
if random_number = 22 then Person.Name = "Lurah"
if random_number = 23 then Person.Name = "FragMeister"
if random_number = 24 then Person.Name = "Thrawn"
if random_number = 25 then Person.Name = "Rudiger"
if random_number = 26 then Person.Name = "SpeedBasic"
if random_number = 27 then Person.Name = "Tunginobi"
if random_number = 28 then Person.Name = "Dr. D"
if random_number = 29 then Person.Name = "SotSvart"
if random_number = 30 then Person.Name = "MystikShadows"
if random_number = 31 then Person.Name = "Vance"
if random_number = 32 then Person.Name = "Stormy"
if random_number = 33 then Person.Name = "RedCrab"
if random_number = 34 then Person.Name = "Antoni"
if random_number = 35 then Person.Name = "blahboybang"
if random_number = 36 then Person.Name = "Jofers"
if random_number = 37 then Person.Name = "rdc"
if random_number = 38 then Person.Name = "Imortis"
if random_number = 39 then Person.Name = "Deleter"
End Function
Logged

 will Live Forever, or Die Trying >_<;;
na_th_an
*/-\*
*****
Posts: 8244



WWW
« Reply #7 on: March 30, 2006, 11:03:49 AM »

I don't get this :shock:
Logged

SCUMM (the band) on Myspace!
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i
Pritchard
Wandering Guru
***
Posts: 328


« Reply #8 on: March 30, 2006, 11:46:22 AM »

The program you're supposed to write is a representation of the person you're writing it based off of.

For example. If someone is really smart, perhaps if they were reincarnated into an exe they would be a puzzle game Cheesy
Logged

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



« Reply #9 on: March 30, 2006, 02:33:58 PM »

Quote from: "Pritchard"
Kay I totally own you all...

Here's MY Z!re:

Code:
Code Snipped


My 1st time running I got Z!re versus Z!re - Z!re won
My 2nd time I got me versus Z!re - guess who won...
Logged
Anonymous
Guest
« Reply #10 on: March 30, 2006, 03:19:05 PM »

I died in one hit...  :cry:
Logged
Pritchard
Wandering Guru
***
Posts: 328


« Reply #11 on: March 30, 2006, 05:59:59 PM »

@Cha0s and Axipher:

That's Z!re for you Cheesy
Logged

 will Live Forever, or Die Trying >_<;;
Deleter
Na_th_an
*****
Posts: 1293



WWW
« Reply #12 on: March 30, 2006, 06:24:18 PM »

hehe, glad I'm not in that z!re proggie.  Tongue
Logged

Pritchard
Wandering Guru
***
Posts: 328


« Reply #13 on: March 30, 2006, 07:00:14 PM »

Quote from: "Deleter"
hehe, glad I'm not in that z!re proggie.  Tongue
You are now ^_~
Logged

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


« Reply #14 on: March 30, 2006, 10:18:56 PM »

I vote for Pritchard! Cheesy
Logged
Pages: [1] 2 3 ... 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!