TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 11th Jan 2004 17:16

Modified: 1st Jan 1970 01:00

Author: Alkaline

Summary

Adikt Studios First Program. Very simple/short conversation with the program

Full Description

Adikt Studios First Dark basic Program. Have a short and simple conversation with the program. Very Basic. Boring and a little fun

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`----------------------------------------------------------`

`-----------------------Adikt-Studios----------------------`

`----------------------------------------------------------`

`-------------------Copyrighted-(c)-2004-------------------`

`----------------------------------------------------------`

`-Author:Aaron Christian And associaded with Adikt Studios-`

`----------------------------------------------------------`

`----------Adikt Studios Very First,Simple Program---------`

`----------------------------------------------------------`

`----------------------Project Daniel----------------------`

`----------------------------------------------------------`

`other

cls

hide mouse

set cursor 0,210

set text to italic

set text opaque

set text to bold

`The first input

input "My name is Daniel, whats your name? ", name$

cls

`--input anwsers--

set cursor 0,210

print "so you are " +name$

wait 2000

Cls

set cursor 0,210

print "Hello " +name$, " i like your name"

wait 3000

Cls

set cursor 0,210

`The second input

input "Whats your age:", age$

cls

`--input anwsers--

set cursor 0,210

print "so your " +age$

wait 2000

cls

set cursor 0,210

print "Your so young, in my opinon you can still follow your dreams"

wait 7000

Cls

set cursor 0,210

`The Third input

input "Whats your birthday:", bd$

cls

`--input anwsers--

set cursor 0,210

print "Im only a program..."

wait 2000

Cls

set cursor 0,210

print "to bad im not human"

wait 2000

Cls

set cursor 0,210

print "i was born on the same day..." +bd$

wait 10000

Cls

set cursor 0,210

print "We could have been a perfect couple, because you were born on " +bd$, " also"

wait 10000

Cls

set cursor 0,210

`The Forth input

input "Whats Your Gender:", gender$

cls

`--input anwsers--

set cursor 0,210

print "well,well,well...your a " +gender$

wait 3000

cls

set cursor 0,210

print "with all of the thing you have told me already you seem like a nice, intellegent " +gender$

wait 10000

cls

set cursor 0,210

`The fifth input

input "Whats your Hobbies:",hobbies$

cls

`--input anwsers--

set cursor 0,210

print " i wish i had hobbies like yours such as " +hobbies$

wait 5000

cls

set cursor 0,210

print "they sound comforting and nice things to do"

wait 4000

cls

set cursor 0,210

print "all i have to do is talk to people when they talk to me, so its not as fun as your " +hobbies$,

print " hobbies"

wait 9000

cls

set cursor 0,210

`The sixth input

input "well i liked talking to you, did you like talking to me?Yes or No  ",yorn$

cls

set cursor 0,210

`--Input anwsers--

Print "well you picked " +yorn$, " ...Its your opinon. All i know is that i liked talking to you"

wait 8000

Cls

`Goodbye Message