274 lines
22 KiB
Plaintext
274 lines
22 KiB
Plaintext
|
<EFBFBD><EFBFBD>{ {
|
|||
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|||
|
|
% A u t o r : I n g o K r i p a h l e %
|
|||
|
|
% C o p y r i g h t ( c ) 2 0 1 0 I n g o K r i p a h l e %
|
|||
|
|
% S e e e n d o f f i l e f o r t e r m s o f u s e . %
|
|||
|
|
% D i e N u t z u n g s b e d i n g u n g e n b e f i n d e n s i c h a m E n d e d e r D a t e i %
|
|||
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|||
|
|
|
|||
|
|
I n f o r m a t i o n e n : h i v e - p r o j e c t . d e
|
|||
|
|
K o n t a k t : d r o h n e 2 3 5 @ g o o g l e m a i l . c o m
|
|||
|
|
S y s t e m : T r i O S
|
|||
|
|
N a m e : w p l a y
|
|||
|
|
C h i p : R e g n a t i x
|
|||
|
|
T y p : P r o g r a m m
|
|||
|
|
V e r s i o n :
|
|||
|
|
S u b v e r s i o n :
|
|||
|
|
F u n k t i o n : w a v - p l a y e r f <00> r k o m m a n d o z e i l e
|
|||
|
|
K o m p o n e n t e n : -
|
|||
|
|
C O G ' s : -
|
|||
|
|
L o g b u c h :
|
|||
|
|
|
|||
|
|
1 6 - 0 4 - 2 0 1 0 - d r 2 3 5 - e r s t e t r i o s - v e r s i o n
|
|||
|
|
2 1 - 0 4 - 2 0 1 0 - d r 2 3 5 - p a u s e n m o d u s & a n z e i g e w a v - p o s i t i o n
|
|||
|
|
2 9 - 0 4 - 2 0 1 0 - d r 2 3 5 - / i e i n g e f <00> g t , d a o f f e n s i c h t l i c h e i n i g e k o n w e r t e r d e n l e n - p a r a m e t e r i m h e a d e r f a l s c h s e t z e n !
|
|||
|
|
|
|||
|
|
K o m m a n d o l i s t e :
|
|||
|
|
|
|||
|
|
/ ? : H i l f e t e x t
|
|||
|
|
/ p n a m e . w a v : W A V - D a t e i a b s p i e l e n
|
|||
|
|
/ d : V e r z e i c h n i s w i e d e r g e b e n
|
|||
|
|
: q - q u i t
|
|||
|
|
: n - n e x t
|
|||
|
|
: p - p a u s e
|
|||
|
|
/ l 0 . . 1 0 0 : L a u t s t <00> r k e l i n k s
|
|||
|
|
/ r 0 . . 1 0 0 : L a u t s t <00> r k e r e c h t s
|
|||
|
|
/ i n a m e . w a v : I n f o z u r D a t e i a n z e i g e n
|
|||
|
|
|
|||
|
|
|
|||
|
|
N o t i z e n :
|
|||
|
|
|
|||
|
|
} }
|
|||
|
|
|
|||
|
|
O B J
|
|||
|
|
i o s : " i o s "
|
|||
|
|
|
|||
|
|
C O N
|
|||
|
|
|
|||
|
|
_ C L K M O D E = X T A L 1 + P L L 1 6 X
|
|||
|
|
_ X I N F R E Q = 5 _ 0 0 0 _ 0 0 0
|
|||
|
|
|
|||
|
|
V A R
|
|||
|
|
|
|||
|
|
b y t e f l _ b y e ' f l a g p l a y e r b e e n d e n
|
|||
|
|
b y t e p a r a s t r [ 6 4 ] ' p a r a m e t e r s t r i n g
|
|||
|
|
b y t e f n [ 1 2 ] ' p u f f e r f <00> r d a t e i n a m e n
|
|||
|
|
l o n g d a t c n t ' z e i g e r f <00> r d a t e i l i s t e
|
|||
|
|
|
|||
|
|
|
|||
|
|
D A T ' P A R A M E T E R
|
|||
|
|
|
|||
|
|
P U B m a i n
|
|||
|
|
|
|||
|
|
i o s . s t a r t ' i o s i n i t i a l i s i e r e n
|
|||
|
|
i o s . p a r a s t a r t ' p a r a m e t e r <00> b e r g a b e s t a r t e n
|
|||
|
|
i o s . a d m s e t s o u n d ( i o s # S N D _ H S S O F F ) ' h s s a u s s c h a l t e n
|
|||
|
|
i o s . a d m s e t s o u n d ( i o s # S N D _ W A V O N ) ' w a v e i n s c h a l t e n
|
|||
|
|
r e p e a t w h i l e i o s . p a r a n e x t ( @ p a r a s t r ) ' p a r a m e t e r e i n l e s e n
|
|||
|
|
i f b y t e [ @ p a r a s t r ] [ 0 ] = = " / " ' o p t i o n ?
|
|||
|
|
c a s e b y t e [ @ p a r a s t r ] [ 1 ]
|
|||
|
|
" ? " : i o s . p r i n t ( @ h e l p 1 ) ' / ?
|
|||
|
|
" p " : p l a y _ w a v ' / p
|
|||
|
|
" d " : p l a y _ d i r ' / r
|
|||
|
|
" l " : s e t _ l v o l ' / l
|
|||
|
|
" r " : s e t _ r v o l ' / r
|
|||
|
|
" i " : p r i n t _ i n f o
|
|||
|
|
i o s . a d m s e t s o u n d ( i o s # S N D _ W A V O F F ) ' w a v a u s s c h a l t e n
|
|||
|
|
i o s . a d m s e t s o u n d ( i o s # S N D _ H S S O N ) ' h s s a n s c h a l t e n
|
|||
|
|
i o s . s t o p
|
|||
|
|
|
|||
|
|
D A T ' V O L U M E
|
|||
|
|
|
|||
|
|
P U B s e t _ l v o l
|
|||
|
|
|
|||
|
|
i f i o s . p a r a n e x t ( @ p a r a s t r ) ' p a r a m e t e r ?
|
|||
|
|
i o s . w a v _ l v o l ( s t r 2 d e c ( @ p a r a s t r ) )
|
|||
|
|
e l s e ' k e i n p a r a m e t e r : f e h l e r m e l d u n g
|
|||
|
|
p r i n t E r r ( @ e r r 1 )
|
|||
|
|
|
|||
|
|
P U B s e t _ r v o l
|
|||
|
|
|
|||
|
|
i f i o s . p a r a n e x t ( @ p a r a s t r ) ' p a r a m e t e r ?
|
|||
|
|
i o s . w a v _ r v o l ( s t r 2 d e c ( @ p a r a s t r ) )
|
|||
|
|
e l s e ' k e i n p a r a m e t e r : f e h l e r m e l d u n g
|
|||
|
|
p r i n t E r r ( @ e r r 1 )
|
|||
|
|
|
|||
|
|
P U B p r i n t _ i n f o | e r r
|
|||
|
|
|
|||
|
|
i f i o s . p a r a n e x t ( @ p a r a s t r ) ' p a r a m e t e r ?
|
|||
|
|
i f e r r : = i o s . s d o p e n ( " R " , @ p a r a s t r ) ' f e h l e r b e i s t a r t d e s p l a y e r s ?
|
|||
|
|
i o s . p r i n t ( @ e r r 0 ) ' f e h l e r n u m m e r a u s g e b e n
|
|||
|
|
i o s . p r i n t d e c ( e r r )
|
|||
|
|
e l s e
|
|||
|
|
i o s . s d s e e k ( 2 2 )
|
|||
|
|
i o s . p r i n t ( s t r i n g ( 1 3 , " A n z a h l d e r K a n <00> l e : " ) )
|
|||
|
|
i o s . p r i n t d e c ( i o s . s d g e t c | ( i o s . s d g e t c < < 8 ) )
|
|||
|
|
i o s . s d s e e k ( 3 4 )
|
|||
|
|
i o s . p r i n t ( s t r i n g ( 1 3 , " B i t s p e r S a m p l e : " ) )
|
|||
|
|
i o s . p r i n t d e c ( i o s . s d g e t c | ( i o s . s d g e t c < < 8 ) )
|
|||
|
|
i o s . s d s e e k ( 4 0 )
|
|||
|
|
i o s . p r i n t ( s t r i n g ( 1 3 , " L <00> n g e : " ) )
|
|||
|
|
i o s . p r i n t d e c ( i o s . s d g e t c | ( i o s . s d g e t c < < 8 ) | ( i o s . s d g e t c < < 1 6 ) | ( i o s . s d g e t c < < 2 4 ) )
|
|||
|
|
i o s . p r i n t n l
|
|||
|
|
i o s . s d c l o s e
|
|||
|
|
|
|||
|
|
e l s e ' k e i n p a r a m e t e r : f e h l e r m e l d u n g
|
|||
|
|
p r i n t E r r ( @ e r r 1 )
|
|||
|
|
|
|||
|
|
|
|||
|
|
D A T ' P L A Y _ D I R
|
|||
|
|
|
|||
|
|
P U B p l a y _ d i r | s t r a d r , l e n , f c n t , i ' h s s : a l l e s o n g s a u f d e r s d - c a r d a b s p i e l e n
|
|||
|
|
|
|||
|
|
i o s . s d d i r ' k o m m a n d o : v e r z e i c h n i s <00> f f n e n
|
|||
|
|
d a t c n t : = 0 ' z u m l i s t e n a n f a n g
|
|||
|
|
f c n t : = 0 ' z <00> h l e r f <00> r d a t e i a n z a h l
|
|||
|
|
f l _ b y e : = 0
|
|||
|
|
r e p e a t w h i l e ( s t r a d r : = i o s . s d n e x t ) ' d a t e i l i s t e e i n l e s e n
|
|||
|
|
i f s t r _ f i n d ( s t r a d r , @ e x t 1 )
|
|||
|
|
f c n t + +
|
|||
|
|
p l a y _ d i r _ w r l s t ( s t r a d r )
|
|||
|
|
i o s . p r i n t ( s t r i n g ( " A n z a h l D a t e i e n : " ) )
|
|||
|
|
i o s . p r i n t d e c ( f c n t )
|
|||
|
|
i o s . p r i n t n l
|
|||
|
|
d a t c n t : = 0 ' z u m l i s t e n a n f a n g
|
|||
|
|
r e p e a t i f r o m 0 t o f c n t - 1 ' d a t e i l i s t e a b s p i e l e n
|
|||
|
|
i o s . p r i n t d e c ( i + 1 )
|
|||
|
|
i o s . p r i n t c h a r ( " / " )
|
|||
|
|
i o s . p r i n t d e c ( f c n t )
|
|||
|
|
i o s . p r i n t t a b
|
|||
|
|
p l a y _ d i r _ r d l s t ( @ f n )
|
|||
|
|
p l a y _ d i r _ f i l e ( @ f n )
|
|||
|
|
i f f l _ b y e ' p l a y e r b e e n d e n
|
|||
|
|
q u i t
|
|||
|
|
i o s . p r i n t n l
|
|||
|
|
|
|||
|
|
P R I p l a y _ d i r _ f i l e ( s t r a d r ) | e r r
|
|||
|
|
|
|||
|
|
i o s . p r i n t ( s t r a d r )
|
|||
|
|
i o s . p r i n t c h a r ( " " )
|
|||
|
|
i f e r r : = i o s . w a v _ p l a y ( s t r a d r ) ' f e h l e r b e i s t a r t d e s p l a y e r s ?
|
|||
|
|
i o s . p r i n t ( @ e r r 0 ) ' f e h l e r n u m m e r a u s g e b e n
|
|||
|
|
i o s . p r i n t d e c ( e r r )
|
|||
|
|
e l s e
|
|||
|
|
p l a y _ w a v _ s t a t u s ' w a r t e n , s o l a n g e w a v g e s p i e l t w i r d ( s d b e l e g t )
|
|||
|
|
i o s . p r i n t n l
|
|||
|
|
|
|||
|
|
P U B p l a y _ d i r _ w r l s t ( s t r a d r ) | l e n , i ' k o p i e r t d a t e i n a m e n i n l i s t e
|
|||
|
|
l e n : = s t r s i z e ( s t r a d r )
|
|||
|
|
r e p e a t i f r o m 0 t o l e n - 1
|
|||
|
|
i o s . r a m _ w r b y t e ( i o s # u s r m o d , b y t e [ s t r a d r ] [ i ] , d a t c n t + + )
|
|||
|
|
i o s . r a m _ w r b y t e ( i o s # u s r m o d , 0 , d a t c n t + + )
|
|||
|
|
|
|||
|
|
P U B p l a y _ d i r _ r d l s t ( s t r a d r ) | i , n ' l i e s t d a t e i n a m e n a u s l i s t
|
|||
|
|
i : = 0
|
|||
|
|
r e p e a t
|
|||
|
|
n : = i o s . r a m _ r d b y t e ( i o s # u s r m o d , d a t c n t + + )
|
|||
|
|
b y t e [ s t r a d r ] [ i + + ] : = n
|
|||
|
|
w h i l e n < > 0
|
|||
|
|
|
|||
|
|
D A T ' P L A Y _ W A V
|
|||
|
|
|
|||
|
|
P R I p l a y _ w a v | e r r ' w a v a b s p i e l e n
|
|||
|
|
|
|||
|
|
i f i o s . p a r a n e x t ( @ p a r a s t r ) ' p a r a m e t e r ?
|
|||
|
|
i f e r r : = i o s . w a v _ p l a y ( @ p a r a s t r ) ' f e h l e r b e i s t a r t d e s p l a y e r s ?
|
|||
|
|
i o s . p r i n t ( @ e r r 0 ) ' f e h l e r n u m m e r a u s g e b e n
|
|||
|
|
i o s . p r i n t d e c ( e r r )
|
|||
|
|
e l s e
|
|||
|
|
p l a y _ w a v _ s t a t u s ' w a r t e n , s o l a n g e w a v g e s p i e l t w i r d ( s d b e l e g t )
|
|||
|
|
e l s e ' k e i n p a r a m e t e r : f e h l e r m e l d u n g
|
|||
|
|
p r i n t E r r ( @ e r r 1 )
|
|||
|
|
|
|||
|
|
P U B p l a y _ w a v _ s t a t u s | s t a t u s , c u r p o s , k e y , l , p ' w a r t e n b i s p l a y e r f e r t i g , o d e r a b b r u c h
|
|||
|
|
|
|||
|
|
i o s . p r i n t ( s t r i n g ( " S t a t u s < q / n / p > : " ) )
|
|||
|
|
i o s . c u r o f f
|
|||
|
|
c u r p o s : = i o s . c u r g e t x
|
|||
|
|
r e p e a t
|
|||
|
|
s t a t u s : = i o s . w a v _ s t a t u s
|
|||
|
|
i o s . c u r s e t x ( c u r p o s )
|
|||
|
|
i o s . p r i n t d e c ( i o s . w a v _ l e n )
|
|||
|
|
i o s . p r i n t c h a r ( " / " )
|
|||
|
|
i o s . p r i n t d e c ( i o s . w a v _ p o s )
|
|||
|
|
i f k e y : = i o s . k e y ' b e i t a s t e s t o p s i g n a l a n p l a y e r s e n d e n
|
|||
|
|
c a s e k e y
|
|||
|
|
" n " : i o s . w a v _ s t o p ' n e x t w a v
|
|||
|
|
" p " : i o s . w a v _ p a u s e ' p a u s e
|
|||
|
|
" q " : f l _ b y e : = 1
|
|||
|
|
i o s . w a v _ s t o p
|
|||
|
|
w h i l e s t a t u s ' s c h l e i f e s o l a n g e p l a y e r a k t i v
|
|||
|
|
i o s . c u r o n
|
|||
|
|
|
|||
|
|
D A T ' T O O L S
|
|||
|
|
|
|||
|
|
P R I p r i n t E r r ( s t r a d r )
|
|||
|
|
|
|||
|
|
i o s . p r i n t ( @ e r r 0 )
|
|||
|
|
i o s . p r i n t ( s t r a d r )
|
|||
|
|
i o s . p r i n t ( @ h e l p 1 )
|
|||
|
|
|
|||
|
|
P U B s t r _ f i n d ( s t r i n g 1 , s t r i n g 2 ) : b u f f e r | c o u n t e r ' s y s : s t r i n g s u c h e n
|
|||
|
|
|
|||
|
|
' ' % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|||
|
|
' ' % S e a r c h e s a s t r i n g o f c h a r a c t e r s f o r t h e f i r s t o c c u r e n c e o f t h e s p e c i f i e d s t r i n g o f c h a r a c t e r s . %
|
|||
|
|
' ' % %
|
|||
|
|
' ' % R e t u r n s t h e a d d r e s s o f t h a t s t r i n g o f c h a r a c t e r s i f f o u n d a n d z e r o i f n o t f o u n d . %
|
|||
|
|
' ' % %
|
|||
|
|
' ' % s t r i n g 1 - A p o i n t e r t o t h e s t r i n g o f c h a r a c t e r s t o s e a r c h . %
|
|||
|
|
' ' % s t r i n g 2 - A p o i n t e r t o t h e s t r i n g o f c h a r a c t e r s t o f i n d i n t h e s t r i n g o f c h a r a c t e r s t o s e a r c h . %
|
|||
|
|
' ' % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|||
|
|
|
|||
|
|
r e p e a t s t r s i z e ( s t r i n g 1 - - )
|
|||
|
|
|
|||
|
|
i f ( b y t e [ + + s t r i n g 1 ] = = b y t e [ s t r i n g 2 ] )
|
|||
|
|
|
|||
|
|
r e p e a t c o u n t e r f r o m 0 t o ( s t r s i z e ( s t r i n g 2 ) - 1 )
|
|||
|
|
|
|||
|
|
i f ( b y t e [ s t r i n g 1 ] [ c o u n t e r ] < > b y t e [ s t r i n g 2 ] [ c o u n t e r ] )
|
|||
|
|
b u f f e r ~ ~
|
|||
|
|
|
|||
|
|
i f n o t ( b u f f e r ~ )
|
|||
|
|
r e t u r n s t r i n g 1
|
|||
|
|
|
|||
|
|
P U B s t r 2 d e c ( s t r a d r ) | b u f f e r , c o u n t e r
|
|||
|
|
|
|||
|
|
b u f f e r : = b y t e [ s t r a d r ]
|
|||
|
|
c o u n t e r : = ( s t r s i z e ( s t r a d r ) < # 1 1 )
|
|||
|
|
r e p e a t w h i l e ( c o u n t e r - - )
|
|||
|
|
r e s u l t * = 1 0
|
|||
|
|
r e s u l t + = l o o k d o w n z ( b y t e [ s t r a d r + + ] : " 0 " . . " 9 " )
|
|||
|
|
i f ( b u f f e r = = " - " )
|
|||
|
|
- r e s u l t
|
|||
|
|
|
|||
|
|
D A T
|
|||
|
|
|
|||
|
|
e x t 1 b y t e " . W A V " , 0
|
|||
|
|
|
|||
|
|
e r r 0 b y t e 1 3 , " F e h l e r : " , 0
|
|||
|
|
e r r 1 b y t e " Z u w e n i g P a r a m e t e r ! " , 1 3 , 0
|
|||
|
|
|
|||
|
|
h e l p 1 f i l e " w p l a y . t x t "
|
|||
|
|
b y t e 1 3 , 0
|
|||
|
|
|
|||
|
|
D A T
|
|||
|
|
|
|||
|
|
{ {
|
|||
|
|
|
|||
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|||
|
|
% T E R M S O F U S E : M I T L i c e n s e %
|
|||
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %$%
|
|||
|
|
%P e r m i s s i o n i s h e r e b y g r a n t e d , f r e e o f c h a r g e , t o a n y p e r s o n o b t a i n i n g a c o p y o f t h i s s o f t w a r e a n d a s s o c i a t e d d o c u m e n t a t i o n %
|
|||
|
|
%f i l e s ( t h e " S o f t w a r e " ) , t o d e a l i n t h e S o f t w a r e w i t h o u t r e s t r i c t i o n , i n c l u d i n g w i t h o u t l i m i t a t i o n t h e r i g h t s t o u s e , c o p y , %
|
|||
|
|
%m o d i f y , m e r g e , p u b l i s h , d i s t r i b u t e , s u b l i c e n s e , a n d / o r s e l l c o p i e s o f t h e S o f t w a r e , a n d t o p e r m i t p e r s o n s t o w h o m t h e S o f t w a r e %
|
|||
|
|
%i s f u r n i s h e d t o d o s o , s u b j e c t t o t h e f o l l o w i n g c o n d i t i o n s : %
|
|||
|
|
% %
|
|||
|
|
%T h e a b o v e c o p y r i g h t n o t i c e a n d t h i s p e r m i s s i o n n o t i c e s h a l l b e i n c l u d e d i n a l l c o p i e s o r s u b s t a n t i a l p o r t i o n s o f t h e S o f t w a r e . %
|
|||
|
|
% %
|
|||
|
|
%T H E S O F T W A R E I S P R O V I D E D " A S I S " , W I T H O U T W A R R A N T Y O F A N Y K I N D , E X P R E S S O R I M P L I E D , I N C L U D I N G B U T N O T L I M I T E D T O T H E %
|
|||
|
|
%W A R R A N T I E S O F M E R C H A N T A B I L I T Y , F I T N E S S F O R A P A R T I C U L A R P U R P O S E A N D N O N I N F R I N G E M E N T . I N N O E V E N T S H A L L T H E A U T H O R S O R %
|
|||
|
|
%C O P Y R I G H T H O L D E R S B E L I A B L E F O R A N Y C L A I M , D A M A G E S O R O T H E R L I A B I L I T Y , W H E T H E R I N A N A C T I O N O F C O N T R A C T , T O R T O R O T H E R W I S E , %
|
|||
|
|
%A R I S I N G F R O M , O U T O F O R I N C O N N E C T I O N W I T H T H E S O F T W A R E O R T H E U S E O R O T H E R D E A L I N G S I N T H E S O F T W A R E . %
|
|||
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|||
|
|
} }
|
|||
|
|
|