0 Members and 1 Guest are viewing this topic.
Define LibPub gan()=Prgm:Lbl z:e:=0:If e=e Then:RequestStr "Facil=F Normal=N Dificil=D",a,0:If a="F" Then:Goto v:ElseIf a="f" Then:Goto v:elseIf a="D" Then:Goto l:ElseIf a="d" Then:Goto l:elseIf a="N" Then:Goto q:ElseIf a="n" Then:Goto q:Lbl q:b:=randInt(0,100):Lbl u:Request "Adivinha o numero de 0-100",c,0:If c=b Then:Disp "Bom jogo acabaste em ",e," tentativas!":Lbl t:RequestStr "Novo jogo? S\N?",d,0:If d="S" Then:e:=0:Goto z:ElseIf d="s" Then:e:=0:Goto z:ElseIf d="N" Then:Goto y:ElseIf d="n" Then:Goto y:Else:Goto t:EndIf:ElseIf c>b and c<101 Then:Text "Muito alto!",0:e:=e+1:Goto u:ElseIf c<b and c>−1 Then:Text "Muito baixo!",0:e:=e+1:Goto u:Else:Text "É só de 0 a 100!":Goto u:Lbl l:b:=randInt(0,1000):Lbl m:Request "Adivinha o numero de 0-1000",c,0:If c=b Then:Disp "Bom jogo acabaste em ",e," tentativas!":Lbl n:RequestStr "Novo jogo? S\N?",d,0:If d="S" Then:e:=0:Goto z:ElseIf d="s" Then:e:=0:Goto z:ElseIf d="N" Then:Goto y:ElseIf d="n" Then:Goto y:Else:Goto n:EndIf:ElseIf c>b and c<1001 Then:Text "Muito alto!",0:e:=e+1:Goto m:ElseIf c<b and c>−1 Then:Text "Muito baixo!",0:e:=e+1:Goto m:Else:Text "É só de 0 a 1000!":Goto m:Lbl v:b:=randInt(0,10):Lbl w:Request "Adivinha o numero de 0-10",c,0:If c=b Then:Disp "Bom jogo acabaste em ",e," tentativas!":Lbl x:RequestStr "Novo jogo? S\N?",d,0:If d="S" Then:e:=0:Goto z:ElseIf d="s" Then:e:=0:Goto z:ElseIf d="N" Then:Goto y:ElseIf d="n" Then:Goto y:Else:Goto x:EndIf:ElseIf c>b and c<11 Then:Text "Muito alto!",0:e:=e+1:Goto w:ElseIf c<b and c>−1 Then:Text "Muito baixo!",0:e:=e+1:Goto w:Else:Text "É só de 0 a 10!":Goto w:endif:endif:endif:endif:endif:Lbl y:EndPrgm