then make a "if player is in rocket form state" and then include jams hint.
i just found out you can make self extracting 7z files, so ill post that instead (when Box starts working again for me...)
i just found out that you can compile self executables for 7 zip :-[, so (when i update it) ill post that version
It said that "There were no files to extract". Do I need 7-zip!?yes
Yet, another update and many changes
* Resolution changed to 800x600, still widescreen
* Fixed Acid Glitch
* Fixed enter Level 2 glitch
* Fixed door glitch in Level 2
* Changed max framerate to 60 instead of 40 (tell me what's better)
* Added basic story line (readme)
* Added Boss 1
* Added Smoke Effect for Boss (slow computers NOT Recommended)
* Added Music for Boss 1 (still need original music. if you have some, post here)
* Need help for when Rocket hits solid you lose one health
Secret TIME! On Level2, when you enter the maze, if you get too far in the maze there is a teleporter on one of the passages. If you're lost, KEEP Going!
also, to quickly goto the boss, from level1, press Up, Down and Shift at the same time. (this wont be in the final game)
If you have suggestions, let me know! :P
Codename: IDK is now officially called "The RANAT Foundation" and many changes (check back later) will take place (fist of all is there a way to change the name of the original topic?)
Title Screen (with original music)
Sprite Changes (for now, just a standing person and a running proson, bigger)
Map changes (the player sprite is bigger, so i needed more space)
Completely redesigned level2 (he didn't fit anymore)
Tilematching (though it doesn't apply to the game itself)
After this next post (most likely tomorrow) ill start only posting the files needed to be updated (BMP, MAP, and GDP files)
Things i need help with:
Level Ideas (after 4 and 5, im out!)
Boss ideas ( :canadian:)
Music Ideas (NEEDED!!! the music that comes with the game WILL NOT be in the final version. it just shows what the music should be like)
Temporary hiding inventory items (especially for the start screen)
Sprite animators (especially for a "waiting sprite")
Thanks for all the help! :)
maybe go to http://freeplaymusic.com/ for some music. You might wanna ask the artist first before you put it in a game though.
Sub OnTileInteraction (X, Y, Value, NewTouch, Interaction)
With ProjectObj.GamePlayer
If .rMap.Name = "Level1" Then 'on Level1
If Interaction = 3 Then 'The Tile Interaction with Floor Tiles
If .PlayerSprite.SpriteDef.Name = "RocketRight" OR .PlayerSprite.SpriteDef.Name = "RocketLeft" Then 'The Sprite Definition Name is RocketRight or RocketLeft
.InvQuantityOwned(5) = .InvQuantityOwned(5) -1 'Subtract Health by One
End If
End If
End If
End With
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Version 0.3 is out! (see above for links)
this version does not have a Originals to save space. For the originals, visit version 0.2.
I'll try to download it! And give my rating...dial-up!
Dim bFirstTime_RocketCollect
Dim bFirstTime_RocketBootsEmpty
Dim intPlayerDX
Dim intPlayerDY
bFirstTime_RocketCollect = True
bFirstTime_RocketBootsEmpty = True
Sub Display_KeyPress(Key)
With ProjectObj.GamePlayer
If UCase(Chr(Key)) = "B" Then
intPlayerDX = 999
.ActivateFunction .rMap.Specials("PauseGame")
End If
End With
End Sub
Sub Player_OnAfterMoveSprites()
CurrentDisplay.DrawText "RocketCollect = " & bFirstTime_RocketCollect, 10, 10
CurrentDisplay.DrawText "BootsEmpty = " & bFirstTime_RocketBootsEmpty, 10, 25
CurrentDisplay.DrawText "DX = " & intPlayerDX, 150, 10
CurrentDisplay.DrawText "DY = " & intPlayerDY, 150, 25
With ProjectObj.GamePlayer
intPlayerDX = .PlayerSprite.DX
intPlayerDY = .PlayerSprite.DY
If .rMap.Name = "Level1-1" Then
If .PlayerSprite.rDef.Name = "Player $$Level1$$" Then
Exit Sub
End If
If .PlayerSprite.DX = 0 AND .PlayerSprite.DY = 0 Then
.ActivateFunction .rMap.Specials("TurnNormal")
End If
End If
End With
End Sub
Sub Player_OnTileInteraction (X, Y, Value, NewTouch, Interaction)
With ProjectObj.GamePlayer
If .rMap.Name = "Level1-1" Then
If Interaction = 1 Then
If bFirstTime_RocketCollect = True Then
bFirstTime_RocketCollect = False
.ActivateFunction .rMap.Specials("GotAnotherRocket")
End If
ElseIf Interaction = 3 Then
If .PlayerSprite.rDef.Name = "RocketRight" OR .PlayerSprite.rDef.Name = "RocketLeft" Then
.InvQuantityOwned(5) = .InvQuantityOwned(5) - 1
If .InvQuantityOwned(5) < 1 Then
.ActivateFunction .rMap.Specials("DieByRocket")
.InvQuantityOwned(5) = 0
.ActivateFunction .rMap.Specials("StartOver")
End If
End If
End If
ElseIf .rMap.Name = "Level1-2" Then
If Interaction = 4 Then
If .PlayerSprite.rDef.Name = "Player $$Level2$$" Then
If .InvQuantityOwned(8) = 0 Then
Exit Sub
End If
.InvQuantityOwned(10) = .InvQuantityOwned(10) + 1
If .InvQuantityOwned(10) > 100 Then .InvQuantityOwned(10) = 100
ElseIf .PlayerSprite.rDef.Name = "PlayerRocketBoots" Then .InvQuantityOwned(10) = .InvQuantityOwned(10) - 1
If .InvQuantityOwned(10) < 0 Then
.InvQuantityOwned(10) = 0
.ActivateFunction .rMap.Specials("Normal")
If bFirstTime_RocketBootsEmpty = True Then
bFirstTime_RocketBootsEmpty = False
.ActivateFunction .rMap.Specials("ItsAllGone!")
End If
End If
End If
End If
End If
End With
End Sub
HostObj.SinkObjectEvents CurrentDisplay, "Display"
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Well, first of all, "B" is not "P". Is the problem that nothing happens when you press P? Or does it crash? Or what?
Well, first of all, "B" is not "P". Is the problem that nothing happens when you press P? Or does it crash? Or what?
BTW, a GreaseBurger is like a Quarter Pounder you get at McDs with an extra slab of Reg Meat and cheese on it. You should try it sometime ;D :yes: :hungry: :canadian:;D :yes: :hungry: :canadian:;D :yes: :hungry: :canadian:
BTW, a GreaseBurger is like a Quarter Pounder you get at McDs with an extra slab of Reg Meat and cheese on it. You should try it sometime ;D :yes: :hungry: :canadian:;D :yes: :hungry: :canadian:;D :yes: :hungry: :canadian:
(http://smartboy16swebsite.freeservers.com/greaseburger.png)
stupid website... >:(
I'll consider it if you post a GDP version of your project (Zip the GDP and all the related project files instead of creating an executable).
Yes, 7-zip is fine.
I think it would be better to wait until the game is more finished/polished before posting it in the listing. I would rather not go back and have to update it later (and you want the rating to be based off the finished game, not this, I assume). Also, people will have trouble playing it in its current state. The biggest problems I see are:
1) The instructions are out of sync. It tells you to use many key combinations that don't work since you seem to have updated the controls.
2) Starting the project causes an error (because you're trying to handle events from the display the wrong way... and you don't even need to because you don't have any display event handling code).
3) Touching an enemy displays an endless series of messages instead of resetting your location or destroying the enemy.
4) The Acid doesn't seem to be deadly.
The project listing is intended primarily for finished projects now so I think I'll wait until the game is finished.
2) Starting the project causes an error (because you're trying to handle events from the display the wrong way... and you don't even need to because you don't have any display event handling code).
i know, how do i get rid of that?
4) The Acid doesn't seem to be deadly.
as in its not killing you or that it doesn't look deadly (my sister made the acid)
2) Starting the project causes an error (because you're trying to handle events from the display the wrong way... and you don't even need to because you don't have any display event handling code).
i know, how do i get rid of that?
Delete the line of script that calls SinkObjectEvents for Display4) The Acid doesn't seem to be deadly.
as in its not killing you or that it doesn't look deadly (my sister made the acid)
It's not killing me
The easiest way I can think of to copy functions from one map to another is export the project to XML and copy them in the XML file. Not very quick and easy.with a huge history of ruining projects by trying XML, i probably wont try that. :ugly:
heres my next (i know the last one was my last, but i had to post this one) demo. the only huge problem right now is when you are switching from the boss map to the save map, an "infinite" error appears (message box comes up and wont close) (can anyone fix it?)
and right now with too many summer activites for me to handle right now and extremely slow development, im most likely to delay this game for next feb. ill hopefilly get the game at least 1/2 done at the end of august
level 2-1, city theme, how can i temporarly make a tile not solid like as long as i am moving up vertically or gliding and solid again when i am falling or stopping
level 4 boss, BORING boardwalk theme (any ideas?)
Level 3-1, 3-2, river theme, how can i have one direction move faster than another, such as when i am swimming with or against the currentyou could try the reactToStreams demo, maybe that'll help you.
Quotelevel 2-1, city theme, how can i temporarly make a tile not solid like as long as i am moving up vertically or gliding and solid again when i am falling or stopping
You can make a global function that is activated when the player pushes up and the player is switched to a tileset category solid witout the ones you don't want solid. [/qoute]
Quotelevel 4 boss, BORING boardwalk theme (any ideas?)
Try a new idea, like making it a skateboard level (there will be one featured in my demo [the player basically has 100% inertia and has fast speed]) or you can use one of the ideas in the "clever ideas" topic in the SGDK section of the forum.
Quotelevel 2-1, city theme, how can i temporarly make a tile not solid like as long as i am moving up vertically or gliding and solid again when i am falling or stopping
You can make a global function that is activated when the player pushes up and the player is switched to a tileset category solid witout the ones you don't want solid. [/qoute]
why didn't i think of that!QuoteQuotelevel 4 boss, BORING boardwalk theme (any ideas?)
Try a new idea, like making it a skateboard level (there will be one featured in my demo [the player basically has 100% inertia and has fast speed]) or you can use one of the ideas in the "clever ideas" topic in the SGDK section of the forum.
actually the skateboard idea is not bad, thanks! :D
Then why only offer a trial on the site? D:
Sub Switch(MapName)
If MapName = "Level 1-1" OR MapName = "Level 1-2" OR MapName = "Boss 1" Then
HostObj.StartScript=1
ElseIf MapName = "Level 2-1" OR MapName = "Level 2-2" OR MapName = "Boss 2" Then
HostObj.StartScript=2
ElseIf MapName = "Level 3-1" OR MapName = "Level 3-2" OR MapName = "Boss 3" Then
HostObj.StartScript=3
ElseIf MapName = "Level 4-1" OR MapName = "Level 4-2" OR MapName = "Boss 4" Then
HostObj.StartScript=4
ElseIf MapName = "Level 5-1" OR MapName = "Level 5-2" OR MapName = "Boss 5" Then
HostObj.StartScript=5
ElseIf MapName = "Level 6-1" OR MapName = "Level 6-2" OR MapName = "Boss 6" Then
HostObj.StartScript=6
ElseIf MapName = "Level 7" OR MapName = "Boss 7" Then
HostObj.StartScript=7
Else
HostObj.StartScript=8
End If
End Sub
Sub Player_OnBeforeMoveSprites()
With ProjectObj.GamePlayer.rMap
Switch(.Name)
End With
End Sub
lower gravity?
Well you could go to "The Pirate Bay" But that's kinda illegal. Your choice.
Paint Shop Pro purchase page (http://www.corel.com/servlet/Satellite/us/en/Product/1184951547051#versionTabview=tab0&tabview=tab0)
Being a Photoshop Designer myself, (not professional, it's a hobby of mine) I wouldn't recommend you buy it, it's a pretty crappy program.
Use this free alternative. The G.I.M.P (GNU Image Manipulation Program) (http://www.gimp.org/)
Or, if you have seemingly unlimited money, Photoshop (http://www.adobe.com/products/photoshop/compare/)
I'd like to refresh the idea of using the GIMP. It's relatively good and free... did you catch that? :)
just dual boot that with your ME os and you're set.
It also comes with open office and some other good programs.
on my next update, ill post two files. the first one, called "RANAT_qtr_Demo_nomusic.exe" will be the game without the music. if you want the music, download both the first one, and "RANAT_qtr_Demo_Musicfiles.exe". extract the first one first and then the second one TO THE EXACT SAME FOLDER!!! just note that with the music, it is about a 10 min download for dial-up (and a few hours to upload)
enjoy!
SmartBoy16
now able to buy lottery tickets :)
PS: i don't have the link yet..still uploading
I played it. Its cool! ;D I got stuck a lot on the maze part. Out of curiosity, did
you design your character to have zero gravity? I supposed you did because
that is the best way to get through the maze.
What is the text to the right? I noticed what "safe" was, but was was desert point
and that other one.
Thanks.
dooooooooooooooooood.
Bad fur day was AWESOME, but Live and Reloaded was just awful. :(
Sub Player_OnBeforeMoveSprites()
With ProjectObj.GamePlayer.rMap
Switch(.Name)
End With
With ProjectObj.GamePlayer
If .PlayerSprite.DX = 0 AND .PlayerSprite.DY = 0 Then
If .PlayerSprite.rDef.Name <> "Player" Then
.ActivateFunction .rMap.Specials("Normal")
End If
End If
If IsEmpty(.PlayerSprite) Then .ActivateFunction .rMap.Specials("Normal")
End With
BX = ProjectObj.GamePlayer.PlayerSprite.X
BY = ProjectObj.GamePlayer.PlayerSprite.Y
End Sub
Sub Player_OnAfterMoveSprites()
With ProjectObj.GamePlayer
If BX < .PlayerSprite.X Then
.InvQuantityOwned(19) = 1
.InvQuantityOwned(20) = 0
ElseIf BX > .PlayerSprite.X Then
.InvQuantityOwned(19) = 0
.InvQuantityOwned(20) = 1
Else
.InvQuantityOwned(19) = .InvQuantityOwned(19)
.InvQuantityOwned(20) = .InvQuantityOwned(20)
End If
End With
With ProjectObj.GamePlayer
If .PlayerSprite.DX = 0 AND .PlayerSprite.DY = 0 Then
If .PlayerSprite.rDef.Name <> "Player" Then
.ActivateFunction .rMap.Specials("Normal")
End If
End If
If .PlayerSprite.rDef.Name = "PlayerRollRight" OR .PlayerSprite.rDef.Name = "PlayerRollLeft" Then
If .PlayerSprite.CurFrame = 15 Then
.ActivateFunction .rMap.Specials("Normal")
If BX < .PlayerSprite.X Then .PlayerSprite.CurState = 1
ElseIf .PlayerSprite.DX = 0 Then
.ActivateFunction .rMap.Specials("Normal")
If BX < .PlayerSprite.X Then .PlayerSprite.CurState = 1
End If
End If
End With
End Sub
Sub Player_OnSpecialFunction(Func)
Select Case Func.Name
Case "Normal"
If ProjectObj.GamePlayer.PlayerSprite.rDef.Name <> "Player" Then
.ActivateFunction ProjectObj.GamePlayer.rMap.Specials("SwitchtoPlayer")
End If
End Select
End Sub
i just looked up some random words in japanese, and i got this for toilet paperMy computer at home can't display it, but my PSP shows it just fine. Funny... but not unexpected. PSP started in Japan, right?
( if you can't see, tell me)
toirettopeepaa! it just sounds sooooooooo funny
Boss 3 music is based on Beethoven's 5th Symphony!!! any suggestions for lyrics?
i just looked up some random words in japanese, and i got this for toilet paperMy computer at home can't display it, but my PSP shows it just fine. Funny... but not unexpected. PSP started in Japan, right?
( if you can't see, tell me)
toirettopeepaa! it just sounds sooooooooo funny
DEN"U"M"VARY"SUPIDO"
very well
'fired when press "T"
Sub TopTile()
Dim TileWid, TileHgt
Dim Tmr, TmOut
Dim MainLyr, BackLyr, FrontLyr
On Error Resume Next
If MpEd.EditMode >=9 Then Exit Sub
TmOut=8
HostObj.ScriptTimeOutSeconds = TmOut + .5
TileHgt = MpEd.theMap.MapLayer("Main").TSDef.TileHeight
TileWid = MpEd.theMap.MapLayer("Main").TSDef.TileWidth
Set MainLyr = MpEd.theMap.MapLayer("Main").Data
Set BackLyr = MpEd.theMap.MapLayer("Back").Data
Set FrontLyr = MpEd.theMap.MapLayer("Front").Data
For Y=Int(MpEd.YOff / TileHgt) To Int((MpEd.YOff+MpEd.theMap.ViewHeight) / TileHgt)
For X = Int(MpEd.XOff / TileWid) To Int((MpEd.XOff+MpEd.theMap.ViewWidth) / TileWid)
Select Case MainLyr.TileValue(X,Y)
Case 10
BackLyr.TileValue(X,Y-1) = 2
Case 9
BackLyr.TileValue(X,Y-1) = 1
Case 11
BackLyr.TileValue(X,Y-1) = 2
BackLyr.TileValue(X+1,Y-1) = 3
BackLyr.TileValue(X+1,Y) = 12
If Err.Number <>0 Then Exit For
Next
If Err.Number <>0 Then Exit For
Next
If Err.Number <> 0 Then MpEd.DisplayMessage = Err.Description
End If
End Sub
'"borrowed" from wizard project
Last big change. This game is now called "The RANAT Foundation: Before the Truth"
oh no, what happened? are your hard discs ok?
Oh!!! Don't tell me you had no backups!!! :o
That's tough. Hopefully you don't have to start from scratch. That is how Tony the Speeder became delayed. Originally planned for Holiday '07, I had to make a whole new thing and became lazy, making it '08.
Fortunately, my graphics were from another game. So I don't have to worry.
I might work on Chaotic Hero again. Just to finish what I started. Maybe...