A little fun...
Depending upon the difficulty, a certain amount of pop ups will appear in the window. Close them all in less than 30 seconds. However, the higher the difficulty setting, the more will appear at random! Also, clicking on the main body of a pop up will spawn two more! I recommend you run this at 640x480 for sanity reasons, but it will work at any resolution within reason.
sync rate 30 : sync on : set text font "Arial"
type window
left : right : top : bottom : bgcol
endtype
dim window(-1) as window
windows=-1 : difficulty=1 : dim diff$(9) : diff$(0)="TGC Forums" : diff$(1)="Nintendo of Europe" : diff$(2)="News Sites" : diff$(3)="Tech. Support Site" : diff$(4)="Your Favourite Blog" : diff$(5)="YouTube" : diff$(6)="A website boycotting pop-ups" : diff$(7)="A porn site" : diff$(8)="Microsoft.com" : diff$(9)="IGN.com"
do : cls : set text size 48 : center text screen width()/2,screen height()*0.33,"Pop-Up PANIC!" : set text size 24 : center text screen width()/2,screen height()*0.5,"Difficulty: "+str$(difficulty)+" ("+diff$(difficulty-1)+")" : set text size 12 : center text screen width()/2,screen height()*0.75,"Your PC has been overrun by popups! Close all before the time runs out!" : center text screen width()/2,screen height()*0.85,"If you click the red close button in the upper right of a window, it will close. Click on the main square, and two more will appear! OH NOES!"
while not returnkey() : if leftkey() : dec difficulty : if difficulty < 1 : difficulty = 10 : endif : endif : if rightkey() : inc difficulty : if difficulty >10 : difficulty = 1 : endif : endif : if escapekey() : end : endif
if scancode() : cls : set text size 48 : center text screen width()/2,screen height()*0.33,"Pop-Up PANIC!" : set text size 24 : center text screen width()/2,screen height()*0.5,"Difficulty: "+str$(difficulty)+" ("+diff$(difficulty-1)+")" : set text size 12 : center text screen width()/2,screen height()*0.75,"Your PC has been overrun by popups! Close all before the time runs out!" : center text screen width()/2,screen height()*0.85,"If you click the red close button in the upper right of a window, it will close. Click on the main square, and two more will appear! OH NOES!" : wait 250 : endif : sync : endwhile
time=timer()
windows=difficulty-1 : dim window(windows) : for a=0 to windows : window(a).left=rnd(screen width()-128) : window(a).right=window(a).left+rnd((screen width()-window(a).left)-64)+64 : if window(a).right>screen width() : window(a).right=screen width() : endif : window(a).top=rnd(screen height()-128) : window(a).bottom=window(a).top+rnd((screen height()-window(a).top)-48)+48 : if window(a).bottom>screen height() : window(a).bottom=screen height() : endif : window(a).bgcol = rgb(rnd(255),rnd(255),rnd(255)) : next a : set text size 72
while windows>-1 and timer()<time+30000
cls : center text screen width()/2,0,"T: -"+str$(30-int((timer()-time)/1000.0)) : a=0 : while a<windows+1 : box window(a).left,window(a).top,window(a).right-16,window(a).top+16,rgb(0,0,255),rgb(0,128,255),rgb(0,0,255),rgb(0,128,255) : box window(a).right-16,window(a).top,window(a).right,window(a).top+16,rgb(255,0,0),rgb(128,0,0),rgb(255,0,0),rgb(128,0,0) : box window(a).left,window(a).top+16,window(a).left+4,window(a).top+16+((window(a).bottom-(window(a).top+16))*0.25),rgb(224,224,255),rgb(192,192,255),rgb(224,224,255),rgb(192,192,255) : box window(a).right-4,window(a).top+16,window(a).right,window(a).top+16+((window(a).bottom-(window(a).top+16))*0.25),rgb(224,224,255),rgb(192,192,255),rgb(224,224,255),rgb(192,192,255) : box window(a).left,window(a).top+16+((window(a).bottom-(window(a).top+16))*0.25),window(a).left+4,window(a).bottom-16,rgb(192,192,255),rgb(224,224,255),rgb(192,192,255),rgb(224,224,255) : box window(a).right-4,window(a).top+16+((window(a).bottom-(window(a).top+16))*0.25),window(a).right,window(a).bottom-16,rgb(192,192,255),rgb(224,224,255),rgb(192,192,255),rgb(224,224,255) : box window(a).left,window(a).bottom-16,window(a).right,window(a).bottom,rgb(192,192,255),rgb(224,224,255),rgb(192,192,255),rgb(224,224,255) : box window(a).left+3,window(a).bottom-12,window(a).right-3,window(a).bottom-4,rgb(224,224,255),rgb(192,192,255),rgb(224,224,255),rgb(192,192,255) : box window(a).left+4,window(a).top+16,window(a).right-4,window(a).bottom-16,window(a).bgcol,window(a).bgcol,window(a).bgcol,window(a).bgcol : inc a : endwhile
if mouseclick() and oldmouse=0 : a=windows : while a>-1 : if mousex()>window(a).left and mousex()<window(a).right and mousey()>window(a).top and mousey()<window(a).bottom
if mousex()>window(a).left+4 and mousex()<window(a).right-4 and mousey()>window(a).top+16 and mousey()<window(a).bottom-16 : for b=0 to 1 : inc windows : dim window(windows) : window(windows).left=rnd(screen width()-128) : window(windows).right=window(windows).left+rnd((screen width()-window(windows).left)-64)+64 : if window(windows).right>screen width() : window(windows).right=screen width() : endif : window(windows).top=rnd(screen height()-128) : window(windows).bottom=window(windows).top+rnd((screen height()-window(windows).top)-48)+48 : if window(windows).bottom>screen height() : window(windows).bottom=screen height() : endif : window(windows).bgcol = rgb(rnd(255),rnd(255),rnd(255)) : next b : endif
if mousex()>window(a).right-16 and mousey()<window(a).top+16 : b=a+1 : while b<windows+1 : window(b-1).left=window(b).left : window(b-1).right=window(b).right : window(b-1).top=window(b).top : window(b-1).bottom=window(b).bottom : window(b-1).bgcol=window(b).bgcol : inc b : endwhile : dec windows : dim window(windows) : endif : exit : endif : dec a : endwhile : endif : oldmouse=mouseclick()
if rnd(10*(11-difficulty))=0 : inc windows : dim window(windows) : window(windows).left=rnd(screen width()-128) : window(windows).right=window(windows).left+rnd((screen width()-window(windows).left)-64)+64 : if window(windows).right>screen width() : window(windows).right=screen width() : endif : window(windows).top=rnd(screen height()-128) : window(windows).bottom=window(windows).top+rnd((screen height()-window(windows).top)-48)+48 : if window(windows).bottom>screen height() : window(windows).bottom=screen height() : endif : window(windows).bgcol = rgb(rnd(255),rnd(255),rnd(255)) : endif
sync : endwhile : cls : if windows>-1 : center text screen width()/2,screen height()/2,"You Lose!" : else : center text screen width()/2,screen height()/2,"You Win!" : endif : sync : wait 1500 : loop
I fail at life. No, really.
