BlitzCoder - Blitz Basic Game Development Resources

The Making Of...: The Makings of 'Ians RPG'(the name will change) by Ian Briley

Hello and welcome.

This is the making of Ian's RPG, I have all ready started a worklog, and I have started to work on the game to, so let's get to know each other, I'm a kinda new person to programing I know HTML,and Blitz Basic, I hope to learn C++ sooner or later. Also I can speack German too, not fluent in german but I know enough to get me around town.

And finally I'll most likely post "help me with this problem" on this article, if you do help me by emailing me I'll add your name(of choice)in to the credits, and next to your name it will say what you did for me, but thats only if I use your help.

So now that we have introductions out of the way let's get started and make my game

First I'll submit some code I've kinda worked on this all ready, but it was when ever I had time to work on it, but with April vaction on the way I'll be able to make leaps and bounds on my game.

;*****************************************************************************************************
;	Ian's RPG. Version 0.0.1
;*****************************************************************************************************
;	Key: AP = attack points{} DP = defence points{} speed = how fast it can attack{} paper_notes = cash in this world.
;	Key: MP= Magic Points{} HP = Health points{} EP = Experiance points{} Lvl = Current Level.
;*****************************************************************************************************

AppTitle"Ian's RPG"
Graphics 1024,768,0,1
SetBuffer  BackBuffer()
AutoMidHandle True 
SeedRnd MilliSecs()

;This section loads all the images. not the tiles.
bentsmallknife=LoadImage("Graphics/bentsmallknife.bmp")
bluejeans=LoadImage("Graphics/bluejeans.bmp")
blueshirt=LoadImage("Graphics/blueshirt.bmp")
brownshirt=LoadImage("Graphics/brownshirt.bmp")
greenshirt=LoadImage("Graphics/greenshirt.bmp")
largeknife=LoadImage("Graphics/largeknife.bmp")
magicscroll=LoadImage("Graphics/magicscroll.bmp")
magicstone=LoadImage("Graphics/magicstone.bmp")
papermoney1=LoadImage("Graphics/papermoney1.bmp")
raggybookbag=LoadImage("Graphics/raggybookbag.bmp")
redshirt=LoadImage("Graphics/redshirt.bmp")
smallchest=LoadImage("Graphics/smallchest.bmp")
smallknife=LoadImage("Graphics/smallknife.bmp")
smallroundsheild=LoadImage("Graphics/smallroundshield.bmp")
smallsheild=LoadImage("Graphics/smallshield.bmp")
whiteshirt=LoadImage("Graphics/whiteshirt.bmp")
yellowsheild=LoadImage("Graphics/yellowshield.bmp")
yellowshirt=LoadImage("Graphics/yellowshirt.bmp")
hammer=LoadImage("Graphics/hammer.bmp")
ax=LoadImage("Graphics/ax.bmp")
grassdotted=LoadImage("Graphics/grassdotted.bmp")
redeye1=LoadImage("Graphics/redeye.bmp")
cursor=LoadImage("Graphics/cursor.bmp")
testman1 = LoadImage("Graphics/testman1.bmp")
treetest = LoadImage("Graphics/treetest.bmp")
arrow = LoadImage("Graphics/arrow.bmp")
Global spell1 = LoadImage("Graphics/spelltest.bmp")
	
	;This loads the music and sounds.
medmusic=PlayMusic("Music/medmusic.wav")

;this sevction has all the include include files.

;this Masks the images
MaskImage redeye1,255,255,255
MaskImage ax,255,255,255
MaskImage cursor,255,255,255
MaskImage testman1,255,255,255

timer=CreateTimer(60)
Global EPtimer=CreateTimer(10)

;Now for the player,monster,item types,spell types.
Type player
Field image
Field HP
Field MP
Field paper_notes
Field x,y
Field EP 
Field Lvl
End Type

;This makes the types for all the spells
Type spell
Field cast
Field cost
Field x,y
Field image 
End Type
	;this is the type for the monsters
Type monster
Field drop
Field AP
Field DP
Field MP
Field HP
Field speed
Field gold
Field Lvl
Field x,y
Field image 
End Type
	;this is the type for the landscape like trees rocks logs....
Type landscape
Field x,y
Field image
End Type
	; this make the types for all my items
Type item
Field x,y
Field value 
Field damage
End Type

Global redeye.monster = New monster
redeye\x = 200
redeye\y = 300
redeye\image = redeye1

