multiple hits

[durnurd]

Oops, I got that backwards.

Code: [Select]


'-----Initialize Sprites-----
Dim Hits(16), i
for i = 0 to 3
   set Hits(i) = new Hit
   Hits(i).Hit "5-0TheMoon","MJW" & i + 1,2
next
for i = 4 to 16
   set Hits(i) = new Hit
   Hits(i).Hit "5-0TheMoon","MS" & i - 3,3
next
'-----End Initialization-----

[billybob884]

hey, getting closer! this time it actually got past the splash screen and went to a full black screen. but yet again:
line 29 character 7: variable is undefined: 'oMap'

Code: [Select]

     oMap = ProjectObj.Maps(Hits(i).getMap())

i think

[durnurd]

Code: [Select]


Sub Player_OnPlayInit()
   Dim i, oMap
   Dim oNewSpecial
   Set oNewSpecial = NewSpecialFunction
   for i = 0 to ubound(Hits)
      oMap = ProjectObj.Maps(Hits(i).getMap())
      oNewSpecial.FuncType = 7 ' SPECIAL_EVENT
      oNewSpecial.Name = "COL_" & Hits(i).getSprite()
      oMap.AddSpecial(hostObj.AsObject(oNewSpecial))
   Next
End Sub

[billybob884]

hmmm, thats weird, same line and character...

line 29 character 7: argument not optional.

[bluemonkmn]

There needs to be a "Set" on the same line before the "oMap ="...
Set oMap = [...]

[billybob]

like this?

Set oMap = ProjectObj.Maps(Hits(i).getMap())

[billybob884]

line 39 char 4: variable undefined: 'spr'

so i added it to the end of the line looking like this
   dim i, layer, idx,

(after Sub Player_OnSpecialFunction(SpecialObj) )

and it gave me this

line 40 char 4: variable undefined: 'special'

so i added special, then it gave me

line 40 char 4: object required: 'special'

and idk where to go from there. let me know if what i did so far was wrong

[bluemonkmn]

Don't add a Dim for Special.  Change it to SpecialObj to match the parameter name of the function.

[billybob884]

line 37 char 28: name redefined

Code: [Select]

  dim i, layer, idx, spr, SpecialObj

char 28 is the S, so i guess SpecialObj is wrong..?

[durnurd]

Get rid of the "SpecialObj" on the Dim line and change where it says "Special.Name" to "SpecialObj.Name"

[billybob884]

hey! allright! i got into the game and can play wihtout any errors! ok, now, i know i need ot have special functions set up a certain way, so how should they go?

i think it was a colision for attack and the enemy activates a function that 'raises an event' but i'm not sure what (if anything) else. i've got tomorrow off from work, so ill have a good bit of the day to mess around with this.

[durnurd]

You don't need to set up any special functions.  The script creates them at runtime.  All you need is a collision between the enemy class and a weapon class that activates COL_<ADef>* (if A is the enemy) or COL_<BDef>* (if class B is the enemy)

[billybob884]

Nice. I'll give it a shot when I get home in a few hours. (hooray for 7th study hall!)

[billybob884]

hmmm, maybe im doing something wrong in the colision.. because its not removing either of the MJ's..
i've got this colision set up:

Code: [Select]

SpriteA: Attack
SpriteB: EnemyMJ   (EnemyOthr is the class for other enemies)
Terminate A
Activate: COL_<BDef>*

I tried unchecking the 'Terminate A', but that didn't change anything.

since hte script has been changed several dozen times, and I may have made a mistake along the way, here it is for reference:

Code: [Select]

Option Explicit

Class Hit
   Private hMap
   Private hSpriteName
   Private hHPs
   Public Default 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
   Set oNewSpecial = NewSpecialFunction
   for i = 0 to ubound(Hits)
      Set oMap = ProjectObj.Maps(Hits(i).getMap())
      oNewSpecial.FuncType = 7 ' SPECIAL_EVENT
      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
      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 = ProjectObj.GamePlayer.rMap
   for i = 0 to rMap.LayerCount
      for j = 0 to rMap.MapLayer(i).SpriteCount()
         if rMap.MapLayer(i).Sprite(j).SpriteDef.Name = SpriteName then
            set oLayer = rMap.MapLayer(i)
            oSprIndex = j
            set FindSpriteByDef = oLayer.Sprite(j)
         end if
      next
   next
End Function

'-----Initialize Sprites-----
Dim Hits(16), i
for i = 0 to 3
   set Hits(i) = new Hit
   Hits(i).Hit "5-0TheMoon","MJW" & i + 1,2
next
for i = 4 to 16
   set Hits(i) = new Hit
   Hits(i).Hit "5-0TheMoon","MS" & i - 3,3
next
'-----End Initialization-----

HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16

Let me know if I should post the entire game.

[billybob884]

oh, i just thought of this, it doesnt look like i state the layer name anywhere, is that necessary, or am i just missing it?


---edit---
on a side note, remember how we did hte verticl scrolling level? and how we set the side margines to 0, like the player could go all hte way to the side without getting stopped, untill he hit the "edge" of hte screen? well, my sister was playing through hte game with that script (i have 2 seperate scripts, one wiht hte stuff were working on now, and one with the forced scrolling levels, jump button, ect. from before), and after she beat the vertical scrolling level, its supposed to set the margines back to what they are for a regular player, i dont remember offhand, but hte point is, that level 5-0Moon (the one that has the MJ sprites for the 'work-in-progress' script) is that it doesnt. so i need some little bit saying on map 5-0 moon change the margines back to x,y (whatever they were).