Qbasicnews.com
January 22, 2022, 08:32:50 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 33287 times)
Kylemc
Guru
**
Posts: 291



WWW
« Reply #30 on: April 02, 2006, 06:37:37 PM »

Haha KiZ, nice  :rotfl:
Logged
Pritchard
Wandering Guru
***
Posts: 328


« Reply #31 on: April 02, 2006, 07:19:05 PM »

Hey guys! I just switched to an Apache 2.0.55 server, so I'll have the links redone in a minute. It beats my TinyWeb, that's for sure! XD!
Logged

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


« Reply #32 on: April 03, 2006, 07:43:38 AM »

Quote from: "KiZ"
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
Silence worm!
Logged
j2krei08
Guru
**
Posts: 284



WWW
« Reply #33 on: April 03, 2006, 12:34:50 PM »

Pyrokid program:

Code:
screen 14,16
cls
dim pic(1000) AS INTEGER
randomize timer
do until a$=chr$(27)
  a$=inkey$
   i+=1
   IF i = 1000 THEN
      y=int(rnd*610)+10
      x=int(rnd*300)+10
      c=INT(RND*255)+50
      clr=RGB(c,0,0)
      circle (x,y),10,clr
      paint (x,y),clr,clr
      i=0
   END IF
   y=int(rnd*610)+1
   x=int(rnd*310)+1
   
   get (x,y)-(x+5,y+5),pic
   put (x,y-1),pic,pset
   
loop

I just used his paintball program.
Logged
Deleter
Na_th_an
*****
Posts: 1293



WWW
« Reply #34 on: April 03, 2006, 04:00:01 PM »

I submit a program for myself:
Code:
Logged

TheDarkJay
I hold this place together
*****
Posts: 913



WWW
« Reply #35 on: April 03, 2006, 04:40:44 PM »

This forum:

Code:
Print "Z!re: STFU! 2+2 = 5!"
color 10: PRINT "*Flames Appear *"
color 15
Print "The last Sane Man Alive: ...*back away slowly, do not make eye contact. Stay away from the lunatic and the flames*
Print "The people of qbasicnews forums: NO! YOU ARE WRONG! 2+2 = 4! Or 6..we don't know...*Runs into the flames*"
sleep
Logged

url=http://www.sloganizer.net/en/][/url]
Z!re
*/-\*
*****
Posts: 4599


« Reply #36 on: April 03, 2006, 05:31:58 PM »

Quote from: "TheDarkJay"
This forum:

Print "Z!re: STFU! 2+2 = 5!"
color 10: PRINT "*Flames Appear *"
color 15
Print "The last Sane Man Alive: ...*back away slowly, do not make eye contact. Stay away from the lunatic and the flames*
Print "The people of qbasicnews forums: NO! YOU ARE WRONG! 2+" = 4! Or 6..we don't know...*Runs into the flames*"
sleep
2+2 DO equal 5


EDIT: Btw, am i like 50% of this forum or what?
Logged
Deleter
Na_th_an
*****
Posts: 1293



WWW
« Reply #37 on: April 03, 2006, 06:13:33 PM »

Quote from: "Z!re"
EDIT: Btw, am i like 50% of this forum or what?

I was wondering about that...maybe its because they all are nerds in need of gf's and think making a program of you will get them what they want Tongue. [/jk]

 :rotfl:
Logged

thegrogen
Ancient QBer
****
Posts: 444



« Reply #38 on: April 03, 2006, 06:27:41 PM »

Quote from: "Z!re"
2+2 DO equal 5


I've heard something about that somewhere... "2+5 = 5, for high values of 2".
Logged

.14159265358979323846264338327950288419716939937510582709445
Glarplesnarkleflibbertygibbertygarbethparkentalelelangathaffendoinkadonkeydingdonkaspamahedron.
Kylemc
Guru
**
Posts: 291



WWW
« Reply #39 on: April 03, 2006, 06:39:28 PM »

According to your profile, you are 3.47% of this forum  Tongue
Logged
red_Marvin
Na_th_an
*****
Posts: 1509



WWW
« Reply #40 on: April 03, 2006, 07:13:05 PM »

