Scrolling Game Development Kit Forum
SGDK Version 1 => Script => Topic started by: billybob884 on 2005-05-07, 07:04:24 PM
-
Hey, I was wondering if anyone would be able to tell me how to put these 2 pieces of script together so they'd be able to work at the same time.
This first part is the 'forced scrolling' script (for my flying level) with a 'jump button' script form the script generator combined. This bit is being used with my game right now:
Option Explicit
Dim XOff, YOff
Sub Player_OnAfterMoveSprites()
If ProjectObj.GamePlayer.rMap.name = "2-4BonusLevel" then
XOff = XOff + 1
With ProjectObj.GamePlayer
if .PlayerSprite.X <= XOff then
if .PlayerSprite.DX < 0 then .PlayerSprite.DX = 1
.PlayerSprite.DX = .PlayerSprite.rDef.Template.MoveSpeed
if .PlayerSprite.X < XOff - .PlayerSprite.Width / 2 then
XOff = 1
.bQuit = false
End if
end if
.rMap.Draw XOff, YOff
End With
End If
End Sub
Sub Player_OnControllerMove(OldActions, NewActions)
With ProjectObj.GamePlayer.PlayerSprite
If (Not OldActions) And NewActions And ACTION_BUTTON2 Then
If (.rDef.SolidTest(.X, .Y + .Height) Or .rDef.SolidTest(.X + .Width - 1, .Y + .Height)) Or (Not .pRideOnRef Is Nothing) Then
.DY = - .rDef.Template.JumpHeight
End If
End If
End With
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
This next part is the 'split screen' script, it's for the part of my game that's 2 player:
NOTE: I'm going to need this to be in effect for 3 or 4 separate 2 player maps, so I don't know if that can be put into one line like in the 'forced scroll' part, or if the whole 'split screen' part will need to be copied over each time per map.)
' ======== INITIAL STARTUP SCRIPT (Number 0) =========
Sub Player_OnPlayInit()
HostObj.StartScript=1
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Option Explicit
Dim P2OffsetX, P2OffsetY
Dim P2Actions
Const nSprWidth = 32 ' Could be retrieved, but would be slower
Const nSprHeight = 32
Sub Display_KeyDown(KeyCode, Shift)
' E=69, S=83, D=68, F=70
If KeyCode = 69 Then P2Actions = P2Actions Or ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions Or ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions Or ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions Or ACTION_RIGHT
End Sub
Sub Display_KeyUp(KeyCode, Shift)
If KeyCode = 69 Then P2Actions = P2Actions And Not ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions And Not ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions And Not ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions And Not ACTION_RIGHT
End Sub
Sub Player_OnAfterMoveSprites()
Dim oMap, oPlayer, oLayer, nLyrWid, nLyrHgt
Set oPlayer = ProjectObj.GamePlayer
Set oMap = oPlayer.rMap
Set oLayer = oMap.MapLayer(0)
With oLayer.Sprite(1)
.ProcessAction(P2Actions)
oMap.ViewTop = 240
If P2OffsetX + oPlayer.ScrollMarginX > .X Then
P2OffsetX = .X - oPlayer.ScrollMarginX
End If
If P2OffsetX + oMap.ViewWidth - oPlayer.ScrollMarginX < .X + nSprWidth Then
P2OffsetX = .X - oMap.ViewWidth + oPlayer.ScrollMarginX + nSprWidth
End If
If P2OffsetY + oPlayer.ScrollMarginY > .Y Then
P2OffsetY = .Y - oPlayer.ScrollMarginY
End If
If P2OffsetY + oMap.ViewHeight - oPlayer.ScrollMarginY < .Y + nSprHeight Then
P2OffsetY = .Y - oMap.ViewHeight + oPlayer.ScrollMarginY + nSprHeight
End If
If P2OffsetX < 0 Then P2OffsetX = 0
If P2OffsetY < 0 Then P2OffsetY = 0
nLyrWid = oLayer.Columns * nSprWidth
nLyrHgt = oLayer.Rows * nSprHeight
If P2OffsetX > nLyrWid - oMap.ViewWidth Then P2OffsetX = nLyrWid - oMap.ViewWidth
If P2OffsetY > nLyrHgt - oMap.ViewHeight Then P2OffsetY = nLyrHgt - oMap.ViewHeight
oMap.Draw P2OffsetX, P2OffsetY, False
oMap.ViewTop = 0
End With
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.SinkObjectEvents CurrentDisplay, "Display"
HostObj.ConnectEventsNow()
My deepest thanks to who ever can figure this out :? .
-
Try this -- copying code from the top code into the bottom code:
[list=1]
- Paste the line "Dim XOff, YOff" to the beginning of the "Runtime Script (Number 1)" block (like right after Option Explicit)
- Copy the from code inside Sub Player_OnAfterMoveSprites (between the Sub line and the End Sub line) and paste it into the end of the other code's OnAfterMoveSprites sub (right before End Sub)
- Copy the while Sub Player_OnControllerMove sub (including the Sub and End Sub) and paste it after the last End Sub in the bottom code.
[/list:o]
As easy as 1, 2, 3... maybe :)
-
ok, heres what i used (following you the best i could):
' ======== INITIAL STARTUP SCRIPT (Number 0) =========
Sub Player_OnPlayInit()
HostObj.StartScript=1
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Option Explicit
Dim XOff, YOff
Dim P2OffsetX, P2OffsetY
Dim P2Actions
Const nSprWidth = 32 ' Could be retrieved, but would be slower
Const nSprHeight = 32
Sub Display_KeyDown(KeyCode, Shift)
' E=69, S=83, D=68, F=70
If KeyCode = 69 Then P2Actions = P2Actions Or ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions Or ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions Or ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions Or ACTION_RIGHT
End Sub
Sub Display_KeyUp(KeyCode, Shift)
If KeyCode = 69 Then P2Actions = P2Actions And Not ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions And Not ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions And Not ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions And Not ACTION_RIGHT
End Sub
Sub Player_OnAfterMoveSprites()
Dim oMap, oPlayer, oLayer, nLyrWid, nLyrHgt
Set oPlayer = ProjectObj.GamePlayer
Set oMap = oPlayer.rMap
Set oLayer = oMap.MapLayer(0)
With oLayer.Sprite(1)
.ProcessAction(P2Actions)
oMap.ViewTop = 240
If P2OffsetX + oPlayer.ScrollMarginX > .X Then
P2OffsetX = .X - oPlayer.ScrollMarginX
End If
If P2OffsetX + oMap.ViewWidth - oPlayer.ScrollMarginX < .X + nSprWidth Then
P2OffsetX = .X - oMap.ViewWidth + oPlayer.ScrollMarginX + nSprWidth
End If
If P2OffsetY + oPlayer.ScrollMarginY > .Y Then
P2OffsetY = .Y - oPlayer.ScrollMarginY
End If
If P2OffsetY + oMap.ViewHeight - oPlayer.ScrollMarginY < .Y + nSprHeight Then
P2OffsetY = .Y - oMap.ViewHeight + oPlayer.ScrollMarginY + nSprHeight
End If
If P2OffsetX < 0 Then P2OffsetX = 0
If P2OffsetY < 0 Then P2OffsetY = 0
nLyrWid = oLayer.Columns * nSprWidth
nLyrHgt = oLayer.Rows * nSprHeight
If P2OffsetX > nLyrWid - oMap.ViewWidth Then P2OffsetX = nLyrWid - oMap.ViewWidth
If P2OffsetY > nLyrHgt - oMap.ViewHeight Then P2OffsetY = nLyrHgt - oMap.ViewHeight
oMap.Draw P2OffsetX, P2OffsetY, False
oMap.ViewTop = 0
End With
If ProjectObj.GamePlayer.rMap.name = "2-4BonusLevel" then
XOff = XOff + 1
With ProjectObj.GamePlayer
if .PlayerSprite.X <= XOff then
if .PlayerSprite.DX < 0 then .PlayerSprite.DX = 1
.PlayerSprite.DX = .PlayerSprite.rDef.Template.MoveSpeed
if .PlayerSprite.X < XOff - .PlayerSprite.Width / 2 then
XOff = 1
.bQuit = false
End if
end if
.rMap.Draw XOff, YOff
End With
End If
End Sub
Sub Player_OnControllerMove(OldActions, NewActions)
With ProjectObj.GamePlayer.PlayerSprite
If (Not OldActions) And NewActions And ACTION_BUTTON2 Then
If (.rDef.SolidTest(.X, .Y + .Height) Or .rDef.SolidTest(.X + .Width - 1, .Y + .Height)) Or (Not .pRideOnRef Is Nothing) Then
.DY = - .rDef.Template.JumpHeight
End If
End If
End With
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.SinkObjectEvents CurrentDisplay, "Display"
HostObj.ConnectEventsNow()
and these are the error messages i got:
CreateTileSet requires an open display
[OK]
Error playing map: Object variable or With block variable not set
[OK]
Script stopped at line 33 on character 4: Subscript out of range
[OK]
I believe line 33 is Sub Player_OnAfterMoveSprites()
Also, since the split screen will only be for 4 maps, what code do I use/where do I put it?
-
Line 33 is the one that says "With oLayer.Sprite(1)". Apparently you don't have a second player and it is having an error because it can't find it. You either need to help it figure out when to look for a second player or put a second player on the map.
-
ok, but what map is it looking for the 2nd player on? because the 2-4Bonus... one isn't going to be 2 player.
-
It applies to whatever map you're playing when you get the error. Script always applies to all maps unless you put some check to only run it on certain maps (like you did when you checked for 2-4Bonus).
-
ok, so i need to put the same check i used for the 2-4 part in the script for split screen, so it would just be the line
If ProjectObj.GamePlayer.rMap.name = "2-4BonusLevel" then
but how do i make it specify to check and see if it's one of 4 maps? im just going out on a limb here and guessing that it should be
If ProjectObj.GamePlayer.rMap.name = "map1" or "map2" or "map3" or "map4" then
or something like that, and if that IS right, where would it go
-
Close. You need to check the entire condition every time.
If ProjectObj.GamePlayer.rMap.name = "map1" or ProjectObj.GamePlayer.rMap.name = "map2" or ProjectObj.GamePlayer.rMap.name = "map3" or ProjectObj.GamePlayer.rMap.name = "map4" then
Something else that might be easier:
tmp = ProjectObj.GamePlayer.rMap.name
If tmp = "map1" or tmp = "map2" or tmp = "map3" or tmp = "map4" then
Or, if your maps are infact named map1, map2, map3, and map4, then you could use
mapNum = right(ProjectObj.GamePlayer.rMap.name,1)
If mapnum >= 1 and mapNum <= 4 then
-
Hah, no, I just used that as a general name, I havent actually made (let alone named) those levels yet, so I'll just stick with the first one. Now, where to put them...
Line 33 is the one that says "With oLayer.Sprite(1)". Apparently you don't have a second player and it is having an error because it can't find it. You either need to help it figure out when to look for a second player or put a second player on the map.
BTW, where does it say the name used for the player2 sprite in the script? I see P2 where the keys are defined, so I'm guessing that's it.
-
It doesn't go by the name, it goes by the zero-based-index. It assumes that the second sprite created is the second player sprite (the first being the first player, but this is not neccessary). Hence, the "oLayer.Sprite(1)" takes the 2nd sprite created on that layer. (oLayer.Sprite(0) would be the first). You can change the number to be the one you want, or you could do a loop to find the sprite you want by checking it's name, then use that integer. Though once you find it, its index shouldn't change unless you delete some sprites.
It should look something like this.
intSprTwo = 0
For i = 0 to ubound(oLayer.Sprite)
If oLayer.Sprite(i).rDef.Name = "NAME OF SPRITE" then intSprTwo = i
next
Then use "with oLayer.Sprite(intSprTwo)". The only thing I'm not sure of is ubound(). I'm not sure that would work. Be sure to not execute this piece of script in the play loop every frame, because it's very unneccessary and would create a considerable drag on performance.
-
Instead of "ubound(oLayer.Sprite)" use "oLayer.SpriteCount - 1"
-
k, i'll put this in and test it when i get home
-
Ah, I was looking for that. So, it's a method instead of a property, eh?
-
So, it's a method instead of a property, eh?
Yeah, that took me by surprise too. Don't know why I did that that way.
-
ok, heres the script ive managed to put together with the bits an peices youve told me to add:
' ======== INITIAL STARTUP SCRIPT (Number 0) =========
If ProjectObj.GamePlayer.rMap.name = "0-4LevelSelect" then 'will be If ProjectObj.GamePlayer.rMap.name = "map1" or ProjectObj.GamePlayer.rMap.name = "map2" or ProjectObj.GamePlayer.rMap.name = "map3" or ProjectObj.GamePlayer.rMap.name = "map4" then
Sub Player_OnPlayInit()
HostObj.StartScript=1
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Option Explicit
Dim XOff, YOff
Dim P2OffsetX, P2OffsetY
Dim P2Actions
Const nSprWidth = 48 ' Could be retrieved, but would be slower
Const nSprHeight = 89
Sub Display_KeyDown(KeyCode, Shift)
' E=69, S=83, D=68, F=70
If KeyCode = 69 Then P2Actions = P2Actions Or ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions Or ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions Or ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions Or ACTION_RIGHT
End Sub
Sub Display_KeyUp(KeyCode, Shift)
If KeyCode = 69 Then P2Actions = P2Actions And Not ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions And Not ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions And Not ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions And Not ACTION_RIGHT
End Sub
Sub Player_OnAfterMoveSprites()
Dim oMap, oPlayer, oLayer, nLyrWid, nLyrHgt
Set oPlayer = ProjectObj.GamePlayer
Set oMap = oPlayer.rMap
Set oLayer = oMap.MapLayer(0)
intSprTwo = 0
For i = 0 to oLayer.SpriteCount - 1
If oLayer.Sprite(i).rDef.Name = "Player2" then intSprTwo = i
next
.ProcessAction(P2Actions)
oMap.ViewTop = 240
If P2OffsetX + oPlayer.ScrollMarginX > .X Then
P2OffsetX = .X - oPlayer.ScrollMarginX
End If
If P2OffsetX + oMap.ViewWidth - oPlayer.ScrollMarginX < .X + nSprWidth Then
P2OffsetX = .X - oMap.ViewWidth + oPlayer.ScrollMarginX + nSprWidth
End If
If P2OffsetY + oPlayer.ScrollMarginY > .Y Then
P2OffsetY = .Y - oPlayer.ScrollMarginY
End If
If P2OffsetY + oMap.ViewHeight - oPlayer.ScrollMarginY < .Y + nSprHeight Then
P2OffsetY = .Y - oMap.ViewHeight + oPlayer.ScrollMarginY + nSprHeight
End If
If P2OffsetX < 0 Then P2OffsetX = 0
If P2OffsetY < 0 Then P2OffsetY = 0
nLyrWid = oLayer.Columns * nSprWidth
nLyrHgt = oLayer.Rows * nSprHeight
If P2OffsetX > nLyrWid - oMap.ViewWidth Then P2OffsetX = nLyrWid - oMap.ViewWidth
If P2OffsetY > nLyrHgt - oMap.ViewHeight Then P2OffsetY = nLyrHgt - oMap.ViewHeight
oMap.Draw P2OffsetX, P2OffsetY, False
oMap.ViewTop = 0
End With
If ProjectObj.GamePlayer.rMap.name = "2-4BonusLevel" then
XOff = XOff + 1
With ProjectObj.GamePlayer
if .PlayerSprite.X <= XOff then
if .PlayerSprite.DX < 0 then .PlayerSprite.DX = 1
.PlayerSprite.DX = .PlayerSprite.rDef.Template.MoveSpeed
if .PlayerSprite.X < XOff - .PlayerSprite.Width / 2 then
XOff = 1
.bQuit = false
End if
end if
.rMap.Draw XOff, YOff
End With
End If
End Sub
Sub Player_OnControllerMove(OldActions, NewActions)
With ProjectObj.GamePlayer.PlayerSprite
If (Not OldActions) And NewActions And ACTION_BUTTON2 Then
If (.rDef.SolidTest(.X, .Y + .Height) Or .rDef.SolidTest(.X + .Width - 1, .Y + .Height)) Or (Not .pRideOnRef Is Nothing) Then
.DY = - .rDef.Template.JumpHeight
End If
End If
End With
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.SinkObjectEvents CurrentDisplay, "Display"
HostObj.ConnectEventsNow()
the bold bits are the parts that differ from the last script i posted. I'm pretty sure it's wrong, because i didn't really know where each bit went.. im going to try it in a minute and see what happens, as soon as i put in a second player and define a map for the 2 player.
also, the 2nd part thats in bold/underlined replaced With oLayer.Sprite(1)
-----added-later-----
Script Stopped at line 9 on character 1:
Expected 'End'
-
The if statement that you put at the beginning has to be inside of a sub, otherwise it will never execute (and will cause an error), and it also requires an end if statement. Also, I'm not sure, but that if statement just doesn't look correct to me. What's the part after the apostrophe for? Is that all on one line in the script, rather than three lines, as it shows up here? You can get rid of it to make it easier to understand the script if it is, because it's just a comment anyway.
-
Yea, I put that there as a note to myself, but is that line in the right place?
Ok.., I've tried several combinations with the If statement but I honestly just don't know what I'm doing. I tried putting Sub infront of the If ProjectObj... and putting an End Sub after it but that didn't work, I tried putting the If statement in with the Sub Player_On... but that didn't work either... I'm really sorry if I'm being a pain in the *** but I don't know vbs or any scripting language for that matter (I can just barely squeak by in html).
-
http://gamedev.comdel.net/viewtopic.php?t=8
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriVBScript.asp
' ======== INITIAL STARTUP SCRIPT (Number 0) =========
Sub Player_OnPlayInit()
HostObj.StartScript=1
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Option Explicit
Dim XOff, YOff
Dim P2OffsetX, P2OffsetY
Dim P2Actions, intSprTwo
Const nSprWidth = 48
Const nSprHeight = 89
Sub Display_KeyDown(KeyCode, Shift)
If KeyCode = 69 Then P2Actions = P2Actions Or ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions Or ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions Or ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions Or ACTION_RIGHT
End Sub
Sub Display_KeyUp(KeyCode, Shift)
If KeyCode = 69 Then P2Actions = P2Actions And Not ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions And Not ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions And Not ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions And Not ACTION_RIGHT
End Sub
Sub Player_OnAfterMoveSprites()
Dim oMap, oPlayer, oLayer, nLyrWid, nLyrHgt, i
Set oPlayer = ProjectObj.GamePlayer
Set oMap = oPlayer.rMap
Set oLayer = oMap.MapLayer(0)
If intSprTwo < 0
For i = 0 to oLayer.SpriteCount - 1
If oLayer.Sprite(i).rDef.Name = "Player2" then intSprTwo = i
next
End If
'Two Player Stuff
If ProjectObj.GamePlayer.rMap.name = "0-4LevelSelect" then
With oLayer.Sprite(intSprTwo)
.ProcessAction(P2Actions)
oMap.ViewTop = 240
If P2OffsetX + oPlayer.ScrollMarginX > .X Then
P2OffsetX = .X - oPlayer.ScrollMarginX
End If
If P2OffsetX + oMap.ViewWidth - oPlayer.ScrollMarginX < .X + nSprWidth Then
P2OffsetX = .X - oMap.ViewWidth + oPlayer.ScrollMarginX + nSprWidth
End If
If P2OffsetY + oPlayer.ScrollMarginY > .Y Then
P2OffsetY = .Y - oPlayer.ScrollMarginY
End If
If P2OffsetY + oMap.ViewHeight - oPlayer.ScrollMarginY < .Y + nSprHeight Then
P2OffsetY = .Y - oMap.ViewHeight + oPlayer.ScrollMarginY + nSprHeight
End If
If P2OffsetX < 0 Then P2OffsetX = 0
If P2OffsetY < 0 Then P2OffsetY = 0
nLyrWid = oLayer.Columns * nSprWidth
nLyrHgt = oLayer.Rows * nSprHeight
If P2OffsetX > nLyrWid - oMap.ViewWidth Then P2OffsetX = nLyrWid - oMap.ViewWidth
If P2OffsetY > nLyrHgt - oMap.ViewHeight Then P2OffsetY = nLyrHgt - oMap.ViewHeight
oMap.Draw P2OffsetX, P2OffsetY, False
oMap.ViewTop = 0
End With
End If
'Automatic Scrolling Stuff
If ProjectObj.GamePlayer.rMap.name = "2-4BonusLevel" then
XOff = XOff + 1
With ProjectObj.GamePlayer
if .PlayerSprite.X <= XOff then
if .PlayerSprite.DX < 0 then .PlayerSprite.DX = 1
.PlayerSprite.DX = .PlayerSprite.rDef.Template.MoveSpeed
if .PlayerSprite.X < XOff - .PlayerSprite.Width / 2 then
XOff = 1
End if
end if
.rMap.Draw XOff, YOff
End With
End If
End Sub
Sub Player_OnControllerMove(OldActions, NewActions)
'Jumping Player
With ProjectObj.GamePlayer.PlayerSprite
If (Not OldActions) And NewActions And ACTION_BUTTON2 Then
If (.rDef.SolidTest(.X, .Y + .Height) Or .rDef.SolidTest(.X + .Width - 1, .Y + .Height)) Or (Not .pRideOnRef Is Nothing) Then
.DY = - .rDef.Template.JumpHeight
End If
End If
End With
End Sub
intSprTwo = -1
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.SinkObjectEvents CurrentDisplay, "Display"
HostObj.ConnectEventsNow()
-
Script stopped at line 32 on character 22: expected 'Then'
which is line
If KeyCode = 70 Then P2Actions = P2Actions And Not ACTION_RIGHT
and it has a Then statement...
-
The above post is mine, sorry wasn't logged in. Also, supposedly there's a problem on the 'forced scroll' level, someone was playing it on my computer last night and said it crashed and gave them a couple errors when they died. I haven't had time to verify this (I wasn't there when they were playing) but I'll look into it when I get home. Just figured I'd mention it incase he was right.
----added-later----
Yea, he's right, damnit...
Oh, sorry if I 'sounded' a bit pushy above, really not my intention to be. Since i've made some changes to the game itsself, I guess i'll zip it and post a link incase anyone needs it to see what im talking aobut (with the die crash thing)...
-
The line numbering starts from the #Split. And I counted down the lines and saw that when the script is checking intSprTwo, it did leave out the "Then" on line 32 of the second script block.
-
I've also noticed these 2 lines:
Const nSprWidth = 48
Const nSprHeight = 89
these just affect the 2 player sprite size right? because the 2nd player is goint to be a little bit smaller than the 1st... actually now that i think of it, im going to need to shrink both down a good bit to make it look better in 2 player, so the ultipalyer's 1st palyer will be smaller than the original, and the 2nd player will be even a little bit smaller.
-
Ok, i put in the Then part where it wanted it, and it opened up fine, went to the title screen, and when i went to the level select (0-4Level...) map it gave me the error
Error playing map: Display must be open to flip
[OK]
Script stopped at line 41 on character 9:
Subscript out of range
[OK]
now i believe that it's this line:
With oLayer.Sprite(intSprTwo)
Also, i did put in the 2nd player and change the map height to 235 (which is what worked in the 2player demo i downloaded, so thats not the problem... Is there maybe some index of errors, maybe in the help file that explains what each one could possibly pertain to, or would that not do me any good b/c it's (probably) a script error?
-
There is no index of errors in GameDev, but the VBScript documentation provided by Microsoft might have one. I think you're right about this error though. I think it's a resilt of intSprTwo being out of range. It probably failed to find the player 2 sprite for some reason. I would suggest adding a line of script code that helps you debug the script by showing you what it found. You could check on the value of intSprTwo with something like this I think:
CurrentDisplay.Close
MsgBox intSprTwo
Of course you will hit a bunch of errors after that message appears because it doesn't expect the display to be closed, but at least you can find out what the value of intSprTwo is before it fails. There are other ways too, but this is just the quickest/easiest one that came to mind.
-
well, if your right in the fact that it's not finding player 2, maybe the first thing i'll do is try putting the original lines that identifyed the 2player by the 0-based index. if that doesnt work then i'll try the debug thing.
----later-----
i just had a thought, could it maybe be becuase both players are on the same path, and the sprite name i specifyed also has to be the path name? i'm going to try changing that and see what happens
-
ok, i havent tried the above things i said i would, but i noticed another problem... in the 2 player demo the vertical scroll margine is set a lot smaller than it would be for regular non-split screen. so theres probably goint to need to be a thing in the script to force a different vert. scroll margin for the 4 multiplayer maps.
----added-later-----
i see the 2 lines
Const nSprWidth = 32
Const nSprHeight = 32
so judging from these, would it be something like
Const VertMargin = [w/e]
?
----added-even-later-----
Ok, the 0 index thing didn't work, but I think your right about not being able to find the sprite. I happened to catch site of this line:
Set oLayer = oMap.MapLayer(0)
Layer 0 would be the top most layer in the list on that map right? Well, if that is the layer it's looking for the 2Player sprite, it isn't going to find it. That is the background layer, the main ground where 2Player is is the next one down. So I changed it to 1 to see if that would work but it gave me some errors... the only things that stick out in my mind are something about CreateTileSet and line 31. I didn't write down the messages. So I guess that isn't right. I guess I'll try the debug thing as best I can.
-
There is no index of errors in GameDev, but the VBScript documentation provided by Microsoft might have one. I think you're right about this error though. I think it's a resilt of intSprTwo being out of range. It probably failed to find the player 2 sprite for some reason. I would suggest adding a line of script code that helps you debug the script by showing you what it found. You could check on the value of intSprTwo with something like this I think:
CurrentDisplay.Close
MsgBox intSprTwo
Of course you will hit a bunch of errors after that message appears because it doesn't expect the display to be closed, but at least you can find out what the value of intSprTwo is before it fails. There are other ways too, but this is just the quickest/easiest one that came to mind.
Ok, tried the debug thing, i put your code after
If intSprTwo < 0 then
For i = 0 to oLayer.SpriteCount - 1
If oLayer.Sprite(i).rDef.Name = "Player2" then intSprTwo = i
next
End If
sction and it gave me a message saying
- 1
[OK]
so i tried removing that 1 little part and it gave me a string of errors ranging from CreateTileSet... to Error playing map... To Script Stopping on Line 35, so I guess that wasn't the right thing to remove.
As soon as i can find a site that will let me host files I'll rar this project with the script and put it up...
-
It is obvious that it is not finding the sprite. intSprTwo is set to -1 before that bit executes, and it doesn't change. So it is looking on the wrong layer.
I think the problem lies elsewhere, however, and not in setting oLayer = oMap.MapLayer(1). It would be immensely easier to debug this script if you could upload the project, or, less likely, learn VBScript a bit.
-
hey, thats not nice :)
... but true...
Anyway, here (http://www.angelfire.com/ct3/billybob884/C-man/Chameleon_Man.rar) is the base package (maps, gpd, bmps, & some media) ~3.7mb
(give it another 3 min to finish uploading)
Most of the vid's and some of the music was cut out b.c it would have been an ~18mb file.
-
For anyone else trying to download this file, the correct link is:
http://www.angelfire.com/ct3/billybob884/C-Man/Chameleon_Man.rar
(with a capital M in C-Man)
Copy and paste it 'cause AngelFire won't let you link.
-
Or you can right-click and "Save Target As..."
-
What do I do with this project to see the problem?
-
Or you can right-click and "Save Target As..."
That doesn't work. You have to paste the link into the address bar. Unless maybe you have some software running that prevents sites from knowing where you came from when you click on a link.
-
Huh, worked for me, but nah, i'm on a school computer. On the title screen go down to the level select option and press enter, that's the map i'm using to test the 2 player script, but all of the 2 player maps are going to be the same in the fact that there will be a background layer and then main layer for the sprites.
Also, everything just goes into one folder when u decompress it.
-
The main reason that comes to mind as far as not finding the Player2 sprite is that there is no sprite in the entire game with that name on any map. Also, change:
If intSprTwo < 0 then
For i = 0 to oLayer.SpriteCount - 1
If oLayer.Sprite(i).rDef.Name = "Player2" then intSprTwo = i
next
End If
'Two Player Stuff
If ProjectObj.GamePlayer.rMap.name = "0-4LevelSelect" then
to instead be:
'Two Player Stuff
If ProjectObj.GamePlayer.rMap.name <> "0-4LevelSelect" then
intSprTwo = -1
else
If intSprTwo < 0 then
For i = 0 to oLayer.SpriteCount - 1
If oLayer.Sprite(i).rDef.Name = "Player2" then intSprTwo = i
next
End If
And also, there is only ONE sprite on 0-4LevelSelect. To have two players, you need two sprites. And they both have to be initial instance sprites. And also, the scroll margins are a bit wacky on those levels where you have two players, due to the sprite being too big for only half the screen. I'd make them a bit more accomodating if I were you.
-
...What the he... ..ck,
I know I added a 2nd player... maybe I just didn't save..
Ok, added the 2player, but
Error playing map: Display must be open to flip
[OK]
Script stopped at line 43 on character 9:
Subscript out of range
[OK]
Which I believe is
With oLayer.Sprite(intSprTwo)
Here is the updated script file, gpd(dont know if u need this, so i included it), and map files (i altered the L2 map as well).
http://www.angelfire.com/ct3/billybob884/C-Man/Updated.rar
-
I think a few files must be missing. It can't find some files that it needs to load propperly. But now I see a second player anyway. I can't really test the project with the missing files.
-
Well, the only things I left out were 12 media files (5 mp3's, 5 avi's, & 2 wmv's), everything else was in the Chameleon_Man.rar, and then some map/gpd replacements in the UPDATED.rar. I've been trying to upload the 'Media Package' to angelfire but since its a ~15mb package, angelfire keeps timing out (even on ftp upload). I guess i'll break it up into a buncha little packages and then put them up.
http://www.angelfire.com/ct3/billybob884/C-Man/1.rar
http://www.angelfire.com/ct3/billybob884/C-Man/2.rar
http://www.angelfire.com/ct3/billybob884/C-Man/3.rar
http://www.angelfire.com/ct3/billybob884/C-Man/4.rar
http://www.angelfire.com/ct3/billybob884/C-Man/5.rar
(Give them another 10-5 min to finish uploading)
-----added-later-----
ok, my page has been removed... ill try to find another place to upload the files when i get home.
-
Well, when I loaded it, the first error that came up was:
Error loading map: 3-2ToxicDumpIsland.map is not a valid map.
Either it was not included, is corrupt, or some of the files it requires are missing.
Any ideas about what's in that map?
-
ooo shoot, i'm sorry, i started working on the next part of the game and since i only sent the new gpd in the UPDATE.rar, it remembered the map being there but couldn't find it b/c i didnt send it. whoops.
UPDATED.rar (changed to zip cuz geocities wont take rar)
http://www.geocities.com/billybob8448/UPDATED.zip
Missing Map:
http://www.geocities.com/billybob8448/32map.zip
Media:
http://www.geocities.com/billybob8448/1.zip
http://www.geocities.com/billybob_884/2.zip
http://www.geocities.com/billybob8448/3.zip
http://www.geocities.com/billybob8448/4.zip
http://www.geocities.com/billybob8448/5.zip
-
Theres a problem in the 'forced scroll' level (2-4...), when the player dies the gmae crashes and gives me these error messages:
Invalid procedure call or agreement
[OK]
Error playing map: Object variable or With block variable not set
[OK]
I'm pretty sure their not script-related errors becuase I tried playing it in the regular builder window (w/ the play arrow button) and it still crashed. I'm looking throught the die function right now to see if i find anything that I see as out-of-place but nothing so far... If I find it I'll remove this message.
-
The link to UPDATED.zip doesn't seem to work.
-
ok, it works now
------------
Also, nevermind about the crash for the forced scroll level, I figired it out.
-
The problem with the subscript out of range is that OnAfterMoveSprites seems to be firing once before there are any sprites on the new map. I didn't look into how you are jumping to the Level Select map, but I'm guessing OnAfterMoveSprites fired right after the map was switched and before anything else had a chance to happen during the process of switching maps. To fix it I just added this line of code before the line that says "If intSprTwo < 0 then":
if oLayer.SpriteCount <= 0 Then Exit Sub
-
ok, good news: the game no longer crashes when it goes to the level select map, but bad news: 2 player doesn't occur at all, no 2nd screen at teh bottom, no 2nd player movement, so i guess that line disabled all the 2 player script. also, in order to stop the screen from jittering, you need to change the scroll rates to like 30x30 (can be higher, but these work for all intensive purposes).
-
That line couldn't really remove the 2-player ability. Not possible, as such, unless you expect 2-player to work with no player sprites. The problem must lie elsewhere.
-
unless you expect 2-player to work with no player sprites.
i do have 2 player sprites on the leel select map, if that's what you mean.
heres the code i have so far, just for referrence
' ======== INITIAL STARTUP SCRIPT (Number 0) =========
Sub Player_OnPlayInit()
HostObj.StartScript=1
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Option Explicit
Dim XOff, YOff
Dim P2OffsetX, P2OffsetY
Dim P2Actions, intSprTwo
Const nSprWidth = 41
Const nSprHeight = 75
Sub Display_KeyDown(KeyCode, Shift)
' E=69, S=83, D=68, F=70
If KeyCode = 69 Then P2Actions = P2Actions Or ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions Or ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions Or ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions Or ACTION_RIGHT
End Sub
Sub Display_KeyUp(KeyCode, Shift)
If KeyCode = 69 Then P2Actions = P2Actions And Not ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions And Not ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions And Not ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions And Not ACTION_RIGHT
End Sub
Sub Player_OnAfterMoveSprites()
Dim oMap, oPlayer, oLayer, nLyrWid, nLyrHgt, i
Set oPlayer = ProjectObj.GamePlayer
Set oMap = oPlayer.rMap
Set oLayer = oMap.MapLayer(0)
'Two Player Stuff
'If ProjectObj.GamePlayer.rMap.name = "0-4LevelSelect" or ProjectObj.GamePlayer.rMap.name = "map2" or ProjectObj.GamePlayer.rMap.name = "map3" or ProjectObj.GamePlayer.rMap.name = "map4" then
If ProjectObj.GamePlayer.rMap.name <> "0-4LevelSelect" then
intSprTwo = -1
else
if oLayer.SpriteCount <= 0 Then Exit Sub
If intSprTwo < 0 then
For i = 0 to oLayer.SpriteCount - 1
If oLayer.Sprite(i).rDef.Name = "Player2" then intSprTwo = i
next
End If
With oLayer.Sprite(intSprTwo)
.ProcessAction(P2Actions)
oMap.ViewTop = 240
If P2OffsetX + oPlayer.ScrollMarginX > .X Then
P2OffsetX = .X - oPlayer.ScrollMarginX
End If
If P2OffsetX + oMap.ViewWidth - oPlayer.ScrollMarginX < .X + nSprWidth Then
P2OffsetX = .X - oMap.ViewWidth + oPlayer.ScrollMarginX + nSprWidth
End If
If P2OffsetY + oPlayer.ScrollMarginY > .Y Then
P2OffsetY = .Y - oPlayer.ScrollMarginY
End If
If P2OffsetY + oMap.ViewHeight - oPlayer.ScrollMarginY < .Y + nSprHeight Then
P2OffsetY = .Y - oMap.ViewHeight + oPlayer.ScrollMarginY + nSprHeight
End If
If P2OffsetX < 0 Then P2OffsetX = 0
If P2OffsetY < 0 Then P2OffsetY = 0
nLyrWid = oLayer.Columns * nSprWidth
nLyrHgt = oLayer.Rows * nSprHeight
If P2OffsetX > nLyrWid - oMap.ViewWidth Then P2OffsetX = nLyrWid - oMap.ViewWidth
If P2OffsetY > nLyrHgt - oMap.ViewHeight Then P2OffsetY = nLyrHgt - oMap.ViewHeight
oMap.Draw P2OffsetX, P2OffsetY, False
oMap.ViewTop = 0
End With
End If
'Automatic Scrolling Stuff
If ProjectObj.GamePlayer.rMap.name = "2-4BonusLevel" then
XOff = XOff + 1
With ProjectObj.GamePlayer
if .PlayerSprite.X <= XOff then
if .PlayerSprite.DX < 0 then .PlayerSprite.DX = 1
.PlayerSprite.DX = .PlayerSprite.rDef.Template.MoveSpeed
if .PlayerSprite.X < XOff - .PlayerSprite.Width / 2 then
XOff = 1
End if
end if
.rMap.Draw XOff, YOff
End With
End If
End Sub
Sub Player_OnControllerMove(OldActions, NewActions)
'Jumping Player
With ProjectObj.GamePlayer.PlayerSprite
If (Not OldActions) And NewActions And ACTION_BUTTON2 Then
If (.rDef.SolidTest(.X, .Y + .Height) Or .rDef.SolidTest(.X + .Width - 1, .Y + .Height)) Or (Not .pRideOnRef Is Nothing) Then
.DY = - .rDef.Template.JumpHeight
End If
End If
End With
End Sub
intSprTwo = -1
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.SinkObjectEvents CurrentDisplay, "Display"
HostObj.ConnectEventsNow()
-
Ah, I was a bit hasty in my earlier assessment. It looks like the real problem is that you're getting the wrong layer. You can delete the line I told you to add before if you want. Then change the line that sets oLayer to this:
Set oLayer = oMap.MapLayer(1)
And move it right before "If intSprTwo < 0 then" otherwise you will get errors when it tries to do that on maps where there is only 1 layer. You were getting layer 0 instead of layer 1 before, and the sprites are on layer 1.
-
YES! It works!!! Now, for the final touches/tweaks. I noticed that the 2nd player only uses its drifting frames (probably due to the fact that its inert, right?), so the only non-scripting solution I can think of as a possibility is to not use the seperate states for accelerate/drifting, and to use that check box thats like animation with velocity or something (can't remember it exactly). Now (thankfully) my 2nd player wont need the animated drifting state, so all I have to do is find the right animation speed to make it look right. Now, my other problem is that I need to find a way to have a different horizontal/vertical scroll margin for the 2 player maps (since the window sizes are different).
So I'll try the 1st part and see what happens.
-----added-later-----
Ok, the velocity idea worked, so just the scroll margines left. I'm gonna go look through the scripting list to see if I can find anything that looks like it may be useful.
------------
Oh wait, here we are:
ScrollMarginX
Integer
Get or set how close the edge of the player sprite can get to the edge of the map window before scrolling.
[Let] MyInteger = oPlayer.ScrollMarginX
[Let] oPlayer.ScrollMarginX = MyInteger
ScrollMarginY
Integer
Get or set how close the edge of the player sprite can get to the edge of the map window before scrolling.
[Let] MyInteger = oPlayer.ScrollMarginY
[Let] oPlayer.ScrollMarginY = MyInteger
ok, so by looking at these it looks like each one is the same thing except one forward n one backward, so its safe to assume you only need one line from each right? in that case, i should just use
oPlayer.ScrollMarginX = 298
oPlayer.ScrollMarginY = 62 'the numbers i found to work on the split screen w/ my sprites
but im not sure where they should go, everywhere ive tried so far causes teh game to go back to that TileDisplay error message
-
Here are some changes I made to your script and the problems they fixed:
1) Changed the current .ProcessActions line to: If .ProcessAction(P2Actions) Then
.CurState = (.CurState Mod (.rDef.Template.StateCount \ 2)) _
+ .rDef.Template.StateCount \ 2
.CurFrame = .CurFrame Mod .rDef.StateFrameCount(.CurState)
Else
.CurState = (.CurState Mod (.rDef.Template.StateCount \ 2))
End If
This allows player 2 to handle drifting and accelerating without resorting to any other funny business. The reason the .CurFrame line is there is because GameDev is animating the sprite based on the number of frames in the drifting state, and if I switch it to the accellerating state, I get an error if the current frame is larger than the number of frames in the animating state. But with that in there, this works great so long as the number of frames in the drifting state is greater than or equal to the number of frames in the accelerating state. I expect you wouldn't see the full animation if it were less.
2) Changed nLyrWid = oLayer.Columns * nSprWidth
nLyrHgt = oLayer.Rows * nSprHeight to nLyrWid = oLayer.Columns * 32
nLyrHgt = oLayer.Rows * 32 We actually wanted the tile size in that calculation, not the sprite size. This corrects the scrolling in the lower map display.
3) Added "oPlayer.ScrollMarginY = 185" after the first "intSprTwo = -1" and added "oPlayer.ScrollMarginY = 62" after "With oLayer.Sprite(intSprTwo)". This dynamically adjusts the scroll margin that you care about changing.
-
Oh, and keep up the good work! 8)
-
Ok, here's what I got so far with the changes you told me to make.
' ======== INITIAL STARTUP SCRIPT (Number 0) =========
Sub Player_OnPlayInit()
HostObj.StartScript=1
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16
Option Explicit
Dim XOff, YOff
Dim P2OffsetX, P2OffsetY
Dim P2Actions, intSprTwo
Const nSprWidth = 41
Const nSprHeight = 75
Sub Display_KeyDown(KeyCode, Shift)
' E=69, S=83, D=68, F=70
If KeyCode = 69 Then P2Actions = P2Actions Or ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions Or ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions Or ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions Or ACTION_RIGHT
End Sub
Sub Display_KeyUp(KeyCode, Shift)
If KeyCode = 69 Then P2Actions = P2Actions And Not ACTION_UP
If KeyCode = 83 Then P2Actions = P2Actions And Not ACTION_LEFT
If KeyCode = 68 Then P2Actions = P2Actions And Not ACTION_DOWN
If KeyCode = 70 Then P2Actions = P2Actions And Not ACTION_RIGHT
End Sub
Sub Player_OnAfterMoveSprites()
Dim oMap, oPlayer, oLayer, nLyrWid, nLyrHgt, i
Set oPlayer = ProjectObj.GamePlayer
Set oMap = oPlayer.rMap
Set oLayer = oMap.MapLayer(0)
'Two Player Stuff
'If ProjectObj.GamePlayer.rMap.name = "0-4LevelSelect" or ProjectObj.GamePlayer.rMap.name = "map2" or ProjectObj.GamePlayer.rMap.name = "map3" or ProjectObj.GamePlayer.rMap.name = "map4" then
If ProjectObj.GamePlayer.rMap.name <> "0-4LevelSelect" then
intSprTwo = -1
else
if oLayer.SpriteCount <= 0 Then Exit Sub
If intSprTwo < 0 then
For i = 0 to oLayer.SpriteCount - 1
If oLayer.Sprite(i).rDef.Name = "Player2" then intSprTwo = i
next
End If
With oLayer.Sprite(intSprTwo)
oPlayer.ScrollMarginY = 62
If .ProcessAction(P2Actions) Then
.CurState = (.CurState Mod (.rDef.Template.StateCount \ 2)) _
+ .rDef.Template.StateCount \ 2
.CurFrame = .CurFrame Mod .rDef.StateFrameCount(.CurState)
Else
.CurState = (.CurState Mod (.rDef.Template.StateCount \ 2))
End If
'----------this works great so long as the number of frames in the drifting state is greater than or equal to the number of frames in the accelerating state-------------
oMap.ViewTop = 240
If P2OffsetX + oPlayer.ScrollMarginX > .X Then
P2OffsetX = .X - oPlayer.ScrollMarginX
End If
If P2OffsetX + oMap.ViewWidth - oPlayer.ScrollMarginX < .X + nSprWidth Then
P2OffsetX = .X - oMap.ViewWidth + oPlayer.ScrollMarginX + nSprWidth
End If
If P2OffsetY + oPlayer.ScrollMarginY > .Y Then
P2OffsetY = .Y - oPlayer.ScrollMarginY
End If
If P2OffsetY + oMap.ViewHeight - oPlayer.ScrollMarginY < .Y + nSprHeight Then
P2OffsetY = .Y - oMap.ViewHeight + oPlayer.ScrollMarginY + nSprHeight
End If
If P2OffsetX < 0 Then P2OffsetX = 0
If P2OffsetY < 0 Then P2OffsetY = 0
nLyrWid = oLayer.Columns * 32
nLyrHgt = oLayer.Rows * 32
If P2OffsetX > nLyrWid - oMap.ViewWidth Then P2OffsetX = nLyrWid - oMap.ViewWidth
If P2OffsetY > nLyrHgt - oMap.ViewHeight Then P2OffsetY = nLyrHgt - oMap.ViewHeight
oMap.Draw P2OffsetX, P2OffsetY, False
oMap.ViewTop = 0
End With
End If
'Automatic Scrolling Stuff
If ProjectObj.GamePlayer.rMap.name = "2-4BonusLevel" then
XOff = XOff + 1
With ProjectObj.GamePlayer
if .PlayerSprite.X <= XOff then
if .PlayerSprite.DX < 0 then .PlayerSprite.DX = 1
.PlayerSprite.DX = .PlayerSprite.rDef.Template.MoveSpeed
if .PlayerSprite.X < XOff - .PlayerSprite.Width / 2 then
XOff = 1
End if
end if
.rMap.Draw XOff, YOff
End With
End If
End Sub
Sub Player_OnControllerMove(OldActions, NewActions)
'Jumping Player
With ProjectObj.GamePlayer.PlayerSprite
If (Not OldActions) And NewActions And ACTION_BUTTON2 Then
If (.rDef.SolidTest(.X, .Y + .Height) Or .rDef.SolidTest(.X + .Width - 1, .Y + .Height)) Or (Not .pRideOnRef Is Nothing) Then
.DY = - .rDef.Template.JumpHeight
End If
End If
End With
End Sub
intSprTwo = -1
oPlayer.ScrollMarginY = 185
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.SinkObjectEvents CurrentDisplay, "Display"
HostObj.ConnectEventsNow()
-
In the script I posted above, I put the oPlayer.ScrollMarginY = 185 in the wrong place, so ignore that mistake, but after I fixed it the script wouldn't work. The 2-player layer at the bottom of the level select map isn't being displayed, and the screen is shaking (presumably because the regular 1-player scroll margines are being used). I did make sure that the Player2 sprite has more frames in the drifting states than in the accelerating states, so thats not the problem.
-
That's the wrong script -- you lost the changes for using MapLayer(1) instead of MapLayer(0), and the Exit Sub is still in there.
-
That's the wrong script -- you lost the changes for using MapLayer(1) instead of MapLayer(0), and the Exit Sub is still in there.
Oops, made the changes to a backup copy of the wrong script...
Ok, I'll make these changes to the RIGHT script when I get home ::) .
------
allright, works [again]! :D