Need cool music for your games?

[x-itec]

Hi i am a registered purebasic-developer but in my sparetime I am making music.

If you need a cool track for your game, let me know. Send your inquiries to x-itec@freenet.de

Examples:

"Schlüsselanhänger"

http://www.x-itec.net/download.php?id=64

"Porsche Driving"

http://www.x-itec.net/download.php?id=63

"Carshow"

http://www.x-itec.net/download.php?id=62

Happy coding

[Kale]

why are they in *.exe format? *.zip or *.mp3 would inspire more confidence that these are not malicious.

[PB]

@Kale: I agree, especially since we don't know who x-itec is (first time post).

[x-itec]

I made a player in purebasic and packaged everything into a exe.

btw this is not my first posting I reported a bug some weeks or month ago about jpg-loading if a jpg was defect purebasic was crashing because the jpg tags were not checked or so.

Here is the main code (well I am a pb newbie but maybe a better musican or so):

Code: Select all

InitSprite() : InitSprite3D() : InitKeyboard() : InitMouse();
LoadFont (0, "Arial", 8) 

IncludeFile("../../bo-includes/include-all.pb")


;1 aktiviert das Consoledebugging
;consoledebug=1

DefType.smyabout test_smyabout
test_smyabout\product="X-ITEC Audio-Player"
test_smyabout\version="1.00"

test_smyabout\edition="Professional"

test_smyabout\reldate="2005-01-14"
test_smyabout\copyrightyy="2004,2005"
mydout("about-dialog comes up..");
;myAboutDlg(test_smyabout,2)
mydout("")

OpenWindow(0, 0,0,350 , 150 ,  #PB_Window_SystemMenu|#PB_Window_ScreenCentered |#PB_Window_SizeGadget, test_smyabout\product)
OpenWindowedScreen(WindowID(), 0, 0, 350, 150, 0, 0, 0)

#sprite_scroller=10


CreateSprite(#sprite_scroller, 400, 2000)
StartDrawing(SpriteOutput(#sprite_scroller))
DrawingFont(UseFont(0))

FrontColor(255,255,255);
BackColor(0,0,0)

Dim scrolltext.s(40)
For x=0 To 39
scrolltext(x)=""
Next x


y=0;

scrolltext(y)="Greetingz":y=y+1
scrolltext(y)="Track: Mein Schlüsselanhänger 02/2005":y=y+1
scrolltext(y)="Composed by: Boris Koester (x-itec@freenet.de)":y=y+1
scrolltext(y)="Homepage: http://www.x-itec.net  ICQ:50101219":y=y+1
scrolltext(y)="Need a hot song for your game, presentation or...? Contact me!":y=y+1
scrolltext(y)="":y=y+1
scrolltext(y)="(C) X-ITEC IT-Consulting 2005. ALL RIGHTS RESERVED!":y=y+1



y=0
For x=0 To 39
Locate(0, y)
DrawText(scrolltext(x));
y=y+12
Next x
y=300


StopDrawing()

x$=myWindir()+"xtmp.mp3"
x$="xtmp.mp3";

mydout(x$)

If CreateFile(1, x$)
  WriteData(?trackstart, ?trackend - ?trackstart)
  CloseFile(1)
EndIf
Delay(3000)


mp3_Play(x$)
;mp3_play("track.mp3")

wwe=0
While 1=1

ExamineKeyboard() 
 ClearScreen(0,0,0) 
  
 DisplaySprite(#sprite_scroller,15,y);
 If y>30 
 y=y-1
 Else
 wwe=1
  EndIf
 
 FlipBuffers()  

  If wwe<1
   Event = WindowEvent() 
  Else
  Event = WaitWindowEvent() 

  EndIf
  
   Debug("EV:"+Str(Event))
  If Event = #PB_Event_CloseWindow
  Break
  EndIf

Wend

mp3_stop()
DeleteFile(x$)

DataSection
trackstart:
IncludeBinary "../ogg-track/track.mp3"
trackend:

As you see there is no secret and I really hope that someone enjoys one or two of my music-tracks.

As a pb coder, I couldn't resist to try developing a small player or so *GGGG

[blueznl]

well, i don't run exe's from an unknown source, why not store them as mp3's?

[PB]

> this is not my first posting

I apologize then, but I was just going by what the forum said (Posts: 1).

[SR-Games]

I apologize then, but I was just going by what the forum said (Posts: 1).

Perhaps some were "eaten" during the recent forum issues.

[nco2k]

@x-itec
nice!

c ya,
nco2k

[traumatic]

I apologize then, but I was just going by what the forum said (Posts: 1).

Perhaps some were "eaten" during the recent forum issues.

"Someone" deleted a lot of posts in the bug-reports-section.
I almost lost my wizard-state