Sorry your browser is not supported!

ink RGB(255,0,0),0
box 50,50,100,100 `50 pixels wide and high

do
 cls
 
 box 50,50,100,100 `50 pixels wide and high
 
 If CheckCollision(50,50,100,100) = 1  `in the red box 
    print "you are in the red box!"
 Endif

loop



Function CheckCollision(x1,y1,x2,y2) `start x and y values, and the end x and y values

   If Mousex() >= x1 and Mousex() <= x2   
      If Mousey() >= y1 and Mousey() <= y2 
         Collision = 1
      Endif
   Endif
   
EndFunction Collision

ink RGB(255,0,0),0
box 50,50,100,100 `50 pixels wide and high

do
 cls
 
 box 50,50,100,100 `50 pixels wide and high
 
 If CheckCollision(50,50,100,100) = 1  `in the red box 
    If MouseClick() = 1
       print "you are pressing in the red box!!"
    Endif
 Endif

loop



Function CheckCollision(x1,y1,x2,y2) `start x and y values, and the end x and y values

   If Mousex() >= x1 and Mousex() <= x2   
      If Mousey() >= y1 and Mousey() <= y2 
         Collision = 1
      Endif
   Endif
   
EndFunction Collision

Rem Start (Initialisation)
hide mouse
Ink RGB (0,230,0),0

Print "Welcome to JTools"
print ""
print "Log In"
Input "Username:", name$
Input "Password:", pass$

cls

Print "Please Wait..."

sleep 2000

cls

print "Welcome Officer ", name$

sleep 2000
rem End Start (Initialisation)
print "534.2345.234 Attempting connection"
sleep 3000
print "Connection established..."
cls
ink rgb (255,255,255),0
print "JTools Operator: Your task is to access Userlink mainframe"
sleep 3000
print "JTools Operator: Use any means to do this"
sleep 2000
ink rgb (0,230,0),0
cls
print "Connection terminated"

wait key

sync on:sync rate 0:backdrop on

ready = 0
secondsInAYear# = 31556926
timeSpentLearning# = 0
timeLearningStarted# = TIMER()
timeUntilReady# = secondsInAYear# * 1000

