[JesseParticipant]

I did managed to convert that example:

Monkey

[crayon-5cba9748a06d2494671633 inline="true" ] Import "<std>" Using std.. Global MD5_x:Int[] 'MD5 for BlitzMax 'Derived from Craig Kiesau's BlitzBasic MD5 function 'Derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm Function MD5:String(sMessage:String) Local i:Int 'Pads the String as per the MD5 standard Local nblk:Int = ((sMessage.Length + 8) Shr 6) + 1 'number of 16-word blocks Local MD5_x := New Int[(nblk * 16)] 'Zero pad the String For i = 0 To nblk * 16 - 1 MD5_x[i] = 0 Next 'Convert To array of "words" For i = 0 To (sMessage.Length - 1) MD5_x[(i Shr 2)] = MD5_x[(i Shr 2)] | (sMessage[i + 1] Shl ((i Mod 4) * 8)) Next MD5_x[(i Shr 2)] = MD5_x[(i Shr 2)] | (128 Shl (((i) Mod 4) * 8)) MD5_x[nblk * 16 - 2] = (sMessage.Length) * 8 'Set initial values Local MD5_a:Int = 1732584193 '&H67452301 Local MD5_b:Int = -271733879 '&HEFCDAB89 Local MD5_c:Int = -1732584194 '&H98BADCFE Local MD5_d:Int = 271733878 '&H10325476 'Loop through the words For Local k:Int = 0 To (nblk * 16 - 1) Step 16 Local MD5_AA:Int = MD5_a Local MD5_BB:Int = MD5_b Local MD5_CC:Int = MD5_c Local MD5_DD:Int = MD5_d 'Round 1 MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 0], 7, -680876936) '&HD76AA478 MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 1], 12, -389564586) '&HE8C7B756 MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 2], 17, 606105819 )'&H242070DB MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 3], 22, -1044525330) '&HC1BDCEEE MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 4], 7, -176418897) '&HF57C0FAF MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 5], 12, 1200080426 )'&H4787C62A MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 6], 17, -1473231341) '&HA8304613 MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 7], 22, -45705983) '&HFD469501 MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 8], 7, 1770035416) '&H698098D8 MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 9], 12, -1958414417 )'&H8B44F7AF MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 10], 17, -42063 )'&HFFFF5BB1 MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 11], 22, -1990404162) '&H895CD7BE MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 12], 7, 1804603682) '&H6B901122 MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 13], 12, -40341101) '&HFD987193 MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 14], 17, -1502002290) '&HA679438E MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 15], 22, 1236535329) '&H49B40821 'Round 2 MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 1], 5, -165796510) '&HF61E2562 MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 6], 9, -1069501632) '&HC040B340 MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 11], 14, 643717713) '&H265E5A51 MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 0], 20, -373897302) '&HE9B6C7AA MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 5], 5, -701558691) '&HD62F105D MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 10], 9, 38016083) '&H2441453 MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 15], 14, -660478335) '&HD8A1E681 MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 4], 20, -405537848) '&HE7D3FBC8 MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 9], 5, 568446438) '&H21E1CDE6 MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 14], 9, -1019803690) '&HC33707D6 MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 3], 14, -187363961) '&HF4D50D87 MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 8], 20, 1163531501) '&H455A14ED MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 13], 5, -1444681467) '&HA9E3E905 MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 2], 9, -51403784) '&HFCEFA3F8 MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 7], 14, 1735328473) '&H676F02D9 MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 12], 20, -1926607734) '&H8D2A4C8A 'Round 3 MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 5], 4, -378558) '&HFFFA3942 MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 8], 11, -2022574463) '&H8771F681 MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 11], 16, 1839030562) '&H6D9D6122 MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 14], 23, -35309556) '&HFDE5380C MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 1], 4, -1530992060) '&HA4BEEA44 MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 4], 11, 1272893353) '&H4BDECFA9 MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 7], 16, -155497632) '&HF6BB4B60 MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 10], 23, -1094730640) '&HBEBFBC70 MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 13], 4, 681279174) '&H289B7EC6 MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 0], 11, -358537222) '&HEAA127FA MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 3], 16, -722521979) '&HD4EF3085 MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 6], 23, 76029189) '&H4881D05 MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 9], 4, -640364487) '&HD9D4D039 MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 12], 11, -421815835) '&HE6DB99E5 MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 15], 16, 530742520) '&H1FA27CF8 MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 2], 23, -995338651) '&HC4AC5665 'Round 4 MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 0], 6, -198630844) '&HF4292244 MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 7], 10, 1126891415) '&H432AFF97 MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 14], 15, -1416354905) '&HAB9423A7 MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 5], 21, -57434055) '&HFC93A039 MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 12], 6, 1700485571) '&H655B59C3 MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 3], 10, -1894986606) '&H8F0CCC92 MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 10], 15, -1051523) '&HFFEFF47D MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 1], 21, -2054922799) '&H85845DD1 MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 8], 6, 1873313359) '&H6FA87E4F MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 15], 10, -30611744) '&HFE2CE6E0 MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 6], 15, -1560198380 )'&HA3014314 MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 13], 21, 1309151649) '&H4E0811A1 MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 4], 6, -145523070) '&HF7537E82 MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 11], 10, -1120210379) '&HBD3AF235 MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 2], 15, 718787259) '&H2AD7D2BB MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 9], 21, -343485551) '&HEB86D391 MD5_a = MD5_a + MD5_AA MD5_b = MD5_b + MD5_BB MD5_c = MD5_c + MD5_CC MD5_d = MD5_d + MD5_DD Next Return (WordToHex(MD5_a) + WordToHex(MD5_b) + WordToHex(MD5_c) + WordToHex(MD5_d)).ToUpper() End Function Function MD5_F:Int(x:Int, y:Int, z:Int) Return ((x & y) | (~(x) & z)) End Function Function MD5_G:Int(x:Int, y:Int, z:Int) Return ((x & z) | (y & (~(z)))) End Function Function MD5_H:Int(x:Int, y:Int, z:Int) Return (x ~ y ~ z) End Function Function MD5_I:Int(x:Int, y:Int, z:Int) Return (y ~ (x | (~z))) End Function Function MD5_FF:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int) a = (a + ((MD5_F(b, c, d)+ x)+ ac)) a = RotateLeft(a, s) Return a + b End Function Function MD5_GG:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int) a = (a + ((MD5_G(b, c, d) + x) + ac)) a = RotateLeft(a, s) Return a + b End Function Function MD5_HH:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int) a = (a + ((MD5_H(b, c, d) + x) + ac)) a = RotateLeft(a, s) Return a + b End Function Function MD5_II:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int) a = (a + ((MD5_I(b, c, d) + x) + ac)) a = RotateLeft(a, s) Return a + b End Function Function RotateLeft:Int(lValue:Int, iShiftBits:Int) Return (lValue Shl iShiftBits) | (lValue Shr (32 - iShiftBits)) End Function Function WordToHex:String(lValue:Int) Local returnString:String returnString = ULongToString(lValue,16) Return returnString.Slice(6,8) + returnString.Slice(4,6) + returnString.Slice(2,4) + returnString.Slice(0,2) End Function

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165

