Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|613\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Generators

Jayenkai	Created : 24 March 2017 Language : Blitz Max Skylines
A simple little generator for 2D cityscape backgrounds. Because.. Why not! Global iniLines Global iniCmd$[512] Global iniParm$[512] GetINI() Global ScreenWidth=1024 ; ScreenWidth=FromINI(ScreenWidth,"Screen Width","Sheet Width") Global ScreenHeight=512 ; ScreenHeight=FromINI(ScreenHeight,"Screen Height","Sheet Height") Global SpriteWidth=1024 ; SpriteWidth=FromINI(SpriteWidth,"Sprite Size","Size","Sprite Width","Width") Global SpriteHeight=128 ; SpriteHeight=FromINI(SpriteHeight,"Sprite Size","Size","Sprite Height","Height") Global Rescale=0 Temp$=Upper$(FromINItxt$("","Rescale","Make")) If temp$="TRUE" Or temp$="LARGER" Or temp$="BIGGER" Or temp$="GROW" Then Rescale=2 If temp$="SMALLER" Or temp$="SHRINK" Then Rescale=1 Global OutFilename$="Out" ; OutFilename$=FromINItxt$(OutFilename$,"Filename","Save As","Output") outfilename$=Replace(outfilename$,"/","_") outfilename$=Replace(outfilename$,"\","_") outfilename$=Replace(outfilename$,";","_") outfilename$=Replace(outfilename$,":","_") outfilename$=Replace(outfilename$,"","_") outfilename$=Replace(outfilename$,"?","_") outfilename$=Replace(outfilename$,"!","_") outfilename$=Replace(outfilename$,Chr$(34),"") Global MaskColor=$FF00FF Global SpritesX=Floor(ScreenWidth/SpriteWidth) Global SpritesY=Floor(ScreenHeight/SpriteHeight) Function GetIni() iniLines=0 If FileType("settings.ini")=1 DebugLog "Found ini file" quickin=ReadFile("settings.ini") lines=0 Repeat intxt$=ReadLine(quickin) If Instr(intxt,"=") cmd$=iniLeft$(intxt) parm$=iniRight(intxt) cmd=Trim$(cmd$) cmd=Replace$(cmd," ","") cmd=Lower$(cmd) parm$=Trim$(parm$) iniLines=iniLines+1 iniCmd[iniLines]=cmd$ iniParm[iniLines]=parm$ EndIf If iniLines>500 Then fin=1 If Eof(quickin) Then fin=1 Until fin=1 CloseFile quickin EndIf End Function Function FromINI(value,va$="-1",vb$="-1",vc$="-1",vd$="-1",ve$="-1",vf$="-1",vg$="-1") Local fout=value va$=Lower$(Trim$(Replace$(va$," ",""))) vb$=Lower$(Trim$(Replace$(vb$," ",""))) vc$=Lower$(Trim$(Replace$(vc$," ",""))) vd$=Lower$(Trim$(Replace$(vd$," ",""))) ve$=Lower$(Trim$(Replace$(ve$," ",""))) vf$=Lower$(Trim$(Replace$(vf$," ",""))) vg$=Lower$(Trim$(Replace$(vg$," ",""))) For inie=1 To iniLines If va$=inicmd[inie] Then fout=Int(iniparm[inie]) If vb$=inicmd[inie] Then fout=Int(iniparm[inie]) If vc$=inicmd[inie] Then fout=Int(iniparm[inie]) If vd$=inicmd[inie] Then fout=Int(iniparm[inie]) If ve$=inicmd[inie] Then fout=Int(iniparm[inie]) If vf$=inicmd[inie] Then fout=Int(iniparm[inie]) If vg$=inicmd[inie] Then fout=Int(iniparm[inie]) Next Return fout End Function Function FromINItxt$(value$,va$="-1",vb$="-1",vc$="-1",vd$="-1",ve$="-1",vf$="-1",vg$="-1") Local fout$=value va$=Lower$(Trim$(Replace$(va$," ",""))) vb$=Lower$(Trim$(Replace$(vb$," ",""))) vc$=Lower$(Trim$(Replace$(vc$," ",""))) vd$=Lower$(Trim$(Replace$(vd$," ",""))) ve$=Lower$(Trim$(Replace$(ve$," ",""))) vf$=Lower$(Trim$(Replace$(vf$," ",""))) vg$=Lower$(Trim$(Replace$(vg$," ",""))) For inie=1 To iniLines If va$=inicmd[inie] Then fout=iniparm[inie] If vb$=inicmd[inie] Then fout=iniparm[inie] If vc$=inicmd[inie] Then fout=iniparm[inie] If vd$=inicmd[inie] Then fout=iniparm[inie] If ve$=inicmd[inie] Then fout=iniparm[inie] If vf$=inicmd[inie] Then fout=iniparm[inie] If vg$=inicmd[inie] Then fout=iniparm[inie] Next Return fout End Function Function SplitText$(in$,Split$,e,alsospace=0) 'Splits text... Local out:String="" Local start:Int=1 Local nomore:Int=0 Local shift:Int Local size:Int in:String=Trim(in) e=e-1 For shift=1 To e If Instr(in$,Split$,start)+1<=nstart Then nomore=1 If Instr(in$,Split$,start)+1>nstart Then nstart=Instr(in$,Split$,start)+1 If AlsoSpace=1 Then If Instr(in$," ",start)+1<nstart And Instr(in$," ",start)>0 Then nstart=Instr(in$," ",start)+1 start=nstart Next size=(Instr(in$,Split$,start))-start If AlsoSpace=1 Then If (Instr(in$," ",start))-start<size And Instr(in$," ",start)>0 Then size=(Instr(in$," ",start))-start out$=Mid$(in$,start,size) If nomore=1 Then out$="-+-" Return out End Function Function IniLeft$(ftxt$) Return Upper$(Trim$(splittext$(ftxt$,"=",1,0))) End Function Function IniRight$(ftxt$) Return Trim$(splittext$(ftxt$,"=",2,0)) End Function Function Ink(ang#,bright#) Local fr#=(150+(Cos(ang)150.0))bright Local fg#=(150+(Cos(ang+240)150.0))bright Local fb#=(150+(Cos(ang+120)150.0))bright If fr<0 Then fr=0 If fr>255 Then fr=255 If fgr<0 Then fg=0 If fg>255 Then fg=255 If fb<0 Then fb=0 If fb>255 Then fb=255 SetColor(fr,fg,fb) End Function Function ResetDraw() SetRotation 0 SetAlpha(1) SetColor(255,255,255) SetBlend(ALPHABLEND) End Function Graphics ScreenWidth,ScreenHeight Global SpriteX,SpriteY Global w,h w=SpriteWidth;h=SpriteHeight SeedRnd(MilliSecs());For n=0 To 100;r=Rnd(0,10);Next Repeat Cls For SpriteY=0 To SpritesY-1 For SpriteX=0 To SpritesX-1 ResetDraw() SetViewport(SpriteXSpriteWidth,SpriteYSpriteHeight,SpriteWidth,SpriteHeight) SetOrigin(SpriteXSpriteWidth,SpriteYSpriteHeight) w=SpriteWidth;h=SpriteHeight SetColor((MaskColor & $FF0000) Shr 16,(MaskColor & $00FF00) Shr 8,(MaskColor & $0000FF)) DrawRect(dx,dy,w,h) ResetDraw() Generator() SetViewport(0,0,ScreenWidth,ScreenHeight) SetOrigin(0,0) Flip Next Next outimg=GrabPixmap(0,0,ScreenWidth,ScreenHeight) For x=0 To ScreenWidth-1 For y=0 To ScreenHeight-1 argb=ReadPixel(outimg,x,y) If (argb & $00FFFFFF)=MaskColor Then argb=$00000000 WritePixel(outimg,x,y,argb) Next Next If Rescale=0 SavePixmapPNG(outimg,OutFilename+".png") EndIf If Rescale=1 SavePixmapPNG(outimg,OutFilename+"-hd2.png") outimg_2=ResizePixmap(outimg,ScreenWidth/2,ScreenHeight/2) SavePixmapPNG(outimg_2,OutFilename+"-hd.png") outimg_1=ResizePixmap(outimg,ScreenWidth/4,ScreenHeight/4) SavePixmapPNG(outimg_1,OutFilename+".png") EndIf If Rescale=2 SavePixmapPNG(outimg,OutFilename+".png") outimg_2=CreatePixmap(ScreenWidth2,ScreenHeight2,PF_RGBA8888) outimg_4=CreatePixmap(ScreenWidth4,ScreenHeight4,PF_RGBA8888) For x=0 To ScreenWidth-1 For y=0 To ScreenHeight-1 argb=ReadPixel(outimg,x,y) WritePixel(outimg_2,x2,y2,argb) WritePixel(outimg_2,x2,y2+1,argb) WritePixel(outimg_2,x2+1,y2,argb) WritePixel(outimg_2,x2+1,y2+1,argb) For ex=0 To 3 For ey=0 To 3 WritePixel(outimg_4,x4+ex,y4+ey,argb) Next Next Next Next SavePixmapPNG(outimg_2,OutFilename+"-hd.png") SavePixmapPNG(outimg_4,OutFilename+"-hd2.png") EndIf DrawText("Finished : Press any key to Quit",4,ScreenHeight-14) Flip WaitKey() Until Not KeyDown(KEY_R) ' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ' Generator code goes below! ' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Function Generator() For layer=0 To 3 For n=0 To (w/16) grey=(Rand(1,8)4)+(layer16) SetColor(grey,grey,grey) wide=Rand(1,6) tall=Rand(4,((h-4)/8)) If Rnd(0,10)<2 Then tall=Rand(4,((h-4)/6)) If Rnd(0,10)<1 Then tall=Rand(4,((h-4)/4)) l=Rand(0,w) Rect(l,h-tall4,wide8,tall4,w) offy=Rand(0,3) dark=Rand(4,8) glassy=Rand(1,3) For x=0 To wide-1 For y=0 To tall lit=Rand(0,32)dark SetColor(lit,lit,0) Rect(l+(x8),(h-(tall4))+(y4)+offy,8,glassy,w) Next Next Next Next End Function Function Rect(fx,fy,fw,fh,w) DrawRect(fx,fy,fw,fh) DrawRect(fx-w,fy,fw,fh) DrawRect(fx+w,fy,fw,fh) End Function --v Typical output.. Job done!

Comments
Friday, 24 March 2017, 06:13
spinal	very nice
Tuesday, 28 March 2017, 12:58
Andy_A	Very clever! I wish I had thought of something like that.
Tuesday, 28 March 2017, 14:25
steve_ancell	It reminds me of that helibomber game that was on the Amstrad CPC Cascade 50 cassette.

Skylines

Comments