Se trata de un juego de Minería donde los jugadores pueden obtener algunos minerales a partir de las cuevas.
Requisitos: 1 Old Pick por cada intento.
Premios: Minerales, metales y items de Secretos.
Completos efectos de sonido y apoyo.
Aquí dejo el código =P espero que se tome en cuenta hiré poniendo más Scripts =P
[Este script me lo pasó 1 amigo xd yo no sé mucho de scripts]
COMO JUGAR:
Intenta de descubrir el punto débil de la roca en la pared antes de romper tu Pick una vez Destruido el muro de tratar de obtener los minerales del mineral hay un montón de premios.
Aprende a jugar hablando con special Tool Dealers en las ciudades mas importantes.
aconsejo que vayas bn ekipado x'd
Requisitos: 1 Old Pick por cada intento.
Premios: Minerales, metales y items de Secretos.
Completos efectos de sonido y apoyo.
Aquí dejo el código =P espero que se tome en cuenta hiré poniendo más Scripts =P
[Este script me lo pasó 1 amigo xd yo no sé mucho de scripts]
COMO JUGAR:
Intenta de descubrir el punto débil de la roca en la pared antes de romper tu Pick una vez Destruido el muro de tratar de obtener los minerales del mineral hay un montón de premios.
Aprende a jugar hablando con special Tool Dealers en las ciudades mas importantes.
aconsejo que vayas bn ekipado x'd
- Código:
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
// Miner System \\
// Version 1.1 for Jigoku \\
// (c) 2007 by Myzter \\
// Ensure MaxGotoCount (script_athena.conf) > 100000 \\
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
- script MinerSpot -1,{
if (!getarraysize($@CommonMinerals)) goto OnInit;
if (countitem(7318) < 1) {
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "Sí, este es un hermoso mineral , pero no puedo trabajar con él.";
mes " ";
mes ">> Item Requerido: ^FF0000" + getitemname(7318) + " ^000000<<";
close;
}
// * Remove 1 Old Pick
delitem 7318,1;
// Game Startup (don't change)
set @HRock,rand(10,25); // How strong is the rock
set @HPick,rand(10,21); // How strong is the Old Pick
set @HWeak,rand(9); // Weak spot in the rock
set @HWP,0; // Flag for Weak Point Found
// ** Resistence
set @RESIST,0;
// Headgear
if (isequipped(5031) || isequipped(5009))
set @RESIST, @RESIST + 50 + getequiprefinerycnt(1);
else {
if (getequipisequiped(1)) set @RESIST, @RESIST + 15 + getequiprefinerycnt(1);
if (getequipisequiped(9)) set @RESIST, @RESIST + 10;
if (getequipisequiped(10)) set @RESIST, @RESIST + 5;
}
// * Shoes
if (isequipped(2401) || isequipped(2402) || isequipped(2403) || isequipped(2404) || isequipped(2407) || isequipped(2416))
set @RESIST, @RESIST + 10 + getequiprefinerycnt(6);
else if (getequipisequiped(6))
set @RESIST, @RESIST + 20 + getequiprefinerycnt(6);
// * Hand protectors
if (getequipid(7) == 2604 || getequipid(7) == 2615 || getequipid(7) == 2624 || getequipid(7) == 2667 || getequipid(7) == 2692 || getequipid(7) == 2701)
set @RESIST, @RESIST + 10;
if (getequipid(8) == 2604 || getequipid(8) == 2615 || getequipid(8) == 2624 || getequipid(8) == 2667 || getequipid(8) == 2692 || getequipid(8) == 2701)
set @RESIST, @RESIST + 10;
if (@RESIST > 100) set @RESIST, 100;
// * Armor
if (getequipisequiped(2)) set @RESIST, @RESIST + 10 + getequiprefinerycnt(2);
// * Chance to get minerals - (10 = 10%) - (20 = 5%) - (100 = 1%)
set @HLuck,rand(10);
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "Necesito descubrir un punto débil en este minera en cuanto posible.";
mes " ";
mes ">> Resistencia de Equipo: ^FF0000" + @RESIST + "%^000000";
next;
L_BrkRock:
if (@HRock > 20)
set @RockSt$,"^0EAE1B";
else if (@HRock > 15)
set @RockSt$,"^7CAE0E";
else if (@HRock > 10)
set @RockSt$,"^E3C521";
else if (@HRock > 5)
set @RockSt$,"^D86112";
else
set @RockSt$,"^D82412";
if (@HPick > 20)
set @PickSt$,"^0EAE1B";
else if (@HPick > 15)
set @PickSt$,"^7CAE0E";
else if (@HPick > 10)
set @PickSt$,"^E3C521";
else if (@HPick > 5)
set @PickSt$,"^D86112";
else
set @PickSt$,"^D82412";
for (set @x, 0; @x < 25; set @x, @x + 1) {
if (@HRock > @x)
set @RockSt$, @RockSt$ + "¤";
else
set @RockSt$, @RockSt$ + "^E0E0E0¤";
if (@HPick > @x)
set @PickSt$, @PickSt$ + "¤";
else
set @PickSt$, @PickSt$ + "^E0E0E0¤";
}
mes "[^0000FF" + strcharinfo(0) + "^000000]";
if (@HWP)
mes "Punto Débil: ^0000FF" + $@PickLocation$[@HWeak] + "^000000";
else
mes "Buscando Punto Débil...";
mes "> Roca: ";
mes " [" + @RockSt$ + "^000000]";
mes "> " + getitemname(7318) + ": ";
mes " [" + @PickSt$ + "^000000]";
next;
deletearray @KPos,127;
deletearray @KNm$,127;
setarray @KPos[0],50,50,50,50,50,50,50,50,50;
set @i, 0;
while(@i < 9) {
set @Wrd, rand(9);
set @Repeated,0;
if (@i > 0) {
for (set @x, 0; @x < @i; set @x, @x + 1) {
if (@Wrd == @KPos[@x]) set @Repeated,1;
}
}
if (!@Repeated) {
// Set the position in the array
set @KPos[@i],@Wrd;
set @i, @i + 1;
}
}
set @tmpMenu$,"";
for (set @x, 0; @x < 9; set @x, @x + 1) {
set @tmpMenu$, @tmpMenu$ + $@PickLocation$[@KPos[@x]] + ":";
}
set @tmpMenu$, @tmpMenu$ + "Salir";
// Select the location to break the rock
set @opc, select(@tmpMenu$) - 1;
if (@opc == 9) goto L_Exit;
// Weak side found!
if (@KPos[@opc] == @HWeak) {
soundeffect "chepet_attack.wav",0;
set @HWP,1;
set @HPower1, rand(3,4);
set @HPower2, rand(2);
} else {
soundeffect "apocalips_h_move.wav",0;
set @HPower1, rand(2);
set @HPower2, rand(1,3);
}
set @HRock, @HRock - @HPower1;
set @HPick, @HPick - @HPower2;
if (!rand(10)) {
// Accident!!!
mes "[^0000FF" + strcharinfo(0) + "^000000]";
if (@RESIST < 100 || !rand(10)) {
if (sex)
soundeffect "die_male.wav",0;
else
soundeffect "die_merchant_female.wav",0;
percentheal -rand(1,rand(100-@RESIST)),0;
mes "^FF0000" + $@MNAccidents$[rand(getarraysize($@MNAccidents$))] + "^000000";
} else {
mes "^FF0000" + $@MNAccidents2$[rand(getarraysize($@MNAccidents2$))] + "^000000";
}
if (HP < 1) close;
next;
} else if (!rand(500)) {
// Earth Quake!!!
soundeffect "earth_quake.wav",0;
percentheal -100,-100;
announce "La mina esta colapsada, has Muerto!",3;
end;
}
if (@HPick < 1) {
// Old Pick is broken!
specialeffect2 155;
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "Santa Mierda!, rompí esto " + getitemname(7318) + "!";
mes " ";
mes ">> ^FF0000" + countitem(7318) + "^000000 " + getitemname(7318) + " Izquierda";
close;
}
// Give another chance while @HRock is > 0
if (@HRock > 0) goto L_BrkRock;
soundeffect "tming_success.wav",0;
specialeffect 266;
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "Yeahh!!!, La pared de piedra es historia!";
next;
soundeffect "ice_titan_die.wav",0;
L_GetMinerals:
if (@HPick > 20)
set @PickSt$,"^0EAE1B";
else if (@HPick > 15)
set @PickSt$,"^7CAE0E";
else if (@HPick > 10)
set @PickSt$,"^E3C521";
else if (@HPick > 5)
set @PickSt$,"^D86112";
else
set @PickSt$,"^D82412";
for (set @x, 0; @x < 25; set @x, @x + 1) {
if (@HPick > @x)
set @PickSt$, @PickSt$ + "¤";
else
set @PickSt$, @PickSt$ + "^E0E0E0¤";
}
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "> " + getitemname(7318) + ": ";
mes " [" + @PickSt$ + "^000000]";
next;
select("Beat");
// Clang!!!
soundeffect "green_iguana_damage.wav",0;
set @Points, rand(@HLuck);
if (!@Points) { // 10%
set @IType, rand(1000);
if (!@IType) { // 0.1%
set @Mineral, $@BonusItems[rand(getarraysize($@BonusItems))];
set @Message$, "OMG!!! Encontre 1 " + getitemname(@Mineral) + "!";
} else if (@IType < 50) { // 5%
set @Mineral, $@SpecialMinerals[rand(getarraysize($@SpecialMinerals))];
set @Message$, "Yeah!, Esto es útil!";
} else { // 94.9%
set @Mineral, $@NormalMinerals[rand(getarraysize($@NormalMinerals))];
set @Message$, "No hay nada útil aquí";
}
} else { // 90%
set @Mineral, $@CommonMinerals[rand(getarraysize($@CommonMinerals))];
set @Message$, "Pfff...";
}
if (@Mineral > 500) {
// Check weight
if (checkweight(@Mineral,1) == 0) {
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "Maldito!!! ... necesito más espacio para conseguir esto...";
mes "(Tu Pierdes: ^FF00001 " + getitemname(@Mineral) + "^000000)";
close;
}
getitem @Mineral,1;
dispbottom "Mina: Obtienes 1 " + getitemname(@Mineral);
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes @Message$;
next;
} else {
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes ">> Grr!!... Maldita Mina!!! <<";
next;
}
// Calculate the Old Pick
set @HPick, @HPick - rand(3);
if (@HPick < 1) {
// Old Pick is broken!
specialeffect2 155;
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "Maldito, rompí esto " + getitemname(7318) + ".";
mes " ";
mes ">> ^FF0000" + countitem(7318) + "^000000 " + getitemname(7318) + " Izquierda";
close;
}
goto L_GetMinerals;
L_Exit:
mes "[^0000FF" + strcharinfo(0) + "^000000]";
mes "Estoy cansado... fiuuufff...";
close;
OnInit:
setarray $@CommonMinerals[0], 909,1,1,1,1,1,1,1,1,1,1,1,1;
setarray $@NormalMinerals[0], 715,716,717,7067,7300,733,910,911,912,984,985,998,
999,1002,1010,1011,7053,7054,7096,7220,7321;
setarray $@SpecialMinerals[0], 718,719,720,721,722,723,724,725,726,727,728,729,730,731,
732,990,991,992,993,994,995,996,997,1000,1003,7224,7231,
7232,7233,7289,7290,7291,7292,7293,7294,7295,7296,969;
setarray $@BonusItems[0], 616,2622,2605,2616,2621,2624,2626,2665,2666,2667,2670,2673,
2682,2683,2684,2685; // OCA & RINGS
setarray $@PickLocation$[0], "[O] Centro","[/\\] Arriba","[\\/] Abajo","[<] Izquierda","[>] Derecha","[<\\] Top Izquierda",
"[/>] Top Derecha","[</] Boton Izquierda","[\\>] Boton Derecha";
setarray $@MNAccidents$[0], "Ouchhh!!! mi ojo... snifff",
"Arghh!!!!... mi dedo!",
"Ouch!... una piedra cayó sobre mi cabeza...";
setarray $@MNAccidents2$[0], "Oh mi señor, que suerte tengo !",
"He he he... estoy protegido!";
}
- script MiningTools -1,{
mes "[Miner]";
mes "Hola " + strcharinfo(0) + ", Quieres comprar Instrumentos de Minería?";
next;
l_MainMenu:
switch (select("Comprar Herramientas","Sobre Minería","Localización de las minas","Adíos")) {
case 1:
mes "[Miner]";
mes "Gracias, tengo " + getitemname(7318) + " y algunas pociones para curarte en el caso que tengas un accidente.";
close2;
callshop "MinerShop",1;
end;
case 2:
mes "[Miner]";
mes "El arte de minería es como obtener el mineral de buena calidad de las cuevas de minerales.";
next;
mes "[Miner]";
mes "Los minerales por lo general estan ocultados bajo una pared de roca grande que debes romper.";
next;
mes "[Miner]";
mes "La pared de roca es muy fuerte, pero un minero bueno siempre descubre el punto debil antes de destruirla con sus instrumentos.";
next;
mes "[Miner]";
mes "Las viejas minas estan llenas de secretos, algunos mineros dicen que puedes encontrar minerales valiosos y algún tesoro.";
next;
mes "[Miner]";
mes "Todo lo que le dije ha sido maravilloso, pero cree en mí, esto no es siempre verdad...";
next;
mes "[Miner]";
mes "Las Minas son peligrosas, ves bien equipado para protegerte.";
next;
mes "[Miner]";
mes "He notado que los mineros prefieren ^FF0000" + getitemname(5009) + "^000000 y ^FF0000" + getitemname(5031) + "^000000";
next;
goto l_MainMenu;
case 3:
mes "[Miner]";
mes "Intenta localizar minerales dentro de las cuevas, busca en el Desierto de Mograt y en la Mina de carbón.";
next;
goto l_MainMenu;
}
mes "[Miner]";
mes "Hasta la proxima " + strcharinfo(0) + ".";
close;
}
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
// Mines #001 - #999
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
anthell01,265,156,5 duplicate(MinerSpot) Minerals#001 111
anthell01,247,194,5 duplicate(MinerSpot) Minerals#002 111
anthell01,264,206,5 duplicate(MinerSpot) Minerals#003 111
anthell01,264,197,5 duplicate(MinerSpot) Minerals#004 111
anthell01,265,261,5 duplicate(MinerSpot) Minerals#005 111
anthell02,195,267,5 duplicate(MinerSpot) Minerals#006 111
anthell02,217,260,5 duplicate(MinerSpot) Minerals#007 111
anthell02,250,228,5 duplicate(MinerSpot) Minerals#008 111
anthell02,251,204,5 duplicate(MinerSpot) Minerals#009 111
anthell02,213,69,5 duplicate(MinerSpot) Minerals#010 111
mjo_dun01,91,211,5 duplicate(MinerSpot) Minerals#011 111
mjo_dun01,108,210,5 duplicate(MinerSpot) Minerals#012 111
mjo_dun01,131,217,5 duplicate(MinerSpot) Minerals#013 111
mjo_dun01,142,220,5 duplicate(MinerSpot) Minerals#014 111
mjo_dun01,204,243,5 duplicate(MinerSpot) Minerals#015 111
// Add your own mines
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
// Merchants
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
prt_in,161,140,5 duplicate(MiningTools) Mining Tools#1 813
morocc,165,113,4 duplicate(MiningTools) Mining Tools#2 813
geffen,74,193,4 duplicate(MiningTools) Mining Tools#3 813
pay_arche,123,141,4 duplicate(MiningTools) Mining Tools#4 813
alberta,204,74,4 duplicate(MiningTools) Mining Tools#5 813
izlude_in,72,123,3 duplicate(MiningTools) Mining Tools#6 813
yuno_fild01,199,160,2 duplicate(MiningTools) Mining Tools#7 813
comodo,125,194,3 duplicate(MiningTools) Mining Tools#8 813
gonryun,135,96,4 duplicate(MiningTools) Mining Tools#9 813
einbroch,237,169,4 duplicate(MiningTools) Mining Tools#10 813
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
// Shop
// o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
- shop MinerShop -1,7318:2700,501:-1,502:-1,503:-1,504:-1,517:-1,539:-1