Scrolling Game Development Kit Forum
SGDK Version 1 => Script => Topic started by: GameZealot on 2006-04-01, 12:13:13 PM
-
Hey everyone!
Do you guys think you can make me a script for H.P.? I have no clue on how to script and this hit ponits thing would work out perfectly!
I need it where three different KINDS of enemies(for example: There is a gunner class and there are 4 of them; there is a rocket class and there are two of them. Basically, gunner and rocket are the different kinds of enemies but there will be multiple enemies for each class. I hope that wasn't too confusing...) can have there own H.P. And, if possible, if I can edit the amount for different stages of badguys. I know this sounds like a BIG request but if you guys don't mind, I could really use the help.
Thanks! :)
-
http://sourceforge.net/docman/display_doc.php?docid=31098&group_id=9970 (http://sourceforge.net/docman/display_doc.php?docid=31098&group_id=9970)
-
Cool, thanks man!
-
there's tons of scripts in the FAQ/Tutorial section of gamedev.sf.net (http://gamedev.sf.net)
-
Shoot... I tried out that script and it didn't work for me... I change the names I was suppose to change. Could I get a little more help this? :(
-
well, I don't know much about scripting so you'll have to wait until one of the pros come along :)
-
did you do the other stuff it said to do?
To make it work you MUST: Create a collision definition between a sprite of the enemy class and a sprite of the weapon class (where the enemy class is class A) which activates COL_<ADef>*
-
Yes, I did this but it still doesn't work...
-
Post the script with your changes, along with what exactly each change you made means (at least, what you think it means). Then we can see what's up.
-
Alright, sorry for taking so long! Here is the script and the changes I thought were necessary, rather I thought the guide line for this meant.
<------------------------------------------------------------------>
Option Explicit
'-----Initialize Sprites-----
Dim Hits(2), i
for i = 0 to 2
set Hits(i) = new Hit
Hits(i).Hit "LevelOne","Evil" & i, 5
next
'-----End Initialization-----
Class Hit
Private hMap
Private hSpriteName
Private hHPs
Public Sub Hit(Map, SpriteName, HPs)
hMap = Map
hSpriteName = SpriteName
hHPs = HPs
End Sub
public function getMap()
getMap = hMap
End function
public function getSprite()
getSprite = hSpriteName
End function
public function getHPs()
getHPs = hHPs
end function
End Class
Sub Player_OnPlayInit()
Dim i, oMap
Dim oNewSpecial
for i = 0 to ubound(Hits)
Set
Set oMap = ProjectObj.Maps(Hits(i).getMap())
oNewSpecial.FuncType = 7 ' SPECIAL_EVENT
oNewSpecial.Flags = 8 ' INTFL_RAISEEVENT
oNewSpecial.Name = "COL_" & Hits(i).getSprite()
oMap.AddSpecial(hostObj.AsObject(oNewSpecial))
Next
End Sub
Sub Player_OnSpecialFunction(SpecialObj)
dim i, layer, idx, spr
for i = 0 to UBound(Hits)
spr = Hits(i).getSprite()
if left(SpecialObj.Name,4 + len(spr)) = "COL_" & spr then
set spr = FindSpriteByDef(spr,layer,idx)
if spr.UserData > Hits(i).getHPs() or spr.UserData < 0 then spr.UserData = 0
spr.UserData = spr.UserData + 1
if spr.UserData = Hits(i).getHPs() then
layer.RemoveSprite(idx)
end if
end if
next
End Sub
Function FindSpriteByDef(SpriteName, byref oLayer, byref oSprIndex)
dim i, j, oMap
With ProjectObj.GamePlayer.rMap
for i = 0 to .LayerCount - 1
for j = 0 to .MapLayer(i).SpriteCount() - 1
if .MapLayer(i).Sprite(j).rDef.Name = SpriteName then
set oLayer = .MapLayer(i)
oSprIndex = j
set FindSpriteByDef = oLayer.Sprite(j)
end if
next
next
End with
End Function
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16<----------------------------------------------------------->
I only changed the "Map1" and "Enemy" text from the code. I thought that by changing the name "Map1" in the script would let the computer know which map I am refering to; I changed the "Enemy" text to the name of one of my sprites(which I thought you could have more) and I assumed that it would recognize the enemy but it seems the the script only crashes. I hope you can make sense of that jibberish, I honestly don't know what I am talking about.
What do you think I am doing wrong?
Also, sorry for the huge post...
-
This set of lines:
for i = 0 to 2
set Hits(i) = new Hit
Hits(i).Hit "LevelOne","Evil" & i, 5
next
Makes 3 new enemy Hitpoint counters for enemies named "Evil0", "Evil1", and "Evil2" each with 5 hitpoints, on map "Level1". If the name of your sprite is just "Evil" you just have to create a single one. The code above is using a loop to create multiple counters. If you want to create each one individually, it would look like this:
set Hits(i) = new Hit
Hits(i).Hit "LevelOne","Evil0", 5
set Hits(i) = new Hit
Hits(i).Hit "LevelOne","Evil1", 5
set Hits(i) = new Hit
Hits(i).Hit "LevelOne","Evil2", 5
This does the same thing, but without using the loop. So for it to work for a sprite named "Evil":
set Hits(i) = new Hit
Hits(i).Hit "LevelOne","Evil", 5
-
Hey!!
I'm really sorry about butting into this topic, but I have a request that relates to this one, so I thought it would have been worthless to start a new topic...
Anyways, I need it so that each of these "Evil"s (Evil0, Evil1, Evil2; for example) to have a very small bar above there sprite that shows up red. As you deplete their HP, the bar drains and the background is black!! I think this would be so cool!
Okay...I'll try to reiterate myself:
I need it put into that script of "Multiple Hit Points" that each of the enemies with an individual counter of Hit Points also has a red bar above their head! Okay, I hope that made it easier to understand! If you could do this, then you will be my favorite person in the WHOLE WORLD!
thanks!
-
Unfortunately, there is no native function to VBScript, BMDXCtls, or GameDev that allows drawing directly on the drawing surface. This means, if you want to draw a Hitpoint bar directly on the drawing surface, you would have to:
A) Program through VB itself and wrap around GameDev,
B) Use something called dynacall.dll to dynamically call an API to draw on a drawing surface directly (provided by BMDXCtls's GetDC() method),
C) Change BMDXCtls to allow directly drawing on its surface, or
D) use the DrawText method of BMDXCtls to draw some facsimile of a hitpoint bar
Other methods include creating sprites with different frames for each different hitpoint level and altering them dynamically in the script, creating a "Hitpoint Bar" layer and drawing the bars on that layer in script using tiles, or possibly just drawing the hitpoints as an inventory item that moves around the screen with the sprite.
This last method seems the easiest out of all of these, however it would still take a lot of work. You would need a different inventory item for each sprite, they would all have to have a blank name, and the script would have to handle placing them correctly, only drawing them if they are on the screen.
-
Well....okay...that sounds a little out of my league. i have one final question, Mr. Programmer. Would it be possible to just draw the hitpoint bar in the inventory; but it only displays the HP for the sprite that is being attacked at the moment? Kind of like Diablo II (I hope you've played it before!)?
Say there are three monsters. A troll, a human and a bird. They all have hitpoint bars, but not drawn directly over them, they are 'hidden' so to say. You attack the troll and it's HP displays at the top of the HUD (Heads up display). It shows that the bar has been depleted by 1. When you move over to the human and attack him, his HP is displayed where the Troll's hp was, only it is redrawn over it, or something. I hope this makes sense!!
thanks for you help anyway, programmer.
-
Help?
I tried the script, and all it does is crash on line 39; char 11: Syntax error or something! I can't get it to work!!
Wait scratch that, it's line 39, character 10: syntax error. What in the good world does that mean!?
-
Well, it would help if we knew what line 39 was. Try posting the updated script, at least up to line 39
-
This is a bit off-topic, but anyone who want to try a more 'simple' method of hitpoints should look at the script from the Dark Elf game. It uses UserData, and a variable for each enemy's hitpoints.
-
I very much agree that Userdata is the best and easiest place to store enemy hp.
If you want a more fancy display for their hp bar, like above their heads, or a display of the most recent enemy that has attacked you or has been attacked, i know this is very possible in the sgdk environment.
Actually, i implemented the latter in this very rough and unfinished project here:
LINK (http://www.tysonpederson.com/file_download/1)
Run the .EXE in the code folder.
the script is not in normal script, it is a compiled com object, but the source is included. it probably won't be very helpful if you don't have VB 6.0, but the .bas files where the source is located are readable with a text editor.
If you want a fancy display like that you have to get a little more complicated. You have to have a MaxHP and a currentHP for each monster. You then have to edit inventory and how they are displayed every time the monster losses hp (usually in the onspritecollide event).
If you have any question, or are totally confused, I can pull the correct snippets of code from the source and post them. (providing I have sufficient motivation tomorrow :) ) Should be enough to get you started.
-
I haven't looked at the script, so I can't tell for sure if anyone has discovered this or not, but I should point out (in case you haven't) that you can store as much data as you want in the userdata property of a sprite. You can store an array in the UserData property. And If necessary, each element of the array can be another array, ad nauseum.
-
I think you mean ad infinitum...
ad nauseam: So as to disgust or nauseate.
Unless you mean to create arrays so repetitively that it becomes nauseating. I suppose they're similar. And I also suppose it can't really go to infinite depth, due to a maximial limitation on machines imposed by their registers, memory, and hard drives. Yeah, I'll stop trying. Good enough.
-
Right, that's why I chose "ad nauseum" instead of "ad infinitum" because you can't go on forever, but you can go on until you get sick of it :). If "ad ridiculousum" were a real term, I might have used that instead.