here. Some sentences may still not be proper grammar, but it reads well.
Rem Your Computer Is A Playgroung
Rem By GNOMES GAMES
Rem Load the array "clean" and delete file if their is problems with previous execution of the prog
pathofgame$=get dir$()
dim clean$(1,500)
if file exist("clean.fsv")=1 then load array "clean.fsv",clean$(1,500)
clean=1
while clean$(1,clean)<>""
if file exist(clean$(1,clean))=1 then delete file clean$(1,clean)
clean$(1,clean)=""
endwhile
rem init value of clean
clean=0
rem make a beautiful blue screen and wait key
ink rgb(0,0,170),rgb(0,0,170)
box 0,0,640,480
ink rgb(170,170,170),rgb(170,170,170)
box 275,110,365,125
ink rgb(0,0,170),rgb(0,0,170)
center text 320,110,"Windows"
ink rgb(255,255,255),rgb(255,255,255)
center text 320,200,"I have a lots of problems !"
center text 320,215,"You have to find the solutions"
center text 320,230,"because I am too stupid to do this myself."
center text 320,270,"Press any key if you are ready to start looking for it."
sync
wait key
rem menu
menu:
rem make a beautiful blue screen for the menu...
ink rgb(0,0,170),rgb(0,0,170)
box 0,0,640,480
ink rgb(170,170,170),rgb(170,170,170)
box 275,110,365,125
ink rgb(0,0,170),rgb(0,0,170)
center text 320,110,"Windows"
ink rgb(255,255,255),rgb(255,255,255)
center text 320,200,"I have a lots of problems !"
center text 320,215,"You hav to find the solutions,"
center text 320,230,"because I am too stupid to do this myself."
center text 320,270,"Press any key if you are ready to start looking for it."
sync
DarkSide_Input_Requester_Fast "Games","1-Find The Virus ! //2-I don't care...",""
choix$=get clipboard$()
rem test
if choix$="1" then goto FTV
if choix$="2" then end
goto Menu
rem find the virus !
FTV:
DarkSide_Input_Requester_Fast "Find The Virus !","Level (1-99)?",""
choix$=get clipboard$()
level=val(choix$)
dim folder$(1,255)
Makethevirus:
Rem Make a virus and hide it ;)
set dir "c:"
path$="c:"
rem scan for files
for path=1 to level
perform checklist for files
ckl=checklist quantity()
numberofdrive=0
rem test if it is a folder (no ".")
for cherchdrive=1 to ckl
foldertotest$=checklist string$(cherchdrive)
sizeoffoldertotest=len(foldertotest$)
for cherchpoint=1 to sizeoffoldertotest
if mid$(foldertotest$,cherchpoint)="." then yaunpoint=1
next cherchpoint
rem if it is a folder add it to the array
if yaunpoint=0
inc numberofdrive
if folder$<>"System Volume Information" then folder$(1,numberofdrive)=foldertotest$
endif
yaunpoint=0
next cherchdrive
rem random a folder and add it to the path
if numberofdrive>0
drivechoose$=folder$(1,1+rnd(numberofdrive-1))
path$=path$+drivechoose$+""
set dir path$
else
path=level
endif
rem re-init array
for effacepath=1 to numberofdrive
folder$(1,numberofdrive)=""
next effacepath
next path
Rem create a random name for the file
nomvirus$=""
for metlepointunefois=1 to 2
nombredechar=rnd(5)+5
if nomvirus$<>"" then nomvirus$=nomvirus$+"."
for creerlenom=1 to nombredechar
nomvirus$=nomvirus$+str$(rnd(9))
next creerlenom
next metlepointunefois
Rem print some text
ink rgb(0,0,170),rgb(0,0,170)
box 0,0,640,480
ink rgb(170,170,170),rgb(170,170,170)
box 275,110,365,125
ink rgb(0,0,170),rgb(0,0,170)
center text 320,110,"Windows"
ink rgb(255,255,255),rgb(255,255,255)
center text 320,200,"A very dangerous virus has infected me!"
center text 320,215,"You must find it and delete it before it starts to destroy my files !"
center text 320,230,"I could find it for you but I am very slow and the process would utilize 99% of my ressources !"
center text 320,245,"So by the time I find it, it will too late."
center text 320,260,"I will help you by providing you all information I have."
center text 320,290,"Press any key if you are ready to start looking for it."
sync
rem wait the player to get ready
wait key
rem creer le virus
cd path$
open to write 1,path$+nomvirus$
rem copy dans le fichier quelque chose
nombredecopy=rnd(500)+1000
write string 1,"/! Warning this is a very dangerous virus file ;-) /!"
for copy=1 to nombredecopy
write string 1,str$(copy)+" "+path$+nomvirus$
next copy
close file 1
inc clean
clean$(1,clean)=path$+nomvirus$
save array pathofgame$+"clean.fsv",clean$(1,500)
rem set framerate to 1
sync on
sync rate 1
rem init the countdown
countdown=65-level*5
maxcountdown=65-level*5
if maxcountdown<15 then maxcountdown=15:countdown=15
boxsize=len(path$)*8
xbox=320-boxsize/2
rem the loop
do
rem print the coundown
cls
ink rgb(0,0,170),rgb(0,0,170)
box 0,0,640,480
ink rgb(170,170,170),rgb(170,170,170)
box 275,110,365,125
ink rgb(0,0,170),rgb(0,0,170)
center text 320,110,"Windows"
ink rgb(255,255,255),rgb(255,255,255)
center text 320,220,"You have "+str$(countdown)+" seconds left before the virus destroys my files"
box xbox,260,xbox+boxsize/maxcountdown*(maxcountdown-countdown),280
ink rgb(0,0,170),rgb(0,0,170)
center text 320,266,path$
sync
rem test if win
dec countdown
If file exist(path$+nomvirus$)=0 then goto gagneFTV
If countdown<=0 then goto perdFTV
loop
gagneFTV:
cls
ink rgb(0,0,170),rgb(0,0,170)
box 0,0,640,480
ink rgb(170,170,170),rgb(170,170,170)
box 275,110,365,125
ink rgb(0,0,170),rgb(0,0,170)
center text 320,110,"Windows"
ink rgb(255,255,255),rgb(255,255,255)
center text 320,200,"Well done ! Thanks for the help !!!"
center text 320,215,"Oh no, My god ! A new one !"
center text 320,245,"Press any key to continue."
sync
wait key
inc level
DarkSide_Input_Requester_Fast "A New virus is here !","//1-Find The Virus :Level "+str$(level)+" //2-I don't care...",""
choix$=get clipboard$()
if choix$="1" then goto Makethevirus
if choix$="2" then goto menu
goto gagneFTV
perdFTV:
delete file path$+nomvirus$
cls
ink rgb(0,0,170),rgb(0,0,170)
box 0,0,640,480
ink rgb(170,170,170),rgb(170,170,170)
box 275,110,365,125
ink rgb(0,0,170),rgb(0,0,170)
center text 320,110,"Windows"
ink rgb(255,255,255),rgb(255,255,255)
center text 320,200,"Oh nooooooo !"
center text 320,215,"Arrrggghhhhh...."
center text 320,245,"Press any key to continue."
sync
wait key
DarkSide_Input_Requester_Fast "Try again","1-Find The Virus :Level "+str$(level)+" //2-I don't care...",""
choix$=get clipboard$()
if choix$="1" then goto Makethevirus
if choix$="2" then goto menu
goto perdFTV
[EDIT] just noticed resources is spelled/spelt wrong. extra s
might need to run spell check on the text output.
Personally, I would re-write the perspective as though it was a monitor warning system.
for example, Instead of "...destroy my files"
"...destroy files on your computer" or
"...destroy files on this sytem" or
"destroy system files"
