Alguien lo arruinará

por Roberto Cárdenas

 

 

 

Para correr el programa da click sobre el cuadro.

// Alguien lo arruinará.
//Roberto Cardenas
fast
set [82 100] 0

pen 100
repeat T 100 0
{
field 0 100 100 1 0
set [82 T]100
}

repeat a 0 100

{
set [a 0] 100
}

pen 100
repeat T 100 0
{
field 0 100 100 2 0
set [82 T]100
}

repeat a 0 100

{
set [a 1] 100
}

pen 100
repeat T 100 0
{
field 0 100 100 2 0
set [82 T]100
}

repeat a 0 100

{
set [a 2] 100
}

pen 100
repeat T 100 0
{
field 0 100 100 3 0
set [82 T]100
}

repeat a 0 100

{
set [a 3] 100
}

pen 100
repeat T 100 0
{
field 0 100 100 4 0
set [82 T]100
}

repeat a 0 100

{
set [a 4] 100
}

pen 100
repeat T 100 0
{
field 0 100 100 5 0
set [82 T]100
}

repeat a 0 100

{
set [a 5] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 6 0
set [82 T]100
}

repeat a 0 100

{
set [a 6] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 7 0
set [82 T]100
}

repeat a 0 100

{
set [a 7] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 8 0
set [82 T]100
}

repeat a 0 100

{
set [a 8] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 9 0
set [82 T]100
}

repeat a 0 100

{
set [a 9] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 10 0
set [82 T]100
}

repeat a 0 100

{
set [a 10] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 11 0
set [82 T]100
}

repeat a 0 100

{
set [a 11] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 12 0
set [82 T]100
}

repeat a 0 100

{
set [a 12] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 13 0
set [82 T]100
}

repeat a 0 100

{
set [a 13] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 14 0
set [82 T]100
}

repeat a 0 100

{
set [a 14] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 15 0
set [82 T]100
}

repeat a 0 100

{
set [a 15] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 16 0
set [82 T]100
}

repeat a 0 100

{
set [a 16] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 17 0
set [82 T]100
}

repeat a 0 100

{
set [a 17] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 18 0
set [82 T]100
}

repeat a 0 100

{
set [a 18] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 19 0
set [82 T]100
}

repeat a 0 100

{
set [a 19] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 20 0
set [82 T]100
}

repeat a 0 100

{
set [a 20] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 21 0
set [82 T]100
}

repeat a 0 100

{
set [a 21] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 22 0
set [82 T]100
}

repeat a 0 100

{
set [a 22] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 23 0
set [82 T]100
}

repeat a 0 100

{
set [a 23] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 24 0
set [82 T]100
}

repeat a 0 100

{
set [a 24] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 25 0
set [82 T]100
}

repeat a 0 100

{
set [a 25] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 26 0
set [82 T]100
}

repeat a 0 100

{
set [a 26] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 27 0
set [82 T]100
}

repeat a 0 100

{
set [a 27] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 28 0
set [82 T]100
}

repeat a 0 100

{
set [a 28] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 29 0
set [82 T]100
}

repeat a 0 100

{
set [a 29] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 30 0
set [82 T]100
}

repeat a 0 100

{
set [a 30] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 31 0
set [82 T]100
}

repeat a 0 100

{
set [a 31] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 32 0
set [82 T]100
}

repeat a 0 100

{
set [a 32] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 33 0
set [82 T]100
}

repeat a 0 100

{
set [a 33] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 34 0
set [82 T]100
}

repeat a 0 100

{
set [a 34] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 35 0
set [82 T]100
}

repeat a 0 100

{
set [a 35] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 36 0
set [82 T]100
}

repeat a 0 100

{
set [a 36] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 37 0
set [82 T]100
}

repeat a 0 100

{
set [a 37] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 38 0
set [82 T]100
}

repeat a 0 100

{
set [a 38] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 39 0
set [82 T]100
}

repeat a 0 100

{
set [a 39] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 40 0
set [82 T]100
}

repeat a 0 100

{
set [a 40] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 41 0
set [82 T]100
}

repeat a 0 100

{
set [a 41] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 42 0
set [82 T]100
}

repeat a 0 100

{
set [a 42] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 43 0
set [82 T]100
}

repeat a 0 100

{
set [a 43] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 44 0
set [82 T]100
}

repeat a 0 100

{
set [a 44] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 45 0
set [82 T]100
}

repeat a 0 100

{
set [a 45] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 46 0
set [82 T]100
}

repeat a 0 100

{
set [a 46] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 47 0
set [82 T]100
}

repeat a 0 100

{
set [a 47] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 48 0
set [82 T]100
}

repeat a 0 100

