Little Boat

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|507\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Blogs Home -> Blogs

Jayenkai	Created : 14 February 2021 Little Boat
I've been asked how I made my lovely little 3D boat, in this weeks (still unreleased!!) SmileBASIC game. It's entirely 2D, made only from simple rotated sprites. I've written a quick and simple version in BlitzMax, which you can hopefully follow through to understand how it's all put together. Hit Left+Right to progress through the very few steps which make up the ship. Graphics 512,512,0 SetBlend(ALPHABLEND) SetMaskColor(0,0,0) AutoMidHandle(True) ' 1. Grab boat iShip=CreateImage(64,64,1,MASKEDIMAGE) For y=-16 To 16 SetColor 200,100,60 DrawLine 4,32+y,48+(16-(Abs(yy)/8)),32+y Next GrabImage(iShip,0,0) Flip;Cls ' 2. Raised Back iBack=CreateImage(64,64,1,MASKEDIMAGE) For y=-16 To 16 SetColor 220,120,80 DrawLine 4,32+y,12,32+y Next GrabImage(iBack,0,0) Flip;Cls ' 3. Flagpole iStick=CreateImage(64,64,1,MASKEDIMAGE) SetColor 140,80,20 DrawRect 31,0,3,32 GrabImage(iStick,0,0) Flip;Cls ' 4. Sails iSails=CreateImage(64,64,1,MASKEDIMAGE) SetColor 255,255,255 DrawRect 20,5,9,20 DrawRect 33,5,9,20 GrabImage(iSails,0,0) Flip;Cls Steps=1 Repeat Cls SetRotation(0);SetColor(255,255,255);SetScale 1,1 If Steps=1 Then DrawText "Just the Body",10,10 If Steps=2 Then DrawText "The Body redrawn underneath",10,10 If Steps=3 Then DrawText "The raised back bit",10,10 If Steps=4 Then DrawText "With Depth",10,10 If Steps=5 Then DrawText "Flagpole",10,10 If Steps=6 Then DrawText "Thar she blows",10,10 ang=(ang+1)Mod 360 SetRotation(ang) ' 1. Stern If Steps>1 SetColor 160,80,0 For y=0 To 8 SetAlpha Float(8-y)/8.0 DrawImage iShip,256,256+y2 Next EndIf SetAlpha 1 If Steps>0 SetColor 255,255,255 DrawImage iShip,256,256 EndIf ' 2. Raised Back SetAlpha 1 If Steps>3 SetColor 160,80,0 For y=0 To 5 DrawImage iBack,256,256-y Next EndIf If Steps>2 SetColor 255,255,255 DrawImage iBack,256,256-6 EndIf ' 3. Flagpole If Steps>4 SetColor 255,255,255;SetRotation 0 DrawImage iStick,256,256 EndIf ' 4. Sails If Steps>5 SetColor 255,255,255;SetRotation 0 SetScale Rnd(0.8,1.2),1 DrawImage iSails,256,256 EndIf If KeyHit(KEY_LEFT) And Steps>0 Then Steps=Steps-1 If KeyHit(KEY_RIGHT) And Steps<6 Then Steps=Steps+1 Flip Until KeyDown(KEY_ESCAPE) --v

Comments

Comments