PYATNASHKI - GameCreators Forum

Author

Message

Dmitry K

21

Years of Service

User Offline

Joined: 14th Oct 2002

Location: Russia

Posted: 26th Mar 2003 18:41

Link

Position Camera 80, 50, -50.0 : Position Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z() : Point Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()+100.0 : Dim Prop(16,2) : For D=1 To 15
Repeat : I=1+Rnd(14) : Until Not Object Exist(I) : Make Object Box I, 30, 30, 10 : Position Object I, 0.0+35*(D-((D-1)/4)*4), 110.0-35*((D-1)/4), 100
Box 1, 1, 90, 90, Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255))
Center Text 45, 25, Str$(I) : Get Image I, 1, 1, 90, 90 : Texture Object I, I : Box 1, 1, 90, 90, RGB(0,0,0), RGB(0,0,0), RGB(0,0,0), RGB(0,0,0) : Prop(I,1)=D
Next D : Set Text Font "Comic Sans MS" : Set Text Size 24 : Set Text To Bold : Ink RGB(0,255,0), 0
Prop(16,1)=16 : Sync Rate 0 : Sync On : Do : Obj=0
Win=1 : For I=1 To 15 : If IProp(I,1) : Win=0 : EndIf
Next I : If Win : Center Text Screen Width()/2, Screen Height()/2, "Game Complete!" : Sync : Wait Key
End : EndIf : If MouseClick() And Make Vector3(1)+Make Vector3(2)+Make Matrix4(3) : For I=1 To 15 : View Matrix4 3
r#=Inverse Matrix4(3, 3) : Set Vector3 1, 1000.0*((-1.0*(1.0-2.0*(MouseX()*1.0)/(Screen Width()*1.0))*1.3333333333333333)*0.6000381120986), 1000.0*((1.0-2.0*(MouseY()*1.0)/(Screen Height()*1.0))*0.6000381120986), 1000.0 : Transform Coords Vector3 2, 1, 3 : If Intersect Object(I, Camera Position X(), Camera Position Y(), Camera Position Z(), X Vector3(2), Y Vector3(2), Z Vector3(2)) > 0.0 : Obj=I
EndIf: Next I : EndIf : If Obj>0 : If Prop(Obj, 1)-1=Prop(16, 1) Or Prop(Obj, 1)+1=Prop(16, 1) Or Prop(Obj, 1)-4=Prop(16, 1) Or Prop(Obj, 1)+4=Prop(16, 1)
Temp=Prop(Obj, 1) : Position Object Obj, 0.0+35*(Prop(16, 1)-((Prop(16, 1)-1)/4)*4), 110.0-35*((Prop(16, 1)-1)/4), 100 : Prop(Obj, 1)=Prop(16, 1) : Prop(16, 1)=Temp : Inc Steps
EndIf : EndIf : Text 10, 10, "PAYTNASKI by DMiTR0S: FPS ="+Str$(Screen FPS())+Chr$(10)+"Steps: "+Str$(Steps) : Sync : Loop

+ Code Snippet

Position Camera 80, 50, -50.0 : Position Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z() : Point Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()+100.0 : Dim Prop(16,2) : For D=1 To 15
Repeat : I=1+Rnd(14) : Until Not Object Exist(I) : Make Object Box I, 30, 30, 10 : Position Object I, 0.0+35*(D-((D-1)/4)*4), 110.0-35*((D-1)/4), 100
Box 1, 1, 90, 90, Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255))
Center Text 45, 25, Str$(I) : Get Image I, 1, 1, 90, 90 : Texture Object I, I : Box 1, 1, 90, 90, RGB(0,0,0), RGB(0,0,0), RGB(0,0,0), RGB(0,0,0) : Prop(I,1)=D
Next D : Set Text Font "Comic Sans MS" : Set Text Size 24 : Set Text To Bold : Ink RGB(0,255,0), 0
Prop(16,1)=16 : Sync Rate 0 : Sync On : Do : Obj=0
Win=1 : For I=1 To 15 : If IProp(I,1) : Win=0 : EndIf
Next I : If Win : Center Text Screen Width()/2, Screen Height()/2, "Game Complete!" : Sync : Wait Key
End : EndIf : If MouseClick() And Make Vector3(1)+Make Vector3(2)+Make Matrix4(3) : For I=1 To 15 : View Matrix4 3
r#=Inverse Matrix4(3, 3) : Set Vector3 1, 1000.0*((-1.0*(1.0-2.0*(MouseX()*1.0)/(Screen Width()*1.0))*1.3333333333333333)*0.6000381120986), 1000.0*((1.0-2.0*(MouseY()*1.0)/(Screen Height()*1.0))*0.6000381120986), 1000.0 : Transform Coords Vector3 2, 1, 3 : If Intersect Object(I, Camera Position X(), Camera Position Y(), Camera Position Z(), X Vector3(2), Y Vector3(2), Z Vector3(2)) > 0.0 : Obj=I
EndIf: Next I : EndIf : If Obj>0 : If Prop(Obj, 1)-1=Prop(16, 1) Or Prop(Obj, 1)+1=Prop(16, 1) Or Prop(Obj, 1)-4=Prop(16, 1) Or Prop(Obj, 1)+4=Prop(16, 1)
Temp=Prop(Obj, 1) : Position Object Obj, 0.0+35*(Prop(16, 1)-((Prop(16, 1)-1)/4)*4), 110.0-35*((Prop(16, 1)-1)/4), 100 : Prop(Obj, 1)=Prop(16, 1) : Prop(16, 1)=Temp : Inc Steps
EndIf : EndIf : Text 10, 10, "PAYTNASKI by DMiTR0S: FPS ="+Str$(Screen FPS())+Chr$(10)+"Steps: "+Str$(Steps) : Sync : Loop

