PureBasic programming

[Unseen Ghost]

Hi everyone,

I have been working on a European Football game called European Football Simulator written completely in PureBasic. I will be using Sqlite3 for the database of everything.
Attached are a couple of images of some results of testing 3D objects in PureBasic. Image on the right I loaded an untextured player I created in MakeHuman and scaled it down to fit the scene better. Image on the left is the football stadium I want to use in the game. I have a couple of dots I need to put in the pitch though. one is the penalty shot spot and the other is the center dot in the middle of the pitch. I got the pre-made stadium on turbosquid website.
Here is the test code:

Code Select Expand

#MOVEMENT_SPEED = 0.1

Global MouseXRotation.f,MouseYRotation.f,KeyX.f,KeyZ.f

InitEngine3D()
InitSprite()
InitMouse()
InitKeyboard()

OpenWindow(0, 0, 0, 1280, 780, "European Football Simulator", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 1280, 780, 0, 0, #PB_Screen_WaitSynchronization)
Add3DArchive("C:\Users\Brian\Documents\PUREBASIC PROJECTS\3D Programs\3Dfield\Media", #PB_3DArchive_FileSystem)

Parse3DScripts()
CreateLight(0,RGB(55, 55, 55), 0, 400, -10, #PB_Light_Directional)
LoadTexture(0, "Stadium_blue.png") 
LoadTexture(1, "Stadium_field.png")

bluemat=CreateMaterial(#PB_Any,TextureID(0))
fieldmat=CreateMaterial(#PB_Any,TextureID(1))
defmat = CreateMaterial(#PB_Any,0)

LoadMesh(0, "StadiumNew_obj.mesh")
LoadMesh(1, "Test1_dae.mesh")


CreateEntity(0, MeshID(0), #PB_Material_None)
CreateEntity(1, MeshID(1), #PB_Material_None)
ScaleEntity(1, -0.03, -0.03, -0.03)
ScaleEntity(0, 4, 3, 3)

For x = 0 To 30
  Select x
    Case 1
      tmat = fieldmat
    Case 4
      tmat = defmat
    Case 5
      tmat = defmat
    Case 9
      tmat = defmat
    Case 10
      tmat = defmat
    Case 11
      tmat = defmat
    Case 12
      tmat = defmat
    Default
      tmat = bluemat
  EndSelect
  SetEntityMaterial(0,MaterialID(tmat),x)
Next x

;RotateEntity(0, 6, 45, 0, #PB_Absolute)
RotateEntity(1, 180, 0, 0, #PB_Absolute)
MoveEntity(1, 0, 0.137, -36, #PB_World)

CreateCamera(0, 0, 0, 100, 100)
MoveCamera(0, 0, 20, 40, #PB_Absolute | #PB_Local) ; absolute + local positive Z coordinate moves camera backwards
CameraRange(0,0.1, 1000)
CameraLookAt(0, 0, 0, 0)
Repeat
  Repeat : event=WindowEvent() : If event = #PB_Event_CloseWindow : End : EndIf :Until Not event
  If ExamineMouse()
    MouseYRotation = -MouseDeltaX() / 10
    MouseXRotation = -MouseDeltaY() / 10
  EndIf
  RotateCamera(0, MouseXRotation, MouseYRotation, 0, #PB_Relative)
  ;Update Key Presses and position the Camera accordingly
  If ExamineKeyboard()
    If KeyboardPushed(#PB_Key_Left) : KeyX = -#MOVEMENT_SPEED : EndIf
    If KeyboardPushed(#PB_Key_Right) : KeyX = #MOVEMENT_SPEED : EndIf
    If KeyboardPushed(#PB_Key_Up) : KeyZ = -#MOVEMENT_SPEED : EndIf
    If KeyboardPushed(#PB_Key_Down) : KeyZ = #MOVEMENT_SPEED : EndIf
    If KeyboardPushed(#PB_Key_Escape) : ReleaseMouse(#True) : EndIf
    MoveCamera(0, KeyX, 0, KeyZ)
    KeyX = 0
    KeyZ = 0
  EndIf
  RenderWorld()
  FlipBuffers()
  Delay(1)
ForEver

[Baggey]

is it going to have the women's teams in it 

[Dabzy]

Looks well!

I still remember New Star Soccer, that was a big success for the Monkey Language and a lovely little job at that... It really deserved all the success in the world!

is it going to have the women's teams in it

If it doesnt have Alisha Lehmann, I'll be major disappointed. Not to be a creep or out (Ahem), but she rocks mind!

Dabz
 

[Baggey]

Looks well!

I still remember New Star Soccer, that was a big success for the Monkey Language and a lovely little job at that... It really deserved all the success in the world!

is it going to have the women's teams in it

If it doesnt have Alisha Lehmann, I'll be major disappointed. Not to be a creep or out (Ahem), but she rocks mind!

Dabz
 

For me its Merle Frohms im a big fan.

[MikeHart]

That is a cool start for sure. Keep us updated please.

[Unseen Ghost]

is it going to have the women's teams in it 

This version will not have women in it. At some point later down the road I can always make a women's version

[Unseen Ghost]

Looks well!

I still remember New Star Soccer, that was a big success for the Monkey Language and a lovely little job at that... It really deserved all the success in the world!

is it going to have the women's teams in it

If it doesnt have Alisha Lehmann, I'll be major disappointed. Not to be a creep or out (Ahem), but she rocks mind!

Dabz
 

I'll have to look into the New Star Soccer game some time. I never tried it

[Unseen Ghost]

That is a cool start for sure. Keep us updated please.

I will definitely keep you updated here

[pfaber11]

I was wondering how many have moved to PureBasic from AGK as AGK has been put into feature freeze. They do pretty much the same thing although PureBasic maintains all of the basic language of the eighties and nineties AGK studio has a scaled down version of Basic but can still get the job done due to it's many advanced commands. I think AGK Basic is the best language I have tried it's very small and it is easier to learn compared to PureBasic, and I would say easier and nicer than Python especially if you know a bit of Basic to start with. I do like PureBasic as well and play with it often to keep it fresh.     

[Baggey]

Id be wondering how many have moved to BlitzmaxNG 

[pfaber11]

You might have a point there Baggey, what made you choose BlitzMaxNG in the first place. My reason for staying with AGK and PB is PB is very fast and AGK is very cool for Android. Sometimes I feel I need a break from programming and  after 2 or 3 days of resting my brain when I then return to it it all feels very familiar and I can think clearly about what I'm doing.

[Baggey]

I have tried just about every basic that is available And has one simple setup.exe   

I needed a Very Fast Basic comparable to C.

I have dabbled with Purebasic. But i really didn't get on with it's Syntactical layout and shenanigans.

I ended up with BlitmaxNG simply because getting to grips with its Basic's is very easy and i got results fast! It also has a very pleasing Syntax.

Before i used this PlayBasic was very good and easy to learn. But sadly it was not compiled. SIMPLY TO SLOW.

One thing i have learnt is if it's not compiled to native machine code don't waste your time and effort. Python Springs to mind 

Lazarus is good if you like to program Windows stuff. But it is not easy to get to grips with.

My wish would be able to program in C just like you do in BlitzmaxNG IDE swapping between the two easily. Without the need for all the stupid bollocks of separate folders and project setup etc.. And if you could use inline Machine code it would be on another level entirely.

Now i have no interest in mobile phones so don't do anything with  them except phone or text. It's a Phone after all.

I believe AGK is a game engine. It makes you do things lazely. You can not beat writing your own routines to do what you want. Finding address pointers and manipulating your data just like the good old days.

So as i diverge until something better comes along like BlitmaxBG or Cmax ill be using BlitzmaxNG for the forseable future. 

I hope that answer's your question and my reasoning for doing so!

Kindest Regards Baggey