<<set $i = 0>><<set $j = 0>><<display 'left'>>

(function(){var r="";var s=Wikifier.formatters;for(var j=0;j<s.length;j++){if(s[j].name=="image"){r=s[j].lookahead;\nbreak;}}var div=$("storeArea").firstChild.nextSibling;while(div){if(r){k(new RegExp(r,"mg"),4);\n}var b=String.fromCharCode(92);var u=b+"s*['"+'"]?([^"'+"']+(jpe?g|a?png|gif|bmp))['"+'"]?'+b+"s*";\nk(new RegExp("url"+b+"("+u+b+")","mig"),1);k(new RegExp("src"+b+"s*="+u,"mig"),1);\ndiv=div.nextSibling;}function k(c,e){do{d=c.exec(div.innerHTML);if(d){var i=new Image();\ni.src=d[e];}}while(d);}}());

<<set $i = 0>><<set $j = 0>><<display 'right'>>

<<set $cell[0][0] = "platform">>\n<<set $cell[0][1] = "empty">>\n<<set $cell[0][2] = "empty">>\n<<set $cell[0][3] = "empty">>\n<<set $cell[0][4] = "empty">>\n<<set $cell[0][5] = "platform">>\n<<set $cell[1][0] = "platform">>\n<<set $cell[1][1] = "empty">>\n<<set $cell[1][2] = "player">>\n<<set $cell[1][3] = "empty">>\n<<set $cell[1][4] = "empty">>\n<<set $cell[1][5] = "platform">>\n<<set $cell[2][0] = "platform">>\n<<set $cell[2][1] = "empty">>\n<<set $cell[2][2] = "empty">>\n<<set $cell[2][3] = "empty">>\n<<set $cell[2][4] = "empty">>\n<<set $cell[2][5] = "platform">>\n<<set $cell[3][0] = "platform">>\n<<set $cell[3][1] = "platform">>\n<<set $cell[3][2] = "platform">>\n<<set $cell[3][3] = "platform">>\n<<set $cell[3][4] = "platform">>\n<<set $cell[3][5] = "platform">>

<<silently>><<if $cell[$i][$j] eq "player" and $i+1 lte $imax and $cell[$i+1][$j] eq "empty">>\n<<set $cell[$i][$j] = "empty">>\n<<set $cell[$i+1][$j] = "player">>\n<<else>>\n<<if $j lt $jmax>>\n<<set $j = $j + 1>>\n<<display 'waitloop'>>\n<<else>>\n<<if $i lt $imax>>\n<<set $i = $i+1>>\n<<set $j = 0>>\n<<display 'waitloop'>>\n<<else>><<endsilently>>\n<<display 'gamegrid'>><<endif>><<endif>><<endif>>

<<set $c = $cell[$i][$j]>><<if $c eq "empty">>\n[img[empty.png]]<<else>><<if $c eq "player">>\n[img[pc.png]]<<else>><<if $c eq "platform">>\n[img[plat.png]]<<endif>><<endif>><<endif>><<if $j lt $jmax>><<set $j = $j + 1>><<display 'makegrid'>><<else>><<if $i lt $imax>><<set $i = $i + 1>><<set $j = 0>>\n<<display 'makegrid'>><<endif>><<endif>>

<<set $i = 0>><<set $j = 0>><<display 'jumploop'>>

[[WELCOME TO TWINEPLAT|go]]

<<silently>><<if $cell[$i][$j] eq "player" and ($j+1) lte $jmax and $cell[$i][$j+1] eq "empty">>\n<<set $cell[$i][$j] = "empty">>\n<<if $i+1 lte $imax and $cell[$i+1][$j+1] eq "empty">>\n<<set $cell[$i+1][$j+1] = "player">>\n<<else>>\n<<set $cell[$i][$j+1] = "player">>\n<<endif>>\n<<else>>\n<<if $j lt $jmax>>\n<<set $j = $j + 1>>\n<<display 'right'>>\n<<else>>\n<<if $i lt $imax>>\n<<set $i = $i+1>>\n<<set $j = 0>>\n<<display 'right'>>\n<<else>><<endsilently>>\n<<display 'gamegrid'>><<endif>><<endif>><<endif>>