DBPro only.

Back to top

Profile PM Email

Dmitry K

21

Years of Service

User Offline

Joined: 14th Oct 2002

Location: Russia

Posted: 26th Mar 2003 18:43 Edited at: 27th Mar 2003 23:18

Link

Second Try.

Set Display Mode 1024, 768, 16 : Set Text Size 48 : Autocam Off : Color Backdrop RGB(0,0,0) : Make Light 1
Position Camera 80, 50, -50.0 : Position Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z() : Point Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()+100.0 : Dim Prop(16,2) : For D=1 To 15
Repeat : I=1+Rnd(14) : Until Not Object Exist(I) : Make Object Box I, 30, 30, 10 : Position Object I, 0.0+35*(D-((D-1)/4)*4), 110.0-35*((D-1)/4), 100
Box 1, 1, 90, 90, Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255))
Center Text 45, 25, Str$(I) : Get Image I, 1, 1, 90, 90 : Texture Object I, I : Box 1, 1, 90, 90, RGB(0,0,0), RGB(0,0,0), RGB(0,0,0), RGB(0,0,0) : Prop(I,1)=D
Next D : Set Text Font "Comic Sans MS" : Set Text Size 24 : Set Text To Bold : Ink RGB(0,255,0), 0
Prop(16,1)=16 : Sync Rate 0 : Sync On : Do : Obj=0
Win=1 : For I=1 To 15 : If I <> Prop(I,1) : Win=0 : EndIf
Next I : If Win : Center Text Screen Width()/2, Screen Height()/2, "Game Complete!" : Sync : Wait Key
End : EndIf : If MouseClick() And Make Vector3(1)+Make Vector3(2)+Make Matrix4(3) : For I=1 To 15 : View Matrix4 3
r#=Inverse Matrix4(3, 3) : Set Vector3 1, 1000.0*((-1.0*(1.0-2.0*(MouseX()*1.0)/(Screen Width()*1.0))*1.3333333333333333)*0.6000381120986), 1000.0*((1.0-2.0*(MouseY()*1.0)/(Screen Height()*1.0))*0.6000381120986), 1000.0 : Transform Coords Vector3 2, 1, 3 : If Intersect Object(I, Camera Position X(), Camera Position Y(), Camera Position Z(), X Vector3(2), Y Vector3(2), Z Vector3(2)) > 0.0 : Obj=I
EndIf: Next I : EndIf : If Obj > 0 : If Prop(Obj, 1)-1=Prop(16, 1) Or Prop(Obj, 1)+1=Prop(16, 1) Or Prop(Obj, 1)-4=Prop(16, 1) Or Prop(Obj, 1)+4=Prop(16, 1)
Temp=Prop(Obj, 1) : Position Object Obj, 0.0+35*(Prop(16, 1)-((Prop(16, 1)-1)/4)*4), 110.0-35*((Prop(16, 1)-1)/4), 100 : Prop(Obj, 1)=Prop(16, 1) : Prop(16, 1)=Temp : Inc Steps
EndIf : EndIf : Text 10, 10, "PYATNASHKI by DMiTR0S: FPS ="+Str$(Screen FPS())+Chr$(10)+"Steps: "+Str$(Steps) : Sync : Loop

+ Code Snippet

