Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- speed2count=0
- while (true) do
- gridx=memory.readbyte(0xC25E)%16
- gridy=memory.readbyte(0xC264)%16
- for line=0,255,16 do
- gui.line(0,line-gridy,255,line-gridy,0x00FFFFFF)
- gui.line(line-gridx,0,line-gridx,255,0x00FFFFFF)
- end
- gui.text(120,103,"Boss?:" .. memory.readbyte(0xCB54))
- bombflag1=memory.readbyte(0xC549)
- bombflag2=memory.readbyte(0xC649)
- bombflag3=memory.readbyte(0xC749)
- bombflag4=memory.readbyte(0xC849)
- if(bombflag1==0)then
- bombcol11=0x000000ff
- bombcol12=0xff0000ff
- else
- bombcol11=0xff0000ff
- bombcol12=0x000000ff
- end
- if(bombflag2==0)then
- bombcol21=0x000000ff
- bombcol22=0xffff00ff
- else
- bombcol21=0xffff00ff
- bombcol22=0x000000ff
- end
- if(bombflag3==0)then
- bombcol31=0xffffffff
- bombcol32=0x0000ffff
- else
- bombcol31=0x0000ffff
- bombcol32=0xffffffff
- end
- if(bombflag4==0)then
- bombcol41=0x000000ff
- bombcol42=0x888888ff
- else
- bombcol41=0x888888ff
- bombcol42=0x000000ff
- end
- gui.text(120,111,"bomb1:" .. memory.readbyte(0xC51b) .. memory.readbyte(0xC51D) .. memory.readbyte(0xC51a),bombcol11,bombcol12)
- gui.text(120,119,"bomb2:" .. memory.readbyte(0xC61b) .. memory.readbyte(0xC61D) .. memory.readbyte(0xC61a),bombcol21,bombcol22)
- gui.text(120,127,"bomb3:" .. memory.readbyte(0xC71b) .. memory.readbyte(0xC71D) .. memory.readbyte(0xC71a),bombcol31,bombcol32)
- gui.text(120,135,"bomb4:" .. memory.readbyte(0xC81b) .. memory.readbyte(0xC81D) .. memory.readbyte(0xC81a),bombcol41,bombcol42)
- enemydisp1x=memory.readbyte(0xCB02)
- enemydisp1y=memory.readbyte(0xCB03)
- enemydisp1state=memory.readbyte(0xCB00)
- enemydisp2x=memory.readbyte(0xCC02)
- enemydisp2y=memory.readbyte(0xCC03)
- enemydisp2state=memory.readbyte(0xCC00)
- enemydisp3x=memory.readbyte(0xCD02)
- enemydisp3y=memory.readbyte(0xCD03)
- enemydisp3state=memory.readbyte(0xCD00)
- enemydisp4x=memory.readbyte(0xCE02)
- enemydisp4y=memory.readbyte(0xCE03)
- enemydisp4state=memory.readbyte(0xCE00)
- enemydisp5x=memory.readbyte(0xCF02)
- enemydisp5y=memory.readbyte(0xCF03)
- enemydisp5state=memory.readbyte(0xCF00)
- enemydisp6x=memory.readbyte(0xD002)
- enemydisp6y=memory.readbyte(0xD003)
- enemydisp6state=memory.readbyte(0xD000)
- enemydisp7x=memory.readbyte(0xD102)
- enemydisp7y=memory.readbyte(0xD103)
- enemydisp7state=memory.readbyte(0xD100)
- enemydisp8x=memory.readbyte(0xD202)
- enemydisp8y=memory.readbyte(0xD203)
- enemydisp8state=memory.readbyte(0xD200)
- enemysub1x=memory.readbyte(0xCB13)%16
- enemysub1y=memory.readbyte(0xCB15)%16
- enemysub2x=memory.readbyte(0xCC13)%16
- enemysub2y=memory.readbyte(0xCC15)%16
- enemysub3x=memory.readbyte(0xCD13)%16
- enemysub3y=memory.readbyte(0xCD15)%16
- enemysub4x=memory.readbyte(0xCE13)%16
- enemysub4y=memory.readbyte(0xCE15)%16
- enemysub5x=memory.readbyte(0xCF13)%16
- enemysub5y=memory.readbyte(0xCF15)%16
- enemysub6x=memory.readbyte(0xD013)%16
- enemysub6y=memory.readbyte(0xD015)%16
- enemysub7x=memory.readbyte(0xD113)%16
- enemysub7y=memory.readbyte(0xD115)%16
- enemysub8x=memory.readbyte(0xD213)%16
- enemysub8y=memory.readbyte(0xD215)%16
- enemy1x=memory.readbyte(0xCB24)
- enemy1y=memory.readbyte(0xCB25)
- enemy2x=memory.readbyte(0xCC24)
- enemy2y=memory.readbyte(0xCC25)
- enemy3x=memory.readbyte(0xCD24)
- enemy3y=memory.readbyte(0xCD25)
- enemy4x=memory.readbyte(0xCE24)
- enemy4y=memory.readbyte(0xCE25)
- enemy5x=memory.readbyte(0xCF24)
- enemy5y=memory.readbyte(0xCF25)
- enemy6x=memory.readbyte(0xD024)
- enemy6y=memory.readbyte(0xD025)
- enemy7x=memory.readbyte(0xD124)
- enemy7y=memory.readbyte(0xD125)
- enemy8x=memory.readbyte(0xD224)
- enemy8y=memory.readbyte(0xD225)
- if enemysub1x>=8 then
- enemy1x=memory.readbyte(0xCB24)+1
- end
- if enemysub1y>=8 then
- enemy1y=memory.readbyte(0xCB25)+1
- end
- if enemysub2x>=8 then
- enemy2x=memory.readbyte(0xCC24)+1
- end
- if enemysub2y>=8 then
- enemy2y=memory.readbyte(0xCC25)+1
- end
- if enemysub3x>=8 then
- enemy3x=memory.readbyte(0xCD24)+1
- end
- if enemysub3y>=8 then
- enemy3y=memory.readbyte(0xCD25)+1
- end
- if enemysub4x>=8 then
- enemy4x=memory.readbyte(0xCE24)+1
- end
- if enemysub4y>=8 then
- enemy4y=memory.readbyte(0xCE25)+1
- end
- if enemysub5x>=8 then
- enemy5x=memory.readbyte(0xCF24)+1
- end
- if enemysub5y>=8 then
- enemy5y=memory.readbyte(0xCF25)+1
- end
- if enemysub6x>=8 then
- enemy6x=memory.readbyte(0xD024)+1
- end
- if enemysub6y>=8 then
- enemy6y=memory.readbyte(0xD025)+1
- end
- if enemysub7x>=8 then
- enemy7x=memory.readbyte(0xD124)+1
- end
- if enemysub7y>=8 then
- enemy7y=memory.readbyte(0xD125)+1
- end
- if enemysub8x>=8 then
- enemy8x=memory.readbyte(0xD224)+1
- end
- if enemysub8y>=8 then
- enemy8y=memory.readbyte(0xD225)+1
- end
- myspeedx=memory.readbyte(0xC44E)
- myspeedy=memory.readbyte(0xC420)
- myx=memory.readbyte(0xC424)
- myy=memory.readbyte(0xC425)
- mysubx=memory.readbyte(0xC413)%16
- mysuby=memory.readbyte(0xC415)%16
- camerax=memory.readbyte(0xC269)
- cameray=memory.readbyte(0xC26C)
- mydispx=memory.readbyte(0xC403)
- mydispy=memory.readbyte(0xC402)
- if (myspeedx==2) then
- speed2count=speed2count+1
- end
- if (memory.readbyte(0xC536)==0 or memory.readbyte(0xC536)==255) then
- range11=0
- end
- if (memory.readbyte(0xC536)==01 or memory.readbyte(0xC537)==-255) then
- range11=1
- end
- if (memory.readbyte(0xC537)==01 or memory.readbyte(0xC538)==255) then
- range11=2
- end
- if (memory.readbyte(0xC538)==01 or memory.readbyte(0xC539)==255) then
- range11=3
- end
- if (memory.readbyte(0xC539)==01) then
- range11=4
- end
- if (memory.readbyte(0xC53a)==0 or memory.readbyte(0xC53A)==255) then
- range12=0
- end
- if (memory.readbyte(0xC53A)==01 or memory.readbyte(0xC53B)==255) then
- range12=1
- end
- if (memory.readbyte(0xC53B)==01 or memory.readbyte(0xC53C)==255) then
- range12=2
- end
- if (memory.readbyte(0xC53C)==01 or memory.readbyte(0xC53D)==255) then
- range12=3
- end
- if memory.readbyte(0xC53D)==01 then
- range12=4
- end
- if (memory.readbyte(0xC53E)==0 or memory.readbyte(0xC53E)==255) then
- range13=0
- end
- if (memory.readbyte(0xC53E)==01 or memory.readbyte(0xC53F)==255) then
- range13=1
- end
- if (memory.readbyte(0xC53F)==01 or memory.readbyte(0xC540)==255) then
- range13=2
- end
- if (memory.readbyte(0xC540)==01 or memory.readbyte(0xC541)==255) then
- range13=3
- end
- if memory.readbyte(0xC541)==01 then
- range13=4
- end
- if (memory.readbyte(0xC542)==0 or memory.readbyte(0xC542)==255) then
- range14=0
- end
- if (memory.readbyte(0xC542)==01 or memory.readbyte(0xC543)==255) then
- range14=1
- end
- if (memory.readbyte(0xC543)==01 or memory.readbyte(0xC544)==255) then
- range14=2
- end
- if (memory.readbyte(0xC544)==01 or memory.readbyte(0xC545)==255) then
- range14=3
- end
- if memory.readbyte(0xC545)==01 then
- range14=4
- end
- if (memory.readbyte(0xC636)==0 or memory.readbyte(0xC636)==255) then
- range21=0
- end
- if (memory.readbyte(0xC636)==01 or memory.readbyte(0xC637)==-255) then
- range21=1
- end
- if (memory.readbyte(0xC637)==01 or memory.readbyte(0xC638)==255) then
- range21=2
- end
- if (memory.readbyte(0xC638)==01 or memory.readbyte(0xC639)==255) then
- range21=3
- end
- if (memory.readbyte(0xC639)==01) then
- range21=4
- end
- if (memory.readbyte(0xC63a)==0 or memory.readbyte(0xC63A)==255) then
- range22=0
- end
- if (memory.readbyte(0xC63A)==01 or memory.readbyte(0xC63B)==255) then
- range22=1
- end
- if (memory.readbyte(0xC63B)==01 or memory.readbyte(0xC63C)==255) then
- range22=2
- end
- if (memory.readbyte(0xC63C)==01 or memory.readbyte(0xC63D)==255) then
- range22=3
- end
- if memory.readbyte(0xC63D)==01 then
- range22=4
- end
- if (memory.readbyte(0xC63E)==0 or memory.readbyte(0xC63E)==255) then
- range23=0
- end
- if (memory.readbyte(0xC63E)==01 or memory.readbyte(0xC63F)==255) then
- range23=1
- end
- if (memory.readbyte(0xC63F)==01 or memory.readbyte(0xC640)==255) then
- range23=2
- end
- if (memory.readbyte(0xC640)==01 or memory.readbyte(0xC641)==255) then
- range23=3
- end
- if memory.readbyte(0xC641)==01 then
- range23=4
- end
- if (memory.readbyte(0xC642)==0 or memory.readbyte(0xC642)==255) then
- range24=0
- end
- if (memory.readbyte(0xC642)==01 or memory.readbyte(0xC643)==255) then
- range24=1
- end
- if (memory.readbyte(0xC643)==01 or memory.readbyte(0xC644)==255) then
- range24=2
- end
- if (memory.readbyte(0xC644)==01 or memory.readbyte(0xC645)==255) then
- range24=3
- end
- if memory.readbyte(0xC645)==01 then
- range24=4
- end
- if (memory.readbyte(0xC736)==0 or memory.readbyte(0xC736)==255) then
- range31=0
- end
- if (memory.readbyte(0xC736)==01 or memory.readbyte(0xC737)==-255) then
- range31=1
- end
- if (memory.readbyte(0xC737)==01 or memory.readbyte(0xC738)==255) then
- range31=2
- end
- if (memory.readbyte(0xC738)==01 or memory.readbyte(0xC739)==255) then
- range31=3
- end
- if (memory.readbyte(0xC739)==01) then
- range31=4
- end
- if (memory.readbyte(0xC73a)==0 or memory.readbyte(0xC73A)==255) then
- range32=0
- end
- if (memory.readbyte(0xC73A)==01 or memory.readbyte(0xC73B)==255) then
- range32=1
- end
- if (memory.readbyte(0xC73B)==01 or memory.readbyte(0xC73C)==255) then
- range32=2
- end
- if (memory.readbyte(0xC73C)==01 or memory.readbyte(0xC73D)==255) then
- range32=3
- end
- if memory.readbyte(0xC73D)==01 then
- range32=4
- end
- if (memory.readbyte(0xC73E)==0 or memory.readbyte(0xC73E)==255) then
- range33=0
- end
- if (memory.readbyte(0xC73E)==01 or memory.readbyte(0xC73F)==255) then
- range33=1
- end
- if (memory.readbyte(0xC73F)==01 or memory.readbyte(0xC740)==255) then
- range33=2
- end
- if (memory.readbyte(0xC740)==01 or memory.readbyte(0xC741)==255) then
- range33=3
- end
- if memory.readbyte(0xC741)==01 then
- range33=4
- end
- if (memory.readbyte(0xC742)==0 or memory.readbyte(0xC742)==255) then
- range34=0
- end
- if (memory.readbyte(0xC742)==01 or memory.readbyte(0x7543)==255) then
- range34=1
- end
- if (memory.readbyte(0xC743)==01 or memory.readbyte(0xC744)==255) then
- range34=2
- end
- if (memory.readbyte(0xC744)==01 or memory.readbyte(0xC745)==255) then
- range34=3
- end
- if memory.readbyte(0xC745)==01 then
- range34=4
- end
- if (memory.readbyte(0xC836)==0 or memory.readbyte(0xC836)==255) then
- range41=0
- end
- if (memory.readbyte(0xC836)==01 or memory.readbyte(0xC837)==-255) then
- range41=1
- end
- if (memory.readbyte(0xC837)==01 or memory.readbyte(0xC838)==255) then
- range41=2
- end
- if (memory.readbyte(0xC838)==01 or memory.readbyte(0xC839)==255) then
- range41=3
- end
- if (memory.readbyte(0xC839)==01) then
- range41=4
- end
- if (memory.readbyte(0xC83a)==0 or memory.readbyte(0xC83A)==255) then
- range42=0
- end
- if (memory.readbyte(0xC83A)==01 or memory.readbyte(0xC83B)==255) then
- range42=1
- end
- if (memory.readbyte(0xC83B)==01 or memory.readbyte(0xC83C)==255) then
- range42=2
- end
- if (memory.readbyte(0xC83C)==01 or memory.readbyte(0xC83D)==255) then
- range42=3
- end
- if memory.readbyte(0xC83D)==01 then
- range42=4
- end
- if (memory.readbyte(0xC83E)==0 or memory.readbyte(0xC83E)==255) then
- range43=0
- end
- if (memory.readbyte(0xC83E)==01 or memory.readbyte(0xC83F)==255) then
- range43=1
- end
- if (memory.readbyte(0xC83F)==01 or memory.readbyte(0xC840)==255) then
- range43=2
- end
- if (memory.readbyte(0xC840)==01 or memory.readbyte(0xC841)==255) then
- range43=3
- end
- if memory.readbyte(0xC841)==01 then
- range43=4
- end
- if (memory.readbyte(0xC842)==0 or memory.readbyte(0xC842)==255) then
- range44=0
- end
- if (memory.readbyte(0xC842)==01 or memory.readbyte(0xC843)==255) then
- range44=1
- end
- if (memory.readbyte(0xC843)==01 or memory.readbyte(0xC844)==255) then
- range44=2
- end
- if (memory.readbyte(0xC844)==01 or memory.readbyte(0xC845)==255) then
- range44=3
- end
- if memory.readbyte(0xC845)==01 then
- range44=4
- end
- bombx1=memory.readbyte(0xC524)
- bombx2=memory.readbyte(0xC624)
- bombx3=memory.readbyte(0xC724)
- bombx4=memory.readbyte(0xC824)
- bomby1=memory.readbyte(0xC525)
- bomby2=memory.readbyte(0xC625)
- bomby3=memory.readbyte(0xC725)
- bomby4=memory.readbyte(0xC825)
- bombflag1=memory.readbyte(0xC549)
- bombflag2=memory.readbyte(0xC649)
- bombflag3=memory.readbyte(0xC749)
- bombflag4=memory.readbyte(0xC849)
- mydispx=memory.readbyte(0xC402)
- mydispy=memory.readbyte(0xC403)
- enemystate1=memory.readbyte(0xCB00)
- enemystate2=memory.readbyte(0xCC00)
- enemystate3=memory.readbyte(0xCD00)
- enemystate4=memory.readbyte(0xCE00)
- enemystate5=memory.readbyte(0xCF00)
- enemystate6=memory.readbyte(0xD000)
- enemystate7=memory.readbyte(0xD100)
- enemystate8=memory.readbyte(0xD200)
- gui.fillbox(0,0,200,200, 0xffffff55)
- if enemy1x>=1 then
- gui.fillbox(enemy1x,enemy1y,enemy1x+1,enemy1y+1,0x000000aa)
- if memory.readbyte(0xCB4A)==1 then
- gui.fillbox(enemy1x,enemy1y,enemy1x+1,enemy1y+1,0x00aaFFaa)
- end
- end
- if enemy2x>=1 then
- gui.fillbox(enemy2x,enemy2y,enemy2x+1,enemy2y+1,0x000000aa)
- if memory.readbyte(0xCC4A)==1 then
- gui.fillbox(enemy2x,enemy2y,enemy2x+1,enemy2y+1,0x00aaFFaa)
- end
- end
- if enemy3x>=1 then
- gui.fillbox(enemy3x,enemy3y,enemy3x+1,enemy3y+1,0x000000aa)
- if memory.readbyte(0xCD4A)==1 then
- gui.fillbox(enemy3x,enemy3y,enemy3x+1,enemy3y+1,0x00aaFFaa)
- end
- end
- if enemy4x>=1 then
- gui.fillbox(enemy4x,enemy4y,enemy4x+1,enemy4y+1,0x000000aa)
- if memory.readbyte(0xCE4A)==1 then
- gui.fillbox(enemy4x,enemy4y,enemy4x+1,enemy4y+1,0x00aaFFaa)
- end
- end
- if enemy5x>=1 then
- gui.fillbox(enemy5x,enemy5y,enemy5x+1,enemy5y+1,0x000000aa)
- if memory.readbyte(0xCF4A)==1 then
- gui.fillbox(enemy5x,enemy5y,enemy5x+1,enemy5y+1,0x00aaFFaa)
- end
- end
- if enemy6x>=1 then
- gui.fillbox(enemy6x,enemy6y,enemy6x+1,enemy6y+1,0x000000aa)
- if memory.readbyte(0xD04A)==1 then
- gui.fillbox(enemy6x,enemy6y,enemy6x+1,enemy6y+1,0x00aaFFaa)
- end
- end
- if enemy7x>=1 then
- gui.fillbox(enemy7x,enemy7y,enemy7x+1,enemy7y+1,0x000000aa)
- if memory.readbyte(0xD14A)==1 then
- gui.fillbox(enemy7x,enemy7y,enemy7x+1,enemy7y+1,0x00aaFFaa)
- end
- end
- if enemy8x>=1 then
- gui.fillbox(enemy8x,enemy8y,enemy8x+1,enemy8y+1,0x000000aa)
- if memory.readbyte(0xD24A)==1 then
- gui.fillbox(enemy8x,enemy8y,enemy8x+1,enemy8y+1,0x00aaFFaa)
- end
- end
- if bombx1>=1 then
- gui.fillbox(bombx1,bomby1-(range11*2),bombx1+1,bomby1+1+(range12*2),0xff0000ff)
- gui.fillbox(bombx1-(range13*2),bomby1,bombx1+1+(range14*2),bomby1+1,0xff0000ff)
- end
- if bombx2>=1 then
- gui.fillbox(bombx2,bomby2-(range21*2),bombx2+1,bomby2+1+(range22*2),0xffff00ff)
- gui.fillbox(bombx2-(range23*2),bomby2,bombx2+1+(range24*2),bomby2+1,0xffff00ff)
- end
- if bombx3>=1 then
- gui.fillbox(bombx3,bomby3-(range31*2),bombx3+1,bomby3+1+(range32*2),0x0000ffff)
- gui.fillbox(bombx3-(range33*2),bomby3,bombx3+1+(range34*2),bomby3+1,0x0000ffff)
- end
- if bombx4>=1 then
- gui.fillbox(bombx4,bomby4-(range41*2),bombx4+1,bomby4+1+(range42*2),0x777777ff)
- gui.fillbox(bombx4-(range43*2),bomby4,bombx4+1+(range44*2),bomby4+1,0x777777ff)
- end
- if (myx>=1) then
- gui.fillbox(myx,myy,myx+1,myy+1,0xFF00FFFF)
- gui.box(mydispx,mydispy,mydispx+15,mydispy+15,0xffff00aa)
- gui.line(mydispx+8,mydispy,mydispx+8,mydispy+15,0xff0000ff)
- gui.box(mydispx+3,mydispy,mydispx+12,mydispy+15,0xffffffff)
- gui.text(mydispx-8,mydispy+17,"X Speed:" .. myspeedx .. "\nY Speed:" .. myspeedy,0x000000aa,0xffffffaa)
- gui.box(camerax,cameray,camerax+19,cameray+19,0x00FF00FF)
- gui.text(mydispx,mydispy-5,myx .. "/" .. mysubx .. "," .. myy .. "/" .. mysuby)
- end
- if enemystate1==33 then
- gui.box(enemydisp1x,enemydisp1y,enemydisp1x+15,enemydisp1y+15,0xFFFFFFFF)
- end
- if enemystate2==33 then
- gui.box(enemydisp2x,enemydisp2y,enemydisp2x+15,enemydisp2y+15,0xFFFFFFFF)
- end
- if enemystate3==33 then
- gui.box(enemydisp3x,enemydisp3y,enemydisp3x+15,enemydisp3y+15,0xFFFFFFFF)
- end
- if enemystate4==33 then
- gui.box(enemydisp4x,enemydisp4y,enemydisp4x+15,enemydisp4y+15,0xFFFFFFFF)
- end
- if enemystate5==33 then
- gui.box(enemydisp5x,enemydisp5y,enemydisp5x+15,enemydisp5y+15,0xFFFFFFFF)
- end
- if enemystate6==33 then
- gui.box(enemydisp6x,enemydisp6y,enemydisp6x+15,enemydisp6y+15,0xFFFFFFFF)
- end
- if enemystate7==33 then
- gui.box(enemydisp7x,enemydisp7y,enemydisp7x+15,enemydisp7y+15,0xFFFFFFFF)
- end
- if enemystate8==33 then
- gui.box(enemydisp8x,enemydisp8y,enemydisp8x+15,enemydisp8y+15,0xFFFFFFFF)
- end
- gui.text(mydispx-8,mydispy-10,speed2count)
- if (vba.lagged()==true) then
- gui.text(5,125,"Frames:" .. vba.framecount() .. ":*" .. vba.lagcount(),0xff0000ff)
- else
- gui.text(5,125,"Frames:" .. vba.framecount() .. ":" .. vba.lagcount())
- end
- if(movie.active()==false) then
- gui.fillbox(0,0,255,255,0x00000080)
- gui.text(5,50,"NO MOVIE! \nOPEN THE MOVIE!!!\n...or your TAS will become NOTHING.")
- end
- vba.frameadvance();
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement