restart: with(plots): with(plottools);

Alex M

We are on a (D20) Roll

d20:= plot([[0,-sqrt(3)*2], [2,0], [-2,0],[-1,-sqrt(3)],[0,0],[1,-sqrt(3)],[-1,-sqrt(3)],[0,-sqrt(3)*2],[-2,-sqrt(5)],[-1,-sqrt(3)],[-2,-sqrt(5)],[-2,0],[0,1],[0,0],[0,1],[2,0],[2,-sqrt(5)],[1,-sqrt(3)],[2,-sqrt(5)],[0,-sqrt(3)*2]], scaling=constrained, axes=none, color=aquamarine):

d202 := rotate(d20,-Pi/6):

d203 := rotate(d20,-Pi/3):

n :=textplot([[10, 1,"BATTLE OF THE D20s"]], font = [Times, bold, 18], color = green):

nam:=display({ translate(n,10,4)}):

randomize():

win1 := 0:

win2 := 0:

D20roll:= rand(1..20):

roll1:=D20roll():

roll2:=D20roll():

if roll1>roll2 then bigger1:= ">" elif roll1=roll2 then bigger1:= "=" else bigger1:= "<" end if:

if roll1>roll2 then win1:=win1+1 elif roll1<roll2 then win2:=win2+1 end if:

r1 := textplot([[19,2,roll1],[25,2,roll2]],font=[Times,bold,10], color=blue):

r2 := textplot([[18, 6, roll1], [26, 6, roll2]], font = [Times, bold, 20], color = blue): r3 := textplot([[18, 8, roll1], [22, 8, bigger1], [26, 8, roll2]], font = [Times, bold, 26], color = blue):

stick1:=plot([[-2,-4],[0,0],[2,-4],[0,0],[-2,2],[0,0],[2,2],[0,0],[0,1],[0.4,1.8],[-0.4,1.8],[0,1]],scaling=constrained, axes=none):

stick2:=plot([[-2,-4],[0,0],[2,-4],[0,0],[-2,-2],[0,0],[2,-2],[0,0],[0,1],[0.4,1.8],[-0.4,1.8],[0,1]],scaling=constrained, axes=none):

b1 :=textplot([[1, 8,"I WON!"]], font = [Times, bold, 20], color = blue):

b2 :=textplot([[44, 8,"I WON!"]], font = [Times, bold, 20], color = blue):

b3 :=textplot([[1, 8,"WOW, A TIE!"],[44, 8,"WOW, A TIE!"]], font = [Times, bold, 16], color = green):

p0:=display({ translate(stick2,0,2),translate(d20,4,3),translate(d20,40,3),translate(stick2,44,2)}):

p1:=display({ translate(stick2,1,2),translate(d20,4,3),translate(d20,40,3),translate(stick2,43,2)}):

p2:=display({ translate(stick2,0,2),translate(d202,6,3),translate(d202,38,3),translate(stick2,44,2)}):

p3:=display({ translate(stick2,0,2),translate(d203,8,3),translate(d203,36,3),translate(stick2,44,2)}):

p4:=display({ translate(stick2,0,2),translate(d20,10,3),translate(d20,34,3),translate(stick2,44,2)}):

p5:=display({ translate(stick2,0,2),translate(d202,12,3),translate(d202,32,3),translate(stick2,44,2)}):

p6:=display({ translate(stick2,0,2),translate(d203,14,3),translate(d203,30,3),translate(stick2,44,2)}):

p7:=display({ translate(stick2,0,2),translate(d20,16,3),translate(d20,28,3),translate(stick2,44,2)}):

p71:=display({ translate(stick2,0,2),translate(d20,18,3),translate(d20,26,3),translate(stick2,44,2)}):

p72:=display({ translate(stick2,0,2),translate(d20,20,3),translate(d20,24,3),translate(stick2,44,2)}):

p8:=display({translate(stick2,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick2,44,2),r1}):

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYuLUkjbW9HRiQ2MVEifkYnLyUnZmFtaWx5R1EsQ291cmllcn5OZXdGJy8lJWJvbGRHUSV0cnVlRicvJStmb3JlZ3JvdW5kR1EqWzEyOCwwLDBdRicvJSxtYXRodmFyaWFudEdRJWJvbGRGJy8lK2ZvbnR3ZWlnaHRHRjovJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj8vJSlzdHJldGNoeUdGPy8lKnN5bW1ldHJpY0dGPy8lKGxhcmdlb3BHRj8vJS5tb3ZhYmxlbGltaXRzR0Y/LyUnYWNjZW50R0Y/LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGTi1JI21pR0YkNilRI3A5RidGL0YyLyUnaXRhbGljR0Y/RjVGOEY7LUYsNjFRKiZjb2xvbmVxO0YnRi9GMkY1RjhGO0Y9RkBGQkZERkZGSEZKL0ZNUSwwLjI3Nzc3NzhlbUYnL0ZQRmVuLUZSNilRKGRpc3BsYXlGJ0YvRjJGVUY1RjhGOy1JKG1mZW5jZWRHRiQ2KC1GIzYpLUZbbzYqLUYjNjUtRlI2KVEqdHJhbnNsYXRlRidGL0YyRlVGNUY4RjstRltvNigtRiM2LS1GUjYpUSdzdGljazJGJ0YvRjJGVUY1RjhGOy1GLDYxUSIsRidGL0YyRjVGOEY7Rj0vRkFGNEZCRkRGRkZIRkpGTC9GUFEsMC4zMzMzMzMzZW1GJy1JI21uR0YkNihRIjBGJ0YvRjJGNUY4RjtGXXAtRmRwNihRIjJGJ0YvRjJGNUY4RjtGL0YyRjUvJStleGVjdXRhYmxlR0Y/RjhGO0YvRjJGNUY4RjtGXXBGY28tRltvNigtRiM2LS1GUjYpUSRkMjBGJ0YvRjJGVUY1RjhGO0ZdcC1GZHA2KFEjMTlGJ0YvRjJGNUY4RjtGXXAtRmRwNihRIjNGJ0YvRjJGNUY4RjtGL0YyRjVGanBGOEY7Ri9GMkY1RjhGO0ZdcEZjby1GW282KC1GIzYtRmBxRl1wLUZkcDYoUSMyNUYnRi9GMkY1RjhGO0ZdcEZmcUYvRjJGNUZqcEY4RjtGL0YyRjVGOEY7Rl1wRmNvLUZbbzYoLUYjNi1Gam9GXXAtRmRwNihRIzQ0RidGL0YyRjVGOEY7Rl1wRmdwRi9GMkY1RmpwRjhGO0YvRjJGNUY4RjtGXXAtRlI2KVEjcjJGJ0YvRjIvRlZGNEY1L0Y5USxib2xkLWl0YWxpY0YnRjtGL0YyRjVGanBGOEY7Ri9GMkY1RjhGOy8lJW9wZW5HUSJ8ZnJGJy8lJmNsb3NlR1EifGhyRidGL0YyRjVGanBGOEY7Ri9GMkY1RjhGOy1GLDYxUSI6RidGL0YyRjVGOEY7Rj1GQEZCRkRGRkZIRkpGWkZmbkYvRjJGNUZqcEY4Rjs=

if roll1>roll2 then p91:=display({b1,translate(stick1,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick2,44,2),r3}): elif roll1=roll2 then p91:=display({b3,translate(stick1,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick1,44,2),r3}): else p91:=display({b2,translate(stick2,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick1,44,2),r3}): end if:

randomize():

roll21:=D20roll():

roll22:=D20roll():

if roll21>roll22 then bigger2:= ">" elif roll21=roll22 then bigger2:= "=" else bigger2:= "<" end if:

if roll21>roll22 then win1:=win1+1 elif roll21<roll22 then win2:=win2+1 end if:

