Ops, I mean: "texture flag doesn't work under Windows 7 corretly", sorry
Now I am using the Windows 7, the "texture flag" of the command "get image" doesn't seems working, the sprites are showed with no antialiasing unlike Windows XP! What's wrong? It would be a bug? Thank you.
set display mode 384,224,16,
hide mouse
quadros("Ryuparado",56,98,168,212,24,0)
quadros("Ryuandartras",0,93,78,205,21,24)
quadros("Ryuandarfrente",275,108,350,209,26,45)
quadros("Ryuagachar",63,110,140,207,5,71)
quadros("Ryupulandopratras",0,0,263,203,56,124)
quadros("Ryupulandofrente",0,0,276,207,54,180)
quadros("Ryusaltoreto",59,6,150,211,55,629)
`carrega a imagem do cenario
load image "\Ryu\cenario/sf2ceua000.png",45,1
sprite 3,0,0,45
z=1
z1=25
z2=46
z3=72
z5=125
z6=181
z26=630
parado=100
andarpratras=100
andarprafrente=100
agachar=100
pularreto=8
pulatras=100
pulafrentex=100
rasteira=100
DO
`=======================================
`RYU AGACHADO
`========================================
while downkey()=1
socofracoagachado=agachar+9
socomedioagachado=agachar+9
socoforteagachado=agachar+12
rasteirafraca=agachar+7
rasteiramedia=agachar
rasteiraforte=agachar+8
gosub sprites
if z3<76
sprite 5,agachar,112,z3
inc z3
sleep 20
else
sprite 5,agachar,112,76
endif
endwhile
z3=72
`========================================
`RYU ANDANDO PRA FRENTE
`========================================
while rightkey()=1
gosub sprites
pulafrentex=andarprafrente
pulatras=andarprafrente-183
parado=andarprafrente
andarpratras=andarprafrente
agachar=andarprafrente
pularretox=andarprafrente+7
sprite 4,andarprafrente,110,z2
if z2=71 then z2=45
inc andarprafrente,4
inc z2
gosub GolpesEmPe
sleep 20
endwhile
`========================================
`RYU ANDANDO DE COSTAS
`========================================
while leftkey()=1
gosub sprites
pulafrentex=andarpratras
pulatras=andarpratras-183
parado=andarpratras
andarprafrente=andarpratras+2
agachar=andarpratras+4
pularretox=andarpratras
sprite 2,andarpratras,96,z1
dec andarpratras,3
if z1=44 then z1=25
inc z1
set sprite priority 2,1
gosub GolpesEmPe
sleep 20
endwhile
`========================================
`RYU PARADO
`========================================
if upkey()=0
gosub sprites
pulatras=parado-188
pularretox=parado+2
andarprafrente=parado+8
andarpratras=parado
agachar=parado+6
pulafrentex=parado-4
sprite 1,parado,100,z
if z=24 then z=0
inc z
set sprite priority 1,1
gosub GolpesEmPe
sleep 15
endif
`========================================
`RYU SALTANDO RETO
`========================================
if upkey()=1
pulafrentex=pularretox-8
repeat
gosub sprites
sprite 6,pularretox,pularreto,z26
sleep 15
inc z26
if downkey()=1 and z26>678 then z26=685
until z26=685
z26=630
endif
`============================================
LOOP
`===========================================================================================
GolpesEmPe:
`========================================
`RYU SALTANDO PRA FRENTE
`========================================
`if keystate(2)=1
if upkey()=1 and rightkey()=1
pularretox=pulafrentex+143
agachar=pulafrentex+147
andarprafrente=pulafrentex+143
andarpratras=pulafrentex+143
pulatras=pulafrentex-47
parado=pulafrentex+140
repeat
gosub sprites
sprite 8,pulafrentex,2,z6
inc z6
sleep 15
if downkey()=1 and z6>228 then z6=235
until z6=235
z6=181
inc pulafrentex,135
else
`========================================
`RYU SALTANDO PRA TRAS
`========================================
`if keystate(41)=1
if upkey()=1 and leftkey()=1
pularretox=pulatras+27
agachar=pulatras-4
andarprafrente=pulatras+40
andarpratras=pulatras+40
pulafrentex=pulatras+19
parado=pulatras+23
agachar=pulatras+31
repeat
gosub sprites
if sprite exist(7)=1 then delete sprite 7
sprite 7,pulatras,2,z5
inc z5
sleep 15
if downkey()=1 and z5>174 then z5=180
until z5=180
z5=125
dec pulatras,163
endif:endif:return
`===========================================================================================
function quadros(a$,g,h,i,j,f,q)
x=q
for t=1 to f
inc x
load bitmap "\Ryu\"+a$+"/sf2ceua"+str$(t)+".png",x
get image x,g,h,i,j,1
delete bitmap x
next t
endfunction
`===========================================================================================
sprites:
for spr=1 to 38
if sprite exist(spr)=1 and spr<>3 then delete sprite spr
next spr
return
`===========================================================================================