[crayon-5cba9748a06d2494671633 inline="true" ] Import "<std>" Using std..   Global MD5_x:Int[] 'MD5 for BlitzMax 'Derived from Craig Kiesau's BlitzBasic MD5 function 'Derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm   Function MD5:String(sMessage:String) Local i:Int     'Pads the String as per the MD5 standard     Local nblk:Int = ((sMessage.Length + 8) Shr 6) + 1  'number of 16-word blocks     Local MD5_x := New Int[(nblk * 16)]     'Zero pad the String     For i = 0 To nblk * 16 - 1       MD5_x[i] = 0     Next     'Convert To array of "words"     For i = 0 To (sMessage.Length - 1)       MD5_x[(i Shr 2)] = MD5_x[(i Shr 2)] | (sMessage[i + 1] Shl ((i Mod 4) * 8))    Next     MD5_x[(i Shr 2)] = MD5_x[(i Shr 2)] | (128 Shl (((i) Mod 4) * 8))     MD5_x[nblk * 16 - 2] = (sMessage.Length) * 8              'Set initial values     Local MD5_a:Int = 1732584193 '&H67452301     Local MD5_b:Int = -271733879 '&HEFCDAB89     Local MD5_c:Int = -1732584194 '&H98BADCFE     Local MD5_d:Int = 271733878 '&H10325476           'Loop through the words     For Local k:Int = 0 To (nblk * 16 - 1) Step 16         Local MD5_AA:Int = MD5_a         Local MD5_BB:Int = MD5_b         Local MD5_CC:Int = MD5_c         Local MD5_DD:Int = MD5_d     'Round 1         MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 0], 7, -680876936) '&HD76AA478         MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 1], 12, -389564586) '&HE8C7B756         MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 2], 17, 606105819 )'&H242070DB         MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 3], 22, -1044525330) '&HC1BDCEEE         MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 4], 7, -176418897) '&HF57C0FAF         MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 5], 12, 1200080426 )'&H4787C62A         MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 6], 17, -1473231341) '&HA8304613         MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 7], 22, -45705983) '&HFD469501         MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 8], 7, 1770035416) '&H698098D8         MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 9], 12, -1958414417 )'&H8B44F7AF         MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 10], 17, -42063 )'&HFFFF5BB1         MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 11], 22, -1990404162) '&H895CD7BE         MD5_a = MD5_FF(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 12], 7, 1804603682) '&H6B901122         MD5_d = MD5_FF(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 13], 12, -40341101) '&HFD987193         MD5_c = MD5_FF(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 14], 17, -1502002290) '&HA679438E         MD5_b = MD5_FF(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 15], 22, 1236535329) '&H49B40821     'Round 2         MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 1], 5, -165796510) '&HF61E2562         MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 6], 9, -1069501632) '&HC040B340         MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 11], 14, 643717713) '&H265E5A51         MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 0], 20, -373897302) '&HE9B6C7AA         MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 5], 5, -701558691) '&HD62F105D         MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 10], 9, 38016083) '&H2441453         MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 15], 14, -660478335) '&HD8A1E681         MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 4], 20, -405537848) '&HE7D3FBC8         MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 9], 5, 568446438) '&H21E1CDE6         MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 14], 9, -1019803690) '&HC33707D6         MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 3], 14, -187363961) '&HF4D50D87         MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 8], 20, 1163531501) '&H455A14ED         MD5_a = MD5_GG(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 13], 5, -1444681467) '&HA9E3E905         MD5_d = MD5_GG(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 2], 9, -51403784) '&HFCEFA3F8         MD5_c = MD5_GG(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 7], 14, 1735328473) '&H676F02D9         MD5_b = MD5_GG(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 12], 20, -1926607734) '&H8D2A4C8A     'Round 3         MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 5], 4, -378558) '&HFFFA3942         MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 8], 11, -2022574463) '&H8771F681         MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 11], 16, 1839030562) '&H6D9D6122         MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 14], 23, -35309556) '&HFDE5380C         MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 1], 4, -1530992060) '&HA4BEEA44         MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 4], 11, 1272893353) '&H4BDECFA9         MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 7], 16, -155497632) '&HF6BB4B60         MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 10], 23, -1094730640) '&HBEBFBC70         MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 13], 4, 681279174) '&H289B7EC6         MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 0], 11, -358537222) '&HEAA127FA         MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 3], 16, -722521979) '&HD4EF3085         MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 6], 23, 76029189) '&H4881D05         MD5_a = MD5_HH(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 9], 4, -640364487) '&HD9D4D039         MD5_d = MD5_HH(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 12], 11, -421815835) '&HE6DB99E5         MD5_c = MD5_HH(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 15], 16, 530742520) '&H1FA27CF8         MD5_b = MD5_HH(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 2], 23, -995338651) '&HC4AC5665     'Round 4         MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 0], 6, -198630844) '&HF4292244         MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 7], 10, 1126891415) '&H432AFF97         MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 14], 15, -1416354905) '&HAB9423A7         MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 5], 21, -57434055) '&HFC93A039         MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 12], 6, 1700485571) '&H655B59C3         MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 3], 10, -1894986606) '&H8F0CCC92         MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 10], 15, -1051523) '&HFFEFF47D         MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 1], 21, -2054922799) '&H85845DD1         MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 8], 6, 1873313359) '&H6FA87E4F         MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 15], 10, -30611744) '&HFE2CE6E0         MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 6], 15, -1560198380 )'&HA3014314         MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 13], 21, 1309151649) '&H4E0811A1               MD5_a = MD5_II(MD5_a, MD5_b, MD5_c, MD5_d, MD5_x[k + 4], 6, -145523070) '&HF7537E82         MD5_d = MD5_II(MD5_d, MD5_a, MD5_b, MD5_c, MD5_x[k + 11], 10, -1120210379) '&HBD3AF235         MD5_c = MD5_II(MD5_c, MD5_d, MD5_a, MD5_b, MD5_x[k + 2], 15, 718787259) '&H2AD7D2BB         MD5_b = MD5_II(MD5_b, MD5_c, MD5_d, MD5_a, MD5_x[k + 9], 21, -343485551) '&HEB86D391           MD5_a = MD5_a + MD5_AA         MD5_b = MD5_b + MD5_BB         MD5_c = MD5_c + MD5_CC         MD5_d = MD5_d + MD5_DD     Next       Return (WordToHex(MD5_a) + WordToHex(MD5_b) + WordToHex(MD5_c) + WordToHex(MD5_d)).ToUpper() End Function   Function MD5_F:Int(x:Int, y:Int, z:Int)         Return ((x & y) | (~(x) & z)) End Function   Function MD5_G:Int(x:Int, y:Int, z:Int)     Return ((x & z) | (y & (~(z)))) End Function   Function MD5_H:Int(x:Int, y:Int, z:Int)     Return (x ~ y ~ z) End Function   Function MD5_I:Int(x:Int, y:Int, z:Int)     Return (y ~ (x | (~z))) End Function   Function MD5_FF:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int)     a = (a + ((MD5_F(b, c, d)+ x)+ ac))     a = RotateLeft(a, s)     Return a + b End Function   Function MD5_GG:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int)     a = (a + ((MD5_G(b, c, d) + x) + ac))     a = RotateLeft(a, s)     Return a + b End Function   Function MD5_HH:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int)     a = (a + ((MD5_H(b, c, d) + x) + ac))     a = RotateLeft(a, s)     Return a + b End Function   Function MD5_II:Int(a:Int, b:Int, c:Int, d:Int, x:Int, s:Int, ac:Int)     a = (a + ((MD5_I(b, c, d) + x) + ac))     a = RotateLeft(a, s)     Return a + b End Function   Function RotateLeft:Int(lValue:Int, iShiftBits:Int)     Return (lValue Shl iShiftBits) | (lValue Shr (32 - iShiftBits)) End Function   Function WordToHex:String(lValue:Int) Local returnString:String returnString = ULongToString(lValue,16) Return returnString.Slice(6,8) + returnString.Slice(4,6) + returnString.Slice(2,4) + returnString.Slice(0,2) End Function