r21 := textplot([[19,2,roll21],[25,2,roll22]],font=[Times,bold,10], color=blue):

r22 := textplot([[18, 6, roll21], [26, 6, roll22]], font = [Times, bold, 20], color = blue): r23 := textplot([[18, 8, roll21], [22, 8, bigger2], [26, 8, roll22]], font = [Times, bold, 26], color = blue):

p10:=display({ translate(stick2,0,2),translate(d20,4,3),translate(d20,40,3),translate(stick2,44,2)}):

p11:=display({ translate(stick2,1,2),translate(d20,4,3),translate(d20,40,3),translate(stick2,43,2)}):

p12:=display({ translate(stick2,0,2),translate(d202,6,3),translate(d202,38,3),translate(stick2,44,2)}):

p13:=display({ translate(stick2,0,2),translate(d203,8,3),translate(d203,36,3),translate(stick2,44,2)}):

p14:=display({ translate(stick2,0,2),translate(d20,10,3),translate(d20,34,3),translate(stick2,44,2)}):

p15:=display({ translate(stick2,0,2),translate(d202,12,3),translate(d202,32,3),translate(stick2,44,2)}):

p16:=display({ translate(stick2,0,2),translate(d203,14,3),translate(d203,30,3),translate(stick2,44,2)}):

p17:=display({ translate(stick2,0,2),translate(d20,16,3),translate(d20,28,3),translate(stick2,44,2)}):

p171:=display({ translate(stick2,0,2),translate(d20,18,3),translate(d20,26,3),translate(stick2,44,2)}):

p172:=display({ translate(stick2,0,2),translate(d20,20,3),translate(d20,24,3),translate(stick2,44,2)}):

p18:=display({translate(stick2,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick2,44,2),r21}):

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYuLUkjbW9HRiQ2MVEifkYnLyUnZmFtaWx5R1EsQ291cmllcn5OZXdGJy8lJWJvbGRHUSV0cnVlRicvJStmb3JlZ3JvdW5kR1EqWzEyOCwwLDBdRicvJSxtYXRodmFyaWFudEdRJWJvbGRGJy8lK2ZvbnR3ZWlnaHRHRjovJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj8vJSlzdHJldGNoeUdGPy8lKnN5bW1ldHJpY0dGPy8lKGxhcmdlb3BHRj8vJS5tb3ZhYmxlbGltaXRzR0Y/LyUnYWNjZW50R0Y/LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGTi1JI21pR0YkNilRJHAxOUYnRi9GMi8lJ2l0YWxpY0dGP0Y1RjhGOy1GLDYxUSomY29sb25lcTtGJ0YvRjJGNUY4RjtGPUZARkJGREZGRkhGSi9GTVEsMC4yNzc3Nzc4ZW1GJy9GUEZlbi1GUjYpUShkaXNwbGF5RidGL0YyRlVGNUY4RjstSShtZmVuY2VkR0YkNigtRiM2KS1GW282Ki1GIzY1LUZSNilRKnRyYW5zbGF0ZUYnRi9GMkZVRjVGOEY7LUZbbzYoLUYjNi0tRlI2KVEnc3RpY2syRidGL0YyRlVGNUY4RjstRiw2MVEiLEYnRi9GMkY1RjhGO0Y9L0ZBRjRGQkZERkZGSEZKRkwvRlBRLDAuMzMzMzMzM2VtRictSSNtbkdGJDYoUSIwRidGL0YyRjVGOEY7Rl1wLUZkcDYoUSIyRidGL0YyRjVGOEY7Ri9GMkY1LyUrZXhlY3V0YWJsZUdGP0Y4RjtGL0YyRjVGOEY7Rl1wRmNvLUZbbzYoLUYjNi0tRlI2KVEkZDIwRidGL0YyRlVGNUY4RjtGXXAtRmRwNihRIzE5RidGL0YyRjVGOEY7Rl1wLUZkcDYoUSIzRidGL0YyRjVGOEY7Ri9GMkY1RmpwRjhGO0YvRjJGNUY4RjtGXXBGY28tRltvNigtRiM2LUZgcUZdcC1GZHA2KFEjMjVGJ0YvRjJGNUY4RjtGXXBGZnFGL0YyRjVGanBGOEY7Ri9GMkY1RjhGO0ZdcEZjby1GW282KC1GIzYtRmpvRl1wLUZkcDYoUSM0NEYnRi9GMkY1RjhGO0ZdcEZncEYvRjJGNUZqcEY4RjtGL0YyRjVGOEY7Rl1wLUZSNilRJHIyMkYnRi9GMkZVRjVGOEY7Ri9GMkY1RmpwRjhGO0YvRjJGNUY4RjsvJSVvcGVuR1EifGZyRicvJSZjbG9zZUdRInxockYnRi9GMkY1RmpwRjhGO0YvRjJGNUY4RjstRiw2MVEiOkYnRi9GMkY1RjhGO0Y9RkBGQkZERkZGSEZKRlpGZm5GL0YyRjVGanBGOEY7

