Ruleta rusa en Pseint

[nathalia]

Buenas tardes estoy creando un juego de la ruleta rusa, son 2 jugadores y cuatro partidas en total, 2 por cada jugador de manera alternada. La posición de la bala se saca al azar.
el pseudocódigo esta listo digamos, el único detalle es que a la hora de que salga la posición en donde se encuentra la bala tiene que cerrar ese ciclo y asignar un 0 al jugador que perdió, si alguien pudiera ayudarme con eso, le agradecería ya que no he podido solucionarlo
les muestro lo que tengo hecho

Algoritmo ruleta
definir partida1, num, part, numVerificar, resPerdi, resAcu, resTotal, nAzar,partida2, opc como entero

partida1<-0
iniciar2<-1
cont_jugador=1
parti=1
part1=1
resTotal=0
resAcu=0
nAzar=1
nAzar1=1
part=8

Escribir "======================================"
Escribir "|             RULETA RUSA            |"
Escribir "======================================"
Escribir ""
Escribir "Ingrese el nombre del jugador 1:"
leer jugador1
Escribir "Ingrese el nombre del jugador 2:"
leer jugador2
repetir
    Limpiar Pantalla

    ESCRIBIR "           Orden del Juego"
    Escribir  "1. inicia primer partida del jugador 1"
    Escribir  "2. inicia primer partida del segundo 2"
    Escribir  "3. inicio segunda partida del jugador 1"
    Escribir  "4. inicio segunda partida del jugador 2"
    leer opc


    Segun opc Hacer
        1:
            Escribir "***********************************************" 
            escribir"        PRIMER JUEGO DEL PRIMER JUGADOR"
            Escribir "***********************************************"
            Escribir ""

            Escribir "   ************************"
            Escribir "   |   Jugador   " jugador1  "  |"
            escribir "   ************************"
            escribir ""

            Escribir "Partida número # " parti
            parti<-parti+1


            Para part<-1 Hasta 8 Con Paso 1 Hacer


                escribir""
                ESCRIBIR "Intento # " part
                Escribir ""
                num <- azar(8)+1
                numVerificar<- azar(4)+1


                escribir "Posición " num


                si  num<>numVerificar
                    nAzar=azar(10)+1
                    escribir "Puntos obtenidos: " nAzar
                    resTotal= resTotal+nAzar

                FinSi
                si num=numVerificar Entonces

                    resPerdi= 0 
                    Escribir" ========================================"
                    Escribir" |              Perdiste                |"
                    escribir" |         Posición de la bala:       " numVerificar " |"
                    Escribir" ========================================"

                    escribir "Puntos: " resPerdi
                    Escribir ""


                FinSi
                Esperar Tecla
            FinPara

            Escribir ""
        2:
            Escribir ""
            escribir "***************************************"
            escribir "  PRIMER JUEGO DEL SEGUNDO JUGADOR     "
            Escribir "***************************************"
            escribir ""

            Escribir "   ******************************"
            Escribir "   |      Jugador   " jugador2    "    |"
            escribir "   ******************************"
            escribir ""

            Escribir "Partida número " part1
            part1<-part1+1
            Para part<-1 Hasta 8 Con Paso 1 Hacer


                Escribir ""
                ESCRIBIR "Intento # " part
                Escribir ""
                num <- azar(8)+1
                numVerificar<- azar(4)+1


                escribir "Posición " num


                si  num<>numVerificar
                    nAzar1=azar(10)+1
                    escribir "Puntos obtenidos: " nAzar1
                    resAcu= resAcu+nAzar1
                    escribir ""


                FinSi

                si num=numVerificar Entonces

                    resPerdi= 0 
                    Escribir" ========================================"
                    Escribir" |              Perdiste                |"
                    escribir" |         Posición de la bala:       " numVerificar " |"
                    Escribir" ========================================"

                    escribir "Puntos: 0"
                    Escribir ""


                FinSi
                Esperar Tecla
            Fin Para
            escribir ""

        3:
            Escribir "***********************************************" 
            escribir"        SEGUNDO JUEGO DEL PRIMER JUGADOR"
            Escribir "***********************************************"
            Escribir ""

            Escribir "   ************************"
            Escribir "   |   Jugador   " jugador1  "  |"
            escribir "   ************************"
            escribir ""

            Escribir "Partida número # " parti
            parti<-parti+1


            Para part<-1 Hasta 8 Con Paso 1 Hacer


                escribir""
                ESCRIBIR "Intento # " part
                Escribir ""
                num <- azar(8)+1
                numVerificar<- azar(4)+1


                escribir "Posición " num


                si  num<>numVerificar
                    nAzar=azar(10)+1
                    escribir "Puntos obtenidos: " nAzar
                    resTotal= resTotal+nAzar
                FinSi


                si num=numVerificar Entonces

                    resPerdi= 0 
                    Escribir" ========================================"
                    Escribir" |              Perdiste                |"
                    escribir" |         Posición de la bala:       " numVerificar " |"
                    Escribir" ========================================"

                    escribir "Puntos: " resPerdi
                    Escribir ""



                FinSi
                Esperar Tecla
            FinPara

            Escribir ""

        4:
            Escribir ""
            escribir "***************************************"
            escribir "  SEGUNDO JUEGO DEL SEGUNDO JUGADOR     "
            Escribir "***************************************"

            Escribir ""

            Escribir "   ******************************"
            Escribir "   |      Jugador   " jugador2    "    |"
            escribir "   ******************************"
            escribir ""

            Escribir "Partida número " part1
            part1<-part1+1
            Para part<-1 Hasta 8 Con Paso 1 Hacer


                Escribir ""
                ESCRIBIR "Intento # " part
                Escribir ""
                num <- azar(8)+1
                numVerificar<- azar(4)+1


                escribir "Posición " num


                si  num<>numVerificar
                    nAzar1=azar(10)+1
                    escribir "Puntos obtenidos: " nAzar1
                    resAcu= resAcu+nAzar1
                    escribir ""

                FinSi

                si num=numVerificar Entonces

                    resPerdi= 0 
                    Escribir" ========================================"
                    Escribir" |              Perdiste                |"
                    escribir" |         Posición de la bala:       " numVerificar " |"
                    Escribir" ========================================"

                    escribir "Puntos: " resPerdi
                    Escribir ""



                FinSi
                Esperar Tecla
            Fin Para
            escribir ""

        De Otro Modo:
            Escribir " ************ Opción Inválida ************"


            escribir "Presione enter para ingresar una opción válida "
            Esperar Tecla

    Fin Segun
hasta que opc=4

ESCRIBIR "Puntaje del jugador " jugador1 " : " resTotal
Escribir "Puntaje del jugador " jugador2 " : " resAcu
//  
si resTotal > resAcu Entonces
    escribir " El ganador es el jugador " jugador1 " con: " resTotal " puntos." 
    Escribir "  ******************** ¡FELICIDADES! **********************"
SiNo
    si resTotal < resAcu Entonces
        escribir " El ganador es el jugador " jugador2 " con: " resAcu " puntos."
        Escribir "  ******************* ¡FELICIDADES! **********************"
    FinSi
FinSi

FinAlgoritmo

[ShuhratBoboyev]

PSeInt-də "ruletka" kimi sadə oyunların yazılması yeni başlayanlar üçün yaxşı təcrübədir. Bu cür layihələr alqoritmik düşüncəni inkişaf etdirir və proqramlaşdırmanın əsas prinsiplərini öyrənməyə kömək edir. Əlavə olaraq, Azərbaycanda onlayn rəsmi sayt oyun sahəsində maraqlı platformalardan biri də 1win kazinosudur. Bu platforma istifadəçilərə müxtəlif oyun seçimləri və rahat interfeys təklif edir.

[Anonymous]