[/crayon]

I was trying to convert the first link example(http://wasted.nz/codearcs.php?code=1449)but apparently the slice function doesn’t work with non strings:

Monkey

[crayon-5cba9748a06e2802878507 inline="true" ] Function Main() Local a:Int[] = New Int[](9,8,7,6,5,4,3,2,1) Local b := a.Slice(2,2) Print b.Length Print b[0]+" "+b[1] End Function

1 2 3 4 5 6 7 8

[crayon-5cba9748a06e2802878507 inline="true" ] Function Main() Local a:Int[] = New Int[](9,8,7,6,5,4,3,2,1) Local b := a.Slice(2,2) Print b.Length Print b[0]+"  "+b[1] End Function

[/crayon]

this gives me an error. “Index out of Range”.

that’s the only thing that stops me from finishing it.

[JesseParticipant]

I am getting the same error Mark. It’s the same as what I posted in my previous post. That’s with your newest modification.

I think the root of the problem is that we are using the newest Emscripten(1.37.9) vs the version that Mark seems to be using (1.35.0). When I had 1.35.0 I didn’t have that problem.

[JesseParticipant]

I haven’t used Emscripten since posting the issue. I was waiting for it to become more stable with the language. I no longer have the itch.io version. I am using the development version. But even that give me errors:

Parsing…
Semanting…
Translating…
Compiling…
Build error: System command failed:

emcc -c -std=gnu99 -s USE_SDL=2 -s TOTAL_MEMORY=268435456 -s DISABLE_EXCEPTION_CATCHING=1 -O3 -DNDEBUG -I”/Users/jesse/monkey2/modules/” -I”/Users/jesse/monkey2/modules/monkey/native” -o “/Users/jesse/monkey2/modules/opengl/opengl.buildv1.1.09/emscripten_release/build/_1_1_1native_2bbopengl.c.o” “/Users/jesse/monkey2/modules/opengl/native/bbopengl.c”

/Users/jesse/monkey2/modules/opengl/native/bbopengl.c:41:20: error: implicit declaration of function ‘SDL_GL_ExtensionSupported’ is invalid in C99 [-Werror,-Wimplicit-function-declaration]
BBGL_draw_buffers=SDL_GL_ExtensionSupported( “GL_WEBGL_draw_buffers” );
^
1 error generated.
ERROR:root:compiler frontend failed to generate LLVM bitcode, halting

***** Fatal mx2cc error *****

Internal mx2cc build error

Update modules failed.
Total time elapsed: 3 m 44 s.

I’ll try the itch.io and report back.

[edit]

I did try the Itch.io version but it gives me this errors:

Mx2cc version 1.1.08

***** Building app ‘/Applications/Monkey2-v1.1.08/bananas/particles/particles.monkey2′ *****

Parsing…
Semanting…
Translating…
Compiling…
Linking /Applications/Monkey2-v1.1.08/bananas/particles/particles.products/Emscripten/Particles.js…
Build error: System command ’em++ -s USE_SDL=2 -s TOTAL_MEMORY=268435456 -s DISABLE_EXCEPTION_CATCHING=1 -O2 –preload-file “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/assets/@/assets” -s BINARYEN=1 -s BINARYEN_TRAP_MODE=’allow’ -o “/Applications/Monkey2-v1.1.08/bananas/particles/particles.products/Emscripten/Particles.js” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2mojo_2mojo.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2std_2std.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2stb_5vorbis_2stb_5vorbis.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2stb_5image_5write_2stb_5image_5write.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2stb_5image_2stb_5image.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2miniz_2miniz.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2sdl2_2sdl2.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2jni_2jni.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2openal_2openal.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2gles20_2gles20.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2libc_2libc.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2freetype_2freetype.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2emscripten_2emscripten.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2monkey_2monkey.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/particles_0particles.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/particles_0monkey_0math.cpp.o” “/Applications/Monkey2-v1.1.08/modules/mojo/mojo.buildv1.1.08/emscripten_debug/mojo.a” “/Applications/Monkey2-v1.1.08/modules/std/std.buildv1.1.08/emscripten_debug/std.a” “/Applications/Monkey2-v1.1.08/modules/stb-vorbis/stb-vorbis.buildv1.1.08/emscripten_debug/stb-vorbis.a” “/Applications/Monkey2-v1.1.08/modules/stb-image-write/stb-image-write.buildv1.1.08/emscripten_debug/stb-image-write.a” “/Applications/Monkey2-v1.1.08/modules/stb-image/stb-image.buildv1.1.08/emscripten_debug/stb-image.a” “/Applications/Monkey2-v1.1.08/modules/miniz/miniz.buildv1.1.08/emscripten_debug/miniz.a” “/Applications/Monkey2-v1.1.08/modules/sdl2/sdl2.buildv1.1.08/emscripten_debug/sdl2.a” “/Applications/Monkey2-v1.1.08/modules/jni/jni.buildv1.1.08/emscripten_debug/jni.a” “/Applications/Monkey2-v1.1.08/modules/openal/openal.buildv1.1.08/emscripten_debug/openal.a” “/Applications/Monkey2-v1.1.08/modules/gles20/gles20.buildv1.1.08/emscripten_debug/gles20.a” “/Applications/Monkey2-v1.1.08/modules/libc/libc.buildv1.1.08/emscripten_debug/libc.a” “/Applications/Monkey2-v1.1.08/modules/freetype/freetype.buildv1.1.08/emscripten_debug/freetype.a” “/Applications/Monkey2-v1.1.08/modules/emscripten/emscripten.buildv1.1.08/emscripten_debug/emscripten.a” “/Applications/Monkey2-v1.1.08/modules/monkey/monkey.buildv1.1.08/emscripten_debug/monkey.a” ‘ failed.

em++ -s USE_SDL=2 -s TOTAL_MEMORY=268435456 -s DISABLE_EXCEPTION_CATCHING=1 -O2 –preload-file “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/assets/@/assets” -s BINARYEN=1 -s BINARYEN_TRAP_MODE=’allow’ -o “/Applications/Monkey2-v1.1.08/bananas/particles/particles.products/Emscripten/Particles.js” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2mojo_2mojo.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2std_2std.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2stb_5vorbis_2stb_5vorbis.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2stb_5image_5write_2stb_5image_5write.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2stb_5image_2stb_5image.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2miniz_2miniz.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2sdl2_2sdl2.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2jni_2jni.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2openal_2openal.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2gles20_2gles20.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2libc_2libc.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2freetype_2freetype.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2emscripten_2emscripten.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/_1_1_1_1_1modules_2monkey_2monkey.buildv1.1.08_2emscripten_0debug_2include_2_0r.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/particles_0particles.cpp.o” “/Applications/Monkey2-v1.1.08/bananas/particles/particles.buildv1.1.08/emscripten_debug/build/particles_0monkey_0math.cpp.o” “/Applications/Monkey2-v1.1.08/modules/mojo/mojo.buildv1.1.08/emscripten_debug/mojo.a” “/Applications/Monkey2-v1.1.08/modules/std/std.buildv1.1.08/emscripten_debug/std.a” “/Applications/Monkey2-v1.1.08/modules/stb-vorbis/stb-vorbis.buildv1.1.08/emscripten_debug/stb-vorbis.a” “/Applications/Monkey2-v1.1.08/modules/stb-image-write/stb-image-write.buildv1.1.08/emscripten_debug/stb-image-write.a” “/Applications/Monkey2-v1.1.08/modules/stb-image/stb-image.buildv1.1.08/emscripten_debug/stb-image.a” “/Applications/Monkey2-v1.1.08/modules/miniz/miniz.buildv1.1.08/emscripten_debug/miniz.a” “/Applications/Monkey2-v1.1.08/modules/sdl2/sdl2.buildv1.1.08/emscripten_debug/sdl2.a” “/Applications/Monkey2-v1.1.08/modules/jni/jni.buildv1.1.08/emscripten_debug/jni.a” “/Applications/Monkey2-v1.1.08/modules/openal/openal.buildv1.1.08/emscripten_debug/openal.a” “/Applications/Monkey2-v1.1.08/modules/gles20/gles20.buildv1.1.08/emscripten_debug/gles20.a” “/Applications/Monkey2-v1.1.08/modules/libc/libc.buildv1.1.08/emscripten_debug/libc.a” “/Applications/Monkey2-v1.1.08/modules/freetype/freetype.buildv1.1.08/emscripten_debug/freetype.a” “/Applications/Monkey2-v1.1.08/modules/emscripten/emscripten.buildv1.1.08/emscripten_debug/emscripten.a” “/Applications/Monkey2-v1.1.08/modules/monkey/monkey.buildv1.1.08/emscripten_debug/monkey.a”

Traceback (most recent call last):
File “/Users/jesse/emsdk/emscripten/1.37.9/em++”, line 16, in <module>
emcc.run()
File “/Users/jesse/emsdk/emscripten/1.37.9/emcc.py”, line 1033, in run
exec ‘shared.Settings.’ + key + ‘ = ‘ + value in globals(), locals()
File “<string>”, line 1, in <module>
NameError: name ‘allow’ is not defined

***** Fatal mx2cc error *****

Internal mx2cc build error

I am using emsdk 1.37.9

[JesseParticipant]

Thanks, I have been playing around with the code, I can get the examples as they are in the book, and I can modify the code in the GLSL editor and get different results but I am having problems converting the code to Monkey2. I will keep trying but any help would really be appreciated.

[JesseParticipant]

Yea, I got kind of lazy and was just doing some quick modifications because of the results I was getting. I am sure you can figure out the proper way to do it. Basically the problem was in the rotation formula.

Monkey

[crayon-5cba9748bc7c5741073975 inline="true" ] Local gunPosX:Float = ofx * Cos(-r+Pi/2) - ofy * Sin(-r+Pi/2) '******************** Local gunPosY:Float = ofx * Sin(-r+Pi/2) + ofy * Cos(-r+Pi/2) '********************

1 2 3 4

[crayon-5cba9748bc7c5741073975 inline="true" ]    Local gunPosX:Float = ofx * Cos(-r+Pi/2) - ofy * Sin(-r+Pi/2) '******************** Local gunPosY:Float = ofx * Sin(-r+Pi/2) + ofy * Cos(-r+Pi/2) '********************

[/crayon]

you didn’t have offy on the second line you had ofx on both sides of the formula.
Also, you forgot to add the position(x,y) of the bullet to the direction(dx,dy). about the -Pi/2, the Pi/2 is what you started off in the sprite. I am not sure I can explain it to you but you start with the sprite “Field r:Float = Pi/2” and then your RotationDisplay has an offset angle of 90 degrees. so thats why the adjustment of -Pi/2, at least that’s what I got out of it.

[EDIT]

This is more like it:

Monkey

[crayon-5cba9748bc7cb862604546 inline="true" ] Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Const FPS:Int = 60 Field player:Player Field timer:Timer Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) ClearColor = Color.Black Layout="letterbox" player = New Player(100, 100) timer = New Timer(FPS, OnUpdate) End Method OnRender( canvas:Canvas ) Override player.Render(canvas) Bullet.RenderAll(canvas) End Method OnUpdate() RequestRender() player.Update() Bullet.UpdateAll() End Method OnMeasure:Vec2i() Override Return Size End End Class Sprite Field x:Float Field y:Float Field r:Float = 0 Field sizeW:Float Field sizeH:Float Field colour:Color Field velocity:Vec2f = New Vec2f(0, 0) End Class Player Extends Sprite Method New(x:Float ,y:Float) Self.x = x Self.y = y Self.sizeW = 100 Self.sizeH = 50 Self.colour = Color.Green End Method Render(canvas:Canvas ) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x ,y ).Rotate( r) canvas.DrawRect(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Color = Color.Red canvas.DrawRect((sizeW/2)-10, (sizeH/2)-10, 10, 10) canvas.Matrix=matrix canvas.DrawText("r = " +r, 0, 0) End Method Update() Local s:Float = 2 Local am:Float = 0.08 Local factor:Float = 1.5 If Keyboard.KeyDown(Key.W) velocity.x += (1 * factor - velocity.x) * am Elseif Keyboard.KeyDown(Key.S) velocity.x += (-1 * factor - velocity.x) * am Else velocity.x *= .99 End If Keyboard.KeyDown(Key.A) r += .1 End If Keyboard.KeyDown(Key.D) r -= .1 End x += velocity.x If Keyboard.KeyHit(Key.Space) New Bullet(x, y, r) End End End Class Bullet Extends Sprite Global list := New List<Bullet> Field timeToLive:Int Field speed:Float = 5 Method New(x:Float, y: Float, r:Float) Self.x = x Self.y = y Self.r = -r Local ofx:Int = 50 Local ofy:Int = 25 Local gunPosX:Float = ofx * Cos(-r) - ofy * Sin(-r) '******************** Local gunPosY:Float = ofx * Sin(-r) + ofy * Cos(-r) '******************** Self.x = x+gunPosX Self.y = y+gunPosY Self.timeToLive = 20 Self.sizeW = 40 Self.sizeH = 15 Self.colour = Color.Red Self.list.AddLast(Self) End Function UpdateAll() If Not list Return Local it := list.All() While Not it.AtEnd Local b:Bullet = it.Current b.Update() If b.timeToLive <= 0 it.Erase() Else it.Bump() End End End Method Update() Local dx:Float = Sin(-r+Pi/2) * speed '************************ Local dy:Float = Cos(-r+Pi/2) * speed '************************ x += dx y += dy timeToLive -= 1 End Function RenderAll:Void(canvas:Canvas) If Not list Return For Local c:Bullet = Eachin list c.Render(canvas) Next End Method Render(canvas:Canvas) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x,y ).Rotate(-r) canvas.DrawOval(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Matrix=matrix End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175

[crayon-5cba9748bc7cb862604546 inline="true" ] Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Const FPS:Int = 60 Field player:Player Field timer:Timer Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) ClearColor = Color.Black Layout="letterbox" player = New Player(100, 100) timer = New Timer(FPS, OnUpdate) End Method OnRender( canvas:Canvas ) Override player.Render(canvas) Bullet.RenderAll(canvas) End Method OnUpdate() RequestRender() player.Update() Bullet.UpdateAll() End Method OnMeasure:Vec2i() Override Return Size End End Class Sprite Field x:Float Field y:Float Field r:Float = 0 Field sizeW:Float Field sizeH:Float Field colour:Color Field velocity:Vec2f = New Vec2f(0, 0) End Class Player Extends Sprite Method New(x:Float ,y:Float) Self.x = x Self.y = y Self.sizeW = 100 Self.sizeH = 50 Self.colour = Color.Green End Method Render(canvas:Canvas ) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x ,y ).Rotate( r) canvas.DrawRect(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Color = Color.Red canvas.DrawRect((sizeW/2)-10, (sizeH/2)-10, 10, 10) canvas.Matrix=matrix canvas.DrawText("r = "  +r, 0, 0) End Method Update() Local s:Float = 2 Local am:Float = 0.08 Local factor:Float = 1.5 If Keyboard.KeyDown(Key.W) velocity.x += (1 * factor - velocity.x) * am Elseif Keyboard.KeyDown(Key.S) velocity.x += (-1 * factor - velocity.x) * am Else velocity.x *= .99 End If Keyboard.KeyDown(Key.A) r += .1 End If Keyboard.KeyDown(Key.D) r -= .1 End x += velocity.x If Keyboard.KeyHit(Key.Space) New Bullet(x, y, r) End End End Class Bullet Extends Sprite Global list := New List<Bullet> Field timeToLive:Int Field speed:Float = 5 Method New(x:Float, y: Float, r:Float) Self.x = x Self.y = y Self.r = -r Local ofx:Int = 50 Local ofy:Int = 25    Local gunPosX:Float = ofx * Cos(-r) - ofy * Sin(-r) '******************** Local gunPosY:Float = ofx * Sin(-r) + ofy * Cos(-r) '******************** Self.x = x+gunPosX Self.y = y+gunPosY Self.timeToLive = 20 Self.sizeW = 40 Self.sizeH = 15 Self.colour = Color.Red Self.list.AddLast(Self) End Function UpdateAll() If Not list Return Local it := list.All() While Not it.AtEnd Local b:Bullet = it.Current b.Update() If b.timeToLive <= 0 it.Erase() Else it.Bump() End End End Method Update() Local dx:Float = Sin(-r+Pi/2) * speed '************************ Local dy:Float = Cos(-r+Pi/2) * speed '************************ x += dx y += dy timeToLive -= 1 End Function RenderAll:Void(canvas:Canvas) If Not list Return For Local c:Bullet = Eachin list c.Render(canvas) Next End Method Render(canvas:Canvas) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x,y ).Rotate(-r) canvas.DrawOval(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Matrix=matrix End End Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

still have to do the Pi/2 to the shoot direction. but this time its because its shooting 90 degrees from the direction it was created.

[JesseParticipant]

Is this what you wanted?
I marked everything I modified.
the rotation formula was wrong.

Monkey

[crayon-5cba9748c6541826607280 inline="true" ] Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Const FPS:Int = 60 Field player:Player Field timer:Timer Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) ClearColor = Color.Black Layout="letterbox" player = New Player(100, 100) timer = New Timer(FPS, OnUpdate) End Method OnRender( canvas:Canvas ) Override player.Render(canvas) Bullet.RenderAll(canvas) End Method OnUpdate() RequestRender() player.Update() Bullet.UpdateAll() End Method OnMeasure:Vec2i() Override Return Size End End Class Sprite Field x:Float Field y:Float Field r:Float = Pi / 2 Field sizeW:Float Field sizeH:Float Field colour:Color Field velocity:Vec2f = New Vec2f(0, 0) Property RotationDisplay:Float() Return r - Pi / 2 End End Class Player Extends Sprite Method New(x:Float ,y:Float) Self.x = x Self.y = y Self.sizeW = 100 Self.sizeH = 50 Self.colour = Color.Green End Method Render(canvas:Canvas ) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x ,y ).Rotate( RotationDisplay ) canvas.DrawRect(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Color = Color.Red canvas.DrawRect((sizeW/2)-10, (sizeH/2)-10, 10, 10) canvas.Matrix=matrix canvas.DrawText("r = " +r, 0, 0) End Method Update() Local s:Float = 2 Local am:Float = 0.08 Local factor:Float = 1.5 If Keyboard.KeyDown(Key.W) velocity.x += (1 * factor - velocity.x) * am Elseif Keyboard.KeyDown(Key.S) velocity.x += (-1 * factor - velocity.x) * am Else velocity.x *= .99 End If Keyboard.KeyDown(Key.A) r += .1 End If Keyboard.KeyDown(Key.D) r -= .1 End x += velocity.x If Keyboard.KeyHit(Key.Space) New Bullet(x, y, r) End End End Class Bullet Extends Sprite Global list := New List<Bullet> Field timeToLive:Int Field speed:Float = 5 Method New(x:Float, y: Float, r:Float) Self.x = x Self.y = y Self.r = -r Local ofx:Int = 50 '************************** Local ofy:Int = 25 '************************** Local gunPosX:Float = ofx * Cos(-r+Pi/2) - ofy * Sin(-r+Pi/2) '******************** Local gunPosY:Float = ofx * Sin(-r+Pi/2) + ofy * Cos(-r+Pi/2) '******************** Self.x = x+gunPosX ' ******************** Self.y = y+gunPosY ' ******************** Self.timeToLive = 20 Self.sizeW = 40 Self.sizeH = 15 Self.colour = Color.Red Self.list.AddLast(Self) End Function UpdateAll() If Not list Return Local it := list.All() While Not it.AtEnd Local b:Bullet = it.Current b.Update() If b.timeToLive <= 0 it.Erase() Else it.Bump() End End End Method Update() Local dx:Float = Sin(-r) * speed '************************ Local dy:Float = Cos(-r) * speed '************************ x += dx y += dy timeToLive -= 1 End Function RenderAll:Void(canvas:Canvas) If Not list Return For Local c:Bullet = Eachin list c.Render(canvas) Next End Method Render(canvas:Canvas) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x,y ).Rotate( -RotationDisplay ) '**************************** canvas.DrawOval(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Matrix=matrix End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178

