Except for my MMO. All I want to work on is my MMO at the moment.
So, I'm quiting teams, and releasing code of all my other prgorams.
Think of it as prioritizing.
XenoClock
This is a program that displays a clock and the time and date. I was making it so it could make alarms and manage alarms that would go off on the computer.
REM Project: XenoClock
REM Created: 3/14/2007 3:43:41 PM
REM
REM ***** Main Source File *****
REM
Sync On
Sync Rate 0
Color Backdrop 0
Set Window On
Maximize Window
Create bitmap 1,2,150
ink rgb(0,255,0),0
line 1,0,1,150
get image 1,0,0,2,150
delete bitmap 1
Global Dim Alarm$(100,5)
`1. Month
`2. Day
`3. Time
`4. Sound
`5. Volume
Home=1
NewAlarm=2
EditAlarm=3
DeleteAlarm=4
Display=Home
SET TEXT FONT "Arial"
do
cls
Date$=Date()
Time$=Time()
Second#=Val(Mid$(Get Time$(),7)+Mid$(Get Time$(),8))
ink rgb(0,255,0),0
Sprite 1,400,240,1 : Angle#=((Second#-30)*6) : Rotate Sprite 1,Angle#
Circle 400,240,7 : Circle 400,240,180
Set Text Size 26
Center Text 400,70,"12" : Center Text 555,228,"3" : Center Text 400,390,"6" : Center Text 241,228,"9"
Set Text Size 14
ink rgb(255,255,255),0
Text 20,20,Date$ + " " + Time$
If Display=Home
If Click(20,180,0,"New Alarm/Notification",rgb(255,255,255),rgb(0,255,0))=1 Then for x=1 to 10 : If File Exist("Alarms\Alarm "+str$(x)+".txt")=0:FreeAlarm=x:Display=NewAlarm:EXIT:Endif:next x : Display=NewAlarm
Endif
If Display=NewAlarm
If Click(30,170,0,"Month : "+Alarm$(FreeAlarm,1),rgb(255,255,255),rgb(0,255,0))=1 Then TypeMode=1
If TypeMode=1
Print " Type in 'All' to set the alarm for every month, or type in the name of the single month you want the alarm for.";
sync : Wait key
Set Cursor 32+Text Width("Month : "),170
Hide Sprite 1
Input "",Alarm$(FreeAlarm,1)
If lower$(Alarm$(FreeAlarm,1))="all" or lower$(Alarm$(FreeAlarm,1))="january" or lower$(Alarm$(FreeAlarm,1))="february" or lower$(Alarm$(FreeAlarm,1))="march" or lower$(Alarm$(FreeAlarm,1))="april" or lower$(Alarm$(FreeAlarm,1))="may" or lower$(Alarm$(FreeAlarm,1))="june" or lower$(Alarm$(FreeAlarm,1))="july" or lower$(Alarm$(FreeAlarm,1))="august" or lower$(Alarm$(FreeAlarm,1))="september" or lower$(Alarm$(FreeAlarm,1))="october" or lower$(Alarm$(FreeAlarm,1))="november" or lower$(Alarm$(FreeAlarm,1))="december"
Else
Alarm$(FreeAlarm,1)=""
Endif
Show Sprite 1
TypeMode=0
Endif
If Click(30,190,0,"Day : "+Alarm$(FreeAlarm,2),rgb(255,255,255),rgb(0,255,0))=1 Then TypeMode=2
If TypeMode=2
Print " Type in 'All' to set the alarm for every day, or type in the name of the day you want the alarm for.";
sync : Wait key
Set Cursor 32+Text Width("Day : "),190
Hide Sprite 1
Input "",Alarm$(FreeAlarm,2)
If lower$(Alarm$(FreeAlarm,2))="all" or lower$(Alarm$(FreeAlarm,2))="sunday" or lower$(Alarm$(FreeAlarm,2))="monday" or lower$(Alarm$(FreeAlarm,2))="tuesday" or lower$(Alarm$(FreeAlarm,2))="wednesday" or lower$(Alarm$(FreeAlarm,2))="thursday" or lower$(Alarm$(FreeAlarm,2))="friday" or lower$(Alarm$(FreeAlarm,2))="saturday"
Else
Alarm$(FreeAlarm,2)=""
Endif
Show Sprite 1
TypeMode=0
Endif
If Click(30,210,0,"Time : "+Alarm$(FreeAlarm,3),rgb(255,255,255),rgb(0,255,0))=1 Then TypeMode=3
If TypeMode=3
Print " Type: Hourly, Bi-hourly, Tri-hourly, Half-hourly, or an exact time (Example: 6:35 pm, 5:15 am).";
sync : Wait key
Set Cursor 32+Text Width("Time : "),210
Hide Sprite 1
Input "",Alarm$(FreeAlarm,3)
If lower$(Alarm$(FreeAlarm,3))="hourly" or lower$(Alarm$(FreeAlarm,3))="bi-hourly" or lower$(Alarm$(FreeAlarm,3))="tri-hourly" or lower$(Alarm$(FreeAlarm,3))="half-hourly" or len(Alarm$(FreeAlarm,3))=7 or len(Alarm$(FreeAlarm,3))=8
Else
Alarm$(FreeAlarm,3)=""
Endif
Show Sprite 1
TypeMode=0
Endif
If Click(30,230,0,"Sound : "+Alarm$(FreeAlarm,4),rgb(255,255,255),rgb(0,255,0))=1 Then TypeMode=4
If TypeMode=4
Print " Type in the number of the sound you want for the alarm, from 1 to 10.";
sync : Wait key
Set Cursor 32+Text Width("Sound : "),230
Hide Sprite 1
Input "",Alarm$(FreeAlarm,4)
If val(Alarm$(FreeAlarm,4))>0 and val(Alarm$(FreeAlarm,4))<11
Else
Alarm$(FreeAlarm,4)=""
Endif
Show Sprite 1
TypeMode=0
Endif
If Click(30,250,0,"Volume : "+Alarm$(FreeAlarm,5),rgb(255,255,255),rgb(0,255,0))=1 Then TypeMode=5
If TypeMode=5
Print " Type in the number of the volume level you want for the alarm, from 1 to 10.";
sync : Wait key
Set Cursor 32+Text Width("Volume : "),250
Hide Sprite 1
Input "",Alarm$(FreeAlarm,5)
If val(Alarm$(FreeAlarm,5))>0 and val(Alarm$(FreeAlarm,5))<11
Else
Alarm$(FreeAlarm,5)=""
Endif
Show Sprite 1
TypeMode=0
Endif
If Click(60,280,0,"Save Alarm",rgb(0,0,255),rgb(255,255,255))=1 Then SaveAlarm(str$(FreeAlarm),FreeAlarm) : cls : Display=Home
Endif
sync
loop
Function SaveAlarm(AlarmNum$ as string,AlarmNumber)
Open To Write 1,"Alarms\Alarm "+AlarmNum$+".txt"
Write String 1,Alarm$(AlarmNumber,1)
Write String 1,Alarm$(AlarmNumber,2)
Write String 1,Alarm$(AlarmNumber,3)
Write String 1,Alarm$(AlarmNumber,4)
Write String 1,Alarm$(AlarmNumber,5)
Close File 1
EndFunction
Function Date()
Date$=Get Date$()
Month$=Mid$(Date$,1)+Mid$(Date$,2)
If Val(Month$)=1 then Month$="January"
If Val(Month$)=2 then Month$="February"
If Val(Month$)=3 then Month$="March"
If Val(Month$)=4 then Month$="April"
If Val(Month$)=5 then Month$="May"
If Val(Month$)=6 then Month$="June"
If Val(Month$)=7 then Month$="July"
If Val(Month$)=8 then Month$="August"
If Val(Month$)=9 then Month$="September"
If Val(Month$)=10 then Month$="October"
If Val(Month$)=11 then Month$="November"
If Val(Month$)=12 then Month$="December"
Day$=Mid$(Date$,4)+Mid$(Date$,5)
Year$="20"+Mid$(Date$,7)+Mid$(Date$,8)
FullDate$=Month$+" "+Day$+", "+Year$
EndFunction FullDate$
Function Time()
Time$=Get Time$()
Hour$=Mid$(Time$,1)+Mid$(Time$,2)
Hour$=Str$(Val(Hour$))
Half$="A.M."
If Val(Hour$)>12 then Hour$=Str$(Val(Hour$)-12) : Half$="P.M."
If Hour$="0" then Hour$="12"
Minute$=Mid$(Time$,4)+Mid$(Time$,5)
FullTime$=Hour$+":"+Minute$+" "+Half$
EndFunction FullTime$
Function Click(X,Y,CE,Text$,C1,C2)
If Pressed=1
Else
Ink C1,0
If MouseX()>X And MouseX()<X+Text Width(Text$) And MouseY()>Y And MouseY()<Y+Text Height(Text$)
Ink C2,0
If MouseClick()=1 Then Pressed=1
Endif
Endif
If CE=1 Then Center Text X,Y,Text$
If CE=0 Then Text X,Y,Text$
EndFunction Pressed
A painting program. A bit messy, but whateva.
create bitmap 1,64,64
box 0,0,64,64,rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,255)
get image 1,0,0,64,64
delete bitmap 1
Sync On
Sync Rate 0
inkcolor=rgb(255,255,255)
multi=100
mode=1
Do
paste image 1,0,0
IF mousex()<64 and mousey()<64 and mouseclick()=1
color=point(mousex(),mousey())
inkcolor=rgb(rgbr(color),rgbg(color),rgbb(color))
ENDIF
If keystate(2) then mode=1
If keystate(3) then mode=2
If keystate(4) then mode=3
If keystate(5) then mode=4
If keystate(6) then mode=5
If keystate(7) then mode=6
if mouseclick()=1 and mode=1
Ink inkcolor,0
gnewx1=mousex()
gnewy1=mousey()
line goldx1,goldy1,gnewx1,gnewy1
wait 1
Line gnewx1,gnewy1,mousex(),mousey()
goldx1=gnewx1
goldy1=gnewy1
else
goldx1=mousex()
goldy1=mousey()
endif
if mouseclick()=1 and mode=2
if multic=0 then inc multi,2
if multic=1 then dec multi,2
if multi>254 then multic=1
if multi<101 then multic=0
Ink rgb(0,multi,0),0
newx1=mousex()
newy1=mousey()
line oldx1,oldy1,newx1,newy1
Ink rgb(multi,0,0),0
Line newx1,newy1,mousex()+4,mousey()
Ink rgb(0,0,multi),0
Line newx1,newy1,mousex()-4,mousey()
wait 1
Line newx1,newy1,mousex(),mousey()
Ink rgb(multi,0,0),0
Line newx1,newy1,mousex()+4,mousey()
Ink rgb(0,0,multi),0
Line newx1,newy1,mousex()-4,mousey()
oldx1=newx1
oldy1=newy1
else
oldx1=mousex()
oldy1=mousey()
endif
if mouseclick()=1 and mode=3 and mousex()>64 and mousey()>64
if greenc=0 then inc green,2
if greenc=1 then dec green,2
if green>254 then greenc=1
if green<101 then greenc=0
Ink rgb(0,green,0),0
Line newx1,newy1,mousex(),mousey()
endif
if mouseclick()=1 and mode=4 and mousex()>64 and mousey()>64
if redc=0 then inc red,2
if redc=1 then dec red,2
if red>254 then redc=1
if red<101 then redc=0
Ink rgb(red,0,0),0
Line newx1,newy1,mousex(),mousey()
endif
if mouseclick()=1 and mode=5 and mousex()>64 and mousey()>64
if bluec=0 then inc blue,2
if bluec=1 then dec blue,2
if blue>254 then bluec=1
if blue<101 then bluec=0
Ink rgb(0,0,blue),0
Line newx1,newy1,mousex(),mousey()
endif
if mouseclick()=1 and mode=6
x1=mousex() : x2=mousex() : y1=mousey()
Ink inkcolor,0
repeat
for y=y1 to 0 step -1
color=point(x1,y)
if color>0 : yp1=y : exit : endif
if y=1 then yp1=1
next y
for y=y1 to screen height()
color=point(x1,y)
if color>0 : yp2=y : exit : endif
if y=screen height()-1 then yp2=screen height()-1
next y
if yp2=yp1+2 then donex1=1
line x1,yp1,x1,yp2 : yp1=0 : yp2=0
for y=y1 to 0 step -1
color=point(x2,y)
if color>0 : yp1=y : exit : endif
if y=1 then yp1=1
next y
for y=y1 to screen height()
color=point(x2,y)
if color>0 : yp2=y : exit : endif
if y=screen height()-1 then yp2=screen height()-1
next y
if yp2=yp1+2 then donex2=1
line x2,yp1,x2,yp2 : yp1=0 : yp2=0
inc x2,1 : dec x1,1
if donex1=1 and donex2=1 then done=1
sync
until done=1
done=0
mode=1
endif
sync
Loop
An idea for a program. Its something schools can use. Set up grades, lunch charts, bleh, whatever, seating charts, etc.
MediaBook
Just an idea I had. It has music, pictures, and videos. its a media browser. But you look at it like the pages of a book, and you scroll aroudn with it like that. More neat things can be done with this. (Bookmarks, etc.)
Robot
A robot that understands life, emotions, whatever. It is completely possible. Why? Because Humans are robots too
For these codes and programs, you can use it or continue it. I dont really care.
