Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Topics - cbass

Pages: [1]
Off-Topic / funny stuff
« on: 2005-12-15, 11:30:33 PM »
I was recently reminded of these classic comics:

warning profanity. :-X

Anyone else have any funny webcomics they can remember?

Off-Topic / new forum and theme
« on: 2005-11-30, 06:28:02 PM »
just thought id let everyone kniw that I really like the new forums and theme.   8)

BIGsmall  >:(

SGDK    ;D  :(  ;D

Script / Hurt Demo script, pasted into COM, error
« on: 2005-11-03, 09:57:24 PM »
One of those errors that I don't understand.  I want enemies and the player to flash for a few frames whenever they get hurt.  I used the hurt demo as a reference and pasted it into my vb6.0 project and changed all the variable names and made it universal to work on any sprite:
Code: [Select]
Public Sub DrawHurtTilesOverSprite(ByVal Spr As Sprite)
  Dim TS As TileSetDef
  With Spr
    Set TS = ProjectObj.TileSetDef(.CurTSDef.GetIndex + 11) '11 being separation between corresponding tilesets
    If Not TS.IsLoaded Then
    End If
    If TS.LoadedInstance Is Nothing Then
      Set TS.LoadedInstance = DllDisp.CreateTileSet(TS.Image, TS.TileWidth, TS.TileHeight)
    End If
    DllDisp.DrawTile TS.LoadedInstance, .CurTile, .X - GdPlayer.MapScrollX, .Y - GdPlayer.MapScrollY, 0, 0, 640, 480, True
  End With
End Sub
Code: [Select]
Sub Player_OnSpritesCollide(Name, ClsAIdx, ClsBIdx, CollDefIdx)
   Hurt = 100
End Sub

Sub Player_OnBeforeMoveSprites()
   Dim TS

   If Hurt > 0 Then
      Hurt = Hurt - 1
      If Hurt Mod 2 = 1 Then
         With ProjectObj.GamePlayer
            Set TS = ProjectObj.TileSetDef("tsHurt")
            If Not TS.IsLoaded Then
            End If
            If TS.LoadedInstance Is Nothing Then
               Set TS.LoadedInstance = CurrentDisplay.CreateTileSet( _
                  TS.Image, TS.TileWidth, TS.TileHeight)
            End If
            CurrentDisplay.DrawTile _
               TS.LoadedInstance, _
               .PlayerSprite.CurTile, _
               .PlayerSprite.X - .MapScrollX, _
               .PlayerSprite.Y - .MapScrollY, _
               0, 0, 640, 480, True
         End With
      End If
   End If
End Sub

I have the hurt demo script on the bottom for reference.  (I run my code every other frame if the sprite is hurt using the same event as the hurt demo)

my error message is :
Run-time error '-2147418113 (8000ffffy)'
Method 'Image' of object 'TileSetDef' failed

Everything seems to work good except any time I call TS.image, i get that error (i even put it in a line by itself)  I've confirmed that TS.IsLoaded is True and TS.TileWidth has a value (32)

I even set the TS to a tileset I KNOW is loaded (the TS of the playersprite) and I still get the same error.
I've also tried breaking the lines into multipul lines and dimming the varibles different, but nothing seems to work.  I see that .Image is actually a Property and not a Method like VB seems to think, maybe this is the problem, but I don't know how to fix it.

Anyone know what to do or try? ($50 says bluemonk posts with a brillant easy solution :P )

Off-Topic / back, working on a new game
« on: 2005-10-27, 06:17:55 PM »
Hey all

Just letting everyone know that I'm back from a long break I took from game making.  (MMORPG's are evil  :twisted: )

I'm putting my old RPG project on hold for a bit, and concentrating my efforts on an easier project.  I'm a couple weeks into it, and I should have something to share in about 1 month.

My new project is a top down action/adventure game using rpgmaker 95 graphics.  I was going to consider this a "lightly scripted" game, but my script is getting more bloated everyday.  Now it stands as almost the most heavily scripted game i've seen for SGDK, next to Bluemonk's Lode Runner clone.

good to be back. :D

Pages: [1]