Game Hunter: revised for 0996

2012-04-08T16:52:48Z

revised for 0996

Game Hunter: going to place source code on a branching page from now on

2011-09-23T19:53:18Z

going to place source code on a branching page from now on

New page

<source lang="lua">
--always declare the module_id global
core.declare( "arena" , {} )

function arena.OnEnter()
core.play_music("rounds_of_hell_part_1") --use some kick-ass music
player:play_sound("preparetofight") --skulltag announcer!
player.eq.weapon = item.new( "shotgun" ) --give the man a shotty

--add 50 shotgun shells to inventory in a single "shell" item
local shells = item.new( "shell" )
shells.ammo = 50
player.inv:add( shells )

Level.result(1) --sets up first wave

--big announcement stuff
ui.msg("A devilish voice announces:")
ui.msg("\"Welcome to Hell's Arena, mortal!\"")
ui.msg("\"You are either very foolish, or very brave. Either way I like it!\"")
ui.msg("\"And so do the crowds!\"")
player:play_sound("fight")
ui.msg("Suddenly you hear screams everywhere! \"Blood! Blood! BLOOD!\"")
ui.msg("The voice booms again, \"Kill all enemies and I shall reward thee!\"")
player:play_sound("one")

--create the first wave
Level.summon("demon",3) --3 demons
Level.summon("lostsoul",2) --2 lost souls
Level.summon("cacodemon",DIFFICULTY-1) --0/1/2/3/4 cacodemons
end

function arena.OnKill()
--randomized cheers from the crowd
local temp = math.random(3)
if temp == 1 then ui.msg("The crowds go wild! \"BLOOD! BLOOD!\"")
elseif temp == 2 then ui.msg("The crowds cheer! \"Blood! Blood!\"")
else ui.msg("The crowds cheer! \"Kill! Kill!\"") end
end

function arena.OnKillAll()
if Level.result() == 1 then --if first wave completes
--more talk
ui.msg("The voice booms, \"Not bad mortal! For a weakling that you ")
ui.msg("are, you show some determination.\"");
ui.msg("You hear screams everywhere! \"More Blood! More BLOOD!\"")
ui.msg("The voice continues, \"I can now let you go free, or")
ui.msg("you may try to complete the challenge!\"");

--player can choose to continue
local choice = ui.msg_confirm("\"Do you want to continue the fight?\"")
if choice then --player chose to continue
core.play_music("rounds_of_hell_part_2") --second verse better than first
player:play_sound("two")
ui.msg("The voice booms, \"I like it! Let the show go on!\"")
ui.msg("You hear screams everywhere! \"More Blood! More BLOOD!\"")

Level.drop("chaingun") --sweet drop
Level.summon("demon",3) --3 demons
Level.summon("cacodemon",DIFFICULTY) --1/2/3/4/5 cacodemons
--player chose to stop
else
ui.msg("The voice booms, \"Coward!\" ")
ui.msg("You hear screams everywhere! \"Coward! Coward! COWARD!\"")
end

elseif Level.result() == 2 then --if second wave completes
--even more talk
ui.msg("The voice booms, \"Impressive mortal! Your determination")
ui.msg("to survive makes me excited!\"")
ui.msg("You hear screams everywhere! \"More Blood! More BLOOD!\"")
ui.msg("\"I can let you go now, and give you a small reward, or")
ui.msg("you can choose to fight the final challenge!\"")

--player can choose to continue
local choice = ui.msg_confirm("\"Do you want to continue the fight?\"")
if choice then --player chosen to continue
core.play_music("rounds_of_hell_part_3") --strongest music yet
player:play_sound("three")
ui.msg("The voice booms, \"Excellent! May the fight begin!!!\"")
ui.msg("You hear screams everywhere! \"Kill, Kill, KILL!\"")

--some more sweet loot
Level.drop("shell",4)
Level.drop("ammo",4)
--spawns are a little more difficulty-dependent
if DIFFICULTY <= 2 then --ITYTD and HNTR
Level.summon("cacodemon",DIFFICULTY+1)
elseif DIFFICULTY == 3 then --HMP
Level.summon("knight",2)
elseif DIFFICULTY >= 4 then --UV and N!
Level.summon("baron",2)
end
else --player chose to stop
ui.msg("The voice booms, \"Too bad, you won't make it far then...!\" ")
ui.msg("You hear screams everywhere! \"Boooo...\"")

--pointless loot
Level.drop("shell",3)
Level.drop("lmed")
Level.drop("smed")
end

elseif Level.result() == 3 then --if third wave completes
--finally done talking
ui.msg("The voice booms, \"Congratulations mortal! A pity you came to")
ui.msg("destroy us, for you would make a formidable hell warrior!\"")
ui.msg("\"I grant you the title of Hell's Arena Champion!\"")
ui.msg("\"And a promise is a promise... search the arena again...\"")

--also pointless loot
Level.drop("scglobe")
Level.drop("barmor")
Level.drop("lmed")
end

--increment level counter each time a wave completes
Level.result(Level.result()+1)
end