do

   text 0,0,"Time Spent Learning Programming: " + Str$( Int( (timeSpentLearning# - timeLearningStarted#) / 1000 )) + " seconds."
   text 0,15,"Time Until You're Ready: " + Str$( Int(timeUntilReady# / 1000)) + " seconds."
   timeSpentLearning# = TIMER()
   if (timeSpentLearning# - timeLearningStarted#) / 1000 >= timeUntilReady#
      text 0,30,"You're ready to make a game on your own!"
   else
      text 0,30,"You're not ready yet. Go study some more tutorials please."
   endif

   sync

loop

Clear entry buffer `Clear all of the data from the entry$() command. 
                   `after you have finished with the Entry$() command,
                   `use this command to clear all of the stuff from memory.

Do
 Cls
 
 Hash$ = "" `reset the hash variable, so it will not add "*"'s onto its self 
            `from the last loop.
            
 
 Input$ = Entry$(1) `like input but it allows you to type and to do other things,
                    `like to show a movie in the background. unlike the input command 
                    `will freeze the program until enter is pressed.
                    `Also you will notice the (1), this lets the Entry$() command to backspace.
                    
 
 For x = 1 to Len(Input$)  `check how many characters are in the Input$ variable, 
                           `then make an x amount of "*"'s - this should be the 
                           `amount of characters in input$
    Hash$ = Hash$ + "*" 
 Next x

 Print "Hashed Version  = " + Hash$  `prints it.
 Print "Real   Version  = " + Input$ `prints it.
 
 
Loop

Rem Start (Initialisation)
hide mouse
Ink RGB (0,230,0),0

Print "Welcome to JTools"
print ""
print "Log In"
Name$ = Entry("Username : ",0) `non password
Pass$ = Entry("Password : ",1) `    password

`print Pass$
`Wait Key

cls

Print "Please Wait..."

sleep 2000

cls

print "Welcome Officer ", name$

sleep 2000
rem End Start (Initialisation)
print "534.2345.234 Attempting connection"
sleep 3000
print "Connection established..."
cls
ink rgb (255,255,255),0
print "JTools Operator: Your task is to access Userlink mainframe"
sleep 3000
print "JTools Operator: Use any means to do this"
sleep 2000
ink rgb (0,230,0),0
cls
print "Connection terminated"

wait key
end




Function Entry(Text$,Password)

   Clear entry buffer 

   Repeat 
    Cls 
       
    Hash$ = ""                    `clear the hash$ variable from the last loop.         
    Input$ = Entry$(1)                            
             
    If Password = 1               `if its a password, then it will make it turn it into "*"'s
       For x = 1 to Len(Input$)   
          Hash$ = Hash$ + "*" 
       Next x
    Else                          `if its not a password, then it will make the Hash$ variable = the Input variable
                                  `( just to save variables (so we dont need alot for passwords, and non passwords) )
       Hash$ = Input$
    Endif
    
    Print Text$ + Hash$   
   Until ReturnKey() = 1  `If the return key has been pressed, then exit.
   
   While ReturnKey() = 1  `Make sure you have let go of the return key.
   EndWhile
   
   If Password = 1        `If it is a password, then return the Input variable, 
                          `(only show hashes, but save the actual string typed in)
      Hash$ = Input$
   Endif
   
EndFunction Hash$

sync on:sync rate 0: backdrop on

ready = 0
timewhenbecameready = timer()


do
   text 0,0,"I belive that I am ready"
   ready = ready + 1
   text 0,15, "Time I have spent Learning:     "
   text 216,15, str$ (ready)
      if ready > 20000
         text 0,60, "But as you probably know... There is always more to learn ;)"
      else
         text 0,45, "As you can see this is a lot. A growing... "
      endif


   sync

loop

Rem Start (Initialisation)
set text opaque
Ink RGB (0,230,0),0
login:
Print "Welcome to HTools"
print ""
print "Log In"

Input "Username:", name$:  rem Username entry
Input "Password:", pass$:  rem Password entry
input "Re-Type Password:", pass2$
   if pass$ = pass2$
   else
   print "Passwords don't match"
   sleep 2000
   cls
   gosub login
   endif



lentgh = len(pass$):rem Turn Password into *


while len(pass$)< 20
   pass$ = pass$+"*"
endwhile


pass1$ = right$(pass$,lentgh)

text 70,60,pass1$
text 135,75,pass1$


sleep 3000: rem Turn Password into * \end


cls

Print "Please Wait..."

sleep 2000

cls
rem End Start (Initialisation)


rem Main Loop
do
   if Mission1 = 0
      gosub mission1:
   endif
   gosub menu

loop
rem Main Loop end

REM ************
Rem Subroutines
REM ************


rem ******************
rem Subroutine
rem mission 1
rem ******************
mission1:
print "Welcome Officer ", name$

      sleep 2000

      print "534.2345.234 Attempting connection"
      sleep 3000
      print "Connection established..."
      sleep 1000
      cls
      ink rgb (255,255,255),0
      print "JTools Operator: Your task is to access Userlink mainframe"
      sleep 3000
      print "JTools Operator: Use any means to do this"
      sleep 2000
      ink rgb (0,230,0),0
      cls
      print "Connection terminated"
      cls

rem ******************
rem Subroutine
rem Menu
rem *******************
menu:
cls
ink rgb (0,230,0),0
text 0,0,"1) Gatekeys"
text 0,15,"2) Comunications"
text 0,30,"3) Programs"


rem Menu if MouseClick
do


mx = mousex() : my = mousey() : mc = mouseclick()
   rem ********************************************************************************************
   rem Menu if MouseClicks
   rem ********************************************************************************************
if mx > 0 and mx < 88 and my > 0 and my < 15 and mc = 1 :rem Menu if MouseClick on GateKeys
   gosub menusel1
endif

if mx > 0 and mx < 100 and my > 16 and my < 30 and mc = 1 :rem Menu if MouseClick on Comunications
   gosub menusel2
endif

if mx > 0 and mx < 100 and my > 31 and my < 45 and mc = 1 :rem Menu if MouseClick on Programs
   gosub menusel3
endif
   rem ********************************************************************************************
   rem if  MouseOvers
   rem ********************************************************************************************

                                               rem *************************
if mx > 0 and mx < 88 and my > 0 and my < 15 : rem if  MouseOver Gatekeys
   ink rgb (255,255,255),0:                    rem *************************
   text 0,0,"1) Gatekeys"
else
   ink rgb (0,230,0),0
   text 0,0,"1) Gatekeys"
endif
                                                 rem *************************
if mx > 0 and mx < 100 and my > 16 and my < 30 : rem if MouseOver Comunications
   ink rgb (255,255,255),0:                      rem *************************
   text 0,15,"2) Comunications"
else
   ink rgb (0,230,0),0
   text 0,15,"2) Comunications"
endif
                                                rem ********************
if mx > 0 and mx < 100 and my > 31 and my < 45: rem if MouseOver Programs
   ink rgb (255,255,255),0:                     rem ********************
   text 0,30,"3) Programs"
else
   ink rgb (0,230,0),0
   text 0,30,"3) Programs"
endif


loop





menusel1:

cls
print "SEL 1"
ink rgb(255,255,255),0
center text  320,460,  "Press space to go back"
do
   if keystate(57) = 1
      gosub menu
   else
endif
loop


menusel2:

cls
print "SEL 2"
ink rgb(255,255,255),0
center text  320,460,  "Press space to go back"
do
   if keystate(57) = 1
      gosub menu
   else
   endif
loop

menusel3:

cls
ink rgb (0,230,0),0
print "SEL 3"
ink rgb(255,255,255),0
center text  320,460,  "Press space to go back"
do
   if keystate(57) = 1
      gosub menu
   else
   endif
loop