a=@Int(@Rnd()*3)+1 b=@Int(@Rnd()*3)+a c=@Int(@Rnd()*3)+b v=2 1 Cls Print "Nim 1.0 para Delta-Lispro" Print "1)#a#" Print "2)#b#" Print "3)#c#" Print if a+b+c=0 then goto 7 v=3-v if v=1 then gosub 2 else gosub 3 goto 1 7 if v=1 then print "Voce venceu" else Print "Eu venci" quit 2 Print "Sua vez" Print "Linha (1,2 ou 3) :"; 4 input k if k=0 then quit if k<1 .or. k>3 then goto 4 Print "Retirar quantos objetos ?"; Input n if k=1 then a=a-n if k=2 then b=b-n if k=3 then c=c-n Return 3 Print "Minha vez" d=a.Xor.b.Xor.c e=d.Xor.a f=d.Xor.b g=d.Xor.c x=0 y=0 z=0 if d=0 then goto 5 if e0 then x=@Int(@Rnd()*a)+1 if x>0 then goto 6 if b>0 then y=@Int(@Rnd()*b)+1 if y>0 then goto 6 if c>0 then z=@Int(@Rnd()*c)+1 goto 6