Advent of Creativity 5

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|641\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Festive Threads -> Advent of Creativity 5
Page : 1 2 3 4 5 6 Prev 7 Next
Sun, 25 Dec 2022, 17:15
Jayenkai	"Family Guy and a number 26 at Christmas" This is the last one. Promise! .. OK, maybe I have a 27 sitting on my harddrive, too.. -=-=- // Boxes // by Jayenkai // Created 2022/12/25 Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!;,0_0_0_0;.0_0_0@;,0_0_0_0;,0_0_0_00;0_0_0!;;0,;,0_0_0!;!0_0_0/;.0_0_0_0;0_0_0_0.;"; Dim bx(10,3) Graphics 640,480,2 GameHandler("Boxing Day") .StartGame bxs=0 for n=0 to 10 bx(n,0)=0 next Return .Ingame CLS:ResetDraw() mh=MouseHit() if mh==1 then PlaySFX("Gun_1") bl=0 for n=0 to 10 if bx(n,0)<1 and Rnd(0,100)<2 and bxs<50 bx(n,0)=Rand(1,360) bx(n,1)=Rnd(64,jscrw()-64) bx(n,2)=-64 bx(n,3)=Rnd(0.7,1.2) bxs=bxs+1 endif if bx(n,0)>0 bl=bl+1 bx(n,2)=bx(n,2)+bx(n,3)3 InkRot bx(n,0),0.5,1 Rect bx(n,1),bx(n,2),64,48,1 InkRot bx(n,0)+120,0.8,0.7 Rect bx(n,1),bx(n,2),64,8,1 Rect bx(n,1),bx(n,2),8,48,1 if bx(n,2)>jscrh()+64 then bx(n,0)=0 in=MouseIn(bx(n,1),bx(n,2),64,48,1) if in>0 and mh==1 bx(n,0)=0:Score=Score+1 PlaySFX("Explode_High_"+Rand(1,5)) for q=0 to 30 ThrowParticle bx(n,1),bx(n,2),2,Rnd(-120,120),Rnd(0.4,3),0,0 next endif endif next ResetDraw TextScore jscrw()0.5,32,1 if bxs>49 and bl<1 and GameOver==0 then EndGame " " Return --v -=-=- ''Load, Next List!''
Sun, 25 Dec 2022, 18:15
Dan	SantaBan ! // 23Advent of Creativity contribution // by Dan // Created 2022/12/25 //Levels used from: https://github.com/deepmind/boxoban-levels/blob/master/LICENSE // //@misc{boxobanlevels, //author = {Arthur Guez, Mehdi Mirza, Karol Gregor, Rishabh Kabra, Sebastien Racaniere, Theophane Weber, David Raposo, Adam Santoro, Laurent Orseau, Tom Eccles, Greg Wayne, David Silver, Timothy Lillicrap, Victor Valdes}, //title = {An investigation of Model-free planning: boxoban levels}, //howpublished= {https://github.com/deepmind/boxoban-levels/}, //year = "2018",} Graphics 420,340,3 Symbol 0,"1__B9B9B9B9B9B9B9B99B9B9B9B9B9B9B9BB9B9B9B9B9B9B9B99B9B9B9B9B9B9B9BB9B9B9B9B9B9B9B99B9B9B9B9B9B9B9BB9B9B9B9B9B9B9B99B9B9B9B9B9B9B9BB9B9B9B9B9B9B9B99B9B9B9B9B9B9B9BB9B9B9B9B9B9B9B99B9B9B9B9B9B9B9BB9B9B9B9B9B9B9B99B9B9B9B9B9B9B9BB9B9B9B9B9B9B9B99B9B9B9B9B9B9B9B"; Symbol 1,"1__B_B_D_D,B,D_D?BBD_D?BBD_D?BBD_D?BBD_D?BBD_D?BBD_D?BBD_D?BBD_D?BBD_D?BBD_D?BBD_D?B,D_D,B_B_"; Symbol 2,"1__0_0_0_0_0I!0_IIeIeI,0/IIe!II0?IIeIeIeI.t0.IIeIeIeI.t0.I,e?I,t0.I.eIeIeIIt0.I.eIeIeIIt0.IIe!I,t0?tIIeIeI,t0/tI!t0_t!"; Symbol 3,"1__0_0_0_0_0I!0_I@0/I_I0?I_IIt0.I_IIt0.I_IIt0.I_IIt0.I_IIt0.I_IIt0?tI@t0/tI!t0_t!"; Symbol 4,"1__0,e_e0?ed_de0,ed_d,e0ed_d?eed,vvd.vvd,eed,vvd.vvd,eed_d?eed_d?eed_d?eed_d?eed_d?eeddvd@vddeed,vd!vd,e0ed,v!d,e0,ed_de0?e_e"; Symbol 5,"1__0,e_e0?eT_Te0,eT_T,e0eT_T?eeT,vvT.vvT,eeT,vvT.vvT,eeT_T?eeT_T?eeT_T?eeT_T?eeT_T?eeTTvT@vTTeeT,vT!vT,e0eT,v!T,e0,eT_Te0?e_e"; Symbol 6,"1__530_0,357530_035707530@3570,7530!3570?7530.3570/753.570_75.30_075.30_075.30_075.30_357.530/3570.7530?3570!7530,3570@75303570_0753570_0,75"; Gosub intro fsx=1 fsy=1 level$ = "" fontsize=32 wall$="U+1F7E5U+1F7E7U+1F7E8U+1F7E9U+1F7E6U+1F7EAU+1F7EB" Dim lvl$(10,10) dim LD$(31) UM=500 Dim Undo$(UM) Dim UndoP(UM,2) LD$(0)="########### ### $ ####. ## . ### #### ### # ###$$ #. #### # # $@### . #############" LD$(1)="###########.######### ######## $ $@#### . . ##### # $$ . ## # #### ##### ### ###########" LD$(2)="#############@$ . ###### $ .###### $ #######..$######## #########################################" LD$(3)="############### @ #######.$$ ####### . ######## ########$.########. ########$ ######## ###########" LD$(4)="########### . $ ## $ $ ## $@###. ## .####. ## ######## ######### ######### ##################" LD$(5)="###############################. ###### $ $###### . ###### $$ ###### # ###### . @.###########" LD$(6)="#################################################### #######$ # . ###@$. $. ### . $ #############" LD$(7)="################################ ####### .######## $######## # #### $. $$ ##@ #.. ############" LD$(8)="########### $ .## . $ ######### #########.######@# ######$ # ##### . $ ##### ###########" LD$(9)="############# @#### $$.$ ##### ######### ####### .### #### ### #### $ #### . . ###########" LD$(10)="###########. $@## $.$ # ## $. ###### #########.######### ######## ######### ##################" LD$(11)="################## ########. ######## ### .###$@## $ # ## #$ ###### $ ##### . . ###########" LD$(12)="########### #### .$ ####. ### #### ## ####$$## ### @### ######## ##### .$ .###########" LD$(13)="########### ######## $ ####### ######## $.#######..# # ###@$$ . ## # ## ###### ###########" LD$(14)="############ @ . ###$ # $$ ## #### ### $ ####.# . ########. ######## #####################" LD$(15)="######################################### ######## $ #######. ## #### . $ $ ## . . $@###########" LD$(16)="###############################################@### $ ## .$# ## $ ##. ## . $.############" LD$(17)="###########@#########$ ##. ### $ . ## $ $ ### .########.######### ############################" LD$(18)="################################################ ##. ##### ## ###.##$$ ### $##@$ . . ###########" LD$(19)="########### #### $ #$ #### ## #### $ $##### ## ####. ### ### #.@ ## .. ###########" LD$(20)="############# . ##@$ $ .### ### ######## ######## ######### ## #### ## ..$ $ ###########" LD$(21)="########### . ## $ ####. ### ##### # .### @ ### ##. $ ###### $$ ####### ###########" LD$(22)="########################### .########$ ######## ###### # .##@$ .$$.### ######### ###########" LD$(23)="################################# . #### $#$ #### @#. #### . $ ####.$ # #### ## ###########" LD$(24)="########### #### $. $ ####.$$ ##### #@### ## . . ## ###############################" LD$(25)="################ @ #######.$$######## .########$ ######## ########$ ##### # .##### .###########" LD$(26)="########### #### $ #### @.. ####.# $ ##### ###$.#### ## ## ## $ ## ###########" LD$(27)="########### . ###### $$####### ####### ######### ########.$##@ #### .#$ ####. #############" LD$(28)="############ # ######.. ##### # ###### # ##### #$ ###### $ ##### $#$ ##### .. @############" LD$(29)="############ @ ### ### $$ .$ #### .# #### #### ### $ # ### . #### # ####### .###########" LD$(30)="########### ######### ########. ########.######### . $@### $ $$##### ## ####. #############" .game For x=0 To UM Undo$(x)="" Next level$=LD$(L) w=Rand(0,6) u=-1 z = -1 plx = -1 ply = -1 target=0 boxes=0 job=0 For y = 0 To 9 For x = 0 To 9 z = z + 1 tmp$ = Mid(level$, z, 1) If tmp$==" " If plx==-1 Plx=x ply=y EndIf EndIf If tmp$ == "@" Or tmp$ == "+" plx = x ply = y tmp$ = Mid(" .",(Instr("@+",tmp$,0,0)),1) EndIf If tmp$=="." Then target=target+1 If tmp$=="$" Then boxes=boxes+1 If tmp$=="" boxes=boxes+1 target=target+1 EndIf lvl$(x,y) = tmp$ Next print Next Gosub setundo kbddelay=MilliSecs() quit=0 invalidlevel=0 If target<boxes Or boxes<=0 Or target<=0 Then invalidlevel=1 incre=0 Repeat Cls job=0 For y = 0 To 9 For x = 0 To 9 SetFontSize 32 SetColor 255,255,255 iy=0 tmp$=lvl$(x,y) if tmp$==" " then em$="" ;//img=0 If tmp$=="#" Then em$=Mid$(Wall$,w7,7) ;//img=1 If tmp$=="$" Then em$="U+1F381" ;//img=2 If tmp$=="" job=job+1 //img=3 SetFontSize 32 Emoji 20+x33,16+y33,"U+1F384" em$="U+1F381" SetFontSize 20 iy=6 EndIf If tmp$=="." then em$="U+1F384" ;//img=6 EndIf //DrawImage 20+x32,16+y32,0 //DrawImage 20+x32,16+y32,img if em$>"" then Emoji 20+x33,16+y33+iy,em$ Next Next VX=0 VY=0 If MilliSecs()-kbddelay>200 VX = GamePad(DpadRight) - GamePad(DpadLeft) If VX==0 Then VY = GamePad(DpadDown) - GamePad(DpadUp) If KeyDown(asc("r")) or GamePad(ButtonX) Then quit=2 If KeyDown(asc("u")) or GamePad(ButtonY) Gosub resetundo kbddelay=MilliSecs() EndIf If KeyDown(asc("q")) or GamePad(ButtonSelect) then quit=3 If VX<>0 Or VY<>0 Then kbddelay=MilliSecs() EndIf m = 0 // '#' for wall, '@' for the player, "+" player on goal, '$' for a box, and '.' for a goal, "" box on goal If (plx + VX >= 0 And plx + VX <= 9 And VX <> 0) Or (ply + VY >= 0 And ply + VY <= 9 And VY <> 0) tmp$ = lvl$(plx + VX, ply + VY) If tmp$ == " " Or tmp$ == "." m = 1 Else if tmp$ == "$" Or tmp$ == "" tmpnx = plx + (VX 2) tmpny = ply + (VY * 2) tmps$=Mid(" .",Instr("$",tmp$),1) text 320,20,tmps$ If (tmpnx >= 0 And tmpnx <= 9) And (tmpny >= 0 And tmpny <= 9) tmp1$ = lvl$(tmpnx,tmpny) If tmp1$ == " " lvl$(tmpnx,tmpny) = "$" lvl$(plx + VX,ply + VY) = tmps$ m = 1 Else If tmp1$ == "." lvl$(tmpnx,tmpny) = "" lvl$(plx + VX,ply + VY) = tmps$ m = 1 EndIF EndIf EndIf EndIf EndIf If m == 1 plx = plx + VX ply = ply + VY Gosub setundo EndIf EndIf SetColor 0,0,255 //img=4 em$="U+1F385" //If lvl$(plx,ply)=="." Then img=5 //DrawImage 20+plx32,16+ply32,img //Text 20+plx * 32,16+ ply * 32, "@" SetFontSize 32 Emoji 20+plx33,16+ply33,em$ SetFont 2 Setfontsize 9 SetColor 255,128,0 Text 340,15,"Level "+(l+1) SetColor 128,255,255 Text 340,270,"Undo = U" Text 340,300,"Reset= R" Text 340,330,"Quit = Q" SetColor 255,255,255 Text 340,40,"Crate " + boxes Text 340,70,"Holes " + target Text 340,130,"Done " + job Text 340,100,"Moves "+u If job==boxes Or invalidlevel==1 tmptxt$="Level "+(l+1)+" is done - Press Fire" color 60,60,255 for tmpy=-1 to 1 for tmpx=-1 to 1 Text 30+tmpx,145+tmpy,tmptxt$ next next color 255,255,255;Text 30,145,tmptxt$ If GamePad(ButtonA) wait 1 quit=1 EndIf EndIf Flip Until quit>0 If quit==1 Then l=l+1 If l>30 Then l=0 Goto game EndIf If quit==2 Then Goto game Gosub intro Goto game .setundo u=u+1 If u<UM UndoP(u,0)=plx UndoP(u,1)=ply tmplvl$="" For y=0 To 9 For x=0 To 9 tmplvl$=tmplvl$+lvl$(x,y) Next Next Undo$(u)=tmplvl$ EndIf Return .resetundo If u>0 Then u=u-1 z=-1 For y=0 To 9 For x=0 To 9 z=z+1 lvl$(x,y)=Mid$(Undo$(u),z,1) Next Next plx=UndoP(u,0) ply=UndoP(u,1) Return .intro setclscolor 0,0,0 for x=0 to 10 cls color 255,255,255 SetFontSize 10 SetFont 4 Text 120,30,Left("Welcome to",x) SetFontSize 30 SetFont 7 Text 30,80,Left(" SantaBan ",x) wait 0.1 Flip Next Emoji 160,130,"U+1F385" Emoji 200,130,"U+1F381" Emoji 240,130,"U+1F384" SetFontSize 8 SetFont 8 Text 0,180,"Fire = ButtonA" Text 0,190,"Undo = ButtonY" Text 0,200,"Restart = ButtonX" Text 0,210,"Quit = ButtonSelect" Color 255,0,255 SetFont 5 SetFontSize 10 Text 210,320,"Press Fire to start" flip l=0 Repeat wait 0.05 Until GamePad(ButtonA) Return --v Remark: Very Emojional !
Page : 1 2 3 4 5 6 Prev 7 Next