me: sorta....
Code:
option explicit
dim as string i
dim as integer x,y,c,d,n,p
randomize timer
screen 18,32,,1
x=rnd*640:y=rnd*640
d=rnd*4
c=rgb(rnd*255,rnd*255,rnd*255)
do
  i=inkey$
  if int(rnd+.01) then d=(d+int(rnd*4) and 3)
  select case d
    case 0: x+=1
    case 1: y+=1
    case 2: x-=1
    case 3: y-=1
  end select
  if x>=640 then x=0
  if x<0 then x=639
  if y>=480 then y=0
  if y<0 then y=479
  if point(x,y)>c and p>1024 and int(rnd+.01) then
    circle(x,y),16,rgb(127,127,127)
    locate iif(y\16+2>29,29,y\16+2),iif(x\8+2>80-13,80-13,x\8+2)  
    print "Took a photo."
    p=0
  end if
  p+=1
  pset(x,y),c
  if int(rnd+.001) then
    for n=0 to 255
      c=rgb(rnd*255,rnd*255,rnd*255)
      pset(x+int(rnd*16)-int(rnd*16),y+int(rnd*16)-int(rnd*16)),c
      sleep 1
    next  
    d=rnd*4
    locate iif(y\16+2>29,29,y\16+2),iif(x\8+2>80-6,80-6,x\8+2)
    print "meh...";
  end if
  if int(rnd+.0005) then locate iif(y\16+2>29,29,y\16+2),iif(x\8+2>80-7,80-7,x\8+2):print "zzzZZzz":sleep 3000
  sleep 5
loop while i=""
Logged

/post]
Dr_Davenstein
Na_th_an
*****
Posts: 2052


« Reply #41 on: April 04, 2006, 03:42:15 AM »

:rotfl:  :rotfl:  :rotfl:

Man, I missed some funny stuff here!
Logged
na_th_an
*/-\*
*****
Posts: 8244



WWW
« Reply #42 on: April 04, 2006, 12:25:57 PM »

All behold the ULTIMATE AAP TEXT FORMATTER by yours truly.

Code:
#define BBCODE 1
#define COLOURS 2

#define NORMAL 0
#define BEFORESENTENCE 1
#define BEFOREPARAGRAPH 2

#define RANDOMNESS 25

Dim Shared wordWrapLimit As Integer
Dim text As String
Dim ch As String
Dim whatToDo As Short
Dim state As Short
Dim m As String
Dim o As String
Dim i As Integer, multiUso As Integer, j As Integer
Dim action As Integer

wordWrapLimit = Width And &Hffff

Cls
Print "The AAP text formatter"
Print "======================"

Print
Print "Enter any text (post-long, please, remember that you are pretending to be AAP)"
Print "Press ENTER when you are done. Use # to start a new paragraph, i.e., the text:"
Print
Print "This is Paragraph 1.#This is Paragraph 2."
Print
Print "Consists on two different paragraphs. (Sorry, I'm too lazy to write a proper"
Print "editor."
Print

Line Input text

Print
Print "Now select output format:"
Print "  1.- BBCode, i.e. forum-ready"
Print "  2.- Screen colored output, to delight your senses"
Print

Do
    Locate ,1
    Print "1 or 2 please: ";
    Line Input ch
Loop While (ch <> "1" And ch <> "2")

whatToDo = Val (ch)

state = NORMAL

text = text + " "

For i = 1 To Len (text)

    m = Mid (text, i, 1)

    If m = "." Or m = "," Or m = ";" Then
        state = BEFORESENTENCE
    ElseIf m = "#" Then
        state = BEFOREPARAGRAPH
        m = ""
    End If

    If m = " " Then
        If 1 + Pos + Len (o) > wordWrapLimit Then Print

        action = Int (Rnd * RANDOMNESS) + 1

        Select Case action
            Case 0 To 2:
                multiUso = Int (Rnd * 6) + 1
                If whatToDo <> BBCODE Then
                    Color multiUso
                Else
                    Select Case multiUso
                        Case 1
                            o = "[color=blue]" + o + "[/color]"
                        Case 2
                            o = "[color=red]" + o + "[/color]"
                        Case 3
                            o = "[color=cyan]" + o + "[/color]"
                        Case 4
                            o = "[color=green]" + o + "[/color]"
                        Case 5
                            o = "[color=magenta]" + o + "[/color]"
                        Case 6
                            o = "[color=yellow]" + o + "[/color]"
                    End Select
                End If
            Case 3:
                o = "___" + o + "___"
            Case 4:
                o = "*" + o + "*"
            Case 5:
                o = "^_^;; " + o
            Case 6:
                If whatToDo <> BBCODE Then
                    Color 15
                Else
                    o = "[size=24]" + o + "[/size]"
                End If
            Case 7:
                If whatToDo <> BBCODE Then
                    Color 15
                Else
                    o = "[b]" + o + "[/b]"
                End If
            Case 8:
                If whatToDo <> BBCODE Then
                    Color 15
                Else
                    o = "[i]" + o + "[/i]"
                End If
            Case Else:
                Color 7
        End Select

        Print o; " ";
        o = ""

        If state = BEFORESENTENCE Then

            multiUso = Int (Rnd * RANDOMNESS / 2)

            Select Case multiUso
                Case 1:
                    If whatToDo <> BBCODE Then
                        Color 10
                        Print ";-) ";
                    Else
                        Print "[color=green][b][i];-)[/b][/i][/color] ";
                    End If
                Case 2:
                    Print ":D=b ";
                Case 3:
                    Print "d=:D=b ";
                Case 4:
                    Print "^o^ ";
                case 5:
                    Print ";)=b ";
                Case 6:
                    Print "d=:) ";
            End Select

        ElseIf state = BEFOREPARAGRAPH Then
            multiUso = Int (Rnd * RANDOMNESS / 8)
            If multiUso <= 1 Then
                multiUso = Int (Rnd * 5) + 5
                Print
                If whatToDo <> BBCODE Then
                    Color 10
                Else
                    Print "[color=green][b][i]";
                End If

                For j = 1 To multiUso
                    Print ";-D ";
                Next j

                If whatToDo <> BBCODE Then
                    Color 7
                Else
                    Print "[/i][/b][/color]"
                End If
                Print
            Else
                Print
                Print
            End If
        End If

        state = NORMAL
    Else
        o = o + m
    End If

