* Cleaned up some unnecessary global ($) and temporary character (@) variables in scripts.

* Removed unnecessary labels, particularly those in warp scripts.
* Some optimization of the Hugel Bingo script.
* Fixed a mob_db error. (bugreport:8051)
* Fixed incorrect/incomplete random Glast Heim warp.
* Removed useless 'getJobName' function from GlobalFunctions.txt.

Signed-off-by: Euphy <euphy@rathena.org>
This commit is contained in:
Euphy 2013-09-06 19:37:14 -04:00
parent ac68cde095
commit 7cb4145691
24 changed files with 428 additions and 674 deletions

View File

@ -839,7 +839,7 @@
1777,ICE_TITAN,Ice Titan,Ice Titan,110,20820,1,2724,2644,1,837,935,344,11,133,54,78,33,78,26,10,12,2,0,61,0x3885,250,861,660,144,0,0,0,0,0,0,0,7561,5000,7066,3000,749,100,984,10,985,30,6253,500,995,100,0,0,0,0,4417,1
1778,GAZETI,Gazeti,Gazeti,106,14000,1,2025,1518,10,596,664,71,21,105,37,42,38,97,38,10,12,1,6,21,0x3395,190,576,370,270,0,0,0,0,0,0,0,7561,3000,7066,3000,985,20,1731,1,6253,100,6256,200,0,0,0,0,0,0,4418,1
1779,KTULLANUX,Ktullanux,Ktullanux,98,2626000,1,1035576,949942,3,2888,5568,129,78,85,126,30,125,177,112,10,12,2,2,81,0x37B5,400,432,840,216,517788,607,5500,617,5000,617,5000,7562,9000,616,3000,2509,3000,2111,5000,617,5000,607,5000,0,0,0,0,0,0,4419,1
1780,MUSCIPULAR,Muscipular,Muscipular,105,12550,1,1944,1458,1,401,477,114,43,100,60,58,37,60,47,10,12,1,3,22,0x84,2000,672,648,360,0,0,0,0,0,0,0,7565,3000,1032,3000,629,2,1033,2000,905,1000,631,3,6217,200,0,0,0,0,4420,1
1780,MUSCIPULAR,Muscipular,Muscipular,105,12550,1,1944,1458,3,401,477,114,43,100,60,58,37,60,47,10,12,1,3,22,0x84,2000,672,648,360,0,0,0,0,0,0,0,7565,3000,1032,3000,629,2,1033,2000,905,1000,631,3,6217,200,0,0,0,0,4420,1
1781,DROSERA,Drosera,Drosera,101,10878,1,1350,1013,7,168,222,86,52,79,32,64,38,78,14,10,12,1,3,22,0x84,2000,864,576,336,0,0,0,0,0,0,0,7565,3000,6259,200,1032,2000,1033,2000,621,3,905,1000,6217,50,0,0,0,0,4421,1
1782,ROWEEN,Roween,Roween,95,7385,1,1691,1902,1,375,410,73,33,70,82,55,45,73,25,10,12,1,2,24,0x108B,200,1500,500,1000,0,0,0,0,0,0,0,7564,3000,919,3000,992,50,1822,2,0,0,0,0,0,0,0,0,0,0,4422,1
1783,GALION,Galion,Galion,100,8821,1,1769,1327,1,405,482,100,62,106,79,62,45,90,36,10,12,1,2,44,0x11AB,150,864,624,360,0,0,0,0,0,0,0,7564,3000,919,3000,996,10,2531,5,0,0,0,0,0,0,0,0,0,0,4423,1

View File

@ -4616,7 +4616,7 @@ This command will break and unequip whatever is currently equipped in the
invoking character's specified equipment slot. For a full list of possible
equipment slots see 'getequipid'.
This command will return 1 if an item was deleted and 0 otherwise.
This command will return 1 if an item was broken and 0 otherwise.
---------------------------------------

View File