[crayon-5cba9748c6541826607280 inline="true" ] Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Const FPS:Int = 60 Field player:Player Field timer:Timer Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) ClearColor = Color.Black Layout="letterbox" player = New Player(100, 100) timer = New Timer(FPS, OnUpdate) End Method OnRender( canvas:Canvas ) Override player.Render(canvas) Bullet.RenderAll(canvas) End Method OnUpdate() RequestRender() player.Update() Bullet.UpdateAll() End Method OnMeasure:Vec2i() Override Return Size End End Class Sprite Field x:Float Field y:Float Field r:Float = Pi / 2 Field sizeW:Float Field sizeH:Float Field colour:Color Field velocity:Vec2f = New Vec2f(0, 0) Property RotationDisplay:Float() Return r - Pi / 2 End End Class Player Extends Sprite Method New(x:Float ,y:Float) Self.x = x Self.y = y Self.sizeW = 100 Self.sizeH = 50 Self.colour = Color.Green End Method Render(canvas:Canvas ) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x ,y ).Rotate( RotationDisplay ) canvas.DrawRect(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Color = Color.Red canvas.DrawRect((sizeW/2)-10, (sizeH/2)-10, 10, 10) canvas.Matrix=matrix canvas.DrawText("r = "  +r, 0, 0) End Method Update() Local s:Float = 2 Local am:Float = 0.08 Local factor:Float = 1.5 If Keyboard.KeyDown(Key.W) velocity.x += (1 * factor - velocity.x) * am Elseif Keyboard.KeyDown(Key.S) velocity.x += (-1 * factor - velocity.x) * am Else velocity.x *= .99 End If Keyboard.KeyDown(Key.A) r += .1 End If Keyboard.KeyDown(Key.D) r -= .1 End x += velocity.x If Keyboard.KeyHit(Key.Space) New Bullet(x, y, r) End End End Class Bullet Extends Sprite Global list := New List<Bullet> Field timeToLive:Int Field speed:Float = 5 Method New(x:Float, y: Float, r:Float) Self.x = x Self.y = y Self.r = -r Local ofx:Int = 50 '************************** Local ofy:Int = 25 '**************************    Local gunPosX:Float = ofx * Cos(-r+Pi/2) - ofy * Sin(-r+Pi/2) '******************** Local gunPosY:Float = ofx * Sin(-r+Pi/2) + ofy * Cos(-r+Pi/2) '******************** Self.x = x+gunPosX ' ******************** Self.y = y+gunPosY ' ******************** Self.timeToLive = 20 Self.sizeW = 40 Self.sizeH = 15 Self.colour = Color.Red Self.list.AddLast(Self) End Function UpdateAll() If Not list Return Local it := list.All() While Not it.AtEnd Local b:Bullet = it.Current b.Update() If b.timeToLive <= 0 it.Erase() Else it.Bump() End End End Method Update() Local dx:Float = Sin(-r) * speed '************************ Local dy:Float = Cos(-r) * speed '************************ x += dx y += dy timeToLive -= 1 End Function RenderAll:Void(canvas:Canvas) If Not list Return For Local c:Bullet = Eachin list c.Render(canvas) Next End Method Render(canvas:Canvas) canvas.Color = Self.colour Local matrix:=canvas.Matrix canvas.Matrix=matrix.Translate( x,y ).Rotate( -RotationDisplay ) '**************************** canvas.DrawOval(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) canvas.Color = Color.Blue canvas.DrawRect(-5, -5, 10, 10) canvas.Matrix=matrix End End Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

[JesseParticipant]

Poor soul, Had to come here to spread his poison. I think we are all immune to it.

[JesseParticipant]

gcmartijn made a png 2 poly module. It’s in the modules section. I have not tried so I don’t know if it’s any good.
maybe it helps???

[JesseParticipant]

Hi afecelis,
Did you follow the instructions on the README.TXT file( no guarantee it will work but it’s a start)?
Make sure your dependancies are installed and the paths set correctly.
Also make sure your antivirus is not detecting it as a virus. There have been reports lately of that happening.

Most of that may not apply as you are probably using the itch.io download but the antivirus is a possibility.

[JesseParticipant]

here is the link to the binary:
https://www.dropbox.com/s/24ws94xn2r46dqe/Bunnymark.zip?dl=0

I did cheat. I wasn’t going to press the mouse button until I reached the 10.000 bunnies so I changed the arrays size to 10,000 to start with. LOL.

[Edit]

What version of Monkey2 are you using?

[JesseParticipant]

Hi Abe, Welcome to the forum.

interesting results!
Have you tried running it in release mode?

I get 10,000 at a steady 62 frames a second in release mode.
and 3,000 at a steady 62 frames a second in debug mode.
2013 MacBook Air 1.7Ghz.

Personally, I think thats pretty good.

A question: Why are you determining what language/Engine to use based on the speed of the graphics output?

[JesseParticipant]

programming languages are relatively important to what your needs are. Now a day most languages can compile code to its ultimate speed. But even if they don’t most languages can produce results that are above what the program requires for output.

Even now at the speed at which these languages run they can not perform at the required speed that some programmers need for required output. So some sacrifices and ingenious thinking need to take place to resolve those limitations. In other words, no matter how much power and how optimized the computer language is, it will not meet all of the requirements by the average programmer. An experience programmer in a specific computer language will understand the limitations of the language and will try to optimize his thinking to the limitations of the output(executing program).

if you know several languages you can probably determine which language produces the fastest output but many not be necessary to determine if the program runs efficiently in either computer language. In my opinion the language speed is not as important as the familiarity with the computer language and the ability of the programmer to produce results.

> “How do I write efficient code whilst it being simple to understand for humans?”

You don’t. You write code for you to understand it and for other “programmers” to have a try at understanding it. That’s why there is such a thing as documentation. programmers in theory will understand the basic concept if you make the logic simple and give explanation in step by step what every line does in you code. But that doesn’t mean that they will automatically be able solve any errors with in, or can go and duplicate you program on their own. the best advice I think I can give you is to keep you functions, methods, variable and other things as properly named and documented as possible.so if other programmers are familiar with the concept can get an idea of what it’s about and can possibly even modify and debug the code.

Also, I feel that there is no need to change languages if what you are doing with the language serves your purpose and you can properly function as efficiently as possible with the limitations of such a language. I know some programmers have dropped a computer language that they have been learning for years because something is not being implemented that they in theory think it’s essential while never producing anything that really needs it. I call that a serious waste of time. whether it’s Java, C/CPP, C#, BlitzMax etc.. It doesn’t matter what language you choose, what matters is what you can do with it and how you use it. The only times I feel any one should move to another language is when the language is abandoned by the author and there is no hope for it and/or will be outdated sooner or later and or when it’s not keeping up with the continually changing technology and of course while trying something and finding that you like it better while being practical.

I think that anybody that is going to write an application and/or game should start writing it now. Not one, two or three year from now when they have build a data base of code or a master library to use for their application/game. because if you think that that is going to make it a lot easier to write your game, you are sadly mistaken. codebase and libraries are maybe about 5 to 10 percent of the application/game and most of the time not the hardest thing either.

I say start writing your game or application, get familiar with the language as you write it. Do a lot of research including asking questions to more experienced programmers so that when you finish it you will have that much more experience with it and possibly be that much easier to write the next game.

Just my 2 cents, opinions whatever.

[JesseParticipant]

I get that error on my Mac OS X. with Monkey2 1.1.07. from itch.io

[JesseParticipant]

As I see it, most of us here are not really business skilled and most don’t own a business or have a business income. so our opinion can’t really be used as a reliable source. And even those that have a business, their formula isn’t a fit all solution.

There are many things that I can tell you you did wrong but 1) it’s just my opinion and since I am not a business expert so it’s not worth much and 2) it’s all just water under the bridge. Nothing can be done now. I suspect deep below you know what you did and are doing wrong. but the condition you are in doesn’t leave you many options to follow. I know I have been there and I am still trying to get out of the swamp waters I got myself into.

I read the opinions of others here and think that some make sense while others are just blah, blah, blah.

I think the main problem here is lack of trust in people. With all my respect to you Mark, I see it reflected in your work and your personality based what you post here. Again, same thing with me. it’s easy to say it but so hard to do the actual change.

Anyway Mark, good luck, I’ll be here for as long as I can. backing you up. wishing you stick around for many more years. I think Monkey2 is a great language. I just wish you had the confidence and trust in others to help you bring it to what I think this language can be. GREAT!!!!

PS
What we need now is some good Marketing and great documentation.

Ops Had to say it!

[JesseParticipant]

Being that the language is so new and not thoroughly tested, Can you just create some test to determine what is faster?

I suspect that DrawRect is faster than Drawing a bitmap since each pixel is not scanned for color content.

I usually don’t test to see which is faster but just test if what I am doing is fast enough for my purpose. if it is, I stick with it else I find an alternative if possible.

On my game that I am making “Mission patrol” I use DrawPoly and is fast enough to draw all of the backgrounds of the game so I never bother to test if drawing images is faster.

[Author]

Posts