- airship.txt: changed temporary char variables to scope,
changed temporary global variables to NPC variables. git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@15073 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
brianluau
parent
b6d144c4c4
commit
27fce212ed
@ -451,9 +451,8 @@ while(1)
|
||||
mapannounce "airplane_01","The Airship is leaving the ground. Our next destination is Izlude.",bc_map,0x00FF00;
|
||||
end;
|
||||
OnTimer15000:
|
||||
set $@mobinv, $@mobinv+1;
|
||||
set $@mobrand, rand(1,3);
|
||||
if($@mobinv >= 9 && $@mobrand == 3) {
|
||||
set .mobinv, .mobinv+1;
|
||||
if(.mobinv >= 9 && rand(1,3) == 3) {
|
||||
stopnpctimer;
|
||||
enablenpc "Airship#airplane02";
|
||||
donpcevent "Airship#airplane02::OnInvasion";
|
||||
@ -529,7 +528,7 @@ OnTimer195000:
|
||||
}
|
||||
OnReturn:
|
||||
killmonsterall "airplane_01";
|
||||
set $@mobinv, 0;
|
||||
set .mobinv, 0;
|
||||
mapannounce "airplane_01","Monster threat nullfied. The Airship is now returning to normal operation.",bc_map,0x00FF00;
|
||||
startnpctimer;
|
||||
end;
|
||||
@ -780,7 +779,7 @@ s_Play:
|
||||
//below arrays are for simplified entering of new lines ;P
|
||||
|
||||
//first lines array
|
||||
setarray $@textstringsa$[0],
|
||||
setarray .textstringsa$[0],
|
||||
"^00FFFFthkelfkskeldmsiejdlsle^0000FFhfndkelsheidl",
|
||||
"^993366hfjdkeldjsieldjs^663366hfjdjeiskdlefvbd",
|
||||
"^00FFFFCoboman no chikara-yumei na",
|
||||
@ -795,7 +794,7 @@ s_Play:
|
||||
"^00CCFF...silence. quiet benevolence...";
|
||||
|
||||
//second lines array
|
||||
setarray $@textstringsb$[0],"skemd",
|
||||
setarray .textstringsb$[0],"skemd",
|
||||
"",
|
||||
"chikara-dalookii na chikara da ze!",
|
||||
"folktale rodimus optimus bumblebee",
|
||||
@ -809,7 +808,7 @@ s_Play:
|
||||
"soul mate... wonder. enigma...";
|
||||
//for the few 3-liners... =X
|
||||
|
||||
setarray $@textstringsc$[0],"",
|
||||
setarray .textstringsc$[0],"",
|
||||
"",
|
||||
"COBO ON!",
|
||||
"",
|
||||
@ -823,7 +822,7 @@ s_Play:
|
||||
"cloud.";
|
||||
|
||||
//comparisation strings
|
||||
setarray $@compstring$[0],
|
||||
setarray .compstring$[0],
|
||||
"thkelfkskeldmsiejdlslehfndkelsheidlskemd",
|
||||
"hfjdkeldjsieldjshfjdjeiskdlefvbd",
|
||||
"Coboman no chikara-yumei na chikara-dalookii na chikara da ze! COBO ON!",
|
||||
@ -838,56 +837,53 @@ s_Play:
|
||||
"...silence. quiet benevolence... soul mate... wonder. enigma... cloud";
|
||||
|
||||
//lengths
|
||||
setarray $@lengths[0],20,32,73,73,65,66,67,55,67,66,67,69;
|
||||
setarray .lengths[0],20,32,73,73,65,66,67,55,67,66,67,69;
|
||||
|
||||
// initnpctimer;
|
||||
// pick 2 distinct phrases and initialize related variables
|
||||
set @index,rand(1,getarraysize($@textstringsa$))-1;
|
||||
set @string1a$,$@textstringsa$[@index];
|
||||
set @string1b$,$@textstringsb$[@index];
|
||||
set @string1c$,$@textstringsc$[@index];
|
||||
set @typingstring1$,$@compstring$[@index];
|
||||
set .@index1,rand(getarraysize(.textstringsa$));
|
||||
set .@string1a$,.textstringsa$[.@index1];
|
||||
set .@string1b$,.textstringsb$[.@index1];
|
||||
set .@string1c$,.textstringsc$[.@index1];
|
||||
set .@typingstring1$,.compstring$[.@index1];
|
||||
|
||||
set @index2,rand(1,getarraysize($@textstringsa$))-1;
|
||||
while (@index2 == @index) {
|
||||
set @index2,rand(1,getarraysize($@textstringsa$))-1;
|
||||
}
|
||||
set @string2a$,$@textstringsa$[@index2];
|
||||
set @string2b$,$@textstringsb$[@index2];
|
||||
set @string2c$,$@textstringsc$[@index2];
|
||||
set @typingstring2$,$@compstring$[@index2];
|
||||
while ( set(.@index2,rand(getarraysize(.textstringsa$))) == .@index1 );
|
||||
set .@string2a$,.textstringsa$[.@index2];
|
||||
set .@string2b$,.textstringsb$[.@index2];
|
||||
set .@string2c$,.textstringsc$[.@index2];
|
||||
set .@typingstring2$,.compstring$[.@index2];
|
||||
|
||||
set @typingkeys,$@lengths[@index]+$@lengths[@index2];
|
||||
set @start,gettime(3)*60*60+gettime(2)*60+gettime(1);
|
||||
set .@typingkeys,.lengths[.@index1]+.lengths[.@index2];
|
||||
set .@start,gettimetick(0);
|
||||
|
||||
mes "[Nils]";
|
||||
mes @string1a$;
|
||||
if(@string1b$ != "")mes @string1b$;
|
||||
if(@string1c$ != "")mes @string1c$;
|
||||
input @comparisonvar$[1];
|
||||
mes .@string1a$;
|
||||
if(.@string1b$ != "")mes .@string1b$;
|
||||
if(.@string1c$ != "")mes .@string1c$;
|
||||
input .@comparisonvar$[1];
|
||||
next;
|
||||
mes "^000000[Nils]";
|
||||
mes @string2a$;
|
||||
if(@string2b$ != "")mes @string2b$;
|
||||
if(@string2c$ != "")mes @string2c$;
|
||||
input @comparisonvar$[2];
|
||||
mes .@string2a$;
|
||||
if(.@string2b$ != "")mes .@string2b$;
|
||||
if(.@string2c$ != "")mes .@string2c$;
|
||||
input .@comparisonvar$[2];
|
||||
next;
|
||||
if(@comparisonvar$[1] != @typingstring1$ || @comparisonvar$[2] != @typingstring2$) goto s_Fail;
|
||||
set @time,(gettime(3)*60*60+gettime(2)*60+gettime(1))-@start; //seconds taken
|
||||
set @mypoints,(@typingkeys * 100) / @time;
|
||||
if(.@comparisonvar$[1] != .@typingstring1$ || .@comparisonvar$[2] != .@typingstring2$) goto s_Fail;
|
||||
set .@time, (gettimetick(0) - .@start) / 100; //seconds taken
|
||||
set .@mypoints, (.@typingkeys * 100) / .@time;
|
||||
mes "[Nils]";
|
||||
mes "Your typing time";
|
||||
mes "was ^FF0000" + @time + " seconds^000000";
|
||||
mes "was ^FF0000" + .@time + " seconds^000000";
|
||||
mes "and your score is";
|
||||
mes "^0000FF" + @mypoints + "^000000 points";
|
||||
mes "^0000FF" + .@mypoints + "^000000 points";
|
||||
next;
|
||||
if(@mypoints <= $TypingRecord)goto loopback;
|
||||
if(.@mypoints <= $TypingRecord)goto loopback;
|
||||
mes "[Nils]";
|
||||
mes "Congratulations!";
|
||||
mes "It's a new record.";
|
||||
mes "I'll put you on the high-";
|
||||
mes "score list immediately.";
|
||||
set $TypingRecord,@mypoints;
|
||||
set $TypingRecord,.@mypoints;
|
||||
set $TypingRecord$,strcharinfo(0);
|
||||
close;
|
||||
|
||||
@ -1299,18 +1295,18 @@ function script applegamble {
|
||||
mes "to cancel, please enter '0'.";
|
||||
next;
|
||||
L_Input:
|
||||
input @amount;
|
||||
if(@amount == 0) {
|
||||
input .@amount;
|
||||
if(.@amount == 0) {
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Changed your mind?";
|
||||
mes "I understand. Well then,";
|
||||
mes "I hope we can play sometime.";
|
||||
close;
|
||||
}
|
||||
if(@amount > 50) set @amount,50;
|
||||
if(.@amount > 50) set .@amount,50;
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "So you'll be";
|
||||
mes "betting ^FF0000"+@amount+"^000000 Apples.";
|
||||
mes "betting ^FF0000"+.@amount+"^000000 Apples.";
|
||||
mes "Is that right?";
|
||||
next;
|
||||
if(select("Yes:No")==2){
|
||||
@ -1322,7 +1318,7 @@ L_Input:
|
||||
next;
|
||||
goto L_Input;
|
||||
}
|
||||
if(countitem(512)<@amount){
|
||||
if(countitem(512)<.@amount){
|
||||
//more apples then in inventory
|
||||
//-Improvised-
|
||||
mes "["+getarg(0)+"]";
|
||||
@ -1332,53 +1328,53 @@ L_Input:
|
||||
mes "now do you?";
|
||||
close;
|
||||
}
|
||||
delitem 512,@amount;
|
||||
delitem 512,.@amount;
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Good!";
|
||||
mes "Now we can start";
|
||||
mes "this game! I'll roll first~";
|
||||
next;
|
||||
mes "^0000FF*Rolling and rumbling*";
|
||||
set @table1,rand(1,6);
|
||||
set @table2,rand(1,6);
|
||||
set @tablesub,@table1+@table2;
|
||||
set .@table1,rand(1,6);
|
||||
set .@table2,rand(1,6);
|
||||
set .@tablesub,.@table1+.@table2;
|
||||
next;
|
||||
mes "I rolled a "+@table1+" and a "+@table2+",";
|
||||
mes "giving me a total of "+@tablesub+".";
|
||||
mes "I rolled a "+.@table1+" and a "+.@table2+",";
|
||||
mes "giving me a total of "+.@tablesub+".";
|
||||
mes "Now it's your turn,";
|
||||
mes strcharinfo(0)+".";
|
||||
next;
|
||||
menu "Roll Dice.",-;
|
||||
|
||||
mes "^0000FF*Rolling and rumbling*";
|
||||
set @player1,rand(1,6);
|
||||
set @player2,rand(1,6);
|
||||
set @playersub,@player1+@player2;
|
||||
set .@player1,rand(1,6);
|
||||
set .@player2,rand(1,6);
|
||||
set .@playersub,.@player1+.@player2;
|
||||
next;
|
||||
mes "["+getarg(0)+"]";
|
||||
mes strcharinfo(0)+",";
|
||||
mes "you rolled a "+@player1+" and a "+@player2+",";
|
||||
mes "giving you a total of ^FF0000"+@playersub+"^000000.";
|
||||
mes "you rolled a "+.@player1+" and a "+.@player2+",";
|
||||
mes "giving you a total of ^FF0000"+.@playersub+"^000000.";
|
||||
next;
|
||||
mes "["+getarg(0)+"]";
|
||||
if(@playersub == @tablesub) {
|
||||
if(.@playersub == .@tablesub) {
|
||||
mes "Well, well, well.";
|
||||
mes "Both of us have a total";
|
||||
mes "of "+@playersub+". Well, the ball's in";
|
||||
mes "of "+.@playersub+". Well, the ball's in";
|
||||
mes "your court. Are you going";
|
||||
mes "to roll your third die,";
|
||||
mes strcharinfo(0)+"?";
|
||||
} else if(@playersub > @tablesub) {
|
||||
mes "Since my total is only ^0000FF"+@tablesub+"^000000,";
|
||||
} else if(.@playersub > .@tablesub) {
|
||||
mes "Since my total is only ^0000FF"+.@tablesub+"^000000,";
|
||||
mes "you have the advantage for";
|
||||
mes "now with your total of ^FF0000"+@playersub+"^000000. Do";
|
||||
mes "now with your total of ^FF0000"+.@playersub+"^000000. Do";
|
||||
mes "you wanna roll one more die?";
|
||||
mes "Remember, you'll bust if all three";
|
||||
mes "of your dice total more than 12.";
|
||||
} else if(@tablesub > @playersub) {
|
||||
mes "Since my total is ^0000FF"+@tablesub+"^000000,";
|
||||
} else if(.@tablesub > .@playersub) {
|
||||
mes "Since my total is ^0000FF"+.@tablesub+"^000000,";
|
||||
mes "I have the advantage for";
|
||||
mes "now with your total of ^FF0000"+@playersub+"^000000. Do";
|
||||
mes "now with your total of ^FF0000"+.@playersub+"^000000. Do";
|
||||
mes "you wanna roll one more die?";
|
||||
mes "Remember, you'll bust if all three";
|
||||
mes "of your dice total more than 12.";
|
||||
@ -1387,14 +1383,14 @@ L_Input:
|
||||
if(select("Roll another dice.:Don't Roll.")==2){
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Not gonna roll, huh?";
|
||||
if(@tablesub == @playersub) {
|
||||
if(.@tablesub == .@playersub) {
|
||||
mes "You better hope I roll";
|
||||
mes "too high and bust, or";
|
||||
mes "I'll beat you for sure!";
|
||||
mes "Okay, here goes nothing...";
|
||||
next;
|
||||
goto L_Table3;
|
||||
} else if(@tablesub < @playersub) {
|
||||
} else if(.@tablesub < .@playersub) {
|
||||
next;
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Alright, I see that you";
|
||||
@ -1403,7 +1399,7 @@ L_Input:
|
||||
mes "I'll go ahead and roll then.";
|
||||
next;
|
||||
goto L_Table3;
|
||||
} else if(@tablesub > @playersub) {
|
||||
} else if(.@tablesub > .@playersub) {
|
||||
//you have a lower sub total then table, and do not roll 3th -Improvised-
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Not gonna roll, huh?";
|
||||
@ -1412,8 +1408,8 @@ L_Input:
|
||||
next;
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "That means that I";
|
||||
mes "have a total of ^0000FF"+@tablesub+"^000000";
|
||||
mes "wich beats your ^FF0000"+@playersub+"^000000.";
|
||||
mes "have a total of ^0000FF"+.@tablesub+"^000000";
|
||||
mes "wich beats your ^FF0000"+.@playersub+"^000000.";
|
||||
mes "I'm sorry, but you lose";
|
||||
mes "this game, "+strcharinfo(0)+". Better";
|
||||
mes "luck next time.";
|
||||
@ -1421,14 +1417,14 @@ L_Input:
|
||||
close;
|
||||
}
|
||||
mes "^0000FF*Rolling and rumbling*";
|
||||
set @player3,rand(1,6);
|
||||
set @playersub,@playersub+@player3;
|
||||
if(@playersub > 12) {
|
||||
set .@player3,rand(1,6);
|
||||
set .@playersub,.@playersub+.@player3;
|
||||
if(.@playersub > 12) {
|
||||
//player bust --Improvised--
|
||||
next;
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Oh my... You rolled a ^FF000"+@player3+"^000000,";
|
||||
mes "making your total ^FF0000"+@playersub+"^000000.";
|
||||
mes "Oh my... You rolled a ^FF000"+.@player3+"^000000,";
|
||||
mes "making your total ^FF0000"+.@playersub+"^000000.";
|
||||
mes "That's more then 12, meaning you bust.";
|
||||
mes "Sorry, but you lose this";
|
||||
mes "game, "+strcharinfo(0)+".";
|
||||
@ -1437,20 +1433,20 @@ L_Input:
|
||||
next;
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Oh hey! You rolled";
|
||||
if(@playersub >= @tablesub) {
|
||||
mes "a ^FF0000"+@player3+"^000000, giving you a total";
|
||||
mes "of ^FF0000"+@playersub+"^000000. Now, if I don't";
|
||||
if(.@playersub >= .@tablesub) {
|
||||
mes "a ^FF0000"+.@player3+"^000000, giving you a total";
|
||||
mes "of ^FF0000"+.@playersub+"^000000. Now, if I don't";
|
||||
mes "roll, I'll lose for sure!";
|
||||
mes "I'm gonna go for it...";
|
||||
next;
|
||||
goto L_Table3;
|
||||
} else if(@playersub < @tablesub) {
|
||||
} else if(.@playersub < .@tablesub) {
|
||||
//player's sub together with 3th die is still too low
|
||||
//--Improvised--
|
||||
mes "a ^FF0000"+@player3+"^000000, giving";
|
||||
mes "you a total of ^FF0000"+@playersub+"^000000.";
|
||||
mes "a ^FF0000"+.@player3+"^000000, giving";
|
||||
mes "you a total of ^FF0000"+.@playersub+"^000000.";
|
||||
mes "Wich still isn't enough";
|
||||
mes "to beat my ^0000FF"+@tablesub+"^000000.";
|
||||
mes "to beat my ^0000FF"+.@tablesub+"^000000.";
|
||||
mes "Sorry, but you lose this";
|
||||
mes "game, "+strcharinfo(0)+". Them's";
|
||||
mes "the breaks, I suppose...";
|
||||
@ -1458,48 +1454,48 @@ L_Input:
|
||||
}
|
||||
L_Table3:
|
||||
mes "^0000FF*Rolling and rumbling*";
|
||||
set @table3,rand(1,6);
|
||||
set @tablesub,@tablesub+@table3;
|
||||
set .@table3,rand(1,6);
|
||||
set .@tablesub,.@tablesub+.@table3;
|
||||
next;
|
||||
if(@tablesub > 12) {
|
||||
if(.@tablesub > 12) {
|
||||
mes "["+getarg(0)+"]";
|
||||
mes "Eh? I rolled a ^0000FF"+@table3+"^000000, making";
|
||||
mes "my total ^0000FF"+@tablesub+"^000000. I hate to say";
|
||||
mes "Eh? I rolled a ^0000FF"+.@table3+"^000000, making";
|
||||
mes "my total ^0000FF"+.@tablesub+"^000000. I hate to say";
|
||||
mes "it, but I gambled and lost.";
|
||||
mes "Take your winnings before";
|
||||
mes "I cry, "+strcharinfo(0)+"~!";
|
||||
close2;
|
||||
getitem 512,@amount*2;
|
||||
getitem 512,.@amount*2;
|
||||
end;
|
||||
}
|
||||
mes "["+getarg(0)+"]";
|
||||
if(@tablesub < @playersub) {
|
||||
mes "I rolled a "+@table3+", which";
|
||||
mes "gives me a total of ^0000FF"+@tablesub+"^000000.";
|
||||
if(.@tablesub < .@playersub) {
|
||||
mes "I rolled a "+.@table3+", which";
|
||||
mes "gives me a total of ^0000FF"+.@tablesub+"^000000.";
|
||||
mes "But... It's still not enough";
|
||||
mes "to beat your ^FF0000"+@playersub+"^000000. It looks";
|
||||
mes "to beat your ^FF0000"+.@playersub+"^000000. It looks";
|
||||
mes "like I can't compete with";
|
||||
mes "you, "+strcharinfo(0)+"...";
|
||||
close2;
|
||||
getitem 512,@amount*2;
|
||||
getitem 512,.@amount*2;
|
||||
end;
|
||||
} else if(@tablesub > @playersub) {
|
||||
mes "I rolled a ^0000FF"+@table3+"^000000, giving";
|
||||
mes "me a total of ^0000FF"+@tablesub+"^000000 which";
|
||||
mes "beats your total of ^FF0000"+@playersub+"^000000.";
|
||||
} else if(.@tablesub > .@playersub) {
|
||||
mes "I rolled a ^0000FF"+.@table3+"^000000, giving";
|
||||
mes "me a total of ^0000FF"+.@tablesub+"^000000 which";
|
||||
mes "beats your total of ^FF0000"+.@playersub+"^000000.";
|
||||
mes "Sorry, but you lose this";
|
||||
mes "game, "+strcharinfo(0)+". Them's";
|
||||
mes "the breaks, I suppose...";
|
||||
close;
|
||||
} else if(@tablesub == @playersub) {
|
||||
} else if(.@tablesub == .@playersub) {
|
||||
//Result = tie, --Improvised--
|
||||
mes "I rolled a ^0000FF"+@table3+"^000000, giving";
|
||||
mes "me a total of ^0000FF"+@tablesub+"^000000, which";
|
||||
mes "I rolled a ^0000FF"+.@table3+"^000000, giving";
|
||||
mes "me a total of ^0000FF"+.@tablesub+"^000000, which";
|
||||
mes "is the same as your total.";
|
||||
mes "Well, this game didn't have a";
|
||||
mes "winner or loser, "+strcharinfo(0)+".";
|
||||
close2;
|
||||
getitem 512,@amount;
|
||||
getitem 512,.@amount;
|
||||
end;
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user