Need help about rand

[ADMSarah]

Someone can help to fix this script? After choosing roll the NPC got stocked up and the console tell that there's something wrong with the `rand` function not sure what is it and can you also give me an idea so that I can use it in the future as a reference thank you!

Quote

vend,217,289,4    script    Zeny Machine    2_DROP_MACHINE,{

    mes .name$;
    mes (gettime(3)>= 6&&gettime(3)<= 12?"Good Morning":(gettime(3)>=13&&gettime(3)<=18?"Good afternoon":"Good Night"))+", ^FFA500"+strcharinfo(0)+"^000000!";
    mes "shopping in the city?!";
    mes "How about you try your luck here?";
    next;
    switch(select("^0055FFRoll Machine!^000000:Information:Cancel")){
        case 1:
            mes .name$;
            mes "Are you sure you want to roll?";
            next;
            if(select("^0055FFYes, please!^000000:No, I'm afraid")==2) end;
L_RollAgain:
            callsub OnPayMachine;
            callsub OnRollMachine;
            mes .name$;
            mes "Would you like to try again?";
            if(select("Try again!:Cancel")==2) end;
            clear();
            goto L_RollAgain;
            break;
        case 2:
            mes .name$;
            mes "To try your luck.";
            mes "You need the following:";
            if(.Zeny) mes "- ^0055FF"+callfunc("F_InsertComma",.Zeny)+"z^000000";
            if(.ItemID[0])
                for(.@i=0;.@i<getarraysize(.ItemID);.@i++)
                    mes "- ^0055FF"+.ItemAmt[.@i]+" "+getitemname(.ItemID[.@i])+"^000000";
            if(.PointName$[0] != "")
                for(.@i=0;.@i<getarraysize(.PointName$);.@i++)
                    mes "- ^0055FF"+.PointCost[.@i]+" "+.PointName$[.@i]+"^000000";
            for(.@i=0;.@i<getarraysize(.Prizes);.@i+=3){
                if(.@i%10 == 0){
                    next;
                    mes .name$;
                    mes "This are the prize list:";
                }
                mes "- <ITEM>"+.Prizes[.@i+1]+"x "+getitemname(.Prizes[.@i])+"<INFO>"+.Prizes[.@i]+"</INFO></ITEM>";
            }
            break;
        case 3:
            mes .name$;
            mes callfunc("F_Bye");
            mes "Come see me when you want to try your Machine!";
            break;
    }
end;

OnPayMachine:
    if(.Zeny && Zeny < .Zeny)
        .@error$[.@a++] = "- ^FF520000000Zeny^000000";
    if(.ItemID[0])
        for(.@i=0;.@i<getarraysize(.ItemID);.@i++)
            if(countitem(.ItemID[.@i]) < .ItemAmt[.@i])
                .@error$[.@a++] = "- ^FF520000000"+getitemname(.ItemID)+"^000000";
    if(.PointName$[0] != "")
        for(.@i=0;.@i<getarraysize(.PointName$);.@i++)
            if(getd(.PointVar$[.@i]) < .PointCost[.@i])
                .@error$[.@a++] = "- ^FF520000000"+.PointName$[.@i]+"^000000";
    if(.@error$[0] == ""){
        if(.Zeny)
            Zeny -= .Zeny;
        if(.ItemID[0])
            for(.@i=0;.@i<getarraysize(.ItemID);.@i++)
                delitem .ItemID[.@i],.ItemAmt[.@i];
        if(.PointName$[0] != "")
            for(.@i=0;.@i<getarraysize(.PointName$);.@i++)
                    setd .PointVar$[.@i],getd(.PointVar$[.@i])-.PointCost[.@i];
        return;
    }
    mes .name$;
    mes "Sorry but you don't have enough of the following:";
    for(.@i=0;.@i<getarraysize(.@error$);.@i++)
        mes .@error$[.@i];
end;

OnRollMachine:
    .@rand = rand(1,10000);
    for(.@i=1;.@i<getarraysize(.Prizes);.@i+=3)
        if(.@rand <= .Prizes[.@i+2]){
            .@iid[.@x] = .Prizes[.@i];
            .@amt[.@x] = .Prizes[.@i+1];
            .@x++;
        }
    .@getitem = rand(.@x);
    getitem .@iid[.@getitem],.@amt[.@getitem];
    if(inarray(.Announce,.@iid[.@getitem]) >= 0)
        announce "Congratulations! "+strcharinfo(0)+" just received "+(.@amt[.@getitem]>1 ? .@amt[.@getitem]+"x":"")+" "+getitemname(.@iid[.@getitem])+" from "+strnpcinfo(0)+"!",0;
return;

OnInit:
    .name$ = "^00B2EE[ Zeny Machine ]^000000";
    
    /***Payment Configuration***/
    .Zeny = 20000000;
    setarray .ItemID[0],0;
    setarray .ItemAmt[0],0;
    setarray .PointName$[0],"";
    setarray .PointVar$[0],"";
    setarray .PointCost[0],0;
    
    /***Prize Configuration***/
    setarray .Prizes[0],//Item ID, Amount, Chance(1-10000)
                        12246,1,100, //Mystical Card Album
                        9932,1,300, //Royal Secret Box
                        616,1,1000, //Old Card Album
                        11623,5,1000, //White Syrup
                        12100,50,1000, //Cooked Nine Tail's Tails
                        12090,50,1000, //Steamed Desert Scorpions
                        12095,50,1000, //Hwergelmir's Tonicv
                        12080,50,1000, //Dragon Breath Cocktail
                        12085,50,1000, //Immortal Stew
                        12075,50,1000, //Steamed Tongue
                        12263,5,1000, //Field Manual
                        12264,10,1000, //Bubble Gum
                        12265,5,1000, //Life Insurrance
                        607,50,1000, //Yggdrasil Berry
                        608,50,1000, //Yggdrasil Seed
                        25791,1,500, //Inventory Expansion Voucher
                        27330,1,1, //Kronecker Card
                        27332,1,1, //Skia Card
                        27200,1,1, //Nihil Card
                        27201,1,1, //Agnes Card
                        27202,1,1, //Juergen Card
                        27203,1,1, //Spica Card
                        300127,1,1, //Wolf Card
                        300129,1,1, //Poe Card
                        27393,1,1, //Kathryn Card
                        27395,1,1, //Isaac Card
                        300307,1,1, //Meyer Card
                        300309,1,1, //Helmut Card
                        300421,1,1, //Catherine Card
                        300423,1,1, //Friedrich Card
                        300425,1,1, //Crux Card
                        27196,1,1, //Nihil M. Heine Card
                        27197,1,1, //Agnes Lugenburg Card
                        27198,1,1, //Jurgen Wigner Card
                        27199,1,1, //Spica Nerius Card
                        300426,1,1, //Crux Findel Card
                        300424,1,1, //Friedrich S. Heine Card
                        300422,1,1, //Catherine Gaebolg Card
                        300308,1,1, //Meyer Lugenburg Card
                        300130,1,1, //Poe Richard Card
                        300128,1,1, //Wolf Lugenburg Card
                        27396,1,1, //Isaac Wigner Card
                        27331,1,1, //Kronecker G. Heine Card
                        27333,1,1; //Skia Nerius Card

    setarray .Announce[0],27330,27332,27200,27201,27202,27203,300127,300129,27393,27395,300307,300309,300421,300423,300425,27196,27197,27198,27199,300426,300424,300422,300308,300130,300128,27396,27331,27333,9932;
end;
}

 

