Seite 2 von 2

Verfasst: 10.02.2005 14:13
von traumatic
nicolaus hat geschrieben: Sehe ich auch so und ich finds auch schade das du den link zur lib gleich noch gelöscht hast (zum glück habe ich sie). wenn traumatic seine nich veröffentlicht heist das nich das du deinen nich veröffentlichen mußt und auch andere haben bei der erstellung ner lib hilfe bekommen.
Ich habe auch weder gesagt, er solle sein Posting löschen, noch habe ich
irgendwo erwähnt, dass er die Lib nicht veröffentlichen soll.
Meinetwegen kann jeder veröffentlichen was immer er für richtig hält.

Bitte nicht interpretieren - lesen.

Verfasst: 10.02.2005 14:24
von WolfgangS
Ich ändere etwas und dann mache ich wieder einen Link :freak:

Verfasst: 10.02.2005 16:07
von WolfgangS
Hallo
Ich habe mit Hilfe von besonders traumatic und auch _Paul_ und Rings die libv2 (http://www.1337haxorz.de/products.html) von kb/farbrausch (http://www.farb-rausch.de) in eine Purebasic userlib gewrappt und ein kleines Paket mit Hilfe-file usw. daraus geschnürt.

http://www.schliess.net/stuff/Libv2Purebasic.zip

Viel Spass :|
WolfgangS

Verfasst: 10.02.2005 18:56
von traumatic
Coole Library! ;)

Mit Mew komprimiert kommt man inklusive Musikdaten auf eine EXE-Größe von ~ 15kb


Hier mal der (adaptierte) Original-Beispiel-Source:

Code: Alles auswählen

ssInit(?theTune, GetForegroundWindow_())

OpenConsole()
PrintN("Farbrausch Tiny Music Player v0.2")
PrintN("Code and Synthesizer (C) 2000-2004 kb/Farbrausch");
PrintN("Now Playing: 'Experimental Trance' by DaFunk");

ssPlay()

Dim anim.b(3) : anim() = @"|/-\"

Repeat
  ConsoleLocate(0,4)
  Print(FormatDate("%ii:%ss", ssGetTime()*0.001) + " " +Chr(anim(Int(ssGetTime()/250.0)&3)))
  
  Sleep_(10)
Until GetAsyncKeyState_(#VK_ESCAPE)

ssClose()
CloseConsole()
End

DataSection
  theTune:
  IncludeBinary("Dafunk - Experimental Trance.v2m")
EndDataSection

Verfasst: 10.02.2005 20:44
von WolfgangS
Ich nehme immer http://upx.sourceforge.net/ zum exe packen ...

MFG
WolfgangS

Verfasst: 10.02.2005 21:44
von FloHimself
Nice! :allright:

So und nu noch etwas Grafik dazu: http://www.florian-s.com/download/PureB ... inyPTC.zip

Viel Spaß beim Demos schreiben! :mrgreen: