Welcome Guest [Log In] [Register]



Add Reply
Physical Deleter; A funny program
Topic Started: Jul 6 2006, 10:05 PM (182 Views)
Big J
Member Avatar
2

I used this compiler to make Physical Deleter. It's the longest Program I've written in Basic.

Code:
 
rem This is Physical Deleter. Instead of deleting computer files,
rem this program deletes real-life objects! Useful for getting rid
rem of people that annoy you, people that are out to get you, or
rem simply things that you don't like. Although you may choose to
rem delete yourself, it is not recommended, unless it is being
rem considered as an alternative to suicide.
rem But remember: with great power comes great responsibility.

rem VARIABLES:
rem ch: a choice (1 through 5)
rem yn: yes or no (1 or 2)
rem am: amount of something found
rem obj$: an object
rem g$: an entire group


randomize timer
print "Welcome to PHYSICAL DELETER! It's DELETE-O-LICIOUS!"
print "LET'S GET STARTED! CHOOSE AN OPTION 1-5:"
1
ch=0
am=0
n1$="0"
yn=0
co=0

print "1. Delete a single person."
print "2. Target an entire group of people to delete."
print "3. Enter something to delete."
print "4. Delete a random idiot."
print "5. EXIT"
print "Make a choice."
input ch


if ch=1 then
print "Enter the person's name"
input n1$
print n1$" was successfully deleted!"
goto 1
end if


if ch=2 then
print "Enter a descriptive phrase of group to delete, i.e. Devil Worshippers,"
print "Illegal Immigrants, etc."
input g$
co=0
do
co=co+1
print "Now deleting group "g$"..." co"%"
if co=100 then exit do
loop
print "MASS DELETION SUCCESSFUL!"
goto 1
end if


if ch=3 then
print "Enter an instance name to search for"
am=(rnd)*1000
am=int(am)
input obj$
co=0
do
co=co+1
print "SEARCHING "obj$"..."
if co=100 then exit do
loop
3 print "There were exactly"am" "obj$"s found. DELETE THEM ALL?"
print "1. YES"
print "2. NO"
input yn
if yn=1 then
co=0
do
co=co+1
print "DELETING "obj$"..."co"%"
if co=100 then exit do
loop
print "All "obj$"s SUCCESSFULLY DELETED!"
goto 1
end if
if yn=2 then
print "NO DELETIONS PERFORMED."
goto 1
end if
if yn<>1 then
if yn<>2 then
print "OOPS! YOU MESSED UP! TRY AGAIN."
goto 3
end if
end if
end if


if ch=4 then
co=0
do
co=co+1
print "Searching for a random idiot..."co"%"
if co=100 then exit do
loop
2 print "Random idiot found. DELETE?"
print "1. YES"
print "2. NO"
input yn
if yn=1 then
print "RANDOM IDIOT SUCCESSFULLY DELETED!"
goto 1
end if
if yn=2 then
print "RANDOM IDIOT NOT DELETED..."
goto 1
end if
if yn<>1 then
if yn<>2 then
print "OOPS! YOU MESSED UP! TRY AGAIN."
goto 2
end if
end if
end if


if ch=5 then
print "THANKS FOR USING PHYSICAL DELETER! HAVE A NICE DAY!"
else
if ch<>5 then
if ch<>4 then
if ch<>3 then
if ch<>2 then
if ch<>1 then
print "YOU DID NOT SELECT ANYTHING..."
goto 1
end if
end if
end if
end if
end if
end if


EDIT: Fixed URL tags.
I create and modify my own code... I'm advanced AI!
Big J's Domain
I am an Posted Image in the GM Quiz!
Listen to what the robot has to say... CLICK HERE.
(Macromedia Flash Player 8 required)
GM7 Posted Image is now available!
Super Mario Pong v2.0
Offline Profile Quote Post Goto Top
 
ari_aaron
Member Avatar
1a4
Root Administrator
This is rather strange....

Reminds me of your UGMC sig. (was it you?)

My msn: Posted Image
Posted Image
If anyone wants GMail or Windows Live Messenger invites, PM me!
Offline Profile Quote Post Goto Top
 
Big J
Member Avatar
2

This is a prank program I made in QuickBasic, mostly as a programming exercise, and just for fun. It's not dangerous or anything, LOL, just a funny program.
I create and modify my own code... I'm advanced AI!
Big J's Domain
I am an Posted Image in the GM Quiz!
Listen to what the robot has to say... CLICK HERE.
(Macromedia Flash Player 8 required)
GM7 Posted Image is now available!
Super Mario Pong v2.0
Offline Profile Quote Post Goto Top
 
fsd
3a4

so what does it do
"mmmmm i love the internet. every time i go to a website i get a cookie HOW AWESOME IS THAT!" - Quote from me


"Any intelligent fool can make things bigger, more complex, and more violent. It takes a touch of genius -- and a lot of courage -- to move in the opposite direction." - Albert Einstein
"Imagination is more important than knowledge."- Albert Einstein
Offline Profile Quote Post Goto Top
 
Big J
Member Avatar
2

Code:
 
rem This is Physical Deleter. Instead of deleting computer files,
rem this program deletes real-life objects! Useful for getting rid
rem of people that annoy you, people that are out to get you, or
rem simply things that you don't like. Although you may choose to
rem delete yourself, it is not recommended, unless it is being
rem considered as an alternative to suicide.
rem But remember: with great power comes great responsibility.


It pretends to delete people, etc.
I create and modify my own code... I'm advanced AI!
Big J's Domain
I am an Posted Image in the GM Quiz!
Listen to what the robot has to say... CLICK HERE.
(Macromedia Flash Player 8 required)
GM7 Posted Image is now available!
Super Mario Pong v2.0
Offline Profile Quote Post Goto Top
 
Felp_man

Banned
<span class='closed_topic'>This Topic Has Been Closed By:</span> *Felp_man on <script type='text/javascript'>document.write( Date()); </script>

Note: This an automated reply!
this forum is gonna spiral downwards untill it crashes violently into the ground, spewing newbie mods all over the place.
Offline Profile Quote Post Goto Top
 
ari_aaron
Member Avatar
1a4
Root Administrator
Felp_man is a spammer.

*reopened*

My msn: Posted Image
Posted Image
If anyone wants GMail or Windows Live Messenger invites, PM me!
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · BASIC · Next Topic »
Add Reply


Theme designed by Sith of Outline