@ -34,8 +34,8 @@
//= 3.3 Removed the need for use of 'goto.' [L0ne_W0lf]
//============================================================
//=============== Senior Crusader: 1st Collect Items Test============================
// Senior Crusader: 1st Collect Items Test
//============================================================
prt_castle,45,169,5 script Senior Crusader 752,{
mes "[Michael Halig]";
if (Upper == 1) { //the baby classes were totally blocked... due to missing == 1
@ -216,25 +216,25 @@ prt_castle,45,169,5 script Senior Crusader 752,{
next;
switch(CRUS_Q) {
case 1:
set @item1, 957;
set @item2, 959;
set @item3, 1099;
set @item4, 901;
set .@item1, 957;
set .@item2, 959;
set .@item3, 1099;
set .@item4, 901;
break;
case 2:
set @item1, 932;
set @item2, 1043;
set @item3, 1098;
set @item4, 1094;
set .@item1, 932;
set .@item2, 1043;
set .@item3, 1098;
set .@item4, 1094;
break;
case 3:
set @item1, 958;
set @item2, 930;
set @item3, 1041;
set @item4, 1062;
set .@item1, 958;
set .@item2, 930;
set .@item3, 1041;
set .@item4, 1062;
break;
}
if (countitem(@item1) > 9 && countitem(@item2) > 9 && countitem(@item3) > 9 && countitem(@item4) > 9) {
if (countitem(.@item1) > 9 && countitem(.@item2) > 9 && countitem(.@item3) > 9 && countitem(.@item4) > 9) {
mes "[Michael Halig]";
mes "Ah, well done.";
mes "I must acknowledge your efforts and determination. You may now proceed to take the next test.";
@ -242,10 +242,10 @@ prt_castle,45,169,5 script Senior Crusader 752,{
mes "[Michael Halig]";
mes "Meet with Moorenak Miyol who is training in the underground dungeon of the Prontera Castle. Go, and speak with him first.";
next;
delitem @item1, 10;
delitem @item2, 10;
delitem @item3, 10;
delitem @item4, 10;
delitem .@item1, 10;
delitem .@item2, 10;
delitem .@item3, 10;
delitem .@item4, 10;
set CRUS_Q, 4;
if(checkquest(3006) != -1) {
changequest 3006,3009;
@ -264,10 +264,10 @@ prt_castle,45,169,5 script Senior Crusader 752,{
mes "Ah, you still have not completed the task I have given to you. Bring me the following items, and prove your will to become a Crusader to me...";
next;
mes "[Michael Halig]";
mes "10 ^3355FF"+getitemname(@item1)+"^000000";
mes "10 ^3355FF"+getitemname(@item2)+"^000000";
mes "10 ^3355FF"+getitemname(@item3)+"^000000";
mes "10 ^3355FF"+getitemname(@item4)+"^000000";
mes "10 ^3355FF"+getitemname(.@item1)+"^000000";
mes "10 ^3355FF"+getitemname(.@item2)+"^000000";
mes "10 ^3355FF"+getitemname(.@item3)+"^000000";
mes "10 ^3355FF"+getitemname(.@item4)+"^000000";
next;
mes "[Michael Halig]";
mes "If you put forth the effort, you'll be able to accomplish this task. May Odin protect you on your journeys.";
@ -314,7 +314,8 @@ prt_castle,45,169,5 script Senior Crusader 752,{
close;
}
//===================== Suffering Man: 2nd Endurance Test ===============================================
// Suffering Man: 2nd Endurance Test
//============================================================
prt_castle,164,32,1 script Man in Anguish 733,{
mes "[Murnak Mijoul]";
if(BaseJob != Job_Swordman) {
@ -447,7 +448,8 @@ prt_castle,164,32,1 script Man in Anguish 733,{
close;
}
//===================== Gabriel Valentine: 3rd Knowledge Test =================================
// Gabriel Valentine: 3rd Knowledge Test
//============================================================
prt_church,95,127,3 script Crusader 745,{
mes "[Gabriel Valentine]";
if(BaseJob != Job_Swordman) {
@ -795,7 +797,8 @@ prt_church,95,127,3 script Crusader 745,{
close;
}
//===================== Crusader: 4th Purification Test =====================================================
// Crusader: 4th Purification Test
//============================================================
prt_castle,35,151,5 script Patron Knight 751,{
mes "[Bliant Piyord]";
mes "Welcome.";
@ -970,8 +973,12 @@ prt_castle,35,151,5 script Patron Knight 751,{
//=== Actual tests ========================================
//=== Endurance Test ======================================
// Actual tests
//============================================================
//----------------------------------------------------------------------------
// Endurance Test
//----------------------------------------------------------------------------
job_cru,1,1,1 script Summoner#cr1 -1,{
OnTimer300000:
donpcevent "Summoner#cr1::OnReset";
@ -1205,7 +1212,9 @@ OnTouch:
end;
}
//=== Purification Test ===================================
//----------------------------------------------------------------------------
// Purification Test
//----------------------------------------------------------------------------
job_cru,24,187,4 script Patron Knight#2 751,{
mes "[Bliant Piyord]";
mes "Welcome.";

View File

@ -3,7 +3,7 @@
//===== By: ==================================================
//= Lupus, kobra_k88
//===== Current Version: =====================================
//= 2.17
//= 2.18
//===== Compatible With: =====================================
//= rAthena 1.0
//===== Description: =========================================
@ -40,6 +40,7 @@
//= 2.15 Added no unused DTS variables to F_ClearGarbage. [L0ne_W0lf]
//= 2.16 Added F_GetWeaponType, and F_GetArmorType. [L0ne_W0lf]
//= 2.17 Renamed 'F_RandMes' to 'F_Rand'. [Euphy]
//= 2.18 Removed useless 'getJobName' function. [Euphy]
//============================================================
@ -190,34 +191,29 @@ function script F_Bye {
//Argumentss
// 0 - Item ID
// 1 - Element N (0=none,1=Ice,2=Earth,3=Fire,4=Wind)
// 2 - VVS meter 0..3
// 2 - VVS meter 0...3
// 3 - Refine
// Example: mes "Show me your "+callfunc("F_ItemName",1201,1,2,5)+"...";
// is equal to: mes "Show me your ^000090 +5 VVS Fire Knife ^000000..."
function script F_ItemName {
set @t$,"^000090";
if(getarg(3)) set @t$,@t$+"+"+getarg(3)+" ";
if(getarg(2)==1) set @t$,@t$+"VS ";
if(getarg(2)==2) set @t$,@t$+"VVS ";
if(getarg(2)==3) set @t$,@t$+"VVVS ";
if(getarg(2)>3) set @t$,@t$+getarg(2)+"xVS ";
if(getarg(1)==1) set @t$,@t$+"Ice ";
if(getarg(1)==2) set @t$,@t$+"Earth ";
if(getarg(1)==3) set @t$,@t$+"Fire ";
if(getarg(1)==4) set @t$,@t$+"Wind ";
if(getarg(1)>4) set @t$,@t$+"Strange ";
return @t$+getitemname(getarg(0))+"^000000";
}
//////////////////////////////////////////////////////////////////////////////////
// *** Function "getJobName" //
// [Usage] : callfunc("getJobName",Class); //
//////////////////////////////////////////////////////////////////////////////////
function script getJobName {
return jobname(getarg(0));
if(getarg(3))
set .@t$,.@t$+"+"+getarg(3)+" ";
switch(getarg(2)) {
case 0: break;
case 1: set .@t$,.@t$+"VS "; break;
case 2: set .@t$,.@t$+"VVS "; break;
case 3: set .@t$,.@t$+"VVVS "; break;
default: set .@t$,.@t$+getarg(2)+"xVS "; break;
}
switch(getarg(1)) {
case 1: set .@t$,.@t$+"Ice "; break;
case 2: set .@t$,.@t$+"Earth "; break;
case 3: set .@t$,.@t$+"Fire "; break;
case 4: set .@t$,.@t$+"Wind "; break;
default: set .@t$,.@t$+"Strange "; break;
}
return "^000090"+.@t$+getitemname(getarg(0))+"^000000";
}
//////////////////////////////////////////////////////////////////////////////////
@ -226,12 +222,12 @@ function script getJobName {
function script F_SaveQuestSkills {
set ADV_QSK,0; set ADV_QSK2,0;
//1st classes quest skills
for(set @i, 0; @i < 14; set @i, @i + 1){
if(getskilllv(144+@i)) set ADV_QSK,ADV_QSK|pow(2,@i);
for(set .@i, 0; .@i < 14; set .@i, .@i + 1){
if(getskilllv(144+.@i)) set ADV_QSK,ADV_QSK|pow(2,.@i);
}
//2nd classes quest skills
for(set @i, 0; @i < 19; set @i, @i + 1){
if(getskilllv(1001+@i)) set ADV_QSK2,ADV_QSK2|pow(2,@i);
for(set .@i, 0; .@i < 19; set .@i, .@i + 1){
if(getskilllv(1001+.@i)) set ADV_QSK2,ADV_QSK2|pow(2,.@i);
}
return;
}
@ -241,8 +237,8 @@ function script F_SaveQuestSkills {
//////////////////////////////////////////////////////////////////////////////////
function script F_Load1Skills {
//1st classes quest skills
for(set @i, 0; @i < 14; set @i, @i + 1){
if(ADV_QSK|pow(2,@i) == ADV_QSK) skill 144+@i,1,0;
for(set .@i, 0; .@i < 14; set .@i, .@i + 1){
if(ADV_QSK|pow(2,.@i) == ADV_QSK) skill 144+.@i,1,0;
}
set ADV_QSK,0; //Clear var
return;
@ -253,8 +249,8 @@ function script F_Load1Skills {
//////////////////////////////////////////////////////////////////////////////////
function script F_Load2Skills {
//2nd classes quest skills
for(set @i, 0; @i < 19; set @i, @i + 1){
if(ADV_QSK2|pow(2,@i) == ADV_QSK2) skill 1001+@i,1,0;
for(set .@i, 0; .@i < 19; set .@i, .@i + 1){
if(ADV_QSK2|pow(2,.@i) == ADV_QSK2) skill 1001+.@i,1,0;
}
set ADV_QSK2,0; //Clear var
return;

View File

@ -3,33 +3,32 @@
//===== By: ==================================================
//= SinSloth
//===== Current Version: =====================================
//= 1.8
//= 1.9
//===== Compatible With: =====================================
//= Any rAthena Version
//===== Description: =========================================
//= Hugel Bingo game
//===== Additional Comments: =================================
//= 1.0 - First version. Please report bugs you find out. [SinSloth]
//= 1.1 - Fixed a minor bug. [SinSloth]
//= 1.2 - Added some Bingo Staff NPCs. [SinSloth]
//= 1.3 - Fixed a bug where an AFK-player wasn't warped out of the game,
//= preventing players from launching another. [SinSloth]
//= 1.4 - Fixed a minor bug added in the last revision. [SinSloth]
//= 1.5 - Applied a fix to players locations which were not rotating properly. [SinSloth]
//= 1.6 - Removed nescesity to win to proceed with quest [Yommy]
//= 1.7 - Replaced effect numerics with constants. [Samuray22]
//= 1.0 First version. Please report bugs you find out. [SinSloth]
//= 1.1 Fixed a minor bug. [SinSloth]
//= 1.2 Added some Bingo Staff NPCs. [SinSloth]
//= 1.3 Fixed a bug where an AFK-player wasn't warped out of the game,
//= preventing players from launching another. [SinSloth]
//= 1.4 Fixed a minor bug added in the last revision. [SinSloth]
//= 1.5 Applied a fix to players locations which were not rotating properly. [SinSloth]
//= 1.6 Removed nescesity to win to proceed with quest [Yommy]
//= 1.7 Replaced effect numerics with constants. [Samuray22]
//= 1.8 Updated 'waitingroom' to support required zeny/lvl. [Kisuka]
//= 1.9 Some optimization/standardization. [Euphy]
//============================================================
que_bingo,48,84,5 script Bingo Waiting Room 124,{
end;
OnInit:
set $hu_bingoa,0;
set $hu_bingob,0;
waitingroom "Bingo Waiting Room - 5 People",50,"Bingo Waiting Room::OnWarp",5,1000;
end;
OnWarp:
warpwaitingpc "que_bingo",46,141;
donpcevent "start#bingo::OnStart";
@ -40,7 +39,7 @@ OnWarp:
enablenpc "plate5#bingo";
disablewaitingroomevent;
end;
OnStart:
enablewaitingroomevent;
end;
@ -85,16 +84,13 @@ OnTouch:
set @bingo_case,1;
L_Fill:
set @bingo_fill,callfunc("Func_Bingo",@bingo_case);
if(!@bingo_fill)
{
if (!@bingo_fill) {
mes "The numbers you have entered";
mes "exceed the limit, or you have";
mes "already entered these numbers.";
mes "Please enter your numbers again.";
next;
}
else if(@bingo_fill)
{
} else if (@bingo_fill) {
if(@bingoplate[25] < 10) set @bingo_e5$,"0"+@bingoplate[25]+""; else set @bingo_e5$,@bingoplate[25];
donpcevent "start#bingo::OnEnter";
mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
@ -106,7 +102,6 @@ L_Fill:
}
goto L_Fill;
}
que_bingo,53,121,0 duplicate(plate1#bingo) plate2#bingo 139,1,1
@ -119,38 +114,37 @@ que_bingo,51,51,0 script start#bingo 139,{
OnStart:
initnpctimer;
end;
OnEnter:
if($hu_bingoa == 4)
{
set $hu_bingoa,5;
if ($@hu_bingoa == 4) {
set $@hu_bingoa,5;
donpcevent "start2#bingo::OnStart";
stopnpctimer;
end;
}
set $hu_bingoa,$hu_bingoa +1;
set $@hu_bingoa,$@hu_bingoa +1;
end;
OnTimer1000:
mapannounce "que_bingo","Eukran: Hello, everyone! I'm Eukran, your Bingo Guide~",1,0xFFAB54;
end;
OnTimer6000:
mapannounce "que_bingo","Eukran: Game participants, please enter the Warp Portal at the bottom of your screen and choose a Bingo Plate by entering a number.",1,0xFFAB54;
end;
OnTimer11000:
mapannounce "que_bingo","Eukran: All participants must choose their Bingo Plates within 3 minutes, or the game will be canceled.",1,0xFFAB54;
end;
OnTimer192000:
mapannounce "que_bingo","Eukran: Please enter a number in 5 seconds, or the game will be canceled.",1,0xFFAB54;
end;
OnTimer200000:
mapannounce "que_bingo","Eukran: I'm sorry, but the game has been canceled. Please come again and enjoy a game of Bingo with us!",1,0xFFAB54;
end;
OnTimer202000:
disablenpc "plate1#bingo";
disablenpc "plate2#bingo";
@ -158,7 +152,7 @@ OnTimer202000:
disablenpc "plate4#bingo";
disablenpc "plate5#bingo";
end;
OnTimer203000:
areawarp "que_bingo",44,115,54,126,"que_bingo",40,124;
enablenpc "out3#bingo";
@ -167,8 +161,8 @@ OnTimer203000:
OnTimer204000:
areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
disablenpc "out3#bingo";
set $hu_bingoa,0;
set $hu_bingob,0;
set $@hu_bingoa,0;
set $@hu_bingob,0;
donpcevent "Bingo Waiting Room::OnStart";
end;
}
@ -178,11 +172,11 @@ que_bingo,52,52,0 script start2#bingo 139,{
OnStop:
stopnpctimer;
end;
OnStart:
initnpctimer;
end;
OnTimer2000:
mapannounce "que_bingo","Eukran: Great, everyone seems to be ready~",1,0xFFAB54;
disablenpc "plate1#bingo";
@ -191,234 +185,95 @@ OnTimer2000:
disablenpc "plate4#bingo";
disablenpc "plate5#bingo";
end;
OnTimer5000:
mapannounce "que_bingo","Eukran: Now, let the game begin!",1,0xFFAB54;
setarray $@bingoarray[0],1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25;
set .@max_index, 24;
for(set .@i,0; .@i < 25; set .@i,.@i +1)
{
for(set .@i,0; .@i < 25; set .@i,.@i +1) {
set $@bingo0,rand(0,.@max_index);
set $bingo[.@i],$@bingoarray[$@bingo0];
set $@bingoarray[$@bingo0], $@bingoarray[.@max_index];
set .@max_index, .@max_index - 1;
}
end;
OnTimer8000:
mapannounce "que_bingo","Eukran: I'll announce the Bingo Numbers. If you get 5 lines by matching 5 Bingo Numbers in a straight line on your Bingo Plate, yell out ''Bingo'' to win~",1,0xFFAB54;
end;
OnTimer10000:
set $@bingoresult,1;
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer15000:
OnTimer25000:
OnTimer35000:
OnTimer45000:
OnTimer55000:
OnTimer65000:
OnTimer75000:
OnTimer85000:
OnTimer95000:
OnTimer105000:
OnTimer115000:
OnTimer125000:
OnTimer135000:
OnTimer145000:
OnTimer155000:
OnTimer179000:
OnTimer199000:
OnTimer219000:
OnTimer239000:
OnTimer259000:
OnTimer279000:
OnTimer299000:
OnTimer319000:
OnTimer339000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer20000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer25000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer30000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer35000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer40000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer45000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer50000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer55000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer60000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer65000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer70000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer75000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer80000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer85000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer90000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer95000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer100000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer105000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer110000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer115000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer120000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer125000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer130000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer135000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer140000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer145000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer150000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer155000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer160000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer179000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer180000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer199000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer200000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer219000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer220000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer239000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer240000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer259000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer260000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer279000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer280000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer299000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer300000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer319000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer320000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer339000:
donpcevent "1a#bingo::OnInit";
end;
OnTimer340000:
callfunc "Func_BingoResult",$@bingoresult;
end;
OnTimer440000:
mapannounce "que_bingo","Eukran: I've announced all of the selected numbers, but I haven't heard anyone yell ''Bingo.''",1,0xFFAB54;
end;
OnTimer445000:
mapannounce "que_bingo","Eukran: I'll give you all 10 seconds to check if any of you have won. If no one can yell ''Bingo'' in 10 seconds, this game will end without a winner.",1,0xFFAB54;
end;
OnTimer460000:
mapannounce "que_bingo","Eukran: I'm sorry, but this game has ended without a winner. Thanks for playing, everyone~",1,0xFFAB54;
donpcevent "1a#bingo::OnInit";
areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
set $hu_bingoa,0;
set $@hu_bingoa,0;
donpcevent "Bingo Waiting Room::OnStart";
end;
}
@ -603,10 +458,8 @@ OnTouch:
mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ["+@bingo_e4$+"] ["+@bingo_e5$+"]";
mes "[Currently Finished Lines - "+@bingowin+" ]";
if($@bingoresult > 15)
{
if(@bingowin > 4)
{
if ($@bingoresult > 15) {
if (@bingowin > 4) {
next;
mes "We just have made 5 lines!";
mes "Say ^ff0000Bingo^000000!";
@ -616,19 +469,15 @@ OnTouch:
mes "Remember, you'll only";
mes "have one chance to say it!";
input @bingoyell$;
if(@bingoyell$ == "Bingo")
{
if($hu_bingoa == 5)
{
set $hu_bingoa,6;
if (@bingoyell$ == "Bingo") {
if ($@hu_bingoa == 5) {
set $@hu_bingoa,6;
donpcevent "start2#bingo::OnStop";
set $@bingowinner$,strcharinfo(0);
donpcevent "win1a#bingo::OnWin";
close;
}
else if($hu_bingoa == 6)
{
} else if ($@hu_bingoa == 6) {
next;
mes "Oh no! I'm sorry, but";
mes "someone already yelled";
@ -638,9 +487,7 @@ OnTouch:
mes "next time, alright?";
close;
}
}
else
{
} else {
next;
mes "I'm sorry, but you";
mes "said it wrong. Next time,";
@ -779,14 +626,13 @@ que_bingo,45,121,0 duplicate(1a#bingo) 23e#bingo 139,1,1
que_bingo,45,121,0 duplicate(1a#bingo) 24e#bingo 139,1,1
que_bingo,45,121,0 duplicate(1a#bingo) 25e#bingo 139,1,1
que_bingo,79,19,0 script win1a#bingo 139,4,4,{
end;
OnWin:
initnpctimer;
end;
OnTimer1000:
donpcevent "1a#bingo::OnInit";
enablenpc "win2a#bingo";
@ -809,10 +655,10 @@ OnInit:
end;
OnTouch:
if($@bingowinner$ != strcharinfo(0)) end;
if ($@bingowinner$ != strcharinfo(0)) end;
specialeffect EF_SUI_EXPLOSION;
soundeffect "tming_success.wav",1;
if($@bingoresult == 16) getitem 7515,50;
if ($@bingoresult == 16) getitem 7515,50;
else getitem 7515,1;
initnpctimer;
end;
@ -826,8 +672,10 @@ OnTimer5000:
end;
OnTimer10000:
if($@bingoresult == 16) mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 50 Marvelous Medals.",1,0xFFAB54;
else mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 1 Marvelous Medal.",1,0xFFAB54;
if ($@bingoresult == 16)
mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 50 Marvelous Medals.",1,0xFFAB54;
else
mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 1 Marvelous Medal.",1,0xFFAB54;
end;
OnTimer15000:
@ -867,7 +715,7 @@ OnTimer5000:
disablenpc "end1d#bingo";
disablenpc "end1e#bingo";
areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
set $hu_bingoa,0;
set $@hu_bingoa,0;
donpcevent "Bingo Waiting Room::OnStart";
end;
}
@ -898,7 +746,7 @@ que_bingo,50,138,1 script out3#bingo 139,5,8,{
OnInit:
disablenpc "out3#bingo";
end;
OnTouch:
warp "que_bingo",40,121;
end;
@ -907,34 +755,28 @@ OnTouch:
que_bingo,49,136,0 script go3#bingo 45,1,1,{
OnTouch:
switch($hu_bingob)
{
case 0: warp "que_bingo",49,125; break;
case 1: warp "que_bingo",53,121; break;
case 2: warp "que_bingo",51,116; break;
case 3: warp "que_bingo",46,116; break;
case 4: warp "que_bingo",45,121; break;
switch($@hu_bingob) {
case 0: warp "que_bingo",49,125; break;
case 1: warp "que_bingo",53,121; break;
case 2: warp "que_bingo",51,116; break;
case 3: warp "que_bingo",46,116; break;
case 4: warp "que_bingo",45,121; break;
}
set $hu_bingob,$hu_bingob +1;
if($hu_bingob == 5) set $hu_bingob,0;
set $@hu_bingob,$@hu_bingob +1;
if ($@hu_bingob == 5) set $@hu_bingob,0;
end;
}
function script Func_Bingo {
for( set .@i,getarg(0); .@i < 26; set .@i,.@i +1)
{
for(set .@i,getarg(0); .@i < 26; set .@i,.@i +1) {
if(@bingoplate[1] < 10) set @bingo_a1$,"0"+@bingoplate[1]+""; else set @bingo_a1$,@bingoplate[1];
if(@bingoplate[2] < 10) set @bingo_a2$,"0"+@bingoplate[2]+""; else set @bingo_a2$,@bingoplate[2];
if(@bingoplate[3] < 10) set @bingo_a3$,"0"+@bingoplate[3]+""; else set @bingo_a3$,@bingoplate[3];
if(@bingoplate[4] < 10) set @bingo_a4$,"0"+@bingoplate[4]+""; else set @bingo_a4$,@bingoplate[4];
if(@bingoplate[5] < 10) set @bingo_a5$,"0"+@bingoplate[5]+""; else set @bingo_a5$,@bingoplate[5];
if(.@i > 5) mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
else
{
switch(.@i)
{
else {
switch(.@i) {
case 1: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
case 2: mes "["+@bingo_a1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
case 3: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
@ -949,10 +791,8 @@ function script Func_Bingo {
if(@bingoplate[10] < 10) set @bingo_b5$,"0"+@bingoplate[10]+""; else set @bingo_b5$,@bingoplate[10];
if(.@i > 10) mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]";
else if(.@i < 6) mes "[ ] [ ] [ ] [ ] [ ]";
else
{
switch(.@i)
{
else {
switch(.@i) {
case 6: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
case 7: mes "["+@bingo_b1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
case 8: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
@ -967,10 +807,8 @@ function script Func_Bingo {
if(@bingoplate[15] < 10) set @bingo_c5$,"0"+@bingoplate[15]+""; else set @bingo_c5$,@bingoplate[15];
if(.@i > 15) mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]";
else if(.@i < 11) mes "[ ] [ ] [ ] [ ] [ ]";
else
{
switch(.@i)
{
else {
switch(.@i) {
case 11: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
case 12: mes "["+@bingo_c1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
case 13: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
@ -985,10 +823,8 @@ function script Func_Bingo {
if(@bingoplate[20] < 10) set @bingo_d5$,"0"+@bingoplate[20]+""; else set @bingo_d5$,@bingoplate[20];
if(.@i > 20) mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
else if(.@i < 16) mes "[ ] [ ] [ ] [ ] [ ]";
else
{
switch(.@i)
{
else {
switch(.@i) {
case 16: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
case 17: mes "["+@bingo_d1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
case 18: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
@ -1001,10 +837,8 @@ function script Func_Bingo {
if(@bingoplate[23] < 10) set @bingo_e3$,"0"+@bingoplate[23]+""; else set @bingo_e3$,@bingoplate[23];
if(@bingoplate[24] < 10) set @bingo_e4$,"0"+@bingoplate[24]+""; else set @bingo_e4$,@bingoplate[24];
if(.@i < 21) mes "[ ] [ ] [ ] [ ] [ ]";
else
{
switch(.@i)
{
else {
switch(.@i) {
case 21: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
case 22: mes "["+@bingo_e1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
case 23: mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
@ -1015,10 +849,8 @@ function script Func_Bingo {
next;
input .@bingoinput;
if(.@bingoinput < 1 || .@bingoinput > 25) { set @bingo_case,.@i; return 0; }
if(.@i > 1)
{
for(set .@j,.@i; .@j > 0; set .@j,.@j -1)
{
if(.@i > 1) {
for(set .@j,.@i; .@j > 0; set .@j,.@j -1) {
if(.@bingoinput == @bingoplate[.@j -1]) { set @bingo_case,.@i; return 0; }
}
}
@ -1028,11 +860,11 @@ function script Func_Bingo {
}
function script Func_BingoResult {
if(getarg(0) == 1 || getarg(0) == 21) mapannounce "que_bingo","Eukran: The "+getarg(0)+"st number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
else if(getarg(0) == 2 || getarg(0) == 22) mapannounce "que_bingo","Eukran: The "+getarg(0)+"nd number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
else if(getarg(0) == 3 || getarg(0) == 23) mapannounce "que_bingo","Eukran: The "+getarg(0)+"rd number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
else mapannounce "que_bingo","Eukran: The "+getarg(0)+"th number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
if (getarg(0) == 1 || getarg(0) == 21) set .@str$,"st";
else if (getarg(0) == 2 || getarg(0) == 22) set .@str$,"nd";
else if (getarg(0) == 3 || getarg(0) == 23) set .@str$,"rd";
else set .@str$,"th";
mapannounce "que_bingo","Eukran: The "+getarg(0)+.@str$+" number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
enablenpc ""+getarg(0)+"a#bingo";
enablenpc ""+getarg(0)+"b#bingo";
enablenpc ""+getarg(0)+"c#bingo";
@ -1043,26 +875,15 @@ function script Func_BingoResult {
}
que_bingo,49,31,4 script Arcade Helper#1 47,{
mes "[Helper]";
mes "If you'd like to play";
mes "a game of bingo, then";
mes "please proceed this way.";
close;
}
que_bingo,42,31,4 script Arcade Helper#2 66,{
mes "[Helper]";
mes "If you'd like to spectate";
mes "a game of bingo, then";
mes "please proceed this way.";
close;
}
que_bingo,42,31,4 duplicate(Arcade Helper#1) Arcade Helper#2 66
que_bingo,54,17,5 script Arcade Owner 712,{
mes "[Arcade Owner]";
mes "Welcome to the";
mes "Bingo Game Arcade.";
@ -1070,8 +891,7 @@ que_bingo,54,17,5 script Arcade Owner 712,{
mes "bingo? If you have any";
mes "questions, feel free to ask.";
next;
switch( select( "Rules for Bingo:Bingo Room:Marvelous Medals" ) )
{
switch(select("Rules for Bingo:Bingo Room:Marvelous Medals")) {
case 1:
mes "[Arcade Owner]";
mes "The rules for playing bingo";
@ -1111,7 +931,6 @@ que_bingo,54,17,5 script Arcade Owner 712,{
mes "Anyway, it costs 1,000 zeny";
mes "to play each bingo game~";
close;
break;
case 2:
mes "[Arcade Owner]";
mes "Ah, if you want to join a";
@ -1128,7 +947,6 @@ que_bingo,54,17,5 script Arcade Owner 712,{
mes "left door as a spectator";
mes "in the Bingo Room.";
close;
break;
case 3:
mes "[Arcade Owner]";
mes "When you win a bingo";
@ -1151,7 +969,5 @@ que_bingo,54,17,5 script Arcade Owner 712,{
mes "them for products in the Monster^FFFFFF ^000000 Racing Arena. I hear there's also";
mes "a place in Einbroch where you can^FFFFFF ^000000 use them, but I wouldn't know.";
close;
break;
}
}

View File

@ -163,16 +163,16 @@ gon_test,42,89,4 script Summoner#gnp 774,{
mes "Welcome.";
mes "Which monster will you recall?";
next;
set @gnpGroup,select("Group 1:Group 2:Group 3:Group 4:Group 5:Group 6:Group 7:Group 8:Group 9:Group 10:Group 11");
set @gnpGroupMob$,.gnpMobsName$[(@gnpGroup-1)*6];
for (set @i,1; @i < 6; set @i, @i+1)
set @gnpGroupMob$, @gnpGroupMob$ + ":" + .gnpMobsName$[(@gnpGroup-1)*6 + @i];
set @gnpMob,select(@gnpGroupMob$);
set .@gnpGroup, select("Group 1:Group 2:Group 3:Group 4:Group 5:Group 6:Group 7:Group 8:Group 9:Group 10:Group 11");
set .@gnpGroupMob$,.gnpMobsName$[(.@gnpGroup-1)*6];
for (set .@i,1; .@i < 6; set .@i, .@i+1)
set .@gnpGroupMob$, .@gnpGroupMob$ + ":" + .gnpMobsName$[(.@gnpGroup-1)*6 + .@i];
set .@gnpMob, select(.@gnpGroupMob$);
mes "[SongYeunWoo]";
mes "Let the fight begin!";
close2;
set in_battle,2;
if (getnpctimer(0) < 180000) monster "gon_test",56,86,.gnpMobsName$[(@gnpGroup-1)*6 + @gnpMob - 1],.gnpMobsId[(@gnpGroup-1)*6 + @gnpMob - 1],1,"Summoner#gnp::OnGnpMobDead";
if (getnpctimer(0) < 180000) monster "gon_test",56,86,.gnpMobsName$[(.@gnpGroup-1)*6 + .@gnpMob - 1],.gnpMobsId[(.@gnpGroup-1)*6 + .@gnpMob - 1],1,"Summoner#gnp::OnGnpMobDead";
end;
OnInit:
initnpctimer;

View File

@ -246,7 +246,7 @@ pay_arche,85,30,2 script Guide#2pay 708,{
case 4:
mes "[Payon Guide]";
mes "If you'd like to erase the marks on the mini-map, select menu, 'Wipe all indicators on the mini-map'.";
set @loop2,0;
set .@loop2,0;
break;
}
}

View File

@ -2560,8 +2560,8 @@ payon,181,172,3 script Bard#4 51,{
next;
switch(select("A song:A story:Maybe some other time")) {
case 1:
set @song_random,rand(1,3);
if (@song_random == 1) {
switch(rand(1,3)) {
case 1:
mes "[Gunther Doubleharmony]";
mes "Gunther sings!";
mes "Gunther dances!";
@ -2611,7 +2611,7 @@ payon,181,172,3 script Bard#4 51,{
mes "That's a very old story about rich Mr. Kim, and his rise from rags to riches to rags to riches. Is it true or is it fiction? Oh, please don't ask me! I've no clue!";
close;
} else if (@song_random == 2) {
case 2:
mes "[Gunther Doubleharmony]";
mes "*Ahem*";
mes "Gunther sings ";
@ -2665,7 +2665,7 @@ payon,181,172,3 script Bard#4 51,{
mes "Is it truth or fiction? But please don't ask me, I have no idea~!";
close;
} else {
case 3:
mes "[Gunther Doubleharmony]";
mes "I will sing one of Luke's songs, you know, Luke, one of the greatest Bards of his time? But I changed the words a little bit.";
next;
@ -2699,8 +2699,8 @@ payon,181,172,3 script Bard#4 51,{
}
case 2:
set @story,rand(1,3);
if (story == 1) {
switch(rand(1,3)) {
case 1:
mes "[Gunther Doubleharmony]";
mes "Um, have you ever";
mes "tasted Comodo cheese?";
@ -2715,7 +2715,7 @@ payon,181,172,3 script Bard#4 51,{
mes "Why don't you go taste it if you haven't yet? I tried to taste it once. It was kind of yummy, but then I fainted. Hahahaha~!";
close;
} else if (story == 2) {
case 2:
mes "[Gunther Doubleharmony]";
mes "I was passing Prontera the other day at the place where it used to be the Swordman training ground.";
next;
@ -2729,7 +2729,7 @@ payon,181,172,3 script Bard#4 51,{
mes "I got bored watching him do the same thing over and over and over again, but I think the Monster Research Organization would like him if I introduced him.";
close;
} else {
case 3:
mes "[Gunther Doubleharmony]";
mes "Have you ever been in Lutie,";
mes "land of year round snow?";

View File

@ -2726,16 +2726,12 @@ que_job01,49,49,5 script Tao 877,{
que_job01,51,55,1 script #roombar1 45,1,1,{
OnInit:
set $maobar_room,0;
end;
OnTouch:
if(mao_request == 2 || mao_request == 24 || mao_request == 28 || mao_request == 29 || mao_request == 123 || mao_request == 126 || mao_request == 127 || prt_curse == 24)
{
if(!$maobar_room)
if(!$@maobar_room)
{
set $maobar_room,1;
set $@maobar_room,1;
donpcevent "#maobartimer1::OnEnter";
if(mao_request == 2 || mao_request == 28 || mao_request == 29 || mao_request == 126 || mao_request == 127)
{
@ -2848,10 +2844,6 @@ OnTouch:
que_job01,51,44,1 script #roombar2 45,1,1,{
OnInit:
set $maobar_room2,0;
end;
OnTouch:
if(mao_request == 25 || (mao_request > 102 && mao_request < 123))
{
@ -2866,9 +2858,9 @@ OnTouch:
warp "que_job01",52,50;
end;
}
if(!$maobar_room2)
if(!$@maobar_room2)
{
set $maobar_room2,1;
set $@maobar_room2,1;
donpcevent "#maobartimer2::OnEnter";
if(mao_request == 25)
{

View File

@ -12423,7 +12423,6 @@ que_job01,49,49,5 script Tao#dan_09 877,{
que_job01,51,55,0 script que_job01#room_1 45,1,1,{
OnInit:
if ($maobar_room) set $maobar_room,0;
OnReset:
set $@moc_mao_room1,0; //Global Variable
end;

View File

@ -1162,17 +1162,17 @@ ein_in01,117,80,5 script Unidentified Machine#as 111,{
mes "your items again.";
close;
} else {
set @choice,select(getitemname(getbrokenid(1)),getitemname(getbrokenid(2)),
set .@choice, select(getitemname(getbrokenid(1)),getitemname(getbrokenid(2)),
getitemname(getbrokenid(3)),getitemname(getbrokenid(4)),getitemname(getbrokenid(5)),
getitemname(getbrokenid(6)),getitemname(getbrokenid(7)),getitemname(getbrokenid(8)),
getitemname(getbrokenid(9)),getitemname(getbrokenid(10)));
mes "[Expert Repairman]";
mes "You're gonna repair " + getitemname(getbrokenid(@choice)) + ".";
mes "You're gonna repair " + getitemname(getbrokenid(.@choice)) + ".";
mes "Continue?";
next;
switch(select("Yes:No")) {
case 1:
repair(@choice);
repair(.@choice);
next;
mes "[Expert Repairman]";
mes "*Beep-*";

View File

@ -865,46 +865,46 @@ ayothaya,253,99,3 script Fisherman 843,{
next;
delitem 528,1; //Monster's_Feed
set Zeny, Zeny-50;
set @randfish,rand(1,100);
if (@randfish > 0 && @randfish < 40) {
set .@randfish,rand(1,100);
if (.@randfish > 0 && .@randfish < 40) {
mes "^3355FFWhile cooking the Phen, you";
mes "find that it's swallowed a Stone.^000000";
close2;
getitem 7049,1; //Stone
end;
} else if (@randfish > 39 && @randfish < 60) {
} else if (.@randfish > 39 && .@randfish < 60) {
mes "^3355FFInside of the Phen,";
mes "you find a Red Potion.^000000";
close2;
getitem 501,1; //Red_Potion
end;
} else if (@randfish > 59 && @randfish < 70) {
} else if (.@randfish > 59 && .@randfish < 70) {
mes "^3355FFInside of the Phen,";
mes "you find a Yellow Potion.^000000";
close2;
getitem 503,1; //Yellow_Potion
end;
} else if (@randfish > 69 && @randfish < 80) {
} else if (.@randfish > 69 && .@randfish < 80) {
mes "^3355FFThere's nothing inside...";
mes "But now you can eat Sushi!^000000";
close2;
getitem 551,1; //Shusi
end;
} else if (@randfish > 79 && @randfish < 90) {
} else if (.@randfish > 79 && .@randfish < 90) {
mes "^3355FFYou find";
mes "a Flower Ring";
mes "inside the Phen.^000000";
close2;
getitem 2612,1; //Flower_Ring
end;
} else if (@randfish == 90) {
} else if (.@randfish == 90) {
mes "^3355FFYou find";
mes "a Diamond Ring";
mes "inside the Phen.^000000";
close2;
getitem 2613,1; //Diamond_Ring
end;
} else if (@randfish > 90 && @randfish < 101) {
} else if (.@randfish > 90 && .@randfish < 101) {
mes "^3355FFYou find a ring";
mes "with a name engraved";
mes "inside the band.^000000";

View File

@ -3197,8 +3197,7 @@ hu_in01,317,312,0 script Book 111,{
mes "- The book owner must want to -";
mes "- keep it secret. -";
next;
set @whilevar,1;
while(@whilevar) {
while(1) {
switch(select("Page 1:Page 2:Page 3:Page 4:Page 5:Page 6:Page 7:Page 8:Page 9:Stop Reading.")) {
case 1:
mes "- You started reading the 1st page of the book. -";
@ -3412,7 +3411,6 @@ hu_in01,317,312,0 script Book 111,{
next;
break;
case 10:
set @whilevar,0;
mes "- You closed the book. -";
close2;
cutin "",255;
@ -7521,12 +7519,13 @@ hugel,68,99,3 script Booboo the Cow 889,{
switch(select("Attempt to Milk Booboo:It's not the right time!")) {
case 1:
if (countitem(645) > 2) {
set @cowsong1,rand(1,5);
if (@cowsong1 == 1) callfunc "Func_MilkCow","cow_01.wav",3;
else if (@cowsong1 == 2) callfunc "Func_MilkCow","cow_02.wav",5;
else if (@cowsong1 == 3) callfunc "Func_MilkCow","cow_03.wav",10;
else if (@cowsong1 == 4) callfunc "Func_MilkCow","cow_04.wav",0;
else if (@cowsong1 == 5) callfunc "Func_MilkCow","cow_05.wav",1;
switch(rand(1,5)) {
case 1: callsub L_MilkCow,"cow_01.wav",3; break;
case 2: callsub L_MilkCow,"cow_02.wav",5; break;
case 3: callsub L_MilkCow,"cow_03.wav",10; break;
case 4: callsub L_MilkCow,"cow_04.wav",0; break;
case 5: callsub L_MilkCow,"cow_05.wav",1; break;
}
end;
}
mes "^3355FFTo use this comb to";
@ -7549,9 +7548,8 @@ hugel,68,99,3 script Booboo the Cow 889,{
mes "Boobooboo Booo~~~";
mes "Booboo Boop~";
close;
}
function script Func_MilkCow {
L_MilkCow:
mes "^3355FFThis giant magic comb was";
mes "specially ordered from Geffen's";
mes "Magic Academy. It is designed";
@ -7564,7 +7562,7 @@ function script Func_MilkCow {
mes "into the comb, it begins";
mes "to chime, and Booboo the";
mes "cow beings to express her^FFFFFF ^3355FF feelings in the center of Hugel.^000000";
delitem 645,3;
delitem 645,3; //Center_Potion
soundeffect ""+getarg(0)+"",0;
next;
soundeffect ""+getarg(0)+"",0;
@ -7574,8 +7572,8 @@ function script Func_MilkCow {
mes "you need to brush her a";
mes "certain number of times.^000000";
next;
input @cowbrush;
if (@cowbrush != getarg(1)) {
input .@cowbrush;
if (.@cowbrush != getarg(1)) {
soundeffect "taming_fail.wav",0;
mes "^3355FFAwwww...";
mes "Booboo the cow looks";
@ -7591,50 +7589,62 @@ function script Func_MilkCow {
mes "and is singing a serenade.^000000";
next;
soundeffect "cow_06.wav",0;
set @cowsong2,rand(1,6);
mes "[Mrs. Booboo]";
if (@cowsong2 == 1) {
switch(rand(1,6)) {
case 1:
set .@cowsong$,"Brrbrr";
mes "^ff0000Brr~ Brrboo~ Boobooboo~^000000";
mes "^0000ffBrrrrrr~ Booboo~ Boorrboo~^000000";
mes "^ff0000Booruboorubrr~ Rrrrboo~^000000";
mes "^0000ffRrrr~ Booboorrrr~ Boobooru~^000000";
mes "^ff0000Boobooboo~ Rururu~ Booruboorub~^000000";
mes "^0000ffBoo! B! Boo~~~^000000";
} else if (@cowsong2 == 2) {
break;
case 2:
set .@cowsong$,"Brrrrrr";
mes "^ff0000Brr~ Brrboo~ Boobooboo~^000000";
mes "^0000ffRrrururu~ Booboo~ Boorrboo~^000000";
mes "^ff0000Booruboorubrr~ Rrrrboo~^000000";
mes "^0000ffRrrr~ Booboorrrr~ Boobooru~^000000";
mes "^ff0000Boobooboo~ Rururu~ Booruboorub~^000000";
mes "^0000ffBoo! B! Boo~~~^000000";
} else if (@cowsong2 == 3) {
break;
case 3:
set .@cowsong$,"Rrrrboo";
mes "^ff0000Brr~ Brrbrr~ Boobooboo~^000000";
mes "^0000ffBrrrrrr~ Booboo~ Boorrboo~^000000";
mes "^ff0000Booruboorubrr~ Rurub~^000000";
mes "^0000ffRrrr~ Booboorrrr~ Boobooru~^000000";
mes "^ff0000Boobooboo~ Rururu~ Booruboorub~^000000";
mes "^0000ffBoo! B! Boo~^000000";
} else if (@cowsong2 == 4) {
break;
case 4:
set .@cowsong$,"Boobooru";
mes "^ff0000Brr~ Brrbrr~ Boobooboo~^000000";
mes "^0000ffBrrrrrr~ Booboo~ Boorrboo~^000000";
mes "^ff0000Booruboorubrr~ Rrrrboo~^000000";
mes "^0000ffRrrr~ Booboorrrr~ Bbrrrr~^000000";
mes "^ff0000Boobooboo~ Rururu~ Booruboorub~^000000";
mes "^0000ffBoo! B! Boo~^000000";
} else if (@cowsong2 == 5) {
break;
case 5:
set .@cowsong$,"Boobooboo";
mes "^ff0000Brr~ Brrbrr~ Boobooboo~^000000";
mes "^0000ffBrrrrrr~ Booboo~ Boorrboo~^000000";
mes "^ff0000Booruboorubrr~ Rrrrboo~^000000";
mes "^0000ffRrrr~ Booboorrrr~ Boobooru~^000000";
mes "^ff0000Bbb~ Rururu~ Booruboorub~^000000";
mes "^0000ffBoo! B! Boo~^000000";
} else if (@cowsong2 == 6) {
break;
case 6:
set .@cowsong$,"B";
mes "^ff0000Brr~ Brrbrr~ Boobooboo~^000000";
mes "^0000ffBrrrrrr~ Booboo~ Boorrboo~^000000";
mes "^ff0000Booruboorubrr~ Rrrrboo~^000000";
mes "^0000ffRrrr~ Booboorrrr~ Boobooru~^000000";
mes "^ff0000Boobooboo~ Rururu~ Booruboorub~^000000";
mes "^0000ffBoo! Boo! Boo~^000000";
break;
}
next;
mes "^3355FFHurry, respond to Booboo's song! Look for the word that is slightly";
@ -7642,14 +7652,8 @@ function script Func_MilkCow {
mes "song in Burupu's notes, and then tell her the correct world without";
mes "the tilde character (''~'').^000000";
next;
if (@cowsong2 == 1) set @cowsong$,"Brrbrr";
else if (@cowsong2 == 2) set @cowsong$,"Brrrrrr";
else if (@cowsong2 == 3) set @cowsong$,"Rrrrboo";
else if (@cowsong2 == 4) set @cowsong$,"Boobooru";
else if (@cowsong2 == 5) set @cowsong$,"Boobooboo";
else if (@cowsong2 == 6) set @cowsong$,"B";
input @cowanswer$;
if (@cowanswer$ == @cowsong$) {
input .@cowanswer$;
if (.@cowanswer$ == .@cowsong$) {
soundeffect "tming_success.wav",0;
mes "^3355FFSuccess!";
mes "Booboo the cow";

View File

@ -6396,8 +6396,7 @@ lighthalzen,179,170,4 script Ordinary Man 98,{
}
else if(lhz_boss == 1)
{
set @weather,rand(1,5);
if(@weather == 4)
if(rand(1,5) == 4)
{
mes "[Ghalstein]";
mes "Hm? It's a little";
@ -7948,8 +7947,7 @@ L_Mission:
}
else if(lhz_boss == 22)
{
set @read_pre,rand(1,5);
if(@read_pre == 3)
if(rand(1,5) == 3)
{
mes "[Karl]";
mes "Hm. After completely";
@ -8172,8 +8170,7 @@ L_Mission:
}
else if(lhz_boss == 25)
{
set @talk_pre,rand(1,10);
if(@talk_pre == 8)
if(rand(1,10) == 8)
{
mes "[Karl]";
mes "Alright, I just";

View File

@ -666,18 +666,15 @@ que_job01,49,49,5 script Tao#dan_09 877,{
}
que_job01,51,55,0 script que_job01#room_1 45,1,1,{
OnInit:
set $maobar_room,0;
end;
OnReset:
set $maobar_room,0;
set $@maobar_room,0;
end;
OnTouch:
if (prt_curse == 24) {
if ($maobar_room == 0) {
set $maobar_room,1;
if ($@maobar_room == 0) {
set $@maobar_room,1;
donpcevent " #room1timer::OnEnable";
donpcevent "Marjana#poison::OnEnable";
mes "[Tao]";
@ -701,8 +698,8 @@ OnTouch:
}
}
else if (mao_request > 0) {
if ($maobar_room == 0) {
set $maobar_room,1;
if ($@maobar_room == 0) {
set $@maobar_room,1;
donpcevent " #room1timer::OnEnable";
donpcevent "Valdes#moc_master_1::OnEnable";
mes "[Tao]";

View File

@ -3502,7 +3502,7 @@ ice_dun03,126,126,3 script Blazing Fire#ice1 802,{
mes "you can put this fire out";
mes "with conventional means.^000000";
if (ice_necklace_q > 4) {
if ($ktullanux_summon < 4) {
if ($@ktullanux_summon < 4) {
if (countitem(7574) > 0) {
next;
select("Use Freezing Snow Powder.");
@ -3511,8 +3511,8 @@ ice_dun03,126,126,3 script Blazing Fire#ice1 802,{
mes "flickers before extinguising.^000000";
delitem 7574,1; //Freezing Snow Powder
hideonnpc "Blazing Fire#ice1";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
}
else if (countitem(7562) > 0) {
next;
@ -3522,17 +3522,13 @@ ice_dun03,126,126,3 script Blazing Fire#ice1 802,{
mes "extinguising.^000000";
delitem 7562,1; //Ice Scale
hideonnpc "Blazing Fire#ice1";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
close;
}
}
}
close;
OnInit:
set $ktullanux_summon,0;
end;
}
@ -3543,7 +3539,7 @@ ice_dun03,172,126,0 script Blazing Fire#ice2 802,{
mes "you can put this fire out";
mes "with conventional means.^000000";
if (ice_necklace_q > 4) {
if ($ktullanux_summon < 4) {
if ($@ktullanux_summon < 4) {
if (countitem(7574) > 0) {
next;
select("Use Freezing Snow Powder.");
@ -3552,8 +3548,8 @@ ice_dun03,172,126,0 script Blazing Fire#ice2 802,{
mes "flickers before extinguising.^000000";
delitem 7574,1; //Freezing Snow Powder
hideonnpc "Blazing Fire#ice2";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
}
else if (countitem(7562) > 0) {
next;
@ -3563,17 +3559,13 @@ ice_dun03,172,126,0 script Blazing Fire#ice2 802,{
mes "extinguising.^000000";
delitem 7562,1; //Ice Scale
hideonnpc "Blazing Fire#ice2";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
close;
}
}
}
close;
OnInit:
set $ktullanux_summon,0;
end;
}
ice_dun03,172,172,0 script Blazing Fire#ice3 802,{
@ -3583,7 +3575,7 @@ ice_dun03,172,172,0 script Blazing Fire#ice3 802,{
mes "you can put this fire out";
mes "with conventional means.^000000";
if (ice_necklace_q > 4) {
if ($ktullanux_summon < 4) {
if ($@ktullanux_summon < 4) {
if (countitem(7574) > 0) {
next;
select("Use Freezing Snow Powder.");
@ -3592,8 +3584,8 @@ ice_dun03,172,172,0 script Blazing Fire#ice3 802,{
mes "flickers before extinguising.^000000";
delitem 7574,1; //Freezing Snow Powder
hideonnpc "Blazing Fire#ice3";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
}
else if (countitem(7562) > 0) {
next;
@ -3603,17 +3595,13 @@ ice_dun03,172,172,0 script Blazing Fire#ice3 802,{
mes "extinguising.^000000";
delitem 7562,1; //Ice Scale
hideonnpc "Blazing Fire#ice3";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
close;
}
}
}
close;
OnInit:
set $ktullanux_summon,0;
end;
}
ice_dun03,127,172,0 script Blazing Fire#ice4 802,{
@ -3623,7 +3611,7 @@ ice_dun03,127,172,0 script Blazing Fire#ice4 802,{
mes "you can put this fire out";
mes "with conventional means.^000000";
if (ice_necklace_q > 4) {
if ($ktullanux_summon < 4) {
if ($@ktullanux_summon < 4) {
if (countitem(7574) > 0) {
next;
select("Use Freezing Snow Powder.");
@ -3632,8 +3620,8 @@ ice_dun03,127,172,0 script Blazing Fire#ice4 802,{
mes "flickers before extinguising.^000000";
delitem 7574,1; //Freezing Snow Powder
hideonnpc "Blazing Fire#ice4";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
}
else if (countitem(7562) > 0) {
next;
@ -3643,17 +3631,13 @@ ice_dun03,127,172,0 script Blazing Fire#ice4 802,{
mes "extinguising.^000000";
delitem 7562,1; //Ice Scale
hideonnpc "Blazing Fire#ice4";
set $ktullanux_summon,$ktullanux_summon+1;
if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
set $@ktullanux_summon,$@ktullanux_summon+1;
if ($@ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
close;
}
}
}
close;
OnInit:
set $ktullanux_summon,0;
end;
}
ice_dun03,1,173,5 script ice_boss#broad -1,{
@ -3717,7 +3701,7 @@ OnMyMobDead:
OnTimer7200000:
stopnpctimer;
set $ktullanux_summon,0;
set $@ktullanux_summon,0;
hideoffnpc "Blazing Fire#ice1";
hideoffnpc "Blazing Fire#ice2";
hideoffnpc "Blazing Fire#ice3";

View File

@ -1542,8 +1542,7 @@ prt_church,113,103,1 script Praying Man 798,{
close;
}
else if (god_brising == 5) {
set @brising_try,rand(1,4);
if (@brising_try == 1) {
if (rand(1,4) == 1) {
mes "[Hermite Charles]";
mes "You're still here.";
mes "Does that mean you";

View File

@ -91,112 +91,99 @@ yuno_in01,101,85,0 warp yun66 1,1,yuno,245,144
// Yuno In05 (Entering Random Warps) -------------------------------------------
yuno_in05,153,141,0 script #yun63 45,1,1,{
if(rand(2)){
if (rand(2))
warp "yuno_in05",192,102;
} else {
else
warp "yuno_in05",145,82;
}
end;
}
// Yuno In05 (Random Warps - Cross Shaped) -------------------------------------
yuno_in05,196,102,0 script #yun64 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",169,102; end;
w2: warp "yuno_in05",128,82; end;
w3: warp "yuno_in05",156,141; end;
switch(rand(3)) {
case 0: warp "yuno_in05",169,102; end;
case 1: warp "yuno_in05",128,82; end;
case 2: warp "yuno_in05",156,141; end;
}
}
yuno_in05,181,116,0 script #yun65 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",181,94; end;
w2: warp "yuno_in05",176,13; end;
w3: warp "yuno_in05",136,75; end;
switch(rand(3)) {
case 0: warp "yuno_in05",181,94; end;
case 1: warp "yuno_in05",176,13; end;
case 2: warp "yuno_in05",136,75; end;
}
}
yuno_in05,165,102,0 script #yun66 45,1,1,{
if(rand(2)){
if (rand(2))
warp "yuno_in05",192,102;
} else {
else
warp "yuno_in05",145,82;
}
end;
}
yuno_in05,181,91,0 script #yun67 45,1,1,{
if(rand(2)){
if (rand(2))
warp "yuno_in05",181,112;
} else {
else
warp "yuno_in05",176,48;
}
end;
}
// Yuno In05 (Random Warps - T-Shaped) -----------------------------------------
yuno_in05,148,82,0 script #yun68 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",169,102; end;
w2: warp "yuno_in05",128,82; end;
w3: warp "yuno_in05",156,141; end;
switch(rand(3)) {
case 0: warp "yuno_in05",169,102; end;
case 1: warp "yuno_in05",128,82; end;
case 2: warp "yuno_in05",156,141; end;
}
}
yuno_in05,125,82,0 script #yun69 45,1,1,{
if(rand(2)){
if (rand(2))
warp "yuno_in05",192,102;
} else {
else
warp "yuno_in05",145,82;
}
end;
}
yuno_in05,136,71,0 script #yun70 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",181,112; end;
w2: warp "yuno_in05",16,185; end;
w3: warp "yuno_in05",176,48; end;
switch(rand(3)) {
case 0: warp "yuno_in05",181,112; end;
case 1: warp "yuno_in05",16,185; end;
case 2: warp "yuno_in05",176,48; end;
}
}
// Yuno In05 (Random Warps - Other) --------------------------------------------
yuno_in05,16,188,0 script #yun71 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",181,94; end;
w2: warp "yuno_in05",176,13; end;
w3: warp "yuno_in05",136,75; end;
switch(rand(3)) {
case 0: warp "yuno_in05",181,94; end;
case 1: warp "yuno_in05",176,13; end;
case 2: warp "yuno_in05",136,75; end;
}
}
yuno_in05,176,9,0 script #yun72 45,1,1,{
if(rand(2)){
if (rand(2))
warp "yuno_in05",181,112;
} else {
else
warp "yuno_in05",176,48;
}
end;
}
yuno_in05,176,52,0 script #yun73 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",181,94; end;
w2: warp "yuno_in05",176,13; end;
w3: warp "yuno_in05",136,75; end;
switch(rand(3)) {
case 0: warp "yuno_in05",181,94; end;
case 1: warp "yuno_in05",176,13; end;
case 2: warp "yuno_in05",136,75; end;
}
}
// Yuno In05 (Destination - Room) ----------------------------------------------
yuno_in05,40,178,0 script #yun74 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",181,94; end;
w2: warp "yuno_in05",176,13; end;
w3: warp "yuno_in05",136,75; end;
switch(rand(3)) {
case 0: warp "yuno_in05",181,94; end;
case 1: warp "yuno_in05",176,13; end;
case 2: warp "yuno_in05",136,75; end;
}
}
yuno_in05,47,186,0 script #yun75 45,1,1,{
set @warp0,rand(3);
if(@warp0==1) goto w2;
if(@warp0==2) goto w3;
warp "yuno_in05",181,94; end;
w2: warp "yuno_in05",176,13; end;
w3: warp "yuno_in05",136,75; end;
switch(rand(3)) {
case 0: warp "yuno_in05",181,94; end;
case 1: warp "yuno_in05",176,13; end;
case 2: warp "yuno_in05",136,75; end;
}
}
// Yuno In05 (Destination - Escaped Random Warps) ------------------------------
yuno_in05,31,167,0 warp yun76 1,1,yuno_in05,50,85

View File

@ -29,11 +29,10 @@ alde_dun02,187,234,0 warp ald007 2,2,c_tower3,65,147
//============================================================
//= Random B2 ================================================
alde_dun02,267,41,4 script ald008r 45,1,1,{
if(rand(2)) {
if (rand(2))
warp "c_tower3",168,252;
} else {
else
warp "alde_dun02",262,141;
}
end;
}
alde_dun03,12,267,0 warp aldd09 2,2,alde_dun02,273,250
@ -44,22 +43,20 @@ alde_dun03,276,48,0 warp ald012 2,2,c_tower1,235,223
//7(npc)
//= Random B3-1 ================================================
alde_dun03,130,125,4 script ald014r 45,1,1,{
set @r,rand(3);
if(@r==1) goto w2;
if(@r==2) goto w3;
warp "c_tower2",228,267; end;
w2: warp "alde_dun03",130,130; end;
w3: warp "c_tower3",252,29; end;
switch(rand(3)) {
case 0: warp "c_tower2",228,267; end;
case 1: warp "alde_dun03",130,130; end;
case 2: warp "c_tower3",252,29; end;
}
}
//============================================================
//= Random 3-2 ===============================================
alde_dun03,171,127,4 script ald015r 45,1,1,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
warp "c_tower2",13,282; end;
w2: warp "alde_dun03",175,131; end;
w3: warp "c_tower3",235,7; end;
switch(rand(3)) {
case 0: warp "c_tower2",13,282; end;
case 1: warp "alde_dun03",175,131; end;
case 2: warp "c_tower3",235,7; end;
}
}
alde_dun04,80,273,0 warp aldd016 2,2,alde_dun03,263,26
alde_dun04,207,225,0 warp ald017 1,1,c_tower3,7,34
@ -68,13 +65,11 @@ alde_dun04,32,74,0 warp aldd19 1,1,alde_dun02,187,239
alde_dun04,208,58,0 warp aldd20 2,2,alde_dun04,268,74
alde_dun04,272,74,0 warp aldd021 2,2,alde_dun04,204,62
alde_dun04,80,34,4 script ald022r 45,1,1,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
if(@r==3) goto w4;
warp "c_tower2",13,282; end;
w2: warp "alde_dun03",175,131; end;
w3: warp "c_tower3",235,7; end;
w4: warp "alde_dun04",84,36; end;
switch(rand(4)) {
case 0: warp "c_tower2",13,282; end;
case 1: warp "alde_dun03",175,131; end;
case 2: warp "c_tower3",235,7; end;
case 3: warp "alde_dun04",84,36; end;
}
}
//============================================================

View File

@ -25,22 +25,20 @@ c_tower2,273,26,0 warp clt005 1,1,c_tower1,235,223
//= Level 2 ==================================================
//= Random 2-1 ===============================================
c_tower2,13,288,4 script clt006r 45,1,1,{
set @r,rand(3);
if(@r==1) goto w2;
if(@r==2) goto w3;
warp "c_tower2",13,282; end;
w2: warp "alde_dun03",175,131; end;
w3: warp "c_tower3",235,7; end;
switch(rand(3)) {
case 0: warp "c_tower2",13,282; end;
case 1: warp "alde_dun03",175,131; end;
case 2: warp "c_tower3",235,7; end;
}
}
//============================================================
//= Random 2-2 ===============================================
c_tower2,223,267,4 script clt007r 45,1,1,{
set @r,rand(3);
if(@r==1) goto w2;
if(@r==2) goto w3;
warp "c_tower2",288,267; end;
w2: warp "alde_dun03",130,130; end;
w3: warp "c_tower3",252,29; end;
switch(rand(3)) {
case 0: warp "c_tower2",288,267; end;
case 1: warp "alde_dun03",130,130; end;
case 2: warp "c_tower3",252,29; end;
}
}
//============================================================
//= Level 3 ==================================================
@ -52,32 +50,29 @@ c_tower3,146,8,0 warp clt013 1,1,c_tower1,235,223
//============================================================
//= Random 3-1 ===============================================
c_tower3,163,252,4 script clt014r 45,1,1,{
if(rand(2)) {
if (rand(2))
warp "c_tower3",168,252;
} else {
else
warp "alde_dun02",262,41;
}
end;
}
//============================================================
//= Random 3-2 ===============================================
c_tower3,240,7,4 script clt015r 45,1,1,{
set @r,rand(3);
if(@r==1) goto w2;
if(@r==2) goto w3;
warp "c_tower2",13,282; end;
w2: warp "alde_dun03",175,131; end;
w3: warp "c_tower3",235,7; end;
switch(rand(3)) {
case 0: warp "c_tower2",13,282; end;
case 1: warp "alde_dun03",175,131; end;
case 2: warp "c_tower3",235,7; end;
}
}
//============================================================
//= Random 3-3 ===============================================
c_tower3,252,24,4 script clt016r 45,1,1,{
set @r,rand(3);
if(@r==1) goto w2;
if(@r==2) goto w3;
warp "c_tower2",228,267; end;
w2: warp "alde_dun03",130,130; end;
w3: warp "c_tower3",252,29; end;
switch(rand(3)) {
case 0: warp "c_tower2",228,267; end;
case 1: warp "alde_dun03",130,130; end;
case 2: warp "c_tower3",252,29; end;
}
}
//============================================================
//= Level 4 ==================================================
@ -94,60 +89,50 @@ c_tower4,204,57,0 warp clt026 1,1,c_tower4,65,77
//============================================================
//= Random 4-1 ===============================================
c_tower4,75,156,4 script clt027r 45,0,0,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
if(@r==3) goto w4;
warp "c_tower3",168,252; end;
w2: warp "alde_dun02",262,41; end;
w3: warp "c_tower4",73,154; end;
w4: warp "c_tower4",140,149; end;
switch(rand(4)) {
case 0: warp "c_tower3",168,252; end;
case 1: warp "alde_dun02",262,41; end;
case 2: warp "c_tower4",73,154; end;
case 3: warp "c_tower4",140,149; end;
}
}
//============================================================
//= Random 4-2 ===============================================
c_tower4,68,79,4 script clt028r 45,0,0,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
if(@r==3) goto w4;
warp "c_tower2",13,282; end;
w2: warp "alde_dun03",175,131; end;
w3: warp "c_tower3",235,7; end;
w4: warp "c_tower4",65,77; end;
switch(rand(4)) {
case 0: warp "c_tower2",13,282; end;
case 1: warp "alde_dun03",175,131; end;
case 2: warp "c_tower3",235,7; end;
case 3: warp "c_tower4",65,77; end;
}
}
//============================================================
//= Random 4-3 ===============================================
c_tower4,142,151,4 script clt029r 45,0,0,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
if(@r==3) goto w4;
warp "c_tower3",168,252; end;
w2: warp "alde_dun02",262,41; end;
w3: warp "c_tower4",73,154; end;
w4: warp "c_tower4",140,149; end;
switch(rand(4)) {
case 0: warp "c_tower3",168,252; end;
case 1: warp "alde_dun02",262,41; end;
case 2: warp "c_tower4",73,154; end;
case 3: warp "c_tower4",140,149; end;
}
}
//============================================================
//= Random 4-4 ===============================================
c_tower4,151,96,4 script clt030r 45,0,0,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
if(@r==3) goto w4;
warp "c_tower2",228,267; end;
w2: warp "alde_dun03",130,130; end;
w3: warp "c_tower3",252,29; end;
w4: warp "c_tower4",152,95; end;
switch(rand(4)) {
case 0: warp "c_tower2",228,267; end;
case 1: warp "alde_dun03",130,130; end;
case 2: warp "c_tower3",252,29; end;
case 3: warp "c_tower4",152,95; end;
}
}
//============================================================
//= Random 4-5 ===============================================
c_tower4,189,40,4 script clt031r 45,2,2,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
if(@r==3) goto w4;
warp "c_tower2",228,267; end;
w2: warp "alde_dun03",130,130; end;
w3: warp "c_tower3",252,29; end;
w4: warp "c_tower4",152,95; end;
switch(rand(4)) {
case 0: warp "c_tower2",228,267; end;
case 1: warp "alde_dun03",130,130; end;
case 2: warp "c_tower3",252,29; end;
case 3: warp "c_tower4",152,95; end;
}
}

View File

@ -21,14 +21,12 @@ pay_dun02,137,128,0 warp payd03 4,1,pay_dun03,155,159
pay_dun02,16,63,0 warp payd02-1 2,7,pay_dun01,283,28
pay_dun03,155,161,0 warp payd03-1 2,1,pay_dun02,137,126
pay_dun03,127,62,4 script payd04r 45,2,2,{
set @r,rand(4);
if(@r==1) goto w2;
if(@r==2) goto w3;
if(@r==3) goto w4;
warp "pay_dun04",201,204; end;
w2: warp "pay_dun04",189,43; end;
w3: warp "pay_dun04",43,40; end;
w4: warp "pay_dun04",34,202; end;
switch(rand(4)) {
case 0: warp "pay_dun04",201,204; end;
case 1: warp "pay_dun04",189,43; end;
case 2: warp "pay_dun04",43,40; end;
case 3: warp "pay_dun04",34,202; end;
}
}
pay_dun04,191,41,0 warp payd04-2 1,1,pay_dun03,124,62
pay_dun04,202,206,0 warp payd04-3 1,1,pay_dun03,124,62

View File

@ -109,14 +109,12 @@ prt_maze03,22,194,0 warp mazewarp5301 1,1,prt_maze03,175,48 /*To No.3-20*/
prt_maze03,5,186,0 warp mazewarp5302 1,1,prt_maze03,151,134 /*To No.3-9*/
//3rd Floor No.02
prt_maze03,58,194,0 script #mazewarp5303 45,1,1,{
set @w,rand(4);
if(@w==1)goto w2;
if(@w==2)goto w3;
if(@w==3)goto w4;
warp "prt_maze03",98,151; end; /*To No.3-8*/
w2: warp "prt_maze03",137,128; end; /*To No.3-9*/
w3: warp "prt_maze03",14,71; end; /*To No.3-16*/
w4: warp "prt_maze03",54,8; end; /*To No.3-22*/
switch(rand(4)) {
case 0: warp "prt_maze03",98,151; end; /*To No.3-8*/
case 1: warp "prt_maze03",137,128; end; /*To No.3-9*/
case 2: warp "prt_maze03",14,71; end; /*To No.3-16*/
case 3: warp "prt_maze03",54,8; end; /*To No.3-22*/
}
}
// 3rd Floor No.03
prt_maze03,102,165,0 warp mazewarp5304 1,1,prt_maze03,137,71 /*To No.3-19*/
@ -169,14 +167,12 @@ prt_maze03,14,45,0 warp mazewarp5337 1,1,prt_maze03,88,174 /*To No.3-3*/
prt_maze03,5,58,0 warp mazewarp5338 1,1,prt_maze03,191,15 /*To No.3-25*/
// 3rd Floor No.17
prt_maze03,74,74,0 script #mazewarp5339 45,1,1,{
set @w,rand(4);
if(@w==1)goto w2;
if(@w==2)goto w3;
if(@w==3)goto w4;
warp "prt_maze03",98,151; end; /*To No.3-8*/
w2: warp "prt_maze03",137,128; end; /*To No.3-9*/
w3: warp "prt_maze03",14,71; end; /*To No.3-16*/
w4: warp "prt_maze03",54,8; end; /*To No.3-22*/
switch(rand(4)) {
case 0: warp "prt_maze03",98,151; end; /*To No.3-8*/
case 1: warp "prt_maze03",137,128; end; /*To No.3-9*/
case 2: warp "prt_maze03",14,71; end; /*To No.3-16*/
case 3: warp "prt_maze03",54,8; end; /*To No.3-22*/
}
}
prt_maze03,52,45,0 warp mazewarp5340 1,1,prt_maze03,16,31 /*To No.3-21*/
// 3rd Floor No.18
@ -187,14 +183,12 @@ prt_maze03,85,56,0 warp mazewarp5344 1,1,prt_maze03,176,31 /*To No.3-25*/
// 3rd Floor No.19
prt_maze03,137,74,0 warp mazewarp5345 1,1,prt_maze03,102,168 /*To No.3-3*/
prt_maze03,139,45,0 script #mazewarp5346 45,1,1,{
set @w,rand(4);
if(@w==1)goto w2;
if(@w==2)goto w3;
if(@w==3)goto w4;
warp "prt_maze03",98,151; end; /*To No.3-8*/
w2: warp "prt_maze03",137,128; end; /*To No.3-9*/
w3: warp "prt_maze03",14,71; end; /*To No.3-16*/
w4: warp "prt_maze03",54,8; end; /*To No.3-22*/
switch(rand(4)) {
case 0: warp "prt_maze03",98,151; end; /*To No.3-8*/
case 1: warp "prt_maze03",137,128; end; /*To No.3-9*/
case 2: warp "prt_maze03",14,71; end; /*To No.3-16*/
case 3: warp "prt_maze03",54,8; end; /*To No.3-22*/
}
}
// 3rd Floor No.20
prt_maze03,177,74,0 warp mazewarp5347 1,1,prt_maze03,23,128 /*To No.3-6*/
@ -213,14 +207,12 @@ prt_maze03,114,22,0 warp mazewarp5356 1,1,prt_maze03,104,71 /*To No.3-18*/
prt_maze03,85,13,0 warp mazewarp5357 1,1,prt_maze03,23,8 /*To No.3-21*/
// 3rd Floor No.24
prt_maze03,154,22,0 script #mazewarp5358 45,1,1,{
set @w,rand(4);
if(@w==1)goto w2;
if(@w==2)goto w3;
if(@w==3)goto w4;
warp "prt_maze03",98,151; end; /*To No.3-8*/
w2: warp "prt_maze03",137,128; end; /*To No.3-9*/
w3: warp "prt_maze03",14,71; end; /*To No.3-16*/
w4: warp "prt_maze03",54,8; end; /*To No.3-22*/
switch(rand(4)) {
case 0: warp "prt_maze03",98,151; end; /*To No.3-8*/
case 1: warp "prt_maze03",137,128; end; /*To No.3-9*/
case 2: warp "prt_maze03",14,71; end; /*To No.3-16*/
case 3: warp "prt_maze03",54,8; end; /*To No.3-22*/
}
}
// 3rd Floor No.25
prt_maze03,176,34,0 warp mazewarp5359 1,1,prt_maze03,88,56 /*To No.3-18*/

View File

@ -3,7 +3,7 @@
//===== By: ==================================================
//= Athena (1.0)
//===== Current Version: =====================================
//= 1.4
//= 1.5
//===== Compatible With: =====================================
//= Any Athena Version; RO Episode 2.x
//===== Description: =========================================
@ -12,6 +12,7 @@
//= Split off npc_warp.txt, 1.1 added gl18-2 [Lupus]
//= optimized random warp [Lupus] fixed looped warps
//= 1.4 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 1.5 Fixed random warp coordinates. [Euphy]
//============================================================
//Glastheim
@ -52,10 +53,13 @@ gl_knt02,10,138,0 warp gl14-1 1,1,gl_knt01,7,148
gl_knt02,157,292,0 warp gl16-1 1,1,gl_knt01,150,286
gl_knt02,289,138,0 warp gl17-1 1,1,gl_knt01,292,144
gl_prison,149,183,0 warp gl18-1 1,1,gl_prison1,150,14
gl_prison,10,70,4 script gl18-2 45,1,1,{
if(rand(2)==1) goto w2;
warp "gl_cas01",236,192; end;
w2: warp "gl_cas01",164,191; end;
gl_prison,11,70,0 script gl18-2 45,1,1,{
switch(rand(4)) {
case 0: warp "gl_cas01",163,193; end;
case 1: warp "gl_cas01",238,192; end;
case 2: warp "gl_cas01",144,314; end;
case 3: warp "gl_cas01",367,301; end;
}
}
gl_prison1,150,10,0 warp gl18 1,1,gl_prison,149,178
gl_prison1,62,187,0 warp gl10 1,1,gl_sew01,258,255

View File

@ -905,7 +905,7 @@ REPLACE INTO `mob_db` VALUES (1776,'SIROMA','Siroma','Siroma',98,11910,1,1827,13
REPLACE INTO `mob_db` VALUES (1777,'ICE_TITAN','Ice Titan','Ice Titan',110,20820,1,2724,2644,1,837,935,344,11,133,54,78,33,78,26,10,12,2,0,61,0x3885,250,861,660,144,0,0,0,0,0,0,0,7561,5000,7066,3000,749,100,984,10,985,30,6253,500,995,100,0,0,0,0,4417,1);
REPLACE INTO `mob_db` VALUES (1778,'GAZETI','Gazeti','Gazeti',106,14000,1,2025,1518,10,596,664,71,21,105,37,42,38,97,38,10,12,1,6,21,0x3395,190,576,370,270,0,0,0,0,0,0,0,7561,3000,7066,3000,985,20,1731,1,6253,100,6256,200,0,0,0,0,0,0,4418,1);
REPLACE INTO `mob_db` VALUES (1779,'KTULLANUX','Ktullanux','Ktullanux',98,2626000,1,1035576,949942,3,2888,5568,129,78,85,126,30,125,177,112,10,12,2,2,81,0x37B5,400,432,840,216,517788,607,5500,617,5000,617,5000,7562,9000,616,3000,2509,3000,2111,5000,617,5000,607,5000,0,0,0,0,0,0,4419,1);
REPLACE INTO `mob_db` VALUES (1780,'MUSCIPULAR','Muscipular','Muscipular',105,12550,1,1944,1458,1,401,477,114,43,100,60,58,37,60,47,10,12,1,3,22,0x84,2000,672,648,360,0,0,0,0,0,0,0,7565,3000,1032,3000,629,2,1033,2000,905,1000,631,3,6217,200,0,0,0,0,4420,1);
REPLACE INTO `mob_db` VALUES (1780,'MUSCIPULAR','Muscipular','Muscipular',105,12550,1,1944,1458,3,401,477,114,43,100,60,58,37,60,47,10,12,1,3,22,0x84,2000,672,648,360,0,0,0,0,0,0,0,7565,3000,1032,3000,629,2,1033,2000,905,1000,631,3,6217,200,0,0,0,0,4420,1);
REPLACE INTO `mob_db` VALUES (1781,'DROSERA','Drosera','Drosera',101,10878,1,1350,1013,7,168,222,86,52,79,32,64,38,78,14,10,12,1,3,22,0x84,2000,864,576,336,0,0,0,0,0,0,0,7565,3000,6259,200,1032,2000,1033,2000,621,3,905,1000,6217,50,0,0,0,0,4421,1);
REPLACE INTO `mob_db` VALUES (1782,'ROWEEN','Roween','Roween',95,7385,1,1691,1902,1,375,410,73,33,70,82,55,45,73,25,10,12,1,2,24,0x108B,200,1500,500,1000,0,0,0,0,0,0,0,7564,3000,919,3000,992,50,1822,2,0,0,0,0,0,0,0,0,0,0,4422,1);
REPLACE INTO `mob_db` VALUES (1783,'GALION','Galion','Galion',100,8821,1,1769,1327,1,405,482,100,62,106,79,62,45,90,36,10,12,1,2,44,0x11AB,150,864,624,360,0,0,0,0,0,0,0,7564,3000,919,3000,996,10,2531,5,0,0,0,0,0,0,0,0,0,0,4423,1);