40 posts
The Coffee Maker
Posted 17 April 2012 - 01:48 AM
Unfortunately, it's not finished yet, but it'll be updated regularly!
COMPRESSED CODE:
http://pastebin.com/ENKqng80
ORIGINAL CODE:
CONTROLS:
E: Stats Screen
W/A/S/D: Movement
P: Scores Screen
1-6: Select Spell (spells will become available every 10 levels, ending at level 50)
SPACE: Cast Spell (each spell consumes a different amount of power, displayed on the power bar)
TODO:
1. Last two spells
2. Mobs
3. Zones (maps)
4. Items (armor and all that)
Notable Stuff:
1. 12172 characters are in the code.
2. All code will be compressed, all on one line.
3. Your game saves every second, so if your game crashes, your RPG won't.
When you start playing the game, you'll notice these "O"s, those are experience orbs that spawn randomly throughout the game, these will probably get changed in later versions.
Images:
Please post suggestions, as well as what the last two spells should be, because I'm clueless (possibly ice?)
COMPRESSED CODE:
http://pastebin.com/ENKqng80
ORIGINAL CODE:
Spoiler
function checkLines(file)
if fs.exists(file) == true then
sFile = fs.open(file, "r")
sCount = 0
for i = 1, math.huge do
line = sFile:readLine()
if line ~= nil then
sCount = sCount+1
else
return sCount
end
end
sFile:close()
else
return false
end
end
--POWER/HEALTH
function loadHealth(health, maxHealth)
term.setCursorPos(1,1)
if health <= 0 then
initDeath()
end
io.write("H: {")
for i = 1, health/maxHealth*30 do
io.write("|")
end
term.setCursorPos(35,1)
io.write("}")
term.setCursorPos(37,1)
if health == math.floor(health) then
io.write(health..".")
else
io.write(health)
end
end
function loadPower(power, maxPower)
term.setCursorPos(1,2)
if power < 0 then
power = 0
end
io.write("P: {")
for i = 1, power/maxPower*30 do
io.write("|")
end
term.setCursorPos(35,2)
io.write("}")
term.setCursorPos(37,2)
if power == math.floor(power) then
io.write(power..".")
else
io.write(power)
end
end
--POWER/HEALTH
--EXPERIENCE
function loadEXP()
term.setCursorPos(1,18)
io.write("{")
for i = 1, experience/(level^2*50)*46 do
io.write("|")
end
term.setCursorPos(49,18)
io.write("}")
term.setCursorPos(24,17)
io.write(level)
end
--EXPERIENCE
--SAVE/LOAD STUFF
function Save()
if fs.exists(".WiredGameSave") == true then
fs.delete(".WiredGameSave")
file = io.open(".WiredGameSave","w")
else
file = io.open(".WiredGameSave","w")
end
file:write(tostring(health).."n")
file:write(tostring(maxHealth).."n")
file:write(tostring(power).."n")
file:write(tostring(maxPower).."n")
file:write(tostring(charPos[1]).."n")
file:write(tostring(charPos[2]).."n")
file:write(char.."n")
file:write(tostring(healthRegen).."n")
file:write(tostring(powerRegen).."n")
file:write(tostring(level).."n")
file:write(tostring(armor).."n")
file:write(tostring(experience).."n")
--MORE STUFF TO SAVE(positions and all that)
file:close()
end
function Load()
file = fs.open(".WiredGameSave","r")
health = tonumber(file:readLine())
maxHealth = tonumber(file:readLine())
power = tonumber(file:readLine())
maxPower = tonumber(file:readLine())
charPos[1] = tonumber(file:readLine())
charPos[2] = tonumber(file:readLine())
char = tostring(file:readLine())
healthRegen = tonumber(file:readLine())
powerRegen = tonumber(file:readLine())
level = tonumber(file:readLine())
armor = tonumber(file:readLine())
experience = tonumber(file:readLine())
--MORE STUFF TO LOAD(positions and all that)
file:close()
end
--SAVE/LOAD STUFF
--DEATH
function initDeath()
term.clear()
term.setCursorPos(1,1)
print("You died, please submit score.")
EXPERIENCEZZZ = 0
for i=1, level do
EXPERIENCEZZZ = EXPERIENCEZZZ+i^2*50
end
print("Experience: "..EXPERIENCEZZZ)
io.write("Name: ")
inp = read()
file = fs.open(".WiredGameScores","r")
scores = {}
linesZZZ = checkLines(".WiredGameScores")
for i = 1, linesZZZ do
table.insert(scores, tostring(file:readLine()))
end
file:close()
file = io.open(".WiredGameScores","w")
file:write(tostring(inp)..": "..EXPERIENCEZZZ.."n")
for i = 1, linesZZZ do
file:write(tostring(scores[i]).."n")
end
fs.delete(".WiredGameSave")
os.reboot()
end
--DEATH
--SPELLS
function castSpell(spell, currentTick)
if spell == "Fire" then
fireSpell = {true, currentTick, charPos[1], charPos[2]}
end
if spell == "Fireball" then
fireballSpell = {true, currentTick, charPos[1], charPos[2], char}
end
if spell == "Fire Walk" then
firewalkSpell = {true, currentTick, charPos[1], charPos[2]}
end
if spell == "Super Fire" then
superfireSpell = {true, currentTick, charPos[1], charPos[2]}
end
end
--SPELLS
--INPUT
function processInput()
while true do
a, b = os.pullEvent()
if a == "key" then
if stopProcesses == false then --Asks if game is paused
if b == 17 then
if 3 < charPos[2] then
charPos[2] = charPos[2]-1
char = "^"
end
end
if b == 30 then
if charPos[1] > 1 then
charPos[1] = charPos[1]-1
char = "<"
end
end
if b == 32 then
if charPos[1] < 49 then
charPos[1] = charPos[1]+1
char = ">"
end
end
if b == 31 then
if charPos[2] < 17 then
charPos[2] = charPos[2]+1
char = "v"
end
end
if b == 57 then
castSpell(currentSpell, tick)
end
end
if b == 2 then
if level>=1 then
currentSpell = "Fire"
end
end
if b == 3 then
if level>=10 then
currentSpell = "Fireball"
end
end
if b == 4 then
if level>=20 then
currentSpell = "Fire Walk"
end
end
if b == 5 then
if level>=30 then
currentSpell = "Super Fire"
end
end
if b == 6 then
if level>=40 then
currentSpell = ""
end
end
if b == 7 then
if level>=50 then
currentSpell = ""
end
end
if b == 18 then
if statsMenu == nil then
statsMenu = true
end
if statsMenu == true then
statsMenu = false
stopProcesses = false
else
statsMenu = true
stopProcesses = true
end
if statsMenu == true then
if scoreMenu == true then
scoreMenu = false
statsMenu = true
end
end
end
if b == 25 then
if scoreMenu == nil then
scoreMenu = true
end
if scoreMenu == true then
scoreMenu = false
stopProcesses = false
else
scoreMenu = true
stopProcesses = true
end
if statsMenu == true then
if scoreMenu == true then
scoreMenu = false
statsMenu = true
end
end
end
end
end
end
--INPUT
--TICK
function processTick()
while true do
--Tick System
if tick/20 == math.floor(tick/20) then
Save() --Saves every 1s automatically.
end
sleep(.05)
term.clear()
tick = tick+1
if statsMenu == true then
stopProcesses = true
else
stopProcesses = false
end
if scoreMenu == true then
stopProcesses = true
else
stopProcesses = false
end
--Tick System
--STATS
maxHealth = level*2
maxPower = math.floor(level*1.5)
healthRegen = maxHealth/3000
powerRegen = maxPower/1000
--STATS
--EXPBoxes
if stopProcesses == false then
ran = math.random(1000,1500)
ran2 = math.random(3,17)
ran3 = math.random(1,49)
ran4 = math.random(1,50)
ran5 = math.random(1,5)
if tick/ran == math.floor(tick/ran) then
table.insert(box, ran2)
table.insert(box2, ran3)
table.insert(box3, ran4)
if ran5 == 5 then
table.insert(box4, 1)
elseif ran5 == 4 then
table.insert(box4, 2)
elseif ran5 == 3 then
table.insert(box4, 3)
end
end
for i = 1, #box do
term.setCursorPos(box2[i], box[i])
if box4[i] == 2 or box4[i] == 3 then
io.write("O")
else
io.write("o")
if box4[i] == 1 then
box3[i] = 250
end
end
end
for i = 1, #box do
if charPos[1] == box2[i] then
if charPos[2] == box[i] then
term.setCursorPos(charPos[1]-1,charPos[2]-2)
io.write(tostring(box3[i]))
sleep(.08)
box[i] = -99
box2[i] = -99
experience = experience+box3[i]
box3[i] = -99
if box4[i] == 1 then
armor = armor+box4[i]
elseif box4[i] == 2 then
if armor>1 then
armor = armor-1
else
health = health-1
end
end
end
end
end
end
--EXPBoxes
--Power Regeneration
if statsMenu == false then --Asks if game is paused.
if health ~= maxHealth then
health = health+healthRegen
end
if power ~= maxPower then
power = power+powerRegen
end
if maxPower <= power then
power = maxPower
end
if maxHealth <= health then
health = maxHealth
end
term.setCursorPos(37, 1)
io.write("0.00000000000")
term.setCursorPos(37, 2)
io.write("0.00000000000")
loadHealth(health, maxHealth)
loadPower(power, maxPower)
end
--Power Regeneration
--Character
if statsMenu == false then --Asks if game is paused.
term.setCursorPos(charPos[1], charPos[2])
io.write(char)
if lastCharPos ~= charPos then
term.setCursorPos(lastCharPos[1],lastCharPos[2])
io.write(" ")
term.setCursorPos(charPos[1], charPos[2])
io.write(char)
end
lastCharPos[1] = charPos[1]
lastCharPos[2] = charPos[2]
end
--Character
--DING
if statsMenu == false then
loadEXP()
if experience >= level^2*50 then
level = level+1
experience = experience-(level-1)^2*50
end
if level == 100 then
experience = 0
end
end
--DING!
--Stats Screen
if scoreMenu == false then
if statsMenu == true then
stopProcesses = true
tick = tick-1
term.clear()
term.setCursorPos(1,1)
print(" -GAME PAUSED-")
term.setCursorPos(1,4)
print("Health: "..health.."/"..maxHealth)
print("Health Regen: "..healthRegen*20 .." per second n")
print("Power: "..power.."/"..maxPower)
print("Power Regen: "..powerRegen*20 .." per second n")
print("Armor: "..armor.."/"..maxArmor.."n")
print("Level: "..level)
print("Experience: "..experience.."/"..tostring(level^2*50).."n")
io.write("Selected Spell: ")
if currentSpell == "" or currentSpell == nil then
io.write("None")
else
io.write(currentSpell)
end
sleep(.05)
else
stopProcesses = false
end
end
if statsMenu == true then
if scoreMenu == true then
scoreMenu = false
statsMenu = true
end
end
--Stats Screen
--Score Screen
if statsMenu == false then
if scoreMenu == true then
stopProcesses = true
term.clear()
tick = tick-1
file = fs.open(".WiredGameScores","r")
term.setCursorPos(21,1)
io.write("-SCORES-n")
for i = 1,14 do
term.setCursorPos(1,i+3)
print(file:readLine())
end
sleep(.05)
else
stopProcesses = false
file:close()
end
end
--Score Screen
--ARMOR
if armor >= maxArmor then
armor = maxArmor
end
if armor <= 0 then
armor = 0
end
--ARMOR
--Spells
if fireSpell[1] == true then
currentTick = fireSpell[2]
if power>0 then
if tick < currentTick+10 then
charPos[1] = fireSpell[3]
charPos[2] = fireSpell[4]
term.setCursorPos(charPos[1]+1,charPos[2])
io.write("#")
term.setCursorPos(charPos[1]-1,charPos[2])
io.write("#")
term.setCursorPos(charPos[1],charPos[2]+1)
io.write("#")
term.setCursorPos(charPos[1],charPos[2]-1)
io.write("#")
power = power-.01
end
end
end
if fireballSpell[1] == true then
currentTick = fireSpell[2]
if power>0 then
vchar = fireballSpell[5]
if vchar == "^" then
if fireballSpell[4]-offsetY < 3 then
fireballSpell[1] = false
offsetY = 1
end
term.setCursorPos(fireballSpell[3], fireballSpell[4]-offsetY)
io.write("|")
if tick/1 == math.floor(tick/1) then
offsetY = offsetY+1
power = power-(1/9)
end
end
if vchar == "v" then
if fireballSpell[4]+offsetY > 17 then
fireballSpell[1] = false
offsetY = 1
end
term.setCursorPos(fireballSpell[3], fireballSpell[4]+offsetY)
io.write("|")
if tick/1 == math.floor(tick/1) then
offsetY = offsetY+1
power = power-(1/9)
end
end
if vchar == ">" then
if fireballSpell[3]+offsetX > 48 then
fireballSpell[1] = false
offsetX = 1
end
term.setCursorPos(fireballSpell[3]+offsetX, fireballSpell[4])
io.write("-")
if tick/1 == math.floor(tick/1) then
offsetX = offsetX+1
power = power-(1/9)
end
end
if vchar == "<" then
if fireballSpell[3]-offsetX < 1 then
fireballSpell[1] = false
offsetX = 1
end
term.setCursorPos(fireballSpell[3]-offsetX, fireballSpell[4])
io.write("-")
if tick/1 == math.floor(tick/1) then
offsetX = offsetX+1
power = power-(1/9)
end
end
end
end
if firewalkSpell[1] == true then
currentTick = firewalkSpell[2]
if power>0 then
if tick < currentTick+10 then
term.setCursorPos(charPos[1]+1,charPos[2])
io.write("&")
term.setCursorPos(charPos[1]-1,charPos[2])
io.write("&")
term.setCursorPos(charPos[1],charPos[2]+1)
io.write("&")
term.setCursorPos(charPos[1],charPos[2]-1)
io.write("&")
power = power-.015
end
end
end
if superfireSpell[1] == true then
currentTick = superfireSpell[2]
if power>0 then
if tick < currentTick+10 then
term.setCursorPos(charPos[1]-1,charPos[2]+1)
io.write("&")
term.setCursorPos(charPos[1],charPos[2]+1)
io.write("&")
term.setCursorPos(charPos[1]+1,charPos[2]+1)
io.write("&")
term.setCursorPos(charPos[1]-1,charPos[2])
io.write("&")
term.setCursorPos(charPos[1]-2,charPos[2])
io.write("&")
term.setCursorPos(charPos[1]+1,charPos[2])
io.write("&")
term.setCursorPos(charPos[1]+2,charPos[2])
io.write("&")
term.setCursorPos(charPos[1],charPos[2]+2)
io.write("&")
term.setCursorPos(charPos[1]-1,charPos[2]-1)
io.write("&")
term.setCursorPos(charPos[1]+1,charPos[2]-1)
io.write("&")
term.setCursorPos(charPos[1],charPos[2]-1)
io.write("&")
term.setCursorPos(charPos[1],charPos[2]-2)
io.write("&")
power = power-.25
end
end
end
--Spells
end
end
--TICK
--MAIN
function MAIN()
charPos = {}
if lastCharPos == nil then
lastCharPos = {50, 50}
end
if fs.exists(".WiredGameScores") ~= true then
file = io.open(".WiredGameScores","w")
file:write(" ")
file:close()
end
if fs.exists(".WiredGameSave") ~= true then
file = io.open(".WiredGameSave","w")
file:write(tostring(3).."n") --health
file:write(tostring(3).."n") --maxHealth
file:write(tostring(3).."n") --power
file:write(tostring(3).."n") --MaxPower
file:write(tostring(1).."n") --character xPos
file:write(tostring(3).."n") --character yPos
file:write(tostring(">").."n") --character looks
file:write(tostring(.00099999).."n") --healthRegen
file:write(tostring(.005).."n") --powerRegen
file:write(tostring(1).."n") --level
file:write(tostring(0).."n") --armor
file:write(tostring(0).."n") --experience
file:write(tostring(0).."n") --game time
--MORE STUFF TO SAVE(positions and all that)
file:close()
end
Load()
if tick == nil then
tick = 0
end
term.clear()
maxArmor = level*10
fireSpell = {}
superfireSpell = {}
fireballSpell = {}
firewalkSpell = {}
currentSpell = "Fire"
offsetX = 1
offsetY = 1
maxHealth = level*2
maxPower = math.floor(level*1.5)
healthRegen = maxHealth/3000
powerRegen = maxPower/1000
box = {}
box2 = {}
box3 = {}
box4 = {}
stopProcesses = false
statsMenu = false
scoreMenu = false
parallel.waitForAny(processTick, processInput)
end
--MAIN
MAIN()
CONTROLS:
E: Stats Screen
W/A/S/D: Movement
P: Scores Screen
1-6: Select Spell (spells will become available every 10 levels, ending at level 50)
SPACE: Cast Spell (each spell consumes a different amount of power, displayed on the power bar)
TODO:
1. Last two spells
2. Mobs
3. Zones (maps)
4. Items (armor and all that)
Notable Stuff:
1. 12172 characters are in the code.
2. All code will be compressed, all on one line.
3. Your game saves every second, so if your game crashes, your RPG won't.
When you start playing the game, you'll notice these "O"s, those are experience orbs that spawn randomly throughout the game, these will probably get changed in later versions.
Images:
Spoiler
Please post suggestions, as well as what the last two spells should be, because I'm clueless (possibly ice?)