if roll21>roll22 then p191:=display({b1,translate(stick1,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick2,44,2),r23}): elif roll21=roll22 then p191:=display({b3,translate(stick1,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick1,44,2),r23}): else p191:=display({b2,translate(stick2,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick1,44,2),r23}): end if:

roll31:=D20roll():

roll32:=D20roll():

if roll31>roll32 then bigger3:= ">" elif roll31=roll32 then bigger3:= "=" else bigger3:= "<" end if:

if roll31>roll32 then win1:=win1+1 elif roll31<roll32 then win2:=win2+1 end if:

r31 := textplot([[19,2,roll31],[25,2,roll32]],font=[Times,bold,10], color=blue):

r32 := textplot([[18, 6, roll31], [26, 6, roll32]], font = [Times, bold, 20], color = blue): r33 := textplot([[18, 8, roll31], [22, 8, bigger3], [26, 8, roll32]], font = [Times, bold, 26], color = blue):

p20:=display({ translate(stick2,0,2),translate(d20,4,3),translate(d20,40,3),translate(stick2,44,2)}):

p21:=display({ translate(stick2,1,2),translate(d20,4,3),translate(d20,40,3),translate(stick2,43,2)}):

p22:=display({ translate(stick2,0,2),translate(d202,6,3),translate(d202,38,3),translate(stick2,44,2)}):

p23:=display({ translate(stick2,0,2),translate(d203,8,3),translate(d203,36,3),translate(stick2,44,2)}):

p24:=display({ translate(stick2,0,2),translate(d20,10,3),translate(d20,34,3),translate(stick2,44,2)}):

p25:=display({ translate(stick2,0,2),translate(d202,12,3),translate(d202,32,3),translate(stick2,44,2)}):

p26:=display({ translate(stick2,0,2),translate(d203,14,3),translate(d203,30,3),translate(stick2,44,2)}):

p27:=display({ translate(stick2,0,2),translate(d20,16,3),translate(d20,28,3),translate(stick2,44,2)}):

p271:=display({ translate(stick2,0,2),translate(d20,18,3),translate(d20,26,3),translate(stick2,44,2)}):

p272:=display({ translate(stick2,0,2),translate(d20,20,3),translate(d20,24,3),translate(stick2,44,2)}):

