30-04-2007, 05:39 PM
This doesn't really fix it,, I used your packet and I still have the error.
---------------------------------------------------------------------------------
EDIT:
I have a RTE 5: Invalid Procedure call or Argument at Line:
In Sub:
[code]
Sub BltWeather()
Dim i As Long
Call DD_BackBuffer.SetForeColor(RGB(0, 0, 200))
If GameWeather = WEATHER_RAINING Then
For i = 1 To MAX_RAINDROPS
If DropRain(i).Randomized = False Then
If frmMirage.tmrRainDrop.Enabled = False Then
BLT_RAIN_DROPS = 1
frmMirage.tmrRainDrop.Enabled = True
If frmMirage.tmrRainDrop.Tag = "" Then
frmMirage.tmrRainDrop.Interval = 200
frmMirage.tmrRainDrop.Tag = "123"
End If
End If
End If
Next i
ElseIf GameWeather = WEATHER_SNOWING Then
For i = 1 To MAX_RAINDROPS
If DropSnow(i).Randomized = False Then
If frmMirage.tmrSnowDrop.Enabled = False Then
BLT_SNOW_DROPS = 1
frmMirage.tmrSnowDrop.Enabled = True
If frmMirage.tmrSnowDrop.Tag = "" Then
frmMirage.tmrSnowDrop.Interval = 200
frmMirage.tmrSnowDrop.Tag = "123"
End If
End If
End If
Next i
Else
If BLT_RAIN_DROPS > 0 And BLT_RAIN_DROPS
---------------------------------------------------------------------------------
EDIT:
I have a RTE 5: Invalid Procedure call or Argument at Line:
Code:
Call DD_BackBuffer.BltFast(DropSnow(i).x + DropSnow(i).Speed, DropSnow(i).y + DropSnow(i).Speed, DD_SnowSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
In Sub:
[code]
Sub BltWeather()
Dim i As Long
Call DD_BackBuffer.SetForeColor(RGB(0, 0, 200))
If GameWeather = WEATHER_RAINING Then
For i = 1 To MAX_RAINDROPS
If DropRain(i).Randomized = False Then
If frmMirage.tmrRainDrop.Enabled = False Then
BLT_RAIN_DROPS = 1
frmMirage.tmrRainDrop.Enabled = True
If frmMirage.tmrRainDrop.Tag = "" Then
frmMirage.tmrRainDrop.Interval = 200
frmMirage.tmrRainDrop.Tag = "123"
End If
End If
End If
Next i
ElseIf GameWeather = WEATHER_SNOWING Then
For i = 1 To MAX_RAINDROPS
If DropSnow(i).Randomized = False Then
If frmMirage.tmrSnowDrop.Enabled = False Then
BLT_SNOW_DROPS = 1
frmMirage.tmrSnowDrop.Enabled = True
If frmMirage.tmrSnowDrop.Tag = "" Then
frmMirage.tmrSnowDrop.Interval = 200
frmMirage.tmrSnowDrop.Tag = "123"
End If
End If
End If
Next i
Else
If BLT_RAIN_DROPS > 0 And BLT_RAIN_DROPS