Set Display Mode 1024, 768, 16 : Set Text Size 48 : Autocam Off : Color Backdrop RGB(0,0,0) : Make Light 1
Position Camera 80, 50, -50.0 : Position Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z() : Point Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()+100.0 : Dim Prop(16,2) : For D=1 To 15
Repeat : I=1+Rnd(14) : Until Not Object Exist(I) : Make Object Box I, 30, 30, 10 : Position Object I, 0.0+35*(D-((D-1)/4)*4), 110.0-35*((D-1)/4), 100
Box 1, 1, 90, 90, Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255))
Center Text 45, 25, Str$(I) : Get Image I, 1, 1, 90, 90 : Texture Object I, I : Box 1, 1, 90, 90, RGB(0,0,0), RGB(0,0,0), RGB(0,0,0), RGB(0,0,0) : Prop(I,1)=D
Next D : Set Text Font "Comic Sans MS" : Set Text Size 24 : Set Text To Bold : Ink RGB(0,255,0), 0
Prop(16,1)=16 : Sync Rate 0 : Sync On : Do : Obj=0
Win=1 : For I=1 To 15 : If I <> Prop(I,1) : Win=0 : EndIf
Next I : If Win : Center Text Screen Width()/2, Screen Height()/2, "Game Complete!" : Sync : Wait Key
End : EndIf : If MouseClick() And Make Vector3(1)+Make Vector3(2)+Make Matrix4(3) : For I=1 To 15 : View Matrix4 3
r#=Inverse Matrix4(3, 3) : Set Vector3 1, 1000.0*((-1.0*(1.0-2.0*(MouseX()*1.0)/(Screen Width()*1.0))*1.3333333333333333)*0.6000381120986), 1000.0*((1.0-2.0*(MouseY()*1.0)/(Screen Height()*1.0))*0.6000381120986), 1000.0 : Transform Coords Vector3 2, 1, 3 : If Intersect Object(I, Camera Position X(), Camera Position Y(), Camera Position Z(), X Vector3(2), Y Vector3(2), Z Vector3(2)) > 0.0 : Obj=I
EndIf: Next I : EndIf : If Obj > 0 : If Prop(Obj, 1)-1=Prop(16, 1) Or Prop(Obj, 1)+1=Prop(16, 1) Or Prop(Obj, 1)-4=Prop(16, 1) Or Prop(Obj, 1)+4=Prop(16, 1)
Temp=Prop(Obj, 1) : Position Object Obj, 0.0+35*(Prop(16, 1)-((Prop(16, 1)-1)/4)*4), 110.0-35*((Prop(16, 1)-1)/4), 100 : Prop(Obj, 1)=Prop(16, 1) : Prop(16, 1)=Temp : Inc Steps
EndIf : EndIf : Text 10, 10, "PYATNASHKI by DMiTR0S: FPS ="+Str$(Screen FPS())+Chr$(10)+"Steps: "+Str$(Steps) : Sync : Loop

Back to top

Profile PM Email

rapscaLLion

21

Years of Service

User Offline

Joined: 29th Aug 2002

Location: Canada

Posted: 27th Mar 2003 00:57

Link

WOW!!! Impressive for 20 lines!
I tried looking at the source lol, you got some math that's far to complex for me

Alex Wanuch
aka rapscaLLion
Kousen Dev Progress >> Currently Working On Editors

Back to top

Profile PM

Dmitry K

21

Years of Service

User Offline

Joined: 14th Oct 2002

Location: Russia

Posted: 27th Mar 2003 23:09 Edited at: 29th Mar 2003 17:22

Link

Optimized and readable version.

Rem PYATNASHKI By DMiTR0S
Set Display Mode 1024, 768, 32
Randomize Timer()
Set Text Size 48
Autocam Off
Color Backdrop RGB(0,0,0)
Make Light 1
Position Camera 80, 50, -50.0
Position Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()
Point Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()+100.0
Dim Prop(16)
For D=1 To 15
   Repeat
      I=1+Rnd(14)
   Until Not Object Exist(I)
   Make Object Box I, 30, 30, 10
   Position Object I, 0.0+35*(D-((D-1)/4)*4), 110.0-35*((D-1)/4), 100.0
   Box 1, 1, 90, 90, Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255))
   Center Text 45, 25, Str$(I)
   Get Image I, 1, 1, 90, 90
   Texture Object I, I
   Box 1, 1, 90, 90, RGB(0,0,0), RGB(0,0,0), RGB(0,0,0), RGB(0,0,0)
   Prop(I)=D
