Here's an annoying code I made with that:
load dll "winmm.dll",2
center text screen width()/2,screen height()/2,"Loading..."
wait 500
cls
center text screen width()/2,screen height()/2,"Wrong CD! Insert The Correct CD!"
DISABLE ESCAPEKEY
DISABLE SYSTEMKEYS
OpenDrive()
wait 1000
do
cls
if event=0 then center text screen width()/2,screen height()/2,"Press Space To Insert The Correct CD!"
if event=1 then center text screen width()/2,screen height()/2,"You Can't Escape Untill You Insert The Correct CD!" : wait 1000
if event=2 then center text screen width()/2,screen height()/2,"You Have "+str$(seconds)+" Seconds To Insert The Correct CD! Press Control When You Have Inserted The Correct CD!"
if event=3 then center text screen width()/2,screen height()/2,"Wrong CD! Insert The Correct CD!"
event=0
if escapekey()=1 then event=1
if spacekey()=1 and time=0 then time=1 : et=timer()+1000
if time=1 then seconds=10-((et-timer())/1000) : event=2 : if timer()=et then gosub timeup
if time=0 then OpenDrive()
if time=1 and controlkey()=1 then gosub cdcheck
loop
`do
`if upkey()=1 then OpenDrive()
`if downkey()=1 then closeDrive()
`loop
timeup:
cls
center text screen width()/2,screen height()/2,"Time's Up! Insert The Correct CD!"
wait 1000
time=0
return
cdcheck:
time=0
if file exist("D:\Codez.dat")=0 then goto cdcheck_p
open to read 1,"D:\Codez.dat"
read string 1,line1$
close file 1
if line1$<>"HDSJFBOIAHBR916YHFOIA9HR9QMFN990QUJF0JANMF08AJMAHFI9AANAJIJIAJAUUUUANNAVHAKUAKHYAYIHAIAIHCIACIYAIYA" then goto cdcheck_p
CloseDrive()
cls
center text screen width()/2,screen height()/2,"Loading..."
wait 1000
cls
center text screen width()/2,screen height()/2,"Critical Error! Please Shutdown Your Computer Immeditly!"
hide window
do
OpenDrive()
CloseDrive()
loop
cdcheck_p:
return
function OpenDrive()
CALL DLL 2,"mciSendStringA","set cdaudio door open"," ",1,0
endfunction
function CloseDrive()
CALL DLL 2,"mciSendStringA","set cdaudio door closed"," ",1,0
endfunction
