Sorry your browser is not supported!

Rem Ask the user if they wish to create a new account:
Input "Do you wish to create a new account? [y/n]", acr$
accountrequestverification:
If acr$ = "y" or acr$ = "Y"
	goto accountcreation
	Else
	If acr$ = "n" or acr$ = "N"
		goto login
		Else
		Print "Invalid response."
		goto accountrequestverification
	endif
endif

print "Before gosub."
` Gosub to Test1
gosub Test1

print "After gosub."
wait key
end


Test1:
 print "Inside Test1."
` Go back to the line after the GOSUB
return

Rem Ask the user if they wish to create a new account:
print "Do you wish to create a new account? [y/n]"

do

 ` Check for Y key
 if keystate(21)
  ` Account Creation 
  print "Account Created"
  ` Leave the DO/LOOP
  exit
 endif
  
 ` Check for N key and leave the DO/LOOP
 if keystate(49) then exit
 
loop

print "Login Area"
wait key

Rem Verify the main data file exists:
mdfe = file exist("maindata.dat")

If mdfe = 0
	Print "The main data file does not exist. Do you wish to create it? [Y/N]"
	do
		If keystate(21)=1
			Exit
			Else
			If keystate(49)=1
				Print "Press any key to exit."
				Wait key
				End
			endif
		endif
	loop
	Else
	do
		If keystate(21)=1
			Delete file "maindata.dat"
			Exit
			Else
			If keystate(49)=1
				Print "Press any key to exit."
				Wait key
				End
			endif
		endif
	loop
endif

Rem Create the data file:

do

 If keystate(49)=1
  print "Pressed N"

  ` Wait for the user to let go of all keys
  repeat: until scancode()=0

  Print "Press any key to exit."
  Wait key
  End
 endif

loop

Rem Verify the main data file exists and delete it
if file exist("maindata.dat") then delete file "maindata.dat"

Rem Create the data file:

`EXAMPLE: GOSUB to initialise data and GOSUB in gameplay

`SEARCH COMPATIBLE DISPLAY MODE, ETC.
GOSUB InitData
Game()




END

InitData:
   Player$ = "Goku"
   PlayerLives = 9999
   PlayerHair$ = "Ridiculous"
   PlayerID = 5
   `And a bunch of other stuff
RETURN

wado_Die:
   PRINT "You cannot die, you are immortal until I kill you!"
RETURN

wado_Drink:
   PRINT "You can't drink that!!"
RETURN

GameOver:
   PRINT " "
   PRINT "YOU DIED: GAME OVER!"
   PRINT "NO CONTINUES! HAHAHAHA!!!"
   PRINT "YOU LOST, YOU LOST, C'MON, SMASH THAT KEYBOARD!"
   WAIT KEY
   END
RETURN

Function Game()
   Flag = 0
   INPUT "What do you want to do now? ", wado$
   CLS
   tmp$ = lower$(wado$)
   IF left$(tmp$, 3) = "die": GOSUB wado_Die: Flag = 1: ENDIF
   IF left$(tmp$, 5) = "drink": GOSUB wado_Drink: Flag = 1: ENDIF
   IF Flag = 0: PRINT "You cannot ", wado$, " now.": ENDIF
   `^Programming reference: Early text-adventure games' method of handling input outside the spectrum.
   PRINT ""
   PRINT "...Therefore..."
   GOSUB GameOver
EndFunction

`EXAMPLE: Functions only

`SEARCH COMPATIBLE DISPLAY MODE, ETC.
InitData()
Game()




END

Function BadAI(PInput$)
   `Hahaha, again with that bad text-adventure AI:
   RetVal$ = "You cannot " + PInput$ + " now."
   tmp$ = lower$(PInput$)
   IF LEFT$(tmp$, 3) = "die": RetVal$ = "You cannot die, you are immortal until I kill you!": ENDIF
   IF LEFT$(tmp$, 5) = "drink": RetVal$ = "You can't drink that!!": ENDIF
EndFunction RetVal$

Function Game()
   INPUT "What do you want to do now? ", wado$
   CLS
   tmp$ = BadAI(wado$)
   PRINT tmp$
   PRINT " "
   PRINT "YOU DIED: GAME OVER!"
   PRINT "NO CONTINUES! HAHAHAHA!!!"
   PRINT "YOU LOST, YOU LOST, C'MON, SMASH THAT KEYBOARD!"
   WAIT KEY
   END