Next D
Set Text Font "Comic Sans MS"
Set Text Size 24
Set Text To Bold
Ink RGB(0,255,0), Make Vector3(1)+Make Matrix4(2)
Prop(16)=16
Sync Rate 0
Sync On
Do
   Obj=0
   Win=1
   For I=1 To 15
      If I <> Prop(I) Then Win=0
   Next I
   If Win
      Center Text Screen Width()/2, Screen Height()/2, "Game Complete!"
      Sync
      Wait Key
      End
   EndIf
   If MouseClick()
      For I=1 To 15
         View Matrix4 2
         r#=Inverse Matrix4(2, 2)
         Set Vector3 1, 1000.0*(-1.0*(1.0-2.0*(MouseX()*1.0)/(Screen Width()*1.0))*0.8), 1000.0*((1.0-2.0*(MouseY()*1.0)/(Screen Height()*1.0))*0.6), 1000.0
         Transform Coords Vector3 1, 1, 2
         If Intersect Object(I, Camera Position X(), Camera Position Y(), Camera Position Z(), X Vector3(1), Y Vector3(1), Z Vector3(1)) > 0.0
            Obj=I
         EndIf
      Next I
   EndIf
   If Obj > 0
      If Prop(Obj)-1=Prop(16) Or Prop(Obj)+1=Prop(16) Or Prop(Obj)-4=Prop(16) Or Prop(Obj)+4=Prop(16)
         Temp=Prop(Obj)
         Position Object Obj, 0.0+35*(Prop(16)-((Prop(16)-1)/4)*4), 110.0-35*((Prop(16)-1)/4), 100.0
         Prop(Obj)=Prop(16)
         Prop(16)=Temp
         Inc Steps
      EndIf
   EndIf
   Text 10, 10, "PYATNASHKI by DMiTR0S: FPS ="+Str$(Screen FPS())+Chr$(10)+"Steps: "+Str$(Steps)
   Sync
Loop
UnDim Prop()

+ Code Snippet

Rem PYATNASHKI By DMiTR0S
Set Display Mode 1024, 768, 32
Randomize Timer()
Set Text Size 48
Autocam Off
Color Backdrop RGB(0,0,0)
Make Light 1
Position Camera 80, 50, -50.0
Position Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()
Point Light 1, Camera Position Y(), Camera Position Y(), Camera Position Z()+100.0
Dim Prop(16)
For D=1 To 15
   Repeat
      I=1+Rnd(14)
   Until Not Object Exist(I)
   Make Object Box I, 30, 30, 10
   Position Object I, 0.0+35*(D-((D-1)/4)*4), 110.0-35*((D-1)/4), 100.0
   Box 1, 1, 90, 90, Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255)), Rgb(Rnd(255), Rnd(255), Rnd(255))
   Center Text 45, 25, Str$(I)
   Get Image I, 1, 1, 90, 90
   Texture Object I, I
   Box 1, 1, 90, 90, RGB(0,0,0), RGB(0,0,0), RGB(0,0,0), RGB(0,0,0)
   Prop(I)=D
Next D
Set Text Font "Comic Sans MS"
Set Text Size 24
Set Text To Bold
Ink RGB(0,255,0), Make Vector3(1)+Make Matrix4(2)
Prop(16)=16
Sync Rate 0
Sync On
Do
   Obj=0
   Win=1
   For I=1 To 15
      If I <> Prop(I) Then Win=0
   Next I
   If Win
      Center Text Screen Width()/2, Screen Height()/2, "Game Complete!"
      Sync
      Wait Key
      End
   EndIf
   If MouseClick()
      For I=1 To 15
         View Matrix4 2
         r#=Inverse Matrix4(2, 2)
         Set Vector3 1, 1000.0*(-1.0*(1.0-2.0*(MouseX()*1.0)/(Screen Width()*1.0))*0.8), 1000.0*((1.0-2.0*(MouseY()*1.0)/(Screen Height()*1.0))*0.6), 1000.0
         Transform Coords Vector3 1, 1, 2
         If Intersect Object(I, Camera Position X(), Camera Position Y(), Camera Position Z(), X Vector3(1), Y Vector3(1), Z Vector3(1)) > 0.0
            Obj=I
         EndIf
      Next I
   EndIf
   If Obj > 0
      If Prop(Obj)-1=Prop(16) Or Prop(Obj)+1=Prop(16) Or Prop(Obj)-4=Prop(16) Or Prop(Obj)+4=Prop(16)
         Temp=Prop(Obj)
         Position Object Obj, 0.0+35*(Prop(16)-((Prop(16)-1)/4)*4), 110.0-35*((Prop(16)-1)/4), 100.0
         Prop(Obj)=Prop(16)
         Prop(16)=Temp
         Inc Steps
      EndIf
   EndIf
   Text 10, 10, "PYATNASHKI by DMiTR0S: FPS ="+Str$(Screen FPS())+Chr$(10)+"Steps: "+Str$(Steps)
   Sync
Loop
UnDim Prop()

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / PYATNASHKI