{
set [a 48] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 49 0
set [82 T]100
}

repeat a 0 100

{
set [a 49] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 50 0
set [82 T]100
}

repeat a 0 100

{
set [a 50] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 51 0
set [82 T]100
}

repeat a 0 100

{
set [a 51] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 52 0
set [82 T]100
}

repeat a 0 100

{
set [a 52] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 53 0
set [82 T]100
}

repeat a 0 100

{
set [a 53] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 54 0
set [82 T]100
}

repeat a 0 100

{
set [a 54] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 55 0
set [82 T]100
}

repeat a 0 100

{
set [a 55] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 56 0
set [82 T]100
}

repeat a 0 100

{
set [a 56] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 57 0
set [82 T]100
}

repeat a 0 100

{
set [a 57] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 58 0
set [82 T]100
}

repeat a 0 100

{
set [a 58] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 59 0
set [82 T]100
}

repeat a 0 100

{
set [a 59] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 60 0
set [82 T]100
}

repeat a 0 100

{
set [a 60] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 61 0
set [82 T]100
}

repeat a 0 100

{
set [a 61] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 62 0
set [82 T]100
}

repeat a 0 100

{
set [a 62] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 63 0
set [82 T]100
}

repeat a 0 100

{
set [a 63] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 64 0
set [82 T]100
}

repeat a 0 100

{
set [a 64] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 65 0
set [82 T]100
}

repeat a 0 100

{
set [a 65] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 66 0
set [82 T]100
}

repeat a 0 100

{
set [a 66] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 67 0
set [82 T]100
}

repeat a 0 100

{
set [a 67] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 68 0
set [82 T]100
}

repeat a 0 100

{
set [a 68] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 69 0
set [82 T]100
}

repeat a 0 100

{
set [a 69] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 70 0
set [82 T]100
}

repeat a 0 100

{
set [a 70] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 71 0
set [82 T]100
}

repeat a 0 100

{
set [a 71] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 72 0
set [82 T]100
}

repeat a 0 100

{
set [a 72] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 73 0
set [82 T]100
}

repeat a 0 100

{
set [a 73] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 74 0
set [82 T]100
}

repeat a 0 100

{
set [a 74] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 75 0
set [82 T]100
}

repeat a 0 100

{
set [a 75] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 76 0
set [82 T]100
}

repeat a 0 100

{
set [a 76] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 77 0
set [82 T]100
}

repeat a 0 100

{
set [a 77] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 78 0
set [82 T]100
}

repeat a 0 100

{
set [a 78] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 79 0
set [82 T]100
}

repeat a 0 100

{
set [a 79] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 80 0
set [82 T]100
}

repeat a 0 100

{
set [a 80] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 81 0
set [82 T]100
}

repeat a 0 100

{
set [a 81] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 82 0
set [82 T]100
}

repeat a 0 100

{
set [a 82] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 83 0
set [82 T]100
}

repeat a 0 100

{
set [a 83] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 84 0
set [82 T]100
}

repeat a 0 100

{
set [a 84] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 85 0
set [82 T]100
}

repeat a 0 100

{
set [a 85] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 86 0
set [82 T]100
}

repeat a 0 100

{
set [a 86] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 87 0
set [82 T]100
}

repeat a 0 100

{
set [a 87] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 88 0
set [82 T]100
}

repeat a 0 100

{
set [a 88] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 89 0
set [82 T]100
}

repeat a 0 100

{
set [a 89] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 90 0
set [82 T]100
}

repeat a 0 100

{
set [a 90] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 91 0
set [82 T]100
}

repeat a 0 100

{
set [a 91] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 92 0
set [82 T]100
}

repeat a 0 100

{
set [a 92] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 93 0
set [82 T]100
}

repeat a 0 100

{
set [a 93] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 94 0
set [82 T]100
}

repeat a 0 100

{
set [a 94] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 95 0
set [82 T]100
}

repeat a 0 100

{
set [a 95] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 96 0
set [82 T]100
}

repeat a 0 100

{
set [a 96] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 97 0
set [82 T]100
}

repeat a 0 100

{
set [a 97] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 98 0
set [82 T]100
}

repeat a 0 100

{
set [a 98] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 99 0
set [82 T]100
}

repeat a 0 100

{
set [a 99] 100
}
pen 100
repeat T 100 0
{
field 0 100 100 100 0
set [82 T]100
}

repeat a 0 100

{
set [a 100] 100
}

<< Ir atrás

+ piezas:

Riso's Final - Recordando algo bonito - Casa - Me recuerda a Zelda - Alguien lo arruinará - Buscando recepción - CPUBert2 - Todo siempre esta bien, hasta que deja de estarlo