EndFunction

Function InitData()
   Player$ = "Goku"
   PlayerLives = 9999
   PlayerHair$ = "Ridiculous"
   PlayerID = 5
   `And a bunch of other stuff
EndFunction

`EXAMPLE: Functions only, initialisations preceeding main program (My Favourite because it's linearest! *pretends "linearest" is a word by adding it to his dictionary*)

GLOBAL World: World = 1
GLOBAL Fish: Fish = 1

DIM AnImg(10): FOR i = 1 TO 10: AnImg(i) = 100 + i: NEXT i

Player$ = "Goku"
PlayerLives = 9999
PlayerHair$ = "Ridiculous"
PlayerID = 5

`SEARCH COMPATIBLE DISPLAY MODE, ETC.

Game()






END

Function BadAI(PInput$)
   `Hahaha, again with that bad text-adventure AI:
   RetVal$ = "You cannot " + PInput$ + " now."
   tmp$ = lower$(PInput$)
   IF LEFT$(tmp$, 3) = "die": RetVal$ = "You cannot die, you are immortal until I kill you!": ENDIF
   IF LEFT$(tmp$, 5) = "drink": RetVal$ = "You can't drink that!!": ENDIF
EndFunction RetVal$

Function Game()
   INPUT "What do you want to do now? ", wado$
   CLS
   tmp$ = BadAI(wado$)
   PRINT tmp$
   PRINT " "
   PRINT "YOU DIED: GAME OVER!"
   PRINT "NO CONTINUES! HAHAHAHA!!!"
   PRINT "YOU LOST, YOU LOST, C'MON, SMASH THAT KEYBOARD!"
   WAIT KEY
   END
EndFunction

For I = 1 to 10 
   If Door(I).Opened = 0 Then GOTO NextDoor
   If PlayerHasKey() and Spacekey()
      If Door(I).Key = Player.Key
         YRotate Object Door(I).Object, 1
         If Object Collision( Door(I).Object, Door(I).StopperObject )
             Door(I).Opened = 1 
             GOTO NextDoor              
         EndIf
         Point Object Player.Object, Object Position X(Door(I).WayObject), Object Position Y(Door(I).WayObject), Object Position Z(Door(I).WayObject)
         XRotate Object Player.Object, 0 
         ZRotate Object Player.Object, 0
         Move Object Player.Object, 1
      EndIf
   EndIf
   ` More code
   NextDoor:
Next I

With Goto's: 

  if (foo) then goto hell


Without Goto's: 

  going_to_heaven = true  // innocent until proven guilty
  while loop_stuff and going_to_heaven
	...
	if (foo) then going_to_heaven = false
	...
  end while
  if (not going_to_heaven and zoob)
	...
  end if
  ...
  if (not going_to_heaven or groob)
	...
  end if
  // final
  if (not going_to_heaven)
	hell()
  end if

B = 10000
I = 0

Stopwatch As Double Integer
Stopwatch = PerfTimer()
LoopIt:
    I = I + 1
    If I < 10000 Then GoTo LoopIt

Print "Goto loop: "; PerfTimer() - Stopwatch
Stopwatch = PerfTimer()
   
For I = 0 to B

Next I
    
Print "For loop: "; PerfTimer() - Stopwatch

Stopwatch = PerfTimer()

C = 0
For I = 0 to 1
    C = C + 1
    If C < 10000 Then I = 0
Next I
    
Print "For If loop: "; PerfTimer() - Stopwatch
Stopwatch = PerfTimer()

I = 0
    
While I <= 10000
    I = I + 1
EndWhile   

Print "While loop: "; PerfTimer() - Stopwatch
Stopwatch = PerfTimer()

I = 0

Repeat 
    I = I + 1
Until  I => 10000  

Print "Repeat loop: "; PerfTimer() - Stopwatch
Stopwatch = PerfTimer()

I = 0

Do 
    I = I + 1
    If I => 10000 Then Exit
Loop  

Print "Do loop: "; PerfTimer() - Stopwatch
Print : Print "Press any key to exit" : Wait Key

DO
   PRINT "INFINITY SUX"
LOOP

Label:
IF DO = 1 THEN Do_Loop_DO = 1
   PRINT "INFINITY SUX"
IF LOOP = 1 THEN Do_Loop_LOOP = 1
IF Do_Loop_DO = 1 AND Do_Loop_LOOP = 1: GOTO Label: ENDIF

DO
   PRINT "INFINITY SUX"
LOOP

label:
   PRINT "INFINITY SUX"
goto label

   3 LINE : do
    
3 MOV EBX IMM4 [2
3 CALL EBX                   ; CALL [dbprocore.dll ,?ProcessMessages@@YAKXZ 
3 CMP EAX4 1                 ; CONDITION COMPARE   
3 JE $labelend               ; JUMP IF EQUAL   
4 JMP $label0[3]             ; DIRECT JUMP
...
   4 LINE : next

   3 LINE : for i = 0 to 1 step 0
    
3 MOV EAX IMM4 , 0
3 SUB EAX IMM4 , 0
3 MOV MEM4 EAX @i            ; SUB   
3 MOV MEM IMM4 @$_SLN_, 3
3 MOV EAX MEM4 @$_ERR_
3 CMP EAX4 0
3 JNE $labelend              ; CALL Normal Runtime Error Hook  
    
3 MOV EAX MEM4 @i
3 ADD EAX IMM4 , 0
3 MOV MEM4 EAX @i            ; ADD   
3 MOV MEM IMM4 @$_SLN_, 3
3 MOV EAX MEM4 @$_ERR_
3 CMP EAX4 0
3 JNE $labelend              ; CALL Normal Runtime Error Hook  
    
3 MOV EAX IMM4 , 1
3 PUSH EAX 
3 MOV EAX MEM4 @i
3 MOV EBX EAX4 
3 POP EDX 
3 MOV EAX IMM4 0
3 CMP EDX EBX4 
3 SETLE EAX 
3 MOV MEM4 EAX @$L3          ; LESSEQUAL   
3 MOV EAX MEM4 @$L3
3 CMP EAX4 0                 ; CONDITION COMPARE   
3 JE $label1[5]              ; JUMP IF EQUAL   
4 JMP $label0[3]             ; DIRECT JUMP   
...
   4 LINE : next

for i = 0 to 1 step 0
next

for i = 1 to 1 step 1
    print "In Loop"
next

for i = LoopStart() to LoopFinish() step LoopStep()
    print "In loop"
next
wait key
end

function LoopStart()
    print "LoopStart"
endfunction 1

function LoopFinish()
    print "LoopFinish"
endfunction 1

function LoopStep()
    print "LoopStep"
endfunction 1

if dmgtype = 1
    if entitymap(who) = currentmap and onscreen(entityxold(who), entityyold(who))
        ` Damage type is melee, the target is on the same map as the player and within visual range
        if weaponhitsound(entityweapon(from)) <> 0
            ` Weapon in use has a hit sound
            if sound exist(weaponhitsound(entityweapon(from)))
                ` Relevant sound exists
                play sound weaponhitsound(entityweapon(from))
            endif
        endif
        entityshake(who) = 7
    endif
endif

if dmgtype = 1 and entitymap(who) = currentmap and onscreen(entityxold(who), entityyold(who)) and weaponhitsound(entityweapon(from)) <> 0 and sound exist(weaponhitsound(entityweapon(from))) then play sound weaponhitsound(entityweapon(from))

function Add_Shot(WeaponPass as integer)
local id as integer
shotcount = array count (currentshots())
if shotcount < 0 then goto addshot
for i = 0 to shotcount-1
	if currentshots(i).objspec.exist = 0 then id = i:goto setshot
next i
addshot:
array insert at bottom CurrentShots()
id = array count (currentshots())
setshot:
currentshots(id).objspec.vecter.yspeed = listweapons(WeaponPass).speed
currentshots(id).name = weaponpass
currentshots(id).objspec.exist = 1
currentshots(id).DidHit = 0
endfunction id
return
return

function Add_Shot(WeaponPass as integer)
  local id as integer
  shotcount = array count (currentshots())
  if shotcount < 0 then
    array insert at bottom CurrentShots()
    id = array count (currentshots())
  else
    for i = 0 to shotcount-1
      if currentshots(i).objspec.exist = 0
        id = i
        exit
      endif
    next i
  endif

  currentshots(id).objspec.vecter.yspeed = listweapons(WeaponPass).speed
  currentshots(id).name = weaponpass
  currentshots(id).objspec.exist = 1
  currentshots(id).DidHit = 0
endfunction id