libv2 userlib

[traumatic]

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.

[WolfgangS]

Ich ändere etwas und dann mache ich wieder einen Link

[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

[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

[WolfgangS]

Ich nehme immer http://upx.sourceforge.net/ zum exe packen ...

MFG
WolfgangS

[FloHimself]

Nice!

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

Viel Spaß beim Demos schreiben!