Topic: Roguesoft RPG Engine? (Read 94852 times)

Silverwind · « **Reply #90 on:** April 24, 2010, 05:32:22 PM »

I'm making progress again on the RSRPGE, but the Readme is taking ages to write. I fixed a bug whereby dead NPCs would prevent other NPCs from traversing the grid node they died on until another NPC was spawned in its slot, but now I've discovered an even stranger glitch.

Occasionally the first enemy I attack becomes a ghost on a successful hit, its sprite remaining visible but floating at the coordinates it died at rather than scrolling with the map when the player moves. Furthermore it seems to disappear after a round is completed (after each existing entity makes a move). I've tried to recreate the glitch and capture it on Jing but I haven't been able to as it occurs rarely.

Here's the latest build: link removed

I'd be grateful to hear any feedback on bizarre behaviour such as this glitch or any others you find.

WarHampster · « **Reply #91 on:** April 24, 2010, 08:40:26 PM »

Can you compile it for those of us without GM?

Silverwind · « **Reply #92 on:** April 25, 2010, 02:45:34 AM »

Whoops! Sorry about that: http://www.mediafire.com/?0lmdae1onwz

btw Hammy, you should download the GM demo. It can run source files without any limitations.

Silverwind · « **Reply #93 on:** April 28, 2010, 05:21:18 PM »

Just thought I'd post a picture of the inventory engine I'm working on:

btw, did anyone encounter that glitch?

Gan · « **Reply #94 on:** April 28, 2010, 06:10:50 PM »

Oooh!!! This is lookin good.

-Gan

Silverwind · « **Reply #95 on:** April 28, 2010, 06:31:36 PM »

Thanks.

I originally thought it would look well to the right of the room area, but PICT stretches the image to fit the canvas after GETPICTURE. I could load the sprites into position again, but it's unpleasantly noticeable so I think I'll stick with the current workaround.

Charlo · « **Reply #96 on:** April 28, 2010, 10:23:25 PM »

Quote

Just thought I'd post a picture of the inventory engine I'm working on:

btw, did anyone encounter that glitch?

That looks really cool Silver. I haven't downloaded the source, are you just drawing sprites to the screen, using GETPICT/PICT, and then drawing more to the screen? I can't think of any other way to use that many sprites.

Silverwind · « **Reply #97 on:** April 29, 2010, 03:26:17 AM »

Yup, I'm using sprites for the room background and entities and IMAGEFILE for the items and the item window. Because the inventory screen is on another card I thought there'd be some kind of noticeable transition, but I've got it working seamlessly gong to the card now. Coming back causes the sprites to blink.

Silverwind · « **Reply #98 on:** April 29, 2010, 06:38:35 PM »

Here's a sneak peek: http://screencast.com/t/MDFhMWViYW

It's monstrously heavy on the code due to the amount of times I need to repeat things, but I reckon I can squeeze it all in. So far only the Move and Drop buttons work, and not on equipment.

I'm really pleased with the engine now. It's by far my greatest work yet!

Gan · « **Reply #99 on:** April 29, 2010, 06:49:45 PM »

Ahahahah! At what the Doppelganger said...

This is fantastic! I love how it's set up. Inventory is great, the sound effects are great... wow. It's looking more advanced than the iRpg with it's world, talking characters, and sound.

-Gan

Silverwind · « **Reply #100 on:** April 29, 2010, 07:19:14 PM »

Hehehe... yeah, I like Sid the Singing Slime King too. Gandolf the Grey also makes an appearance:

EDIT:

I originally wanted to bring back King Brenith, but his role in the story has been filled by another character so now I'm not sure whether I will or not. I'm borrowing the storyline from one of my earliest ever paper RPGs involving three friends and a wishing star, so there'll be three playable characters. I want to wrap up the RSRPGE before resuming work on the game though.

Mystor · « **Reply #101 on:** April 29, 2010, 09:09:36 PM »

Damn, I like this.
Can you copy me the code? or do I have to find a mac and open it up.
I want to adapt this MUAHAHAHA (what?)

EDIT: Y'see I have been trying to make a good RPG engine for a while now. I have just never really tried hard enough.
Now I get a shortcut and I can write the real story

Silverwind · « **Reply #102 on:** April 30, 2010, 04:18:17 AM »

