home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World's Top 500 Windows Games
/
Top500WindowsGames.iso
/
jlmwin1
/
jlmwin1.dbo
< prev
next >
Wrap
Text File
|
1996-03-21
|
158KB
|
1,144 lines
// This is the script file for JLM Top 200 Games
////////////////////////////
// run animation
////////////////////////////
runanim:
execute "runanim.exe"
////////////////////////////
// initialise
////////////////////////////
initialize:
set condition 50
////////////////////////////
// install icons
////////////////////////////
install_icons:
$target = "jlm200"
$title = "JLM Software"
$progtitle = "Another Top 200 Games"
$destdir = $cd,"\jlm200"
DDE "PROGMAN" string "[CreateGroup(",$title,")]"
DDE "PROGMAN" string "[ShowGroup(1)]"
DDE "PROGMAN" string "[AddItem(",$destdir,"\",$target,".exe jlm200,",$progtitle,",",$destdir,"\",$target,".exe,0)]"
////////////////////////////
// Drive selection screen
////////////////////////////
get_drives:
$cd1=getedit "editcd"
$hd1=getedit "edithd"
good=FALSE
if strlen $hd1==1
if strlen $cd1==1
good=TRUE
if good==TRUE
$cd=$cd1,":"
$hd=$hd1,":"
screen "first"
set condition -50
set condition 40
else
screen "baddrives"
get_hdrive:
$hd1=getedit "edithd"
good=FALSE
if strlen $hd1==1
good=TRUE
if good==TRUE
$hd=$hd1,":"
screen "Title"
else
screen "badhdrives"
////////////////////////////
// Category selection functions
////////////////////////////
cat_sel :
// numcats is number of categories
// load in cats from a file
catlist = new byte[15][30]
load $cd,"\jlm200\jlmcats.inf" byte cats
// break cats into an array of strings
n=0
test = TRUE
ind=0
while test
ind=parse cats[ind] to $catlist[n]
if ind==ERROR then test=FALSE
n=n+1
numcats = n
//display element "catlistbox"
//add each item to the list
for n=0 to numcats-1
index = listbox "catlistbox" add $catlist[n]
// set catchoice to first position
$catchoice=$catlist[0]
detect_sel : dummy,pos
$catchoice=$catlist[pos]
// maybe put in updating pictures based on current Category
browse_games:
newcat=TRUE
display screen "browser"
////////////////////////////
// Game selection functions
////////////////////////////
game_sel :
if newcat==TRUE
$blurbb=" "
pos=0
// load in games from a file
gamelist = new byte[800][30]
// use string manipulation to load game title list
$filename=$cd,"\jlm200\",$catchoice strcnt 4,".inf"
load $filename byte games
// break games into an array of strings
n=0
test = TRUE
ind=0
while test
ind=parse games[ind] to $gamelist[n]
if ind==ERROR then test=FALSE
n=n+1
numgames = (n-1)/4
//add each title to the game list
n=0
while n < (numgames*4-1)
index = listbox "gamelist" add $gamelist[n]
n=n+4
newcat=FALSE
//set catchoice to first position
$gamechoice=$gamelist[pos]
$gamedir=$cd,"\gamescd2\",$catchoice strcnt 4,"\",$gamelist[1]
detect_gsel : dummy,pos
blurba=new byte[1000]
$gamechoice=$gamelist[pos*4]
// maybe put in updating pictures based on current Category
$scrshot=$cd,"\jlm200\",$gamelist[pos*4 + 1],".bmp"
load $scrshot bitmap scrbmp palette scrpal
display bitmap scrbmp palette scrpal at 385,45
// put short description in box
load $cd,"\gamescd2\",$catchoice strcnt 4,"\",$gamelist[pos*4+1],"\file_id.diz" byte blurba
set editbox "blurb" = $blurba
// put title in title box
set textbox "titletext" = $gamelist[pos*4]
// make variable for game directory
$gamedir=$cd,"\gamescd2\",$catchoice strcnt 4,"\",$gamelist[pos*4+1]
view_info:
$readme=$gamedir,"\",$gamelist[pos*4+3]
// test if executable or if text files
testcom = strstr $readme;".com"
testexe = strstr $readme;".exe"
testnone = strstr $readme;"none"
exe=FALSE
none=FALSE
if testcom>0 then exe=TRUE
if testexe>0 then exe=TRUE
if testnone>0 then none=TRUE
if exe==TRUE
// need to change directory to
// game drive
$runcom=$cd,"\jlm200\rungame.exe ",$cd1," ",$gamedir," ",$gamelist[pos*4+3]
execute $runcom
if exe==FALSE
if none==TRUE
$infom = "Sorry, there is no more information to view. There may be online instructions."
else
// check filesize
sizefile=get filesize $readme
if sizefile<60000
execute "notepad ",$readme
else
execute "write ",$readme
print_info:
execute $cd,"\jlm200\printme.exe ",$readme
back_main:
undisplay all
screen "Title"
///////////////////
// Running game buttons
///////////////////
run_game:
// need to change directory
// game drive
test=TRUE
$runcom=$cd,"\jlm200\rungame.exe ",$cd1," ",$gamedir," ",$gamelist[pos*4+2]
testbrac= strstr $runcom;"("
if testbrac>0 then test=FALSE
if test==TRUE
execute $runcom
run_game_hd:
testbrac=strstr $gamelist[pos*4+2];"("
if testbrac==0
// remove ( symbol from string
$gamename=$gamelist[pos*4+2] stroff 1
else
$gamename=$gamelist[pos*4+2]
$runcom=$cd,"\jlm200\rungame.exe ",$hd1," ","\jlmcd\",$gamelist[pos*4+1]," ",$gamename
execute $runcom
install_game:
testbrac=strstr $gamelist[pos*4+2];"("
if testbrac==0
// remove ( symbol from string
$gamename=$gamelist[pos*4+2] stroff 1
else
$gamename=$gamelist[pos*4+2]
$gamedirname=$gamelist[pos*4+1]
// make directory
new directory $hd,"\jlmcd"
$exname=$cd,"\jlm200\file.exe c ",$gamedir," ",$hd,"\jlmcd\",$gamedirname," ",$cd1
execute $exname
message "Change to ","\jlmcd\",$gamedirname," on your ",$hd1," drive and type ",$gamename," to run."
deinstall_game:
$gamedirname=$gamelist[pos*4+1]
execute $cd,"\jlm200\file.exe d ",$hd,"\jlmcd\",$gamedirname," ",$cd1
//////////////////////////////GIF89a®÷ ,(,0,,404844<8<H88@<@D@DHDD\@@LHLPLPPPT\LLTTXXTXXX\dTT|LDdX\\\``\`|TP\`hd\h``dd`hh``x\Xp`dddphdh\Xdhpldppdhhhlxddlhpthlddxhlllx|hdplp`Xddhhlpxtlxxlphhtpttpxlpxpthdlpptttplxtxxtplllpptx|txtxtplllpp|x||xtxx|xttpltxx|||xt|tpxttxxtx||||xx|||¤xp||| || | ¬|x ¨ ¨´ ¤ ¬ ¨´¨ °¨ ¨ ¤°¨¨¨ ¤¼°¤¨¨¨¸¤ ¤¤ ¨° ¨ ¤¨ ¨° ¤° ¨À¸ ¬¤°¨¨°°¤°¬¨¬À ¤¸¤¨°¨¬Ð°¨°¸¨¬´¬¸Ì¤¤Ä¨¨¸¬´°°¸Ä¬°¸°¼¼°´°´ÀÀ°´Ô¬¨È°¸À´¼¸¸Äа´À¸¼À¸Äȸ¼ä°¨Ü´´Ô¸¸È¼ÄÀÀÈмÄÈÀÈؼÀ丸ÄÄÐÐÄÈÈÈÐäÀÀØÄÌÐÈÔôÀ¼äÈÈØÌÔØÐØäÌÔôÈÌØÔàäÐØèÔØàØàèØàøÔÐäÜèøØØðÜäèàìðàèüààìèðøäèðèôüèèððøüìðüððüðøüøôüüü, ®ü H° Á*\È°¡Ã#JH±¢Å3jÜȱ£Ç ®¤IsæÎS§îܸmبÉùmÊqâÄkÇ^»7McI´(<xóu ®iSoP£zªÕlÛ¼ Nè6pÛ`bûÕ)W³Eª|êÍiW,{ª=çrkI³w±IÛM5lÚb^ãvð`nÜÂCÇ8nâÊIn,¹²dv1ÇÛOÞ½{ûð}Ï>}¢O«^z´kÑöbÏM»¶íÚî2cvç'ÏvKÒU×ë·o0«NíY2æÐûbÃzܦ9Çk½MÛ§ïû=¿o·=yò:Óû5ë÷ýú½×¿~üøóãoß>~ø'àlð°¤Ò8ß`ã3Ì<#MuÈ å6Õ¥äÛQ=¥¡i¨±=³'wãØSR>µ¤99±ÃØ:ëÇ;ÛÍc8Õ åÔ6Ù<ó3Î,È 6~£Íq(çRv<FåÖ[iõÔUÙ@WeÉd¹×s}McTVÅJãeU`ZÕÔVMm3ÍrÐYUWtÕåV6Q EäDz9Í3ÆL0Ãd¨2È$h4ÖXs7Fjda}Ø¥æ¤édè°ãz3ö¦á¨" ⨨è[ZûçDJ,æ+¬%uUY6e3Í^Ò8Ì0KèHÃCæ^Óµ§4D¶êªãÔiR.Í:+]0bÆØw©Jlì±÷m¸áªöO}úzóô#Ot#r
2#Ì.»£2fî¹ëd5å,PÖÒE·ÝaøÝ:ñZku(-UÒq`V¦°¾¡IMÑ"ÆÇ qÅM0QÃÉ(× ÃOüÄË!ó"ÌAÑÄÎUtáslÍFAÿ\EA¡´L7=Ã7D-uÔ8àÐtÕMûõÓ4¼àuÔOW-6@aöÎMÁ@L}ÃÓpÏC:û7!ÆÑI³õØU»õ "ÞA¸($®
.È C?ôÐ'ÀÂå5LÃæo.¹äPNe a:¦£aÆê¯>Æê°Ç»ÌBÏL³¸ã>òî¼÷¾ûGßCð/¿6ÛSWÍ6ò^¿Â Ð.á"@o½
)4ïö/P}ôÏWÔL2ÚiÝ;±3h#q W|!¿üáþzøç/ÇþüË¡ z