PureBasic Forums - English

Code: Select all

;*******************************************************************************
;*
;* July-August 2014 PurePunch contest
;* PureBasic 5.22
;* 50 lines of 80 chars, 2 months delay
;*
;* Name     :   Mastermind
;* Author   :   cshw89
;* Date     :   14/07/14
;* Notes    :   You have ten attempts to crack the code. Duplicates are
;*              allowed. Click or drag the colors to the respective positions.
;*
;*******************************************************************************
Global Dim i(3):Macro m:Macro:EndMacro:OpenWindow(0,0,0,250,480,"Mastermind",;;;
#PB_Window_SystemMenu|#PB_Window_ScreenCentered):Global Dim r(3):CanvasGadget(0,
0,0,250,480):Global s.s="$A0A0A0$0000FF$00D000$FF0000$00D0D0$0070D0$D000D0",x,y,
l=-2,a=0:Macro p:Procedure:EndMacro:p c(n=0):If StartDrawing(CanvasOutput(0));;;
m u(w):Val(Mid(s,(w)*7+1,7)):EndMacro:Box(0,400*n,250,480-400*n,$D0D0D0);;;;;;;;
DrawingMode(1):For k=n*10 To 10:For i=0 To 3:Circle(i*40+20,k*40+20,15,u(i(i)));
Next:Next:Box(170,405,70,30,$A0A0A0):DrawText(205-TextWidth("OK")/2,412,"OK",0);
For i=0 To 5:Circle(i*30+15,460,10,u(i+1)):Next:If l>0:Circle(x,y,15,u(l)):EndIf
StopDrawing():EndIf:End#p:For i=0 To 3:r(i)=Random(5)+1:Next:p a(i):If i<0:i*-1;
EndIf:p#Return i:End#p:c():m g(t):GetGadgetAttribute(0,t):End#m:Repeat:e=0+;;;;;
WaitWindowEvent():If e=#PB_Event_Gadget:t=EventType():x=g(#PB_Canvas_MouseX);;;;
y=g(#PB_Canvas_MouseY):b=-1:If y>=400:If x<160 And y<440:b=x/40:ElseIf x<180 And
y>=440:b=x/30+4:EndIf:EndIf:Select t:Case #PB_EventType_MouseMove:If f=0 And;;;;
g(#PB_Canvas_Buttons)&#PB_Canvas_LeftButton:If l=-2 And(a(x-lx)>1 Or a(y-ly)>1);
If b=-1:l=-1:ElseIf b<4:l=i(b):i(b)=0:Else:l=b-3:EndIf:EndIf:EndIf:Case 0+;;;;;;
#PB_EventType_LeftButtonUp:If l>0 And b>=0 And b<4:i(b)=l:EndIf:If l=-2:If b>-1+
0 And f=0:If b<4:i(b)=0:Else:For k=0 To 3:If i(k)=0:i(k)=b-3:Break:EndIf:Next;;;
EndIf:Else:If x>=160 And y>=400 And y<440:If f:For k=0 To 3:r(k)=Random(5)+1;;;;
i(k)=0:Next:f=0:a=0:c():Else:h=1:For k=0 To 3:If i(k)=0:h=0:EndIf:Next:If h:r=0;
w=0:For i=0 To 3:If r(i)=i(i):i(i)*-1:r(i)*-1:r+1:EndIf:Next:For i=0 To 3:m q;;;
MessageRequester("Mastermind":EndMacro:For k=0 To 3:If i(k)>0 And r(i)=i(k) And;
i<>k:i(k)*-1:w+1:Break:EndIf:Next:Next:If StartDrawing(CanvasOutput(0)):For i=0+
0 To 3:i(i)=a(i(i)):r(i)=a(r(i)):Circle(i*40+20,a*40+20,15,u(i(i))):i(i)=0:Next;
i=170:For k=1 To r:Box(i,a*40+12,16,16,0):i+20:Next:For k=1 To w:Box(i,a*40+12,;
16,16,$FFFFFF):i+20:Next:StopDrawing():EndIf:a+1:If r=4:f=1:q,"You Win!");;;;;;;
ElseIf a=10:For i=0 To 3:i(i)=r(i):Next:c(1):q,"You Lose!"):f=1:EndIf:EndIf;;;;;
EndIf:EndIf:EndIf:EndIf:l=-2:Case #PB_EventType_LeftButtonDown:If f=0:lx=x:ly=y;
EndIf:EndSelect:If y<415:y=415:EndIf:c(1):EndIf:Until e=#PB_Event_CloseWindow;;;

Code: Select all

;*******************************************************************************
;*
;* July-August 2014 PurePunch contest
;* PureBasic 5.22
;* 50 lines of 80 chars, 2 months delay
;*
;* Name     : Superformula
;* Author   : NicTheQuick
;* Date     : 13.07.2014
;* Notes    : Only tested on PB 5.30 b7 on Linux x64!
;*            You can also resize the window.
;*            l defines the precision of the line and it must not less than 20.
;* Used Variables: abcdefghijklmnopqrstuvwxyz
;*                 ^^^^^^^^^^^^^^^^ ^M^^^^^^^
;*******************************************************************************
l=1000:w=600:h=600:Define.d a,b,c,d,e,j,k,n,o,p,r,t,x,y,z:OpenWindow(0,0,0,w,
h,"Superformula",#PB_Window_MaximizeGadget):CanvasGadget(0,0,0,w,h):Macro s(a)
Sin(t*a):EndMacro:Repeat:v=WaitWindowEvent(9):f=WindowWidth(0):g=WindowHeight(0)
t=ElapsedMilliseconds():If f!w|g!h:w=f:h=g:ResizeGadget(0,0,0,w,h):ElseIf t>u+20
StartDrawing(CanvasOutput(0)):u=t:t/5000:m=2+2*Int(t)%20:t/2:d=9+9*s(3):e=9*s(5+
0)+9:c=10+9*s(2):a=Abs(s(7)*0.6)+0.1:b=Abs(s(11)*0.6)+0.1:y=Cos(t*9):x=100*s(1)+
150:GrabDrawingImage(0,0,0,w,h):DrawingMode(#PB_2DDrawing_Gradient):j=w/2*(1+y)
DrawAlphaImage(ImageID(0),w*y/x,h*s(9)/x,150):k=h/2*(1+s(9)):LinearGradient(j,k,
w-j,h-k):BackColor(RGB(127*(1+s(7)),127*(1+s(11)),127*(1+s(13)))):FrontColor(0+
RGB(127*(1+s(2)),127*(1+s(3)),127*(1+s(5)))):For i=0 To l:r=i*2*#PI/l:p+s(1+
0)/30000:z=Pow(Pow(Abs(Cos(m*r/4)/a),d)+Pow(Abs(Sin(m*r/4)/b),e),1/c):x=w/2*(1+
Cos(r+p)/z):y=h/2*(1+Sin(r+p)/z):If i:LineXY(n,o,x,y):EndIf:n=x:o=y:Circle(x,y,
Bool(i%(l/20)=0)*w/50/z):Next:StopDrawing():EndIf:Until v=#PB_Event_CloseWindow