movem.l	d0-a1,-(sp)

		lea	($FFFFFB00).w,a1 	; get palette

		jsr	RandomNumber
		andi.b	#%00100011,d0
		bne.s	XXX
		move.w	#$0EEE,d1			; clear d3
		move.w	#$3F,d3			; set d3 to $2F (+1 for the first run)

Pal_MBW_Loop:
		move.w	d1,(a1)+
		dbf	d3,Pal_MBW_Loop		; loop for each colour
		bra	penis

XXX:

	;	lea	(Sboompal).l,a2
		lea	($FFFFCF80).w,a2
		moveq	#$00,d0
		move.b	($FFFFFE05).w,d1
		andi.w	#$03,d1
		beq.s	asdasdasd

		moveq	#0,d3			; clear d3
		moveq	#0,d1			; clear d3
		move.b	#$3F,d3			; set d3 to $2F (+1 for the first run)

Pal_MBW_LoopXXXX:
		move.b	(a2)+,d1

		move.w	d1,(a1)+
		dbf	d3,Pal_MBW_LoopXXXX		; loop for each colour
		bra	penis

asdasdasd:
		moveq	#0,d3			; clear d3
		moveq	#0,d1			; clear d3
		move.b	#$3F,d3			; set d3 to $2F (+1 for the first run)

Pal_MBW_LoopXXXXX:
		move.b	(a2)+,d1
		cmpi.b	#$A,d1
		bge.s	@cont
		add.b	#6,d1

@cont:
		move.w	d1,(a1)+
		dbf	d3,Pal_MBW_LoopXXXXX		; loop for each colour




PENIS:
		movem.l	(sp)+,d0-a1

		move.b	($FFFFFE05).w,d0
		andi.b	#1,d0
		bne.s	Obj10_Return