Edited February 11 by Questune

[Scanty]

Try this.

 

// Script de Máquina de Roll
prontera,193,140,4	script	Máquina de Roll	100,{
	// Configuración de costos y requisitos
	set .Cost, 50000; // Costo en Zeny (ajustable)
	set .ReqItemID, 969; // ID del ítem requerido (ajustable)
	set .ReqItemAmount, 1; // Cantidad del ítem requerido (ajustable)

	// Lista de premios con probabilidades (1-10000)
	setarray .Prizes[0], 
		12246,1,100, 9932,1,300, 616,1,1000, 11623,5,1000,
		12100,50,1000, 12090,50,1000, 12095,50,1000, 12080,50,1000,
		12085,50,1000, 12075,50,1000, 12263,5,1000, 12264,10,1000,
		12265,5,1000, 607,50,1000, 608,50,1000, 25791,1,500,
		27330,1,1, 27332,1,1, 27200,1,1, 27201,1,1,
		27202,1,1, 27203,1,1, 300127,1,1, 300129,1,1,
		27393,1,1, 27395,1,1, 300307,1,1, 300309,1,1,
		300421,1,1, 300423,1,1, 300425,1,1, 27196,1,1,
		27197,1,1, 27198,1,1, 27199,1,1, 300426,1,1,
		300424,1,1, 300422,1,1, 300308,1,1, 300130,1,1,
		300128,1,1, 27396,1,1, 27331,1,1, 27333,1,1;

	// Menú principal
	mes "[Máquina de Roll]";
	mes "¡Bienvenido! ¿Quieres probar suerte?";
	next;
	switch(select("Jugar:Ver costo y requisitos:Salir")) {
		case 1:
			// Verificar si el jugador tiene suficientes Zeny e ítems
			if (Zeny < .Cost) {
				mes "[Máquina de Roll]";
				mes "No tienes suficiente Zeny.";
				close;
			}
			if (.ReqItemID && countitem(.ReqItemID) < .ReqItemAmount) {
				mes "[Máquina de Roll]";
				mes "No tienes suficiente " + getitemname(.ReqItemID) + ". Necesitas " + .ReqItemAmount + ".";
				close;
			}

			// Restar Zeny e ítems requeridos
			set Zeny, Zeny - .Cost;
			if (.ReqItemID) {
				delitem .ReqItemID, .ReqItemAmount;
			}

			// Generar número aleatorio
			set .roll, rand(1, 10000);
			set .accum, 0;
			for (set .i, 0; .i < getarraysize(.Prizes); set .i, .i + 3) {
				set .accum, .accum + .Prizes[.i + 2];
				if (.roll <= .accum) {
					getitem .Prizes[.i], .Prizes[.i + 1];
					announce "[Máquina de Roll] " + strcharinfo(0) + " ha conseguido " + .Prizes[.i + 1] + "x " + getitemname(.Prizes[.i]) + "!", bc_all;
					mes "[Máquina de Roll]";
					mes "¡Felicidades! Has obtenido " + .Prizes[.i + 1] + "x " + getitemname(.Prizes[.i]) + ".";
					close;
				}
			}
			mes "[Máquina de Roll]";
			mes "Lo siento, no ganaste nada esta vez.";
			close;
		
		case 2:
			mes "[Máquina de Roll]";
			mes "Para jugar necesitas:";
			mes "^009900-" + .Cost + " Zeny^000000.";
			if (.ReqItemID) {
				mes "^009900-" + .ReqItemAmount + "x " + getitemname(.ReqItemID) + "^000000.";
			}
			close;
		
		case 3:
			mes "[Máquina de Roll]";
			mes "¡Vuelve cuando quieras probar suerte!";
			close;
	}
}