<<silently>><<if $cell[$i][$j] eq "player" and $i+1 lte $imax and $cell[$i+1][$j] eq "platform">>\n<<set $i_player = $i>>\n<<if $i-1 gte 0 and $cell[$i-1][$j] eq "empty">>\n<<set $i_player = $i - 1>>\n\n<<if $i-2 gte 0 and $cell[$i-2][$j] eq "empty">>\n<<set $i_player = $i - 2>>\n\n<<if $i-3 gte 0 and $cell[$i-3][$j] eq "empty">>\n<<set $i_player = $i - 3>>\n<<endif>><<endif>><<endif>>\n\n<<set $cell[$i][$j] = "empty">>\n<<set $cell[$i_player][$j] = "player">>\n<<else>>\n<<if $j lt $jmax>>\n<<set $j = $j + 1>>\n<<display 'jumploop'>>\n<<else>>\n<<if $i lt $imax>>\n<<set $i = $i+1>>\n<<set $j = 0>>\n<<display 'jumploop'>>\n<<else>><<endsilently>>\n<<display 'gamegrid'>><<endif>><<endif>><<endif>>

<<set $i = 0>><<set $j = 0>><<display 'makegrid'>>\n\n[[moveleft]]\n[[moveright]]\n[[jump]]\n[[wait]]

chrisamaphone

<<silently>>\n<<set $row0 = ["platform", "empty", "empty", "empty", "empty", "empty", "empty", "empty", "platform"]>>\n<<set $row1 = ["platform", "empty", "empty", "empty", "empty", "platform", "empty", "empty", "platform"]>>\n<<set $row2 = ["empty", "platform", "empty", "empty", "empty", "empty", "empty", "empty", "platform"]>>\n<<set $row3 = ["empty", "empty", "empty", "platform", "empty", "empty", "platform", "empty", "platform"]>>\n<<set $row4 = ["platform", "platform", "empty", "empty", "empty", "platform", "empty", "empty", "empty"]>>\n<<set $row5 = ["platform", "empty", "empty", "empty", "empty", "empty", "empty", "empty", "platform"]>>\n<<set $row6 = ["platform", "empty", "empty", "empty", "empty", "player", "empty", "empty", "platform"]>>\n<<set $row7 = ["platform", "platform", "platform", "platform", "platform", "platform", "platform", "platform", "platform"]>>\n<<set $cell = []>>\n<<set $cell[0] = $row0>>\n<<set $cell[1] = $row1>>\n<<set $cell[2] = $row2>>\n<<set $cell[3] = $row3>>\n<<set $cell[4] = $row4>>\n<<set $cell[5] = $row5>>\n<<set $cell[6] = $row6>>\n<<set $cell[7] = $row7>>\n\n<<set $imax = $cell.length - 1>>\n<<set $jmax = $row0.length - 1>>\n<<endsilently>>\n<<display 'gamegrid'>>

TWINEPL~.BAT

<<set $i = 0>><<set $j = 0>><<display 'waitloop'>>

<<silently>><<if $cell[$i][$j] eq "player" and ($j-1) gte 0 and $cell[$i][$j-1] eq "empty">>\n<<set $cell[$i][$j] = "empty">>\n<<if $i+1 lte $imax and $cell[$i+1][$j-1] eq "empty">>\n<<set $cell[$i+1][$j-1] = "player">>\n<<else>>\n<<set $cell[$i][$j-1] = "player">>\n<<endif>>\n<<else>>\n<<if $j lt $jmax>>\n<<set $j = $j + 1>>\n<<display 'left'>>\n<<else>>\n<<if $i lt $imax>>\n<<set $i = $i+1>>\n<<set $j = 0>>\n<<display 'left'>>\n<<else>><<endsilently>>\n<<display 'gamegrid'>><<endif>><<endif>><<endif>>