Global player1.player = New player
player1\image = testman1
player1\x = 100
player1\y = 100
player1\HP = 20
player1\MP = 10
player1\EP = 000
player1\Lvl = 1
treex=Rand(100,200)
treey=Rand(150,200)

;The Main Loop
While Not KeyHit(1)
WaitTimer(timer)
TileImage grassdotted,1,1
TestKeys()
DrawHUD()
TestAI()
CH()
DrawImage treetest,treex,treey
DrawImage ax,100,200 
DrawImage redeye\image,redeye\x,redeye\y
DrawImage player1\image,player1\x,player1\y 
Flip
Delay 25 
Wend
	;End of Main Loop

;This function test the keys to see if they have been hit or are held down.
Function TestKeys()

;if the Left arrow key is down then move the player left 1 pixle
If KeyDown(203) 
	player1\x = player1\x - 1
EndIf
	
		;if the Up arrow key is pressed then move him up 1 pixle
If KeyDown(200)
	player1\y = player1\y - 1
EndIf
	
		;if the down arrow key is pressed move the player down 1 pixle
If KeyDown(208)
	player1\y = player1\y + 1
EndIf
	
		;if the right arrow key is pressed move the player right 1 pixle
If KeyDown(205)
	player1\x = player1\x + 1
EndIf

If KeyHit(57)
fireball.spell = New spell
fireball\image = spell1
fireball\x = player1\x
fireball\y = player1\y
player1\MP = player1\MP - 1
EndIf 
	 
End Function

;This draws the players Heads UP display
Function DrawHUD()
Text 50,50,"HP = " + player1\HP 
Text 50,60,"MP = " + player1\MP
Text 50,70,"EXP = " + player1\EP
Text 50,80,"Your Current LVL is " + player1\Lvl
End Function

;This Tests enemy AI
Function TestAI()
redeye\x = redeye\x + Rand(-5,5)
redeye\y = redeye\y + Rand(-5,5)
End Function

;This function tests to see if the player got hit or not, if he got hit something will happen.
Function CH()
	If ImagesOverlap(player1\image,player1\x,player1\y,redeye\image,redeye\x,redeye\y)
player1\HP = player1\HP - 1
player1\EP = player1\EP + 2
	EndIf 
SkillSystem(); goes to the SkillSystem function
End Function

;This Updateds the spells
Function UpdateSpells()
For fireball.spell = Each spell
fireball\y = fireball\y + 5
If fireball\y <0
Delete fireball
Else 
DrawImage fireball\image,fireball\x,fireball\y
EndIf
Next
End Function

;This checks and sees if your skills are up to      .
Function SkillSystem()

If player1\MP <= 0
player1\MP = 0
EndIf

If player1\EP = 100
player1\Lvl = player1\Lvl + 1
EndIf

If player1\EP => 100
player1\EP = player1\EP - player1\EP
EndIf

If player1\HP <= 0
Text 400,300, " YOU DIED HA HA" 
EndIf

If player1\MP <= 0
Text 10,10, "Out of MP's"
Else 
UpdateSpells()
EndIf  
End Function

; And thats what I have so far.
; THE LIST>>> KEY>>> {|} = DONE. {} = NOT DONE
; TO FIX: The Speed at which the players skills HP EP increase or decrease it way to fast.{}
; TO FIX: Try and see if you can make it so that the Players HP doesn't go below 0{}
; TO DO: Start the Map editor, make the tiles and add more landscape.{}
; TO DO: Get the Menus set up and ready to go.{}
; TO DO: Make some more Monsters{}
; TO DO: Make more different AI tatics such as defencesive, Sly, Mean, pushover....{}
; TO DO: Load up sounds get more battle sounds{} 
; TO DO: Fix up website, and start up a work log on my site and Blitz-Basics
; PONDER: Think up some new spells{} 
; DATE: April 16,2005. TIME: 8:46 PM. LAST Words before I stop Worken: My work is only begining...Good night.

Okay thats All I have done so for. So for the very first help me See when I compile that code it works all just handy dandy, intill the player image and the enemy image overlap, The players Health Points(HP) drop way to fast, so How can I fix this I've allready tried to use delay but it's still to fast. Thank you for your time.

For more infomation go to My Homepage(It's not fully done yet sorry)

Date April 16,2005 Time 11:01 PM

For a printable copy of this article, please click HERE.