function arena.OnExit()
ui.msg_enter("The voice laughs, \"Flee mortal, flee! There's no hiding in hell!\"")

--takes care of mortem text for "killed by something unknown..."
if Level.result() < 4
then arena.result = "fled alive the trials at wave "..Level.result()
else arena.result = "completed the trials"
end
end

function arena.OnMortem()
local kill = player.killedby --calls kill descriptions from beings
if arena.result then kill = arena.result end
player:mortem_print( " "..player.name..", level "..player.explevel.." "
.." "..klasses[player.klass].name..", "..kill )
--e.g., "Cool Guy, level 1 Marine, fled alive the trials at wave 3"
player:mortem_print(" in the Hell Arena...")
end

function arena.run()
Level.name = "Hell Arena" --that IS what it's called
Level.name_number = 0 --remove floor #
Level.fill("prwall") --immortal border tiles
local translation = {
['.'] = "floor", --gray floor
[','] = "blood", --red floor (blood)
['#'] = "rwall", --red wall (bloodstone)
['>'] = "stairs" --gray (normal) stairs
}

--create map cell string (76x18)
local map = [[
#######################.............................########################
###########.....................................................############
#####..................................................................#####
##........................................................................##
#..........................................................................#
............................................................................
..................................,,,,,,....................................
..,,,.............................,,,,,,,...................................
..,>,............................,,,,,,,,,..................................
..,,,............................,,,,,,,,...................................
..................................,,,,,,....................................
............................................................................
............................................................................
#..........................................................................#
##........................................................................##
#####..................................................................#####
###########.....................................................############
#######################.............................########################
]]
--create pillar cell string (6x5)
local column = [[
,..,.,
,####.
.####,
.####.
,..,.,
]]

--puts map in non-border area
Level.place_tile( translation, map, 2, 2 )
--adds random pillars and blood
Level.scatter_put( area.new(5,3,68,15), translation, column, "floor",9+math.random(8))
Level.scatter( area.FULL_SHRINKED,"floor","blood",100)
--inserts player
Level.player(38,10)
end
</source>

@@ Line 4: / Line 4: @@
 function arena.OnEnter()
-     core.play_music("rounds_of_hell_part_1")         --use some kick-ass music
+     core.play_music("rounds_of_hell_part_1")          --use some kick-ass music
      player:play_sound("preparetofight")               --skulltag announcer!
      player.eq.weapon = item.new( "shotgun" )          --give the man a shotty
@@ Line 33: / Line 33: @@
 function arena.OnKill()
          --randomized cheers from the crowd
-	local temp = math.random(3)
+    local temp = math.random(3)
-	if     temp == 1 then ui.msg("The crowds go wild! \"BLOOD! BLOOD!\"")
+    if     temp == 1 then ui.msg("The crowds go wild! \"BLOOD! BLOOD!\"")
-	elseif temp == 2 then ui.msg("The crowds cheer! \"Blood! Blood!\"")
+    elseif temp == 2 then ui.msg("The crowds cheer! \"Blood! Blood!\"")
-	else                  ui.msg("The crowds cheer! \"Kill! Kill!\"") end
+    else                  ui.msg("The crowds cheer! \"Kill! Kill!\"") end
 end
@@ Line 73: / Line 73: @@
          ui.msg("you can choose to fight the final challenge!\"")
-	--player can choose to continue
+    --player can choose to continue
          local choice = ui.msg_confirm("\"Do you want to continue the fight?\"")
-         if choice then                           --player chosen to continue
+         if choice then                                --player chosen to continue
              core.play_music("rounds_of_hell_part_3")  --strongest music yet
              player:play_sound("three")
@@ Line 141: / Line 141: @@
      Level.name = "Hell Arena"                    --that IS what it's called
      Level.name_number = 0                        --remove floor #
-     Level.fill("prwall")                         --immortal border tiles
+     Level.fill("rwall")                         --immortal border tiles
      local translation = {
          ['.'] = "floor",                         --gray floor
@@ Line 147: / Line 147: @@
          ['#'] = "rwall",                         --red wall (bloodstone)
          ['>'] = "stairs"                         --gray (normal) stairs
-−
+    }
       --create map cell string (76x18)
-	local map = [[
+    local map = [[
 #######################.............................########################
 ###########.....................................................############
@@ Line 169: / Line 169: @@
 ###########.....................................................############
 #######################.............................########################
-	]]
+]]
      --create pillar cell string (6x5)
      local column = [[
@@ Line 177: / Line 177: @@
 .####.
 ,..,.,
-	]]
+]]
      --puts map in non-border area
@@ Line 184: / Line 184: @@
      Level.scatter_put( area.new(5,3,68,15), translation, column, "floor",9+math.random(8))
      Level.scatter( area.FULL_SHRINKED,"floor","blood",100)
      --inserts player
      Level.player(38,10)
 end
 </source>

Modding:Tutorial/Recreating Hell's Arena/Source - Revision history

Game Hunter: revised for 0996

Game Hunter: going to place source code on a branching page from now on