Driving simulator / game

[Deleter]

It made windows media player (version 9 I believe) act a little funny. The first time I ran the video, the player refused input. When I replayed it, however, everything was fine so it may have been my player. Otherwise, pretty neat

[d.j.peters]

any one an idea to make this litle bit faster ?
32 BPP to 24 BPP

Joshy

Code:

for i=l to 0 step -1
    r=rgbptr[i].r
    g=rgbptr[i].g
    b=rgbptr[i].b
    put #hfile,,r
    put #hfile,,g
    put #hfile,,b
  next

[Anonymous]

http://www.freebasic.net/forum/viewtopic...=7976#7976

;)

[d.j.peters]

http://www.freebasic.net/forum/viewtopic...=7976#7976

again thanx
Joshy

[d.j.peters]

Please help and test this code
i have only AMD's
post your results CPU and OS.

thanx Joshy

Code:

option explicit
#define true 1
#define false 0
#define boolean integer

function ReadEFLAG() as uinteger
  asm pushfd  'eflag on stack
  asm pop eax 'in eax
  asm mov [function],eax
end function
sub WriteEFLAG(byval value as uinteger)
  asm mov eax,[value]
  asm push eax 'value on stack
  asm popfd    'pop in eflag
end sub
function IsCPUID() as boolean 'CPUID command aviable
  dim as uinteger old,new
  old = readeflag()
  new = old xor &H200000 'change bit 21
  writeeflag new
  new = readeflag()
  if old<>new then
    function = true
    writeeflag old 'restore old value
  end if
end function
function IsFPU486() as boolean 'FPU aviable
  dim as ushort tmp
  tmp = &HFFFF
  asm fninit 'try FPU init
  asm fnstsw [tmp] 'store statusword
  if tmp=0 then 'is it really 0
    asm fnstcw [tmp] 'store control
    if tmp=&H37F then function = true
  end if
end function
function CPUCounter() as ulongint
  dim tmp as ulongint
  asm RDTSC
  asm mov [tmp],eax
  asm mov [tmp+4],edx
  function = tmp
end function
function CPUID_EDX(byval funcnr as uinteger) as uinteger
  asm mov dword ptr eax,[funcnr]
  asm cpuid
  asm mov [function],edx
end function

dim retvalue as uinteger
dim flag     as boolean
dim start    as single
dim a        as ulongint
if IsCPUID() then
  retvalue=CPUID_EDX(1)
  if (retvalue and &H1) then print "FPU"
  if (retvalue and &H2) then print "VME"
  if (retvalue and &H4) then print "DE"
  if (retvalue and &H8) then print "PSE"
  if (retvalue and &H10) then
    print "RDTSC"
    flag=true
  end if
  if (retvalue and &H8000) then print "CMOV"
  if (retvalue and &H800000) then print "MMX"
  if (retvalue and &H2000000) then print "SSE"
  if (retvalue and &H4000000) then print "SSE2"
  retvalue=CPUID_EDX(&H80000001)
  if (retvalue and   &H80000000) then print "3D NOW"
  if (retvalue and   &H40000000) then print "3D NOW DSP"
  if flag=true then
    a=CPUCounter():a-=8500000
    start=timer()
    while (timer()-start)<1.0:wend
    a=CPUCounter()-a
    a\=1000000
    print str(a) + " MHz."
  end if
else
  if IsFPU486() then print "FPU"
end if

sleep

[d.j.peters]

Seams to be useable.
I have get results from FreeBASIC.net/Forum

Thanx Joshy

[d.j.peters]

Sorry but i don't get members for this large project i will try it next year again.

Joshy

[Torahteen]

I'm sorry to hear that D.J. I guess that it seemed like too daunting of a task (daunting = troubling, just in case :wink: .)


Please don't take the translation offending. But it seems that you keep on having to say "I can't translate that" a lot. Thought I'd help.

[syn9]

IMO, you dont need fancy menu systems, or sleek models to create a working prototype. a box with wheels, one track, and basic network play to allow multiple boxes to move around on the same track would suffice to show anyone that your game is mostly complete just needing content. if you can get to this stage on your own, i'm sure you'll find significant help to finish your game.

if you need some help getting started you can drop me a line, i did something like this a while ago called Zero G, and am currently working on a sequel

[KiZ]

Sorry to hear you are dropping it,

But a little expression comes to mind
"Who didnt see that one coming..."