Miscellaneous
0
Views
0
Downloads
0
Favorites
100 prisoners game
ÿþ/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
| 1 0 0 p r i s o n e r s g a m e . m q 5 |
O n e h u n d r e d p r i s o n e r s g a m e
| © 2 0 2 2 , A l e x e y V i k t o r o v |
| h t t p s : / / w w w . m q l 5 . c o m / r u / u s e r s / a l e x e y v i k / n e w s |
\ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
# p r o p e r t y c o p y r i g h t " © 2 0 2 2 , A l e x e y V i k t o r o v "
# p r o p e r t y l i n k " h t t p s : / / w w w . m q l 5 . c o m / r u / u s e r s / a l e x e y v i k / n e w s "
# p r o p e r t y v e r s i o n " 1 . 0 0 "
# d e f i n e z z " * * * * * "
s i n p u t c o l o r b u t C o l o r = c l r L i g h t G r a y ; / / &25B :=>?>:
s i n p u t c o l o r t e x t C o l o r = c l r D a r k S l a t e G r a y ; / / &25B B5:AB0 =0 :=>?:0E
/ / s i n p u t s t r i n g T p l N a m e = " " ; / / <O H01;>=0
i n t Z K [ 1 0 0 ] ;
i n t b o x [ 1 0 0 ] ;
l o n g z k = 0 ;
b o o l n z k = t r u e ,
n e w G a m e = t r u e ;
s t r i n g t p l N a m e ;
l o n g c h a r t I D ;
/ * * * * * * * * * * * * * * * * * * * E x p e r t i n i t i a l i z a t i o n f u n c t i o n * * * * * * * * * * * * * * * * * * * /
i n t O n I n i t ( )
{
c h a r t I D = C h a r t I D ( ) ;
/ / - - -
/ / C h a r t S a v e T e m p l a t e ( c h a r t I D , " g a m e " ) ;
t p l N a m e = " G a m e _ 1 0 0 . t p l " ; / / T p l N a m e ! = " " ? T p l N a m e : " d e f a u l t " ;
u s h o r t B y t e s [ ] ;
s t r i n g c h N a m e , n e w N a m e ;
i f ( C h a r t S a v e T e m p l a t e ( c h a r t I D , " \ \ F i l e s \ \ " + t p l N a m e ) & & F i l e L o a d ( t p l N a m e , B y t e s ) )
c h N a m e = S h o r t A r r a y T o S t r i n g ( B y t e s ) ;
i n t p o z N u m b = S t r i n g F i n d ( c h N a m e , " < e x p e r t > " ) ;
i n t p o z E n d = S t r i n g F i n d ( c h N a m e , " < / e x p e r t > " , p o z N u m b + 8 ) ;
A r r a y R e m o v e ( B y t e s , p o z N u m b , p o z E n d - p o z N u m b + 9 ) ;
n e w N a m e = S h o r t A r r a y T o S t r i n g ( B y t e s ) ;
s t r i n g n e w P a t s h = S t r i n g S u b s t r ( c h N a m e , p o z N u m b ) ;
F i l e S a v e ( t p l N a m e , B y t e s ) ;
/ / - - -
C h a r t S e t I n t e g e r ( c h a r t I D , C H A R T _ M O D E , C H A R T _ L I N E ) ;
C h a r t S e t I n t e g e r ( c h a r t I D , C H A R T _ C O L O R _ C H A R T _ L I N E , c l r N O N E ) ;
C h a r t S e t I n t e g e r ( c h a r t I D , C H A R T _ S H O W _ B I D _ L I N E , f a l s e ) ;
C h a r t S e t I n t e g e r ( c h a r t I D , C H A R T _ S H O W _ A S K _ L I N E , f a l s e ) ;
C h a r t S e t I n t e g e r ( c h a r t I D , C H A R T _ S H O W _ L A S T _ L I N E , f a l s e ) ;
C h a r t S e t I n t e g e r ( c h a r t I D , C H A R T _ S H O W _ P E R I O D _ S E P , f a l s e ) ;
l o n g w i n d T o t a l = C h a r t G e t I n t e g e r ( c h a r t I D , C H A R T _ W I N D O W S _ T O T A L , 0 ) ;
f o r ( i n t i = ( i n t ) w i n d T o t a l ; i - - > 0 ; )
{
i n t i n d T o t a l = C h a r t I n d i c a t o r s T o t a l ( c h a r t I D , i ) ;
f o r ( i n t j = i n d T o t a l ; j - - > 0 ; )
{
s t r i n g i n d N a m e = C h a r t I n d i c a t o r N a m e ( c h a r t I D , i , j ) ;
i f ( ! C h a r t I n d i c a t o r D e l e t e ( c h a r t I D , i , i n d N a m e ) )
P r i n t ( z z , G e t L a s t E r r o r ( ) , z z , i n d N a m e , z z , " E@5= B515" ) ;
}
}
N e w G a m e ( ) ;
b u t t o n C r e a t e ( " N e w " , 1 0 5 , 3 0 , 3 5 5 , 3 5 ) ;
b u t t o n C r e a t e ( " N e w G a m e " , 1 0 5 , 3 0 , 5 2 0 , 3 5 ) ;
b u t t o n C r e a t e ( " E n d G a m e " , 1 0 5 , 3 0 , 6 8 5 , 3 5 ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * * E x p e r t t i c k f u n c t i o n * * * * * * * * * * * * * * * * * * * * * * * * /
v o i d O n T i c k ( )
{
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * O n C h a r t E v e n t f u n c t i o n * * * * * * * * * * * * * * * * * * * * * * * * /
v o i d O n C h a r t E v e n t ( c o n s t i n t i d , / / 845=B8D8:0B>@ A>1KB8O
c o n s t l o n g & l p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 l o n g
c o n s t d o u b l e & d p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 d o u b l e
c o n s t s t r i n g & s p a r a m / / ?0@0<5B@ A>1KB8O B8?0 s t r i n g
)
{
s t a t i c i n t c n t = 0 ;
i f ( i d = = C H A R T E V E N T _ O B J E C T _ C L I C K )
{
i f ( s p a r a m = = " E n d G a m e " )
C h a r t A p p l y T e m p l a t e ( c h a r t I D , " \ \ F i l e s \ \ " + t p l N a m e ) ;
i f ( s p a r a m = = " N e w G a m e " )
{
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E , f a l s e ) ;
N e w G a m e ( ) ;
n e w G a m e = t r u e ;
n z k = t r u e ;
c n t = 0 ;
}
i f ( s p a r a m = = " N e w " )
{
i f ( ! n e w G a m e )
{
M e s s a g e B o x ( " 0G=8B5 =>2CN 83@C" ) ;
r e t u r n ;
}
n z k = t r u e ;
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E , f a l s e ) ;
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( c h a r t I D ) ; i + + )
{
s t r i n g b u t N a m e = O b j e c t N a m e ( c h a r t I D , i ) ;
i f ( S t r i n g S u b s t r ( b u t N a m e , 0 , 2 ) = = " b " )
{
O b j e c t S e t I n t e g e r ( c h a r t I D , b u t N a m e , O B J P R O P _ B G C O L O R , b u t C o l o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , b u t N a m e , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t S t r i n g ( c h a r t I D , b u t N a m e , O B J P R O P _ T E X T , b u t N a m e ) ;
}
}
}
i f ( S t r i n g F i n d ( s p a r a m , " " ) = = 0 )
{
i f ( ! n z k )
{
c o l o r b g c = ( c o l o r ) O b j e c t G e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ B G C O L O R ) ;
i f ( b g c = = c l r K h a k i | | b g c = = c l r M e d i u m T u r q u o i s e )
{
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E , t r u e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ B G C O L O R , b g c ) ;
C h a r t R e d r a w ( ) ;
r e t u r n ;
}
i f ( O b j e c t G e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E ) )
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E , f a l s e ) ;
C h a r t R e d r a w ( ) ;
r e t u r n ;
}
z k = S t r i n g T o I n t e g e r ( S t r i n g S u b s t r ( s p a r a m , 3 ) ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ B G C O L O R , c l r K h a k i ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E , t r u e ) ;
C h a r t R e d r a w ( ) ;
n z k = f a l s e ;
}
i f ( S t r i n g F i n d ( s p a r a m , " b " ) = = 0 )
{
i f ( ! n e w G a m e )
{
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E , f a l s e ) ;
r e t u r n ;
}
c n t + + ;
l o n g n u m b = S t r i n g T o I n t e g e r ( S t r i n g S u b s t r ( s p a r a m , 2 ) ) ;
O b j e c t S e t S t r i n g ( c h a r t I D , s p a r a m , O B J P R O P _ T E X T , ( s t r i n g ) b o x [ n u m b - 1 ] ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ S T A T E , t r u e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , s p a r a m , O B J P R O P _ B G C O L O R , c l r K h a k i ) ;
C o m m e n t ( " >?KB:0 =><5@ " , c n t ) ;
i f ( z k = = b o x [ n u m b - 1 ] )
{
/ / P r i n t ( z z , z k , " = " , b o x [ n u m b - 1 ] , " A53> ?>?KB>: " , c n t ) ;
A l e r t ( z z , z k , " = " , b o x [ n u m b - 1 ] , " A53> ?>?KB>: " , c n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , " " + ( s t r i n g ) z k , O B J P R O P _ B G C O L O R , c l r M e d i u m T u r q u o i s e ) ;
c n t = 0 ;
}
i f ( c n t = = 5 0 )
{
i n t i n d e x = 0 ;
w h i l e ( b o x [ i n d e x ] ! = z k & & ! I s S t o p p e d ( ) )
{
i n d e x + + ;
}
O b j e c t S e t S t r i n g ( c h a r t I D , " b " + ( s t r i n g ) i n d e x , O B J P R O P _ T E X T , ( s t r i n g ) b o x [ i n d e x ] ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , " b " + ( s t r i n g ) i n d e x , O B J P R O P _ B G C O L O R , c l r M e d i u m O r c h i d ) ;
C h a r t R e d r a w ( ) ;
M e s s a g e B o x ( " 025B=K9 =><5@ 2 :>@>1:5 ! " + ( s t r i n g ) i n d e x , " 07=8BL, =5;L7O ?><8;>20BL" ) ;
P r i n t ( z z , i n d e x , z z , b o x [ i n d e x ] ) ;
n e w G a m e = f a l s e ;
n z k = f a l s e ;
}
}
}
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * E x p e r t d e i n i t i a l i z a t i o n f u n c t i o n * * * * * * * * * * * * * * * * * * /
v o i d O n D e i n i t ( c o n s t i n t r e a s o n )
{
C h a r t A p p l y T e m p l a t e ( c h a r t I D , " \ \ F i l e s \ \ " + t p l N a m e ) ;
C o m m e n t ( " " ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * b u t t o n C r e a t e * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
v o i d b u t t o n C r e a t e ( s t r i n g n a m e , i n t w , i n t h , i n t x , i n t y )
{
i f ( O b j e c t F i n d ( c h a r t I D , n a m e ) < 0 )
{
i f ( O b j e c t C r e a t e ( c h a r t I D , n a m e , O B J _ B U T T O N , 0 , 0 , 0 ) )
{
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ X S I Z E , w ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ Y S I Z E , h ) ;
O b j e c t S e t S t r i n g ( c h a r t I D , n a m e , O B J P R O P _ T E X T , n a m e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ B G C O L O R , b u t C o l o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ C O L O R , t e x t C o l o r ) ;
}
}
e l s e
{
O b j e c t S e t S t r i n g ( c h a r t I D , n a m e , O B J P R O P _ T E X T , n a m e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ B G C O L O R , b u t C o l o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ S T A T E , f a l s e ) ;
}
C h a r t R e d r a w ( ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * N e w G a m e * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
v o i d N e w G a m e ( )
{
i n t t e m p B o x [ 1 0 0 ] ;
i n t y = 2 5 , x = 1 0 ;
A r r a y I n i t i a l i z e ( b o x , 0 ) ;
A r r a y I n i t i a l i z e ( t e m p B o x , 0 ) ;
s r a n d ( ( i n t ) G e t M i c r o s e c o n d C o u n t ( ) ) ;
f o r ( i n t i = 0 ; i < 1 0 0 ; i + + )
{
i n t v a l u e = r a n d ( ) % 1 0 0 + 1 ;
A r r a y S o r t ( t e m p B o x ) ;
i n t i n d e x = A r r a y B s e a r c h ( t e m p B o x , v a l u e ) ;
i f ( t e m p B o x [ i n d e x ] = = v a l u e )
i - - ;
e l s e
{
t e m p B o x [ 0 ] = v a l u e ;
b o x [ i ] = v a l u e ;
x = 1 0 + ( 5 0 * ( i / 2 5 ) ) ;
y = i % 2 5 = = 0 ? 2 5 : y + 2 0 ;
b u t t o n C r e a t e ( " " + s t r i n g ( i + 1 ) , 5 0 , 2 0 , x , y ) ;
}
}
f o r ( i n t i = 0 ; i < 1 0 0 ; i + + )
{
/ / x = 3 0 0 + ( 5 5 * ( i / 1 0 ) ) ;
/ / y = i % 1 0 = = 0 ? 8 0 : y + 5 5 ;
y = 8 0 + ( 5 5 * ( i / 1 0 ) ) ;
x = i % 1 0 = = 0 ? 3 0 0 : x + 5 5 ;
b u t t o n C r e a t e ( " b " + s t r i n g ( i + 1 ) , 5 0 , 5 0 , x , y ) ;
}
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
Comments