p28:=display({translate(stick2,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick2,44,2),r31}):

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYuLUkjbW9HRiQ2MVEifkYnLyUnZmFtaWx5R1EsQ291cmllcn5OZXdGJy8lJWJvbGRHUSV0cnVlRicvJStmb3JlZ3JvdW5kR1EqWzEyOCwwLDBdRicvJSxtYXRodmFyaWFudEdRJWJvbGRGJy8lK2ZvbnR3ZWlnaHRHRjovJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj8vJSlzdHJldGNoeUdGPy8lKnN5bW1ldHJpY0dGPy8lKGxhcmdlb3BHRj8vJS5tb3ZhYmxlbGltaXRzR0Y/LyUnYWNjZW50R0Y/LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGTi1JI21pR0YkNilRJHAyOUYnRi9GMi8lJ2l0YWxpY0dGP0Y1RjhGOy1GLDYxUSomY29sb25lcTtGJ0YvRjJGNUY4RjtGPUZARkJGREZGRkhGSi9GTVEsMC4yNzc3Nzc4ZW1GJy9GUEZlbi1GUjYpUShkaXNwbGF5RidGL0YyRlVGNUY4RjstSShtZmVuY2VkR0YkNigtRiM2KS1GW282Ki1GIzY1LUZSNilRKnRyYW5zbGF0ZUYnRi9GMkZVRjVGOEY7LUZbbzYoLUYjNi0tRlI2KVEnc3RpY2syRidGL0YyRlVGNUY4RjstRiw2MVEiLEYnRi9GMkY1RjhGO0Y9L0ZBRjRGQkZERkZGSEZKRkwvRlBRLDAuMzMzMzMzM2VtRictSSNtbkdGJDYoUSIwRidGL0YyRjVGOEY7Rl1wLUZkcDYoUSIyRidGL0YyRjVGOEY7Ri9GMkY1LyUrZXhlY3V0YWJsZUdGP0Y4RjtGL0YyRjVGOEY7Rl1wRmNvLUZbbzYoLUYjNi0tRlI2KVEkZDIwRidGL0YyRlVGNUY4RjtGXXAtRmRwNihRIzE5RidGL0YyRjVGOEY7Rl1wLUZkcDYoUSIzRidGL0YyRjVGOEY7Ri9GMkY1RmpwRjhGO0YvRjJGNUY4RjtGXXBGY28tRltvNigtRiM2LUZgcUZdcC1GZHA2KFEjMjVGJ0YvRjJGNUY4RjtGXXBGZnFGL0YyRjVGanBGOEY7Ri9GMkY1RjhGO0ZdcEZjby1GW282KC1GIzYtRmpvRl1wLUZkcDYoUSM0NEYnRi9GMkY1RjhGO0ZdcEZncEYvRjJGNUZqcEY4RjtGL0YyRjVGOEY7Rl1wLUZSNilRJHIzMkYnRi9GMkZVRjVGOEY7Ri9GMkY1RmpwRjhGO0YvRjJGNUY4RjsvJSVvcGVuR1EifGZyRicvJSZjbG9zZUdRInxockYnRi9GMkY1RmpwRjhGO0YvRjJGNUY4RjstRiw2MVEiOkYnRi9GMkY1RjhGO0Y9RkBGQkZERkZGSEZKRlpGZm5GL0YyRjVGanBGOEY7

wins := textplot([[-1,1,"Wins:"],[2,1,win1],[43,1,"Wins:"],[46,1,win2]],font=[Times,bold,10], color=red):

if roll31>roll32 then p291:=display({b1,translate(wins,1,-6),translate(stick1,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick2,44,2),r33}): elif roll31=roll32 then p291:=display({b3,translate(wins,1,-6),translate(stick1,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick1,44,2),r33}): else p291:=display({b2,translate(wins,1,-6),translate(stick2,0,2),translate(d20,19,3),translate(d20,25,3),translate(stick1,44,2),r33}): end if:

display([ nam, nam, nam,nam,nam,nam,nam,p0,p1,p2,p3,p4,p5,p6,p7,p71,p72,p8,p8,p8,p8,p8,p9,p91,p91,p91,p91,p91, p10,p11,p12,p13,p14,p15,p16,p17,p171,p172,p18,p18,p18,p18,p18,p19,p191,p191,p191,p191,p191,p20,p21,p22,p23,p24,p25,p26,p27,p271,p272,p28,p28,p28,p28,p28,p29,p291], insequence=true,scaling=constrained, view=[-4..50, -6..8], axes=none);

speed 10

animation generates random numbers each time it's run