Join Date: Dec 2005
Location: Here
Posts: 2,715
|
ooo kkk...
Quote:
-->\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\
-->Begin Intro
-->Load images and variables
-->//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
System.usbDiskModeActivat e()
white = Color.new(255, 255, 255)
red = Color.new(255, 0, 0)
ejf = Image.load("images/ejf.png") -->this is what shows up in the credits
mmenu = Image.load("images/main menu.png") -->self explanetory
loading = Image.load("images/loading....png") -->self explanetory
map = Image.load("images/simple map.png") -->again (lol) self explanetory
units = Image.load("images/units.png") -->one picture with all unit sprites
notice_pic = Image.load("images/notice!.png") -->pic that pops up when user must know something
start_menu = Image.load("images/start menu.png") -->the start menu, only comes during gameplay
menu_selection = 1 -->Main Menu variable
start_menu_selection = 1 -->Start menu variable
-->\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\
-->Small Intro: it just says 'Loading'
-->////////////////////////////////////////////////////////////////////////////////////////////////
screen:blit(200, 125, loading)
screen.flip()
screen.waitVblankStart(60 )
screen:clear()
screen.flip()
screen:clear()
-->\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\
-->Done Loading Images
-->Defining Functions
-->////////////////////////////////////////////////////////////////////////////////////////////////
-->'Notice' or 'Error' function\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \
function notice()
while true do
screen:clear()
screen:blit(0, 0, notice_pic)
screen.flip()
screen rint(100, 80, "This button doesnt work yet.", red)
screenrint(100, 90, "Still working on it!", red)
screenrint(100, 100, "When it works it will:", red)
screenrint(100, 110, "Leave game to Lua Apps browser.", red)
screenrint(100, 130, "Press X to continue", white)
screen.waitVblankStart()
if pad:cross() then
break
end
end
end
-->end of 'Notice' or 'Error' function/////////////////////////////////////////////////////////////
-->Press 'Start' Function - This function is used in mid-game only\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\
function pressStart()
while true do
pad = Controls.read()
screen:clear()
screen:blit(199, 119, start_menu)
screen.flip()
screen.waitVblankStart()
if pad:up() then
start_menu_selection = start_menu_selection + 1
if start_menu_selection > 1 then
start_menu_selection = 1
end
end
if pad:down() then
start_menu_selection = start_menu_selection - 1
if start_menu_selection < 1 then
start_menu_selection = 0
end
end
if start_menu_selection == 1 then
screenrint(222, 122, "Continue", red)
screenrint(222, 132, "Exit Game", white)
end
if start_menu_selection == 0 then
screenrint(222, 122, "Continue", white)
screenrint(222, 132, "Exit Game", red)
end
if pad:cross() then
if start_menu_selection == 1 then
break
end
if start_menu_selection == 0 then
notice()
end
end
if pad:start()then
break
end
end
end
-->end of press 'start' function///////////////////////////////////////////////////////////////////
-->The "Start Game" function\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\
function game()
screen:clear()
while true do
pad = Controls.read()
screen:blit(0, 0, map) -->make map appear (dur!)
screen:blit(220, 220, units, 0, 0, 31, 31, true) -->make a single red unit appear facing up
screen.flip()
screen.waitVblankStart()
if pad:start() then
screen:clear()
screen.flip()
screen:clear()
pressStart()
end
end
end
-->end of "Start Game" function////////////////////////////////////////////////////////////////////
-->The "Show Credits" function\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\
function showcredits()
screen:clear()
while true do
pad = Controls.read()
screen:blit(0, 0, ejf) -->show credits
screen.flip()
screen.waitVblankStart()
if pad:circle() then
break
end
end
end
-->end of "Show Credits" function//////////////////////////////////////////////////////////////////
-->\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\
-->End Intro
-->End loading and defining
-->Begin Main Menu
-->//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
while true do
pad = Controls.read()
if pad:up() then
menu_selection = menu_selection + 1
if menu_selection >= 2 then
menu_selection = 2
end
end
if pad:down() then
menu_selection = menu_selection - 1
if menu_selection < 1 then
menu_selection = 0
end
end
screen:clear()
screen:blit(0, 0, mmenu)
if menu_selection == 1 then
screenrint(180, 130, ">Start Game", red)
screenrint(180, 140, "Credits", white)
if pad:cross() then
game()
end
end
if menu_selection == 2 then
screenrint(180, 130, ">Start Game", red)
screenrint(180, 140, "Credits", white)
if pad:cross() then
game()
end
end
if menu_selection == 0 then
screenrint(180, 130, "Start Game", white)
screenrint(180, 140, ">Credits", red)
if pad:cross() then
showcredits()
end
end
screen:flip()
screen.waitVblankStart()
end
-->\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\
-->End of Main Menu
|
__________________
[CENTER][IMG]http://img148.imageshack.us/img148/6985/siglw8.jpg[/IMG][/CENTER]
|
.
