SetAxes Off
SetDispGCon Off
SetCoord Off
SetGrid Off
SetLabel Off
Message "The game consists of one fights for turns, you will have to defeat 
his your opponent, for this you have 3 keys" ,"As play?"
Message "You turn.. Key4=blow..Key1=kick...Key0=Hadoken--Cp turn..Key 
4=cover blow..Key1=cover kick..Key0=cover power" ,"Keys"
Message "The first one that achieves five blows gains the round, if you 
manage to win, you will go on to the following level ....... You overcome 3 
levels :)" ,"Good luck"
SetBG p0
Cls
Pause
Text 3,170," NOW LOADING ll "
Local 
k,pict,pict2,num,plist1,plist2,plist3,plist4,plist5,plist6,group,group2,group3,group4,group5,group6,glist1,glist2,glist3,glist4,glist5,glist6
Text 3,170," NOW LOADING llll"
{"p5","p6","p7","p15","p15","p15","p16","p16","p17","p18","p19","p20","p22","p22","p23","p24","p25","p26","p4","p5","p6","p7","p101","p102","p102","p102","p103","p103","p104","p105","p106","p24","p25","p26","p4"}plist1
Text 3,170," NOW LOADING llllll"
{"p5","p6","p7","p41","p42","p42","p42","p43","p43","p44","p45","p46","p47","p48","p49","p22","p23","p24","p25","p26","p4","p5","p6","p7","p107","p107","p108","p108","p108","p109","p110","p106","p24","p25","p26","p4"}plist2
Text 3,170," NOW LOADING llllllll"
{"p66","p66","p66","p68","p68","p68","p69","p70","p71","p72","p73","p74","p75","p13","p10","p4","p66","p66","p66","p68","p68","p68","p69","p70","p111","p111","p112","p14","p13","p10","p4"}plist3
Text 3,170," NOW LOADING llllllllll"
{"p10","p11","p12","p115","p115","p115","p116","p116","p117","p117","p118","p38","p39","p40","p4","p10","p11","p12","p53","p53","p53","p54","p54","p55","p55","p56","p56","p57","p58","p59","p60","p61","p62","p63","p64","p37","p38","p39","p40","p4","p10","p11","p78","p78","p78","p79","p79","p80","p81","p82","p83","p85","p86","p87","p88","p89","p90","p91","p92","p93","p94","p95","p96","p97","p12","p11","p10","p4"}plist4
Text 3,170," NOW LOADING llllllllllll"
{"p10","p11","p12","p53","p53","p53","p54","p120","p121","p121","p122","p123","p124","p37","p38","p39","p40","p4","p10","p11","p12","p27","p27","p27","p28","p29","p30","p31","p32","p32","p32","p32","p33","p34","p35","p36","p36","p36","p37","p38","p39","p40","p4","p4","p10","p11","p78","p78","p78","p79","p80","p80","p81","p82","p83","p85","p86","p87","p88","p89","p90","p91","p92","p93","p94","p95","p96","p97","p12","p11","p10","p4"}plist5
Text 3,170," NOW LOADING llllllllllllll"
{"p10","p11","p78","p78","p78","p126","p126","p127","p128","p38","p39","p40","p4","p10","p11","p12","p27","p27","p27","p28","p28","p28","p29","p30","p31","p32","p32","p32","p33","p34","p35","p36","p36","p37","p38","p39","p40","p4","p10","p11","p12","p53","p53","p53","p54","p55","p55","p56","p57","p58","p59","p60","p61","p62","p63","p64","p37","p38","p39","p40","p4"}plist6
Text 3,170," NOW LOADING llllllllllllllll"
{19,35}=>glist1
{21,36}=>glist2
{16,31}=>glist3
{15,40,68}=>glist4
{18,44,72}=>glist5
{13,38,61}=>glist6
0=>gcount
0=>gcount2
0=>gcount3
0=>glast
0=>glast2
0=>glast3
Cls
round()
Text 20,85,"    LEVEL 1    "
Wait 2
Cls
Lbl hola
Do
GetKey k
LpWhile k<8
If k=52
Then
rand(1,3)=>group
If group=3
Then
ryupunch()
Else
For ((group-1)*18)+group=>num To glist1[group]
plist1[num]=>pict
SetBG #pict
Cls
Next
IfEnd
ElseIf k=49
Then
rand(1,3)=>group
If group=3
Then
ryukick()
Else
For ((group-1)*20)+group=>num To glist2[group]
plist2[num]=>pict
SetBG #pict
Cls
Next
IfEnd
Else
rand(1,3)=>group
If group=3
Then
ryupoder()
Else
For ((group-1)*15)+group=>num To glist3[group]
plist3[num]=>pict
SetBG #pict
Cls
Next
IfEnd
IfEnd
If group=>2
Then
gcount+1=>gcount
If gcount=5
Then
ryu()
Goto nivel2
IfEnd
IfEnd
Do
GetKey l
LpWhile l<8
If l=52
Then
rand(1,3)=>group2
For ((group2-1)*5(1+group2))+1=>num To glist4[group2]
plist4[num]=>pict
SetBG #pict
Cls
Next
ElseIf l=49
Then
rand(1,3)=>group2
For ((group2-1)*3(4+group2))+group2=>num To glist5[group2]
plist5[num]=>pict
SetBG #pict
Cls
Next
Else
rand(1,3)=>group2
For ((group2-1)*4(3*(group2/2)))+group2=>num To glist6[group2]
plist6[num]=>pict
SetBG #pict
Cls
Next
IfEnd
If group2=>1
Then
glast+1=>glast
If glast=5
Then
jyn()
IfEnd
IfEnd
Goto hola
Lbl nivel2
round()
Text 20,85,"    LEVEL 2    "
Wait 2
Cls
Lbl hola2
Do
GetKey k
LpWhile k<8
If k=52
Then
rand(1,2)=>group3
For ((group3-1)*18)+group3=>num To glist1[group3]
plist1[num]=>pict
SetBG #pict
Cls
Next
ElseIf k=49
Then
rand(1,2)=>group3
For ((group3-1)*20)+group3=>num To glist2[group3]
plist2[num]=>pict
SetBG #pict
Cls
Next
Else
rand(1,2)=>group3
For ((group3-1)*15)+group3=>num To glist3[group3]
plist3[num]=>pict
SetBG #pict
Cls
Next
IfEnd
If group3=1
Then
gcount2+1=>gcount2
If gcount2=5
Then
ryu()
Goto nivel3
IfEnd
IfEnd
Do
GetKey l
LpWhile l<8
If l=52
Then
rand(1,3)=>group4
For ((group4-1)*5(1+group4))+1=>num To glist4[group4]
plist4[num]=>pict
SetBG #pict
Cls
Next
ElseIf l=49
Then
rand(1,3)=>group4
For ((group4-1)*3(4+group4))+group4=>num To glist5[group4]
plist5[num]=>pict
SetBG #pict
Cls
Next
Else
rand(1,3)=>group4
For ((group4-1)*4(3(group4/2)))+group4=>num To glist6[group4]
plist6[num]=>pict
SetBG #pict
Cls
Next
IfEnd
If group4=>1
Then
glast2+1=>glast2
If glast2=5
Then
jyn()
IfEnd
IfEnd
Goto hola2
Lbl nivel3
round()
Text 20,85,"    LEVEL 3    "
Text 20,95,"     FINAL     "
Wait 2
Cls
Lbl hola3
Do
GetKey k
LpWhile k<8
If k=52
Then
rand(1,3)=>group5
If group5=3
Then
cancelp()
Else
For ((group5-1)*18)+group5=>num To glist1[group5]
plist1[num]=>pict
SetBG #pict
Cls
Next
IfEnd
ElseIf k=49
Then
rand(1,3)=>group5
If group5=3
Then
cancelk()
Else
For ((group5-1)*20)+group5=>num To glist2[group5]
plist2[num]=>pict
SetBG #pict
Cls
Next
IfEnd
Else
rand(1,3)=>group5
If group5=3
Then
cancelpo()
Else
For ((group5-1)*15)+group=>num To glist3[group5]
plist3[num]=>pict
SetBG #pict
Cls
Next
IfEnd
IfEnd
If group5=1
Then
gcount3+1=>gcount3
If gcount3=5
Then
ryu()
Stop
IfEnd
IfEnd
Do
GetKey l
LpWhile l<8
If l=52
Then
rand(1,3)=>group6
For ((group6-1)*5(1+group6))+1=>num To glist4[group6]
plist4[num]=>pict
SetBG #pict
Cls
Next
ElseIf l=49
Then
rand(1,3)=>group6
For ((group6-1)*3(4+group6))+group6=>num To glist5[group6]
plist5[num]=>pict
SetBG #pict
Cls
Next
Else
rand(1,3)=>group6
For ((group6-1)*4(3*(group6/2)))+group6=>num To glist6[group6]
plist6[num]=>pict
SetBG #pict
Cls
Next
IfEnd
If group6=>1
Then
glast3+1=>glast3
If glast3=5
Then
jyn()
IfEnd
IfEnd
Goto hola3

