guest_Chrisz
Guest |
Quote
|
| 2025-02-16 10:51:43 |
|
Pirates Empire
https://ammax.itch.io/pirates-em...
 🔎︎
|
andgameplay
Registered User |
Quote
|
| 2025-02-16 12:11:52 |
|
Very good game, very realistic to control the ships!
You used BlitzBasic to develop this game.
What is your impression of developing this game in BlitzBasic instead of the Coppercube engine, I means the advantages and disadvantages?
|
guest_Chrisz
Guest |
Quote
|
| 2025-02-16 12:50:55 |
|
Hello andgameplay.
I made the game in 1998/1999 with BlitzBasic and a friend. Copper Cube didn’t exist back then. I now believe that BlitzBasic was probably the most innovative language to learn. The simplicity was great. Unfortunately, at a certain point it became confusing. What bothers me about Copper Cube is that it's not suitable for teamwork. You can break a lot and integrating Javascript is confusing. This was easier in BlitzBasic
Function CheckButton(Img,X,Y)
If MousePX<X Or MousePY<Y Then Return
If MousePX>X+ImageWidth(Img) Then Return
If MousePY>Y+ImageHeight(Img) Then Return
If MouseD>0 And MouseC=0 Then Return 2
Return 1
End Function
Function ProduktSellState(Img,X,Y,I)
If ProduktBuffer(I,2)=0 Then Return 2
S=CheckButton(Img,X,Y):If S<2 Then Return S
C=1:If MouseD=2 Then C=5
If C>ProduktBuffer(I,2) Then C=ProduktBuffer(I,2)
TT=ProduktBuffer(I,1)*C
NN=ProduktBuffer(I,3)/Float(ProduktBuffer(I,2))*C
ProduktBuffer(I,2)=ProduktBuffer(I,2)-C
ProduktBuffer(I,0)=ProduktBuffer(I,0)+C
ProduktBuffer(I,3)=ProduktBuffer(I,3)-NN
TempMoney=TempMoney-TT:MouseC=1 Return 1
End Function
Function ProduktByeState(Img,X,Y,I)
If ProduktBuffer(I,0)<=0 Then Return 2
MT=ProduktBuffer(I,1):C=1:If MouseD=2 Then C=5
If MT>MyShip\Money-TempMoney Then Return 2
S=CheckButton(Img,X,Y):If S<2 Then Return S
If ProduktBuffer(I,0)<C Then C=ProduktBuffer(I,0)
T=ProduktBuffer(I,1)*C
If T+TempMoney<=MyShip\Money Then
ProduktBuffer(I,2)=ProduktBuffer(I,2)+C
ProduktBuffer(I,0)=ProduktBuffer(I,0)-C
ProduktBuffer(I,3)=ProduktBuffer(I,3)+T
TempMoney=TempMoney+T:MouseC=1
End If
End Function
Function GameSetup()
InitGraphicsMode()
|
guest_Chrisz
Guest |
Quote
|
| 2025-02-16 12:53:59 |
|
Thats was the function for the water in the game.
Function InitWaterPlane()
WaterTexturA = LoadTexture("Data/wasserL2.png")
ScaleTexture WaterTexturA,1.1,1.1
TextureBlend WaterTexturA,2
WaterTexturB = LoadTexture("Data/WasserL2.png")
ScaleTexture WaterTexturB,.8,.8
TextureBlend WaterTexturB,2
WaterPlane=CreatePlane();CreateWaterPlane(32,WorldPivot)
Y=BeachHeight*(1/Float(TerHeight))
PositionEntity WaterPlane,0,WaterHeight,0
EntityTexture WaterPlane,WaterTexturA,0,0
EntityTexture WaterPlane,WaterTexturB,0,1
EntityAlpha WaterPlane,.6
ScaleEntity WaterPlane,100,1,100
EntityColor WaterPlane,255,255,255
End Function
|
andgameplay
Registered User |
Quote
|
| 2025-02-20 12:45:01 |
|
Great!
I think easy to read this code, I liked it!
When I have a free time, I will look more about this engine and language, thanks for share with us!
|
){kind=link}