TGC Codebase Backup



Website Launcher by blood scent

15th May 2006 17:24
Summary

With this program, you can laucnh a website by either typing its address(without the http:), or just typing a shortcut word, such as codebase to go to the db codebase. I got my ide



Description

Don't get your hopes up, you still need an internet connection to make this work(and i just realize that anyone reading this has one). If you have anything to say to me email at frankietheg123@yahoo.com. Also included in the program is a remmed out rubric incase your stuck on how to make your own shortcuts. I forgot to add the upper$() command so that you would be able to type it in lowercase or uppercase, so just do it yourself please. example : if upper$(myweb$)="CODEBASE".......................



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: WebDemo
Rem Created: 10/08/2002 02:55:43
rem Hours: 0.2


remstart

if you want to make your own shortcut names, follow this rubric

if myweb$="what you want shorcut name to be"
myweb$="website address (without the http:)"
endif

remend



rem Simple Program to Link To a Website
load image "mediagfxbackdrop.jpg",1

rem Small visual
for t=1 to 300 step 3
 paste image 1,300-t,300-t : sleep 1
next t

rem get website
input "website name",myweb$

rem DARKBASIC CODEBASE shortcut
if myweb$="codebase"
myweb$="www.darkbasicpro.thegamecreators.com/?m=codebase_list"
endif

rem google shortcut
if myweb$="goo"
myweb$="www.google.com"
endif

rem runescape shortcut
if myweb$="rune"
myweb$="www.runescape.com"
endif

rem my school website shortcut
if myweb$="soms"
myweb$="www.schoolnotes.com"
endif

rem ebaumsworld shortcut
if myweb$="ebaum"
myweb$="www.ebaumsworld.com"
endif

rem my newgrounds shortcut
if myweb$="new"
myweb$="www.newgrounds.com"
endif

rem my United Nations shortcut
if myweb$="un"
myweb$="www.un.org"
endif

rem Xiao Xiao (stick figures fighting each other) shortcut
if myweb$="xiao"
myweb$="www.stickpage.com/xiao.shtml"
endif

rem bullettime fighting game shortcut
if myweb$="bullet"
myweb$="www.ebaumsworld.com/bullettimefighting.html"
endif

rem defend your castle game shortcut
if myweb$="defend"
myweb$="www.ebaumsworld.com/castle.html"
endif

rem turn it into website form
myweb$="http:"+myweb$

rem Launch website
execute file myweb$,"",""

rem Exit program
end