I have made this program for my kid, to start learning some vocabulary english-spanish.
The school has give to chlidrens Linux computers, so I would like to have a Linux version, but it was made in Blitz3D, so I can not translate or compile.
Can someone compile this for Linux and sent me by email?
(ampostataATampostataDOTorg)
Thank you.
ft=LoadFont("arial",34)
SetFont ft
max=56:rv=0
Dim ver$(max,5)
For n=1 To max:For m=1 To 4:Read ver(n,m):ver(n,5)=0:Next:Next
Cls
Repeat
Print "Nivel de Dificultad?"
r=Input ("(1-4) ")
Until r>0 And r<4
If r=1 Then rmax=Int(max/4)
If r=2 Then rmax=Int(max/3)
If r=3 Then rmax=Int(max/2)
If r=4 Then rmax=max
SeedRnd MilliSecs()
Cls
For ronda=1 To rmax
Cls:Locate 0,0
Repeat
n=Rand(1,max)
Until ver(n,5)=0
Print "Verbo: "+Upper(ver(n,4))
re$=Input$("Respuesta: ")
re$=Upper(re$)
If re$=Upper(ver(n,1))
Print "Correcto!":Print
ver(n,5)=1
rv=rv+1
Else
Print "Mal, es :"+ver(n,1):Print
EndIf
WaitKey
Next
Cls:Locate 0,0
p=(rv*100)/rmax:p=Int(p)
Print "Puntuación: "+p+" de 100 (niv "+r+")":Print
If p<50
Print "¡¡¡SUSPENSO!!!!"
Print "HAY QUE REPASAR MÁS"
Else
Print "¡APROBADO!"
EndIf
If p>49 And p<70 And r<4
Print "Pero deberías"
Print "repasar un poco más."
EndIf
If p>69 And r<4 And p<>100
Print "Prueba a subir de nivel"
EndIf
If p=100 And r=4
Print "MATRICULA DE HONOR"
Print "CHAVAL!"
EndIf
If P=100 And r<4
Print "PERFECTO. ¿Podrás"
Print "hacerlo en otro nivel?"
EndIf
WaitKey:End
;Data "Arise","Arose","Arisen","Surgir"
;Data "Awake","Awoke","Awoken","Despertarse"
Data "Be","Was","Been","Ser/Estar"
;Data "Bear","Bore","Borne","Soportar"
Data "Beat","Beat","Beaten","Golpear"
Data "Become","Became","Become","Llegar a Ser"
Data "Begin","Began","Begun","Empezar"
Data "Bend","Bent","Bent","Doblar"
Data "Bet","Bet","Bet","Apostar"
;Data "Bind","Bound","Bound","Atar"
;Data "Bid","Bid","Bid","Pujar"
Data "Bite","Bit","Bitten","Morder"
Data "Bleed","Bled","Bled","Sangrar"
Data "Blow","Blew","Blown","Soplar"
Data "Break","Broke","Broken","Romper"
;Data "Breed","Bred","Bred","Criar"
Data "Bring","Brought","Brought","Traer/Llevar"
;Data "Broadcast","Broadcast","Broadcast","Radiar"
Data "Build","Built","Built","Construir/Edificar"
Data "Burn","Burnt","Burnt","Quemar"
Data "Burst","Burst","Burst","Reventar/Estallar"
Data "Buy","Bought","Bought","Comprar"
;Data "Cast","Cast","Cast","Arrojar"
Data "Catch","Caught","Caught","Coger/Atrapar"
Data "Come","Came","Come","Venir"
Data "Cost","Cost","Cost","Costar"
Data "Cut","Cut","Cut","Cortar"
Data "Choose","Chose","Chosen","Elegir"
;Data "Cling","Clung","Clung","Agarrarse"
;Data "Creep","Crept","Crept","Arrastrarse"
Data "Deal","Dealt","Dealt","Tratar/Comerciar"
Data "Dig","Dug","Dug","Cavar"
Data "Do","Did","Done","Hacer"
Data "Draw","Drew","Drawn","Dibujar"
Data "Dream","Dreamt","Dreamt","Soñar"
Data "Drink","Drank","Drunk","Beber"
Data "Drive","Drove","Driven","Conducir"
Data "Eat","Ate","Eaten","Comer"
Data "Fall","Fell","Fallen","Caer"
Data "Feed","Fed","Fed","Alimentar"
Data "Feel","Felt","Felt","Sentir"
Data "Fight","Fought","Fought","Luchar"
Data "Find","Found","Found","Encontrar"
;Data "Flee","Fled","Fled","Huir"
Data "Fly","Flew","Flown","Volar"
Data "Forbid","Forbade","Forbidden","Prohibir"
Data "Forget","Forgot","Forgotten","Olvidar"
Data "Forgive","Forgave","Forgiven","Perdonar"
Data "Freeze","Froze","Frozen","Helar"
Data "Get","Got","Got","Conseguir/Obtener/Llegar"
Data "Give","Gave","Given","Dar"
Data "Go","Went","Gone","Ir"
Data "Grow","Grew","Grown","Crecer/Cultivar"
;Data "Grind","Ground","Ground","Moler"
Data "Hang","Hung","Hung","Colgar"
Data "Have","Had","Had","Tener/Haber"
Data "Hear","Heard","Heard","Oir"
Data "Hide","Hid","Hidden","Ocultar"
Data "Hit","Hit","Hit","Golpear/Pegar"
Data "Hold","Held","Held","Agarrar"
Data "Hurt","Hurt","Hurt","Herir"
Data "Keep","Kept","Kept","Guardar/Mantener"
Data "Know","Knew","Known","Saber/Conocer"
;Data "Kneel","Knelt","Knelt","Arrodillarse"
;Data "Knit","Knit","Knit","Hacer punto"
Data "Lay","Laid","Laid","Poner/Extender"
Data "Lead","Led","Led","Guiar/Conducir"
Data "Learn","Learnt","Learnt","Aprender"
;Data "Leap","Leapt","Leapt","Brincar"
;Data "Learn","Learnt","Learnt","Aprender"
Data "Leave","Left","Left","Dejar/Irse/Salir"
Data "Lend","Lent","Lent","Prestar"
;Data "Let","Let","Let","Permitir"
;Data "Lie","Lay","Lain","Echarse"
;Data "Light","Lit","Lit","Encender"
;Data "Lose","Lost","Lost","Perder"
;Data "Make","Made","Made","Hacer"
;Data "Mean","Meant","Meant","Significar"
;Data "Meet","Met","Met","Encontrar"
;Data "Mistake","Mistook","Mistaken","Equivocar"
;Data "Overcome","Overcame","Overcome","Vencer"
;Data "Pay","Paid","Paid","Pagar"
;Data "Put","Put","Put","Poner"
;Data "Read","Read","Read","Leer"
;Data "Ride","Rode","Ridden","Montar"
;Data "Ring","Rang","Rung","Llamar"
;Data "Rise","Rose","Risen","Levantarse"
;Data "Run","Ran","Run","Correr"
;Data "Say","Said","Said","Decir"
;Data "See","Saw","Seen","Ver"
;Data "Seek","Sought","Sought","Buscar"
;Data "Sell","Sold","Sold","Vender"
;Data "Send","Sent","Sent","Enviar"
;Data "Set","Set","Set","Poner(se)"
;Data "Sew","Sewed","Sewed","Coser"
;Data "Shake","Shook","Shaken","Sacudir"
;Data "Shear","Shore","Shorn","Esquilar"
;Data "Shine","Shone","Shone","Brillar"
;Data "Shoot","Shot","Shot","Disparar"
;Data "Show","Showed","Shown","Mostrar"
;Data "Shrink","Shrank","Shrunk","Encogerse"
;Data "Shut","Shut","Shut","Cerrar"
;Data "Sing","Sang","Sung","Cantar"
;Data "Sink","Sank","Sunk","Hundir"
;Data "Sit","Sat","Sat","Sentarse"
;Data "Sleep","Slept","Slept","Dormir"
;Data "Slide","Slid","Slid","Resbalar"
;Data "Smell","Smelt","Smelt","Oler"
;Data "Sow","Sowed","Sowed","Sembrar"
;Data "Speak","Spoke","Spoken","Hablar"
;Data "Speed","Sped","Sped","Acelerar"
;Data "Spell","Spelt","Spelt","Deletrear"
;Data "Spend","Spent","Spent","Gastar"
;Data "Spill","Spilt","Spilt","Derramar"
;Data "Spin","Spun","Spun","Hilar"
;Data "Spit","Spat","Spat","Escupir"
;Data "Split","Split","Split","Partir"
;Data "Spoil","Spoilt","Spoilt","Estropear"
;Data "Spread","Spread","Spread","Extender"
;Data "Spring","Sprang","Sprung","Saltar"
;Data "Stand","Stood","Stood","Estar en pie"
;Data "Steal","Stole","Stolen","Robar"
;Data "Stick","Stuck","Stuck","Pegar"
;Data "Sting","Stung","Stung","Picar"
;Data "Stink","Stank","Stunk","Apestar"
;Data "Stride","Strode","Stridden","Dar zancadas"
;Data "Strike","Struck","Struck","Golpear"
;Data "Swear","Swore","Sworn","Jurar"
;Data "Sweat","Sweat","Sweat","Sudar"
;Data "Sweep","Swept","Swept","Barrer"
;Data "Swell","Swelled","Swollen","Hinchar"
;Data "Swim","Swam","Swum","Nadar"
;Data "Swing","Swung","Swung","Columpiarse"
;Data "Take","Took","Taken","Coger"
;Data "Teach","Taught","Taught","Enseñar"
;Data "Tear","Tore","Torn","Rasgar"
;Data "Tell","Told","Told","Decir"
;Data "Think","Thought","Thought","Pensar"
;Data "Throw","Threw","Thrown","Arrojar Tirar"
;Data "Thrust","Thrust","Thrust","Introducir"
;Data "Tread","Trod","Trodden","Pisar"
;Data "Understand","Understood","Understood","Entender"
;Data "Undergo","Underwent","Undergone","Sufrir"
;Data "Undertake","Undertook","Undertaken","Emprender"
;Data "Wake","Woke","Woken","Despertarse"
;Data "Wear","Wore","Worn","Llevar puesto"
;Data "Weave","Wove","Woven","Tejer"
;Data "Weep","Wept","Wept","Llorar"
;Data "Wet","Wet","Wet","Mojar"
;Data "Win","Won","Won","Ganar"
;Data "Wind","Wound","Wound","Enrollar"
;Data "Withdraw","Withdrew","Withdrawn","Retirarse"
;Data "Wring","Wrung","Wrung","Torcer"
;Data "Write","Wrote","Written","Escribir"
|