Next i


Basicly you enter this:

Quote
Most dearest and worshipped fB/QB4.5/QB7.1/QBasic/VB/Ratass community:#This is just a test to see if this stupid engine works. I remember how, a couple of years ago, someone wondered if AAP did actually spend two hours writing one of his retina-burner BBCODE stravaganzas. I bet he didn't, he just used a proggie like this one.#This is full of bugs as I don't code in BASIC since I can't remember and I've done this in around 10 minutes... So enjoy#


just to get this:

Quote
Most dearest and worshipped fB/QB4.5/QB7.1/QBasic/VB/Ratass Cheesy=b community:

;-D ;-D ;-D ;-D ;-D ;-D ;-D ;-D
This is just a test to see if this stupid engine *works.* I *remember* how, ;-)[/i] a *couple* ___of___ years ago, d=:) someone wondered if AAP did actually spend two hours writing one of his retina-burner BBCODE stravaganzas. I bet ___he___ ^_^;; didn't, he just used a proggie like this one.

This is full of bugs as I don't code in BASIC since I can't remember and ^_^;; I've done this in around 10 minutes... ^o^ So enjoy d=:D=b
;-D ;-D ;-D ;-D ;-D


:lol:
Logged

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



« Reply #43 on: April 04, 2006, 02:11:15 PM »

I did something like that a while ago.

Code:
' Adiguns Review Maker v0.1

' Note, i *stole* this from Adiguns PC a while ago, so i guess he uses a more
' advanced version now.

#define GetRand(nmin,nmax) Int((nmax - nmin + 1) * rnd + nmin)

Function GetGoodAdj() As String
  Dim Adj(7) As String => {"AMAZING", "INCREDIBLE", "POWERFULL", _
                          "WONDERFULL", "REALLY GOOD", "AWESOME", "GREATEST"}
  Return Adj(GetRand(0, 6))
End Function

Dim As String AppName, AuthorName

Randomize Timer

Input "Project/App Name >", AppName
Input "Author           >", AuthorName
Print
Print "Ok!!!."
Print
Print "This is a " & GetGoodAdj & " review of the " & GetGoodAdj;
Print " program : " & AppName
Print
Print "Before I even start, I must point out just how " & GetGoodAdj;
Print " this program REALLY is."
Print
Print "I must **'TRULY SAY'** this is the most " & GetGoodAdj;
Print " program I have ever seen."
Print
Print AuthorName & " must now be viewed as one of the TRUE pillars of the ";
Print " qb/fb qmmunity, and this is SURELY " & AuthorName & "'s MOST ";
Print GetGoodAdj & " work to date."
Print
Print "Given all of the excellent features and great optimizations that ";
Print AuthorName & " has put into this, he did such an " & GetGoodAdj;
Print " job on his work of " & AppName & ", which joins the FB hall-of-fame ";
Print "as one of the most " & GetGoodAdj & " programs of 2006!!!"
Print
Print "Final Verdict : " & GetRand(8, 10) & "/10"
Print
Print "Until the next time, this is Adigun Azikiwe Polack, out!!! !"

Sleep
Logged

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


« Reply #44 on: April 04, 2006, 02:50:31 PM »

@Yetifoot and Na_th_an:

LMAO!!! ROFLMAO!!! HAHAHAH! *CAPITAL LETTERS*
Logged

 will Live Forever, or Die Trying >_<;;
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!