Ok so BN2 what can I do to help with the
REAL DarkNOOBS project?
Rem By arbiter chewbacca hybrid
set display mode 640,480,32
set window layout 1,1,1
set window size 800,600
Disable escapekey
hide mouse
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
randomize timer()
dot 320,240
circle 320,240,100
ink rgb(255,0,0),rgb(0,0,0)
circle 320,140,2 : circle 420,240,2 : circle 320,340,2 : circle 220,240,2
ink rgb(255,255,255),rgb(0,0,0)
dat$ = get date$()
mois$=left$(dat$,2)
an$=right$(dat$,2)
jour1$=left$(dat$,5)
jour$=right$(jour1$,2)
dat$ = get date$()
mois$=left$(dat$,2)
an$=right$(dat$,2)
jour1$=left$(dat$,5)
jour$=right$(jour1$,2)
data "January","February","March","April","May","June","July","August","September","October","November","December"
mnth = val(mois$)
for n = 1 to mnth
read this$
next n
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
do
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
var$ = get time$()
heure$=left$(var$,2)
minute1$=left$(var$,5)
minute$=right$(minute1$,2)
second$=right$(var$,2)
n = 270+(val(second$)*6)
m = 270+(val(minute$)*6)
l = 270+((val(heure$)-12)*30)
dat$ = get date$()
mois$=left$(dat$,2)
an$=right$(dat$,2)
jour1$=left$(dat$,5)
jour$=right$(jour1$,2)
cls
Thetime()
thecircle()
x=320+cos(n)*97
y=240+sin(n)*97
x2=320+cos(m)*90
y2=240+sin(m)*90
x3=320+cos(l)*65
y3=240+sin(l)*65
ink rgb(0,255,0),rgb(0,0,0)
line 320,240,x,y
ink rgb(200,150,0),rgb(0,0,0)
line 320,240,x2,y2
ink rgb(10,5,255),rgb(0,0,0)
line 320,240,x3,y3
ink rgb(255,255,255),rgb(0,0,0)
wait 280
ink rgb(rnd(255),rnd(255),rnd(255)),0
set text font "palatino linotype"
set text to italic
center text 320,50,"Today is : "+jour$+" "+this$+" 20"+an$+"."
set text size 18
center text 320,90,"Press Q to quit !"
ink rgb(rnd(255),rnd(255),rnd(255)),0
set text size 30
center text 320,400,"Abderrahman Rhardane Program"
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
wait 200
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
wait 200
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
wait 200
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
wait 120
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
loop
wait key
function Thetime()
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
var$ = get time$()
set text font "Courrier New"
ink rgb(rnd(255),rnd(255),rnd(255)),1
set text size 40
center text 320,225,var$
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
endfunction
function thecircle()
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
circle 320,240,100
ink rgb(255,0,0),rgb(0,0,0)
circle 320,140,2 : circle 420,240,2 : circle 320,340,2 : circle 220,240,2
ink rgb(5,255,255),rgb(0,0,0)
for ff = 0 to 360 step 30
if ff = 0 or ff = 360 or ff = 90 or ff = 180 or ff = 270 then ff = ff + 30
circle 320+cos(ff)*100,240+sin(ff)*100,2
next ff
ink rgb(255,255,0),rgb(0,0,0)
for gg = 0 to 360 step 6
circle 320+cos(gg)*100,240+sin(gg)*100,1
next gg
ink rgb(255,255,255),rgb(0,0,0)
if inkey$()=chr$(113) or inkey$()=chr$(81) then end
endfunction