Hurrah, hurray!
Callooh! Callay!
A brand new RPG to play!
Now take my code,
(there's quite a load)
And get it finished by today!

I cant post it all because the engine is massive, but here's the two primary routines:

Main Keydown

Code: [Select]

ON KEYDOWN
  SPRITE -20
  keydownASC = ASC keydown$
  IF gameState$ = "Player's Turn" THEN
    checkHP = 0

    '--- Change Sprite
    IF keydown$ = "z" THEN
      IF playerSprite$ = "humanM1.gif" THEN
         playerSprite$ = "humanM0.gif" 
      ELSE
         playerSprite$ = "humanM1.gif" 
      END IF
      SPRITE playerSpriteNumber playerSpriteX playerSpriteY $playerSprite$$
    END IF

    '--- Display Menu (ESC key)
    IF keydownASC = 27 THEN
      GETPICTURE
      GOTOCARD 245
    END IF

    '--- Display Stats
    IF keydown$ = "s" THEN checkHP = 1

    '--- Drink Potion
    IF keydown$ = "d" THEN
      checkHP = 1
      playerHP = playerHP + 135
      IF playerHP > playerMaxHP THEN playerHP = playerMaxHP
    END IF

    IF checkHP = 1 THEN
      '--- Display HP.
      tenPercent = playerMaxHP / 10
      entityHPSprite$ = "HP-90%.gif"
      percentCheck = tenPercent * 9
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-80%.gif"
      percentCheck = tenPercent * 8
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-70%.gif"
      percentCheck = tenPercent * 7
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-60%.gif"
      percentCheck = tenPercent * 6
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-50%.gif"
      percentCheck = tenPercent * 5
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-40%.gif"
      percentCheck = tenPercent * 4
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-30%.gif"
      percentCheck = tenPercent * 3
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-20%.gif"
      percentCheck = tenPercent * 2
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-10%.gif"
      percentCheck = tenPercent * 1
      IF playerHP < percentCheck THEN entityHPSprite$ = "HP-0%.gif"
      IF playerHP => playerMaxHP THEN entityHPSprite$ = "HP-100%.gif"
      IF playerHP =< 0 THEN entityHPSprite$ = "HP-None%.gif"
    END IF

    '--- Display Stats (continued)
    IF keydown$ = "s" THEN
      CLEAR TEXT
      PRINT $playerName$$
      PRINT
      PRINT Lvl: $playerLvl$
      PRINT Experience needed to level up: $playerExp$
      PRINT Gold: $playerGold$
      PRINT Attribute Points: $playerAttributePoints$
      PRINT
      PRINT Weapon: $playerWeapon$$
      PRINT Armor: $playerArmor$$
      PRINT Trinket: $playerTrinket$$
      PRINT
      PRINT Strength: $playerStrength$
      PRINT Endurance: $playerEndurance$
      PRINT Dexterity: $playerDexterity$
      PRINT
      PRINT Attack: $playerAttack$
      PRINT Defence: $playerDefence$
      PRINT Accuracy: $playerAccuracy$
      PRINT Evasion: $playerEvasion$
      SPRITE entityHpSpriteNumber playerSpriteX playerSpriteY $entityHPSprite$$
      DELAY attackHitDisplayTime
      SPRITE entityHpSpriteNumber -1000 -1000
    END IF

    '--- Drink Potion (continued)
    IF keydown$ = "d" THEN
      SOUND Drink Potion
      spriteX = playerSpriteX
      spriteY = playerSpriteY - 44
      SPRITE -actionEffectSpriteNumber playerSpriteX playerSpriteY Heal-Icon.gif
      SPRITE entityHpSpriteNumber playerSpriteX playerSpriteY $entityHPSprite$$
      SPRITEPATH actionEffectSpriteNumber spriteX spriteY 8
      SPRITE -actionEffectSpriteNumber -1000 -1000
      SPRITE entityHpSpriteNumber -1000 -1000
      gameState$ = "NPC's Turn"
    END IF

    '--- Pass Turn
    IF keydown$ = " " THEN gameState$ = "NPC's Turn"

    '---ITEMS-------------------------------------------------------------------------------------
    itemKeys$ = "123456789"
    IF itemKeys$ CONTAINS keydown$ THEN ALERT Item Test Successful!
    '----------------------------------------------------------------------------------------------

Silverwind · « **Reply #103 on:** April 30, 2010, 04:21:28 AM »

Main Keydown (continued)

Code: [Select]

    playerTile$ = "Empty"
    playerNewGridX = playerGridX
    playerNewGridY = playerGridY
    IF keydown$ = "UPARROW" THEN playerNewGridY = playerGridY - 1
    IF keydown$ = "DOWNARROW" THEN playerNewGridY = playerGridY + 1
    IF keydown$ = "LEFTARROW" THEN playerNewGridX = playerGridX - 1
    IF keydown$ = "RIGHTARROW" THEN playerNewGridX = playerGridX + 1
    
    '--- Get collision classes of Y row.
    IF playerNewGridY = 1 THEN gridRow$ = gridRow1$
    IF playerNewGridY = 2 THEN gridRow$ = gridRow2$
    IF playerNewGridY = 3 THEN gridRow$ = gridRow3$
    IF playerNewGridY = 4 THEN gridRow$ = gridRow4$
    IF playerNewGridY = 5 THEN gridRow$ = gridRow5$
    IF playerNewGridY = 6 THEN gridRow$ = gridRow6$
    IF playerNewGridY = 7 THEN gridRow$ = gridRow7$
    IF playerNewGridY = 8 THEN gridRow$ = gridRow8$
    IF playerNewGridY = 9 THEN gridRow$ = gridRow9$
    IF playerNewGridY = 10 THEN gridRow$ = gridRow10$
    IF playerNewGridY = 11 THEN gridRow$ = gridRow11$
    IF playerNewGridY = 12 THEN gridRow$ = gridRow12$
    IF playerNewGridY = 13 THEN gridRow$ = gridRow13$
    IF playerNewGridY = 14 THEN gridRow$ = gridRow14$
    IF playerNewGridY = 15 THEN gridRow$ = gridRow15$
    IF playerNewGridY = 16 THEN gridRow$ = gridRow16$
    IF playerNewGridY = 17 THEN gridRow$ = gridRow17$
    IF playerNewGridY = 18 THEN gridRow$ = gridRow18$
    IF playerNewGridY = 19 THEN gridRow$ = gridRow19$
    IF playerNewGridY = 20 THEN gridRow$ = gridRow20$
    IF playerNewGridY = 21 THEN gridRow$ = gridRow21$
    IF playerNewGridY = 22 THEN gridRow$ = gridRow22$
    IF playerNewGridY = 23 THEN gridRow$ = gridRow23$
    IF playerNewGridY = 24 THEN gridRow$ = gridRow24$
    IF playerNewGridY = 25 THEN gridRow$ = gridRow25$

    '--- Get collision class of new tile.
    playerTile$ = MID$ gridRow$ playerNewGridX 1
    IF playerTile$ = "" THEN playerTile$ = "Empty"
    IF playerTile$ = " " THEN playerTile$ = "Empty"
    IF playerTile$ = "0" THEN playerTile$ = "Empty"
    IF playerTile$ = "1" THEN playerTile$ = "Wall"
    IF playerTile$ = "2" THEN playerTile$ = "Signpost"
    IF playerTile$ = "3" THEN playerTile$ = "Treasure Chest"
    IF playerTile$ = "9" THEN playerTile$ = "Empty"

    '--- This checks for collision with other entities.
    IF npc1Alive = 1 THEN
      IF playerNewGridX = npc1GridX THEN
        IF playerNewGridY = npc1GridY THEN
          playerTile$ = "Wall"
          enterBattle = 1
          activeNpc = 1
          npc0Name$ = npc1Name$
          npc0GridX = npc1GridX
          npc0GridY = npc1GridY
          npc0SpriteX = npc1SpriteX
          npc0SpriteY = npc1SpriteY
          npc0HP = npc1HP
          npc0MaxHP = npc1MaxHP
          npc0Attack = npc1Attack
          npc0Defence = npc1Defence
          npc0Accuracy = npc1Accuracy
          npc0Evasion = npc1Evasion
        END IF
      END IF
    END IF
    IF npc2Alive = 1 THEN
      IF playerNewGridX = npc2GridX THEN
        IF playerNewGridY = npc2GridY THEN
          playerTile$ = "Wall"
          enterBattle = 1
          activeNpc = 2
          npc0Name$ = npc2Name$
          npc0GridX = npc2GridX
          npc0GridY = npc2GridY
          npc0SpriteX = npc2SpriteX
          npc0SpriteY = npc2SpriteY
          npc0HP = npc2HP
          npc0MaxHP = npc2MaxHP
          npc0Attack = npc2Attack
          npc0Defence = npc2Defence
          npc0Accuracy = npc2Accuracy
          npc0Evasion = npc2Evasion
        END IF
      END IF
    END IF
    IF npc3Alive = 1 THEN
      IF playerNewGridX = npc3GridX THEN
        IF playerNewGridY = npc3GridY THEN
          playerTile$ = "Wall"
          enterBattle = 1
          activeNpc = 3
          npc0Name$ = npc3Name$
          npc0GridX = npc3GridX
          npc0GridY = npc3GridY
          npc0SpriteX = npc3SpriteX
          npc0SpriteY = npc3SpriteY
          npc0HP = npc3HP
          npc0MaxHP = npc3MaxHP
          npc0Attack = npc3Attack
          npc0Defence = npc3Defence
          npc0Accuracy = npc3Accuracy
          npc0Evasion = npc3Evasion
        END IF
      END IF
    END IF
    
    '--- Check if the player is trying to leave the room.
    IF playerNewGridY < 1 THEN
      npc1Alive = 0
      npc2Alive = 0
      npc3Alive = 0
      playerGridY = roomSize
      GOTOCARD northCard
    END IF
    IF playerNewGridY > roomSize THEN
      npc1Alive = 0
      npc2Alive = 0
      npc3Alive = 0
      playerGridY = 1
      GOTOCARD southCard
    END IF
    IF playerNewGridX < 1 THEN
      npc1Alive = 0
      npc2Alive = 0
      npc3Alive = 0
      playerGridX = roomSize
      GOTOCARD westCard
    END IF
    IF playerNewGridX > roomSize THEN
      npc1Alive = 0
      npc2Alive = 0
      npc3Alive = 0
      playerGridX = 1
      GOTOCARD eastCard
    END IF

Silverwind · « **Reply #104 on:** April 30, 2010, 04:24:25 AM »

Main Keydown (continued)

Code: [Select]

    IF playerTile$ = "Signpost" THEN
      '--- Determine the player's XY coordinates.
      playerNewGridX$ = STR$ playerNewGridX
      playerNewGridY$ = STR$ playerNewGridY
      playerNewGridXY$ = playerNewGridX$ + " x"
      playerNewGridXY$ = playerNewGridXY$ + playerNewGridY$
      IF playerNewGridXY$ = signpost1XY$ THEN signpostText$ = signpost1Text$
      IF playerNewGridXY$ = signpost2XY$ THEN signpostText$ = signpost2Text$
      IF playerNewGridXY$ = signpost3XY$ THEN signpostText$ = signpost3Text$
      IF playerNewGridXY$ = signpost4XY$ THEN signpostText$ = signpost4Text$
      IF playerNewGridXY$ = signpost5XY$ THEN signpostText$ = signpost5Text$
      IF playerNewGridXY$ = signpost6XY$ THEN signpostText$ = signpost6Text$
      IF playerNewGridXY$ = signpost7XY$ THEN signpostText$ = signpost7Text$
      IF playerNewGridXY$ = signpost8XY$ THEN signpostText$ = signpost8Text$
      IF playerNewGridXY$ = signpost9XY$ THEN signpostText$ = signpost9Text$
      IF playerNewGridXY$ = signpost10XY$ THEN signpostText$ = signpost10Text$
      IF playerNewGridXY$ = signpost1XY$ THEN signpostSound$ = signpost1Sound$
      IF playerNewGridXY$ = signpost2XY$ THEN signpostSound$ = signpost2Sound$
      IF playerNewGridXY$ = signpost3XY$ THEN signpostSound$ = signpost3Sound$
      IF playerNewGridXY$ = signpost4XY$ THEN signpostSound$ = signpost4Sound$
      IF playerNewGridXY$ = signpost5XY$ THEN signpostSound$ = signpost5Sound$
      IF playerNewGridXY$ = signpost6XY$ THEN signpostSound$ = signpost6Sound$
      IF playerNewGridXY$ = signpost7XY$ THEN signpostSound$ = signpost7Sound$
      IF playerNewGridXY$ = signpost8XY$ THEN signpostSound$ = signpost8Sound$
      IF playerNewGridXY$ = signpost9XY$ THEN signpostSound$ = signpost9Sound$
      IF playerNewGridXY$ = signpost10XY$ THEN signpostSound$ = signpost10Sound$
      IF signpostSound$ <> "" THEN SOUND $signpostSound$$
      CLEAR TEXT
      PRINT $signpostText$$
      playerTile$ = "Wall"
    END IF

    IF playerTile$ = "Treasure Chest" THEN
      SOUND Treasure Chest
      '--- Determine the player's XY coordinates.
      playerNewGridX$ = STR$ playerNewGridX
      playerNewGridY$ = STR$ playerNewGridY
      playerNewGridXY$ = playerNewGridX$ + " x"
      playerNewGridXY$ = playerNewGridXY$ + playerNewGridY$
      '--- Determine the treasure chest's ID.
      prefix = roomNumber * 10
      prefix = prefix - 10
      treasureChest1ID = prefix + 1
      treasureChest2ID = prefix + 2
      treasureChest3ID = prefix + 3
      treasureChest4ID = prefix + 4
      treasureChest5ID = prefix + 5
      treasureChest6ID = prefix + 6
      treasureChest7ID = prefix + 7
      treasureChest8ID = prefix + 8
      treasureChest9ID = prefix + 9
      treasureChest10ID = prefix + 10
      IF playerNewGridXY$ = treasureChest1XY$ THEN treasureChestID = treasureChest1ID
      IF playerNewGridXY$ = treasureChest2XY$ THEN treasureChestID = treasureChest2ID
      IF playerNewGridXY$ = treasureChest3XY$ THEN treasureChestID = treasureChest3ID
      IF playerNewGridXY$ = treasureChest4XY$ THEN treasureChestID = treasureChest4ID
      IF playerNewGridXY$ = treasureChest5XY$ THEN treasureChestID = treasureChest5ID
      IF playerNewGridXY$ = treasureChest6XY$ THEN treasureChestID = treasureChest6ID
      IF playerNewGridXY$ = treasureChest7XY$ THEN treasureChestID = treasureChest7ID
      IF playerNewGridXY$ = treasureChest8XY$ THEN treasureChestID = treasureChest8ID
      IF playerNewGridXY$ = treasureChest9XY$ THEN treasureChestID = treasureChest9ID
      IF playerNewGridXY$ = treasureChest10XY$ THEN treasureChestID = treasureChest10ID
      '--- Check whether or not the chest has been opened.
      itemValue$ = mid$ treasureChests$ treasureChestID 1
      IF itemValue$ = "1" THEN
        CLEAR TEXT
        PRINT This chest is empty.
      ELSE
        '--- If the chest is full, set its value empty.
        itemToLeft = treasureChestID - 1
        itemToRight = treasureChestID + 1
        itemsToLeft$ = left$ treasureChests$ itemToLeft
        IF treasureChestID =< 1 THEN itemsToLeft$ = ""
        itemsToLeft$ = itemsToLeft$ + "1"
        itemsToRight$ = mid$ treasureChests$ itemToRight
        newArrayValue$ = itemsToLeft$ + itemsToRight$
        treasureChests$ = newArrayValue$
        '--- Award gold.
        treasureChestGold$ = WORD$ goldTable$ roomLVL
        treasureChestGold = VAL treasureChestGold$
        treasureChestGoldPlus = RANDOM treasureChestGold
        treasureChestGold = treasureChestGold * 4
        treasureChestGold = treasureChestGold + treasureChestGoldPlus
        playerGold = playerGold + treasureChestGold
        if playerGold > maxGold THEN playerGold = maxGold
        CLEAR TEXT
        PRINT This treasure chest contains $treasureChestGold$ gold!
      END IF
      playerTile$ = "Wall"
    END IF

Topic: Roguesoft RPG Engine? (Read 94852 times)

Silverwind

Re: Roguesoft RPG Engine?

WarHampster

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Gan

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Charlo

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Gan

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Mystor

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?

Silverwind

Re: Roguesoft RPG Engine?