diff options
author | brianluau <brianluau@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2011-12-25 06:54:26 +0000 |
---|---|---|
committer | brianluau <brianluau@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2011-12-25 06:54:26 +0000 |
commit | 1d8592b23ce221f543fb9978c88620f70280c885 (patch) | |
tree | 66b363ecaa0da42195d2c9d1b8e5cd6fe8cc33a2 /npc/custom/stock_market.txt | |
parent | 0f82fd5bc403400dc9464a8f02298416b99b0bbc (diff) | |
download | hercules-1d8592b23ce221f543fb9978c88620f70280c885.tar.gz hercules-1d8592b23ce221f543fb9978c88620f70280c885.tar.bz2 hercules-1d8592b23ce221f543fb9978c88620f70280c885.tar.xz hercules-1d8592b23ce221f543fb9978c88620f70280c885.zip |
- Standardized script headers, starting with /npc/custom/
http://rathena.org/wiki/Script_header
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@15262 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/custom/stock_market.txt')
-rw-r--r-- | npc/custom/stock_market.txt | 794 |
1 files changed, 396 insertions, 398 deletions
diff --git a/npc/custom/stock_market.txt b/npc/custom/stock_market.txt index 23fdfe23f..6f90bcaef 100644 --- a/npc/custom/stock_market.txt +++ b/npc/custom/stock_market.txt @@ -1,11 +1,11 @@ //===== rAthena Script ======================================= //= Stock Market Game //===== By: ================================================== -//= acky (acky@bigpond.net.au) +//= acky //===== Current Version: ===================================== //= 1.3.1 //===== Compatible With: ===================================== -//= Any rAthena Version +//= rAthena SVN //===== Description: ========================================= //= NPC for a stock market game. //===== Additional Comments: ================================= @@ -14,252 +14,252 @@ //= Low prices likely to rise, High prices likely to drop //= Small fix by Galeon //= Lupus: This script lets players make 40,000,000z a day -//= so use it on your own risk +//= so use it on your own risk //============================================================ -prontera,140,181,5 script sharenames -1,{ -end; +- script sharenames -1,{ + end; OnInit: -// Sets the names of the shares // -set $S1N$,"JIN"; -set $S2N$,"VNG"; -set $S3N$,"SHA"; -set $S4N$,"RGC"; -set $S5N$,"PSC"; -set $S6N$,"GNG"; -set $S7N$,"XRO"; -set $S8N$,"GRM"; -set $S9N$,"DOP"; -set $S10N$,"POR"; - -// Transaction fee // -set $S_Trans,1500; - -// Min & Max buyable // -set $S_BuyMin,1; -set $S_BuyMax,1000000; -end; - -// Average Price (Your start prices) // -set $S_Avg,100; - -// Set times of fluctuation // + // Sets the names of the shares // + set $S1N$,"JIN"; + set $S2N$,"VNG"; + set $S3N$,"SHA"; + set $S4N$,"RGC"; + set $S5N$,"PSC"; + set $S6N$,"GNG"; + set $S7N$,"XRO"; + set $S8N$,"GRM"; + set $S9N$,"DOP"; + set $S10N$,"POR"; + + // Transaction fee // + set $S_Trans,1500; + + // Min & Max buyable // + set $S_BuyMin,1; + set $S_BuyMax,1000000; + end; + + // Average Price (Your start prices) // + set $S_Avg,100; + + // Set times of fluctuation // OnClock1100: -set $S_LastUpd$,"12:00"; -goto S_Fluc; -end; + set $S_LastUpd$,"12:00"; + goto S_Fluc; + end; OnClock0000: -set $S_LastUpd$,"00:00"; -goto S_Fluc; -end; + set $S_LastUpd$,"00:00"; + goto S_Fluc; + end; OnClock0600: -set $S_LastUpd$,"06:00"; -goto S_Fluc; -end; + set $S_LastUpd$,"06:00"; + goto S_Fluc; + end; OnClock1800: -set $S_LastUpd$,"18:00"; -goto S_Fluc; -end; + set $S_LastUpd$,"18:00"; + goto S_Fluc; + end; OnClock2100: -set $S_LastUpd$,"21:00"; -goto S_Fluc; -end; + set $S_LastUpd$,"21:00"; + goto S_Fluc; + end; OnClock0900: -set $S_LastUpd$,"09:00"; -goto S_Fluc; -end; + set $S_LastUpd$,"09:00"; + goto S_Fluc; + end; OnClock1500: -set $S_LastUpd$,"15:00"; -goto S_Fluc; -end; + set $S_LastUpd$,"15:00"; + goto S_Fluc; + end; S_Fluc: -set $fluc,rand (-6,6); -set $S1B,$S1; -set $S1,$S1+$fluc; -if ($S1 < 25) set $S1,$S1+3; -if ($S1 < 50) set $S1,$S1+2; -if ($S1 > 150) set $S1,$S1-2; -if ($S1 > 175) set $S1,$S1-3; -if ($S1 < 1) set $S1,1; - -set $fluc,rand (-6,6); -set $S2B,$S2; -set $S2,$S2+$fluc; -if ($S2 < 25) set $S2,$S2+3; -if ($S2 < 50) set $S2,$S2+2; -if ($S2 > 150) set $S2,$S2-2; -if ($S2 > 175) set $S2,$S2-3; -if ($S2 < 1) set $S2,1; - -set $fluc,rand (-6,6); -set $S3B,$S3; -set $S3,$S3+$fluc; -if ($S3 < 25) set $S3,$S3+3; -if ($S3 < 50) set $S3,$S3+2; -if ($S3 > 150) set $S3,$S3-2; -if ($S3 > 175) set $S3,$S3-3; -if ($S3 < 1) set $S3,1; - -set $fluc,rand (-6,6); -set $S4B,$S4; -set $S4,$S4+$fluc; -if ($S4 < 25) set $S4,$S4+3; -if ($S4 < 50) set $S4,$S4+2; -if ($S4 > 150) set $S4,$S4-2; -if ($S4 > 175) set $S4,$S4-3; -if ($S4 < 1) set $S4,1; - -set $fluc,rand (-6,6); -set $S5B,$S5; -set $S5,$S5+$fluc; -if ($S5 < 25) set $S5,$S5+3; -if ($S5 < 50) set $S5,$S5+2; -if ($S5 > 150) set $S5,$S5-2; -if ($S5 > 175) set $S5,$S5-3; -if ($S5 < 1) set $S5,1; - -set $fluc,rand (-6,6); -set $S6B,$S6; -set $S6,$S6+$fluc; -if ($S6 < 25) set $S6,$S6+3; -if ($S6 < 50) set $S6,$S6+2; -if ($S6 > 150) set $S6,$S6-2; -if ($S6 > 175) set $S6,$S6-3; -if ($S6 < 1) set $S6,1; - -set $fluc,rand (-6,6); -set $S7B,$S7; -set $S7,$S7+$fluc; -if ($S7 < 25) set $S7,$S7+3; -if ($S7 < 50) set $S7,$S7+2; -if ($S7 > 150) set $S7,$S7-2; -if ($S7 > 175) set $S7,$S7-3; -if ($S7 < 1) set $S7,1; - -set $fluc,rand (-6,6); -set $S8B,$S8; -set $S8,$S8+$fluc; -if ($S8 < 25) set $S8,$S8+3; -if ($S8 < 50) set $S8,$S8+2; -if ($S8 > 150) set $S8,$S8-2; -if ($S8 > 175) set $S8,$S8-3; -if ($S8 < 1) set $S8,1; - -set $fluc,rand (-6,6); -set $S9B,$S9; -set $S9,$S9+$fluc; -if ($S9 < 25) set $S9,$S9+3; -if ($S9 < 50) set $S9,$S9+2; -if ($S9 > 150) set $S9,$S9-2; -if ($S9 > 175) set $S9,$S9-3; -if ($S9 < 1) set $S9,1; - -set $fluc,rand (-6,6); -set $S10B,$S10; -set $S10,$S10+$fluc; -if ($S10 < 25) set $S10,$S10+3; -if ($S10 < 50) set $S10,$S10+2; -if ($S10 > 150) set $S10,$S10-2; -if ($S10 > 175) set $S10,$S10-3; -if ($S10 < 1) set $S10,1; -end; + set $fluc,rand (-6,6); + set $S1B,$S1; + set $S1,$S1+$fluc; + if ($S1 < 25) set $S1,$S1+3; + if ($S1 < 50) set $S1,$S1+2; + if ($S1 > 150) set $S1,$S1-2; + if ($S1 > 175) set $S1,$S1-3; + if ($S1 < 1) set $S1,1; + + set $fluc,rand (-6,6); + set $S2B,$S2; + set $S2,$S2+$fluc; + if ($S2 < 25) set $S2,$S2+3; + if ($S2 < 50) set $S2,$S2+2; + if ($S2 > 150) set $S2,$S2-2; + if ($S2 > 175) set $S2,$S2-3; + if ($S2 < 1) set $S2,1; + + set $fluc,rand (-6,6); + set $S3B,$S3; + set $S3,$S3+$fluc; + if ($S3 < 25) set $S3,$S3+3; + if ($S3 < 50) set $S3,$S3+2; + if ($S3 > 150) set $S3,$S3-2; + if ($S3 > 175) set $S3,$S3-3; + if ($S3 < 1) set $S3,1; + + set $fluc,rand (-6,6); + set $S4B,$S4; + set $S4,$S4+$fluc; + if ($S4 < 25) set $S4,$S4+3; + if ($S4 < 50) set $S4,$S4+2; + if ($S4 > 150) set $S4,$S4-2; + if ($S4 > 175) set $S4,$S4-3; + if ($S4 < 1) set $S4,1; + + set $fluc,rand (-6,6); + set $S5B,$S5; + set $S5,$S5+$fluc; + if ($S5 < 25) set $S5,$S5+3; + if ($S5 < 50) set $S5,$S5+2; + if ($S5 > 150) set $S5,$S5-2; + if ($S5 > 175) set $S5,$S5-3; + if ($S5 < 1) set $S5,1; + + set $fluc,rand (-6,6); + set $S6B,$S6; + set $S6,$S6+$fluc; + if ($S6 < 25) set $S6,$S6+3; + if ($S6 < 50) set $S6,$S6+2; + if ($S6 > 150) set $S6,$S6-2; + if ($S6 > 175) set $S6,$S6-3; + if ($S6 < 1) set $S6,1; + + set $fluc,rand (-6,6); + set $S7B,$S7; + set $S7,$S7+$fluc; + if ($S7 < 25) set $S7,$S7+3; + if ($S7 < 50) set $S7,$S7+2; + if ($S7 > 150) set $S7,$S7-2; + if ($S7 > 175) set $S7,$S7-3; + if ($S7 < 1) set $S7,1; + + set $fluc,rand (-6,6); + set $S8B,$S8; + set $S8,$S8+$fluc; + if ($S8 < 25) set $S8,$S8+3; + if ($S8 < 50) set $S8,$S8+2; + if ($S8 > 150) set $S8,$S8-2; + if ($S8 > 175) set $S8,$S8-3; + if ($S8 < 1) set $S8,1; + + set $fluc,rand (-6,6); + set $S9B,$S9; + set $S9,$S9+$fluc; + if ($S9 < 25) set $S9,$S9+3; + if ($S9 < 50) set $S9,$S9+2; + if ($S9 > 150) set $S9,$S9-2; + if ($S9 > 175) set $S9,$S9-3; + if ($S9 < 1) set $S9,1; + + set $fluc,rand (-6,6); + set $S10B,$S10; + set $S10,$S10+$fluc; + if ($S10 < 25) set $S10,$S10+3; + if ($S10 < 50) set $S10,$S10+2; + if ($S10 > 150) set $S10,$S10-2; + if ($S10 > 175) set $S10,$S10-3; + if ($S10 < 1) set $S10,1; + end; } -- script Stock Market::stockmarket 109,{ -// Ensures no trading when default prices have not been set // -set @stotal,$S1+$S2+$S3+$S4+$S5+$S6+$S7+$S8+$S9+$S10; -if (@stotal > 0) goto S_Start; -mes "[Stock Market]"; -mes "Trading is currently closed."; -if (getgmlevel() > 90) goto GM_Open; -close; +prontera,140,181,5 script Stock Market::stockmarket 109,{ + // Ensures no trading when default prices have not been set // + set @stotal,$S1+$S2+$S3+$S4+$S5+$S6+$S7+$S8+$S9+$S10; + if (@stotal > 0) goto S_Start; + mes "[Stock Market]"; + mes "Trading is currently closed."; + if (getgmlevel() > 90) goto GM_Open; + close; -// Begining of interface // + // Begining of interface // S_Start: -mes "[Stock Market]"; -mes "Last fluctuation: " + $S_LastUpd$; - -// Loss/Gain in price // -set @S1Update,$S1-$S1B; -set @S2Update,$S2-$S2B; -set @S3Update,$S3-$S3B; -set @S4Update,$S4-$S4B; -set @S5Update,$S5-$S5B; -set @S6Update,$S6-$S6B; -set @S7Update,$S7-$S7B; -set @S8Update,$S8-$S8B; -set @S9Update,$S9-$S9B; -set @S10Update,$S10-$S10B; - -// Makes Loss/Gain Red/Green // -if (@S1Update < 0) set @S1Update$,"^FF0000"+@S1Update+"^000000"; -if (@S1Update > 0) set @S1Update$,"^00FF00+"+@S1Update+"^000000"; -if (@S1Update == 0) set @S1Update$,@S1Update; - -if (@S2Update < 0) set @S2Update$,"^FF0000"+@S2Update+"^000000"; -if (@S2Update > 0) set @S2Update$,"^00FF00+"+@S2Update+"^000000"; -if (@S2Update == 0) set @S2Update$,@S2Update; - -if (@S3Update < 0) set @S3Update$,"^FF0000"+@S3Update+"^000000"; -if (@S3Update > 0) set @S3Update$,"^00FF00+"+@S3Update+"^000000"; -if (@S3Update == 0) set @S3Update$,@S3Update; - -if (@S4Update < 0) set @S4Update$,"^FF0000"+@S4Update+"^000000"; -if (@S4Update > 0) set @S4Update$,"^00FF00+"+@S4Update+"^000000"; -if (@S4Update == 0) set @S4Update$,@S4Update; - -if (@S5Update < 0) set @S5Update$,"^FF0000"+@S5Update+"^000000"; -if (@S5Update > 0) set @S5Update$,"^00FF00+"+@S5Update+"^000000"; -if (@S5Update == 0) set @S5Update$,@S5Update; - -if (@S6Update < 0) set @S6Update$,"^FF0000"+@S6Update+"^000000"; -if (@S6Update > 0) set @S6Update$,"^00FF00+"+@S6Update+"^000000"; -if (@S6Update == 0) set @S6Update$,@S6Update; - -if (@S7Update < 0) set @S7Update$,"^FF0000"+@S7Update+"^000000"; -if (@S7Update > 0) set @S7Update$,"^00FF00+"+@S7Update+"^000000"; -if (@S7Update == 0) set @S7Update$,@S7Update; - -if (@S8Update < 0) set @S8Update$,"^FF0000"+@S8Update+"^000000"; -if (@S8Update > 0) set @S8Update$,"^00FF00+"+@S8Update+"^000000"; -if (@S8Update == 0) set @S8Update$,@S8Update; - -if (@S9Update < 0) set @S9Update$,"^FF0000"+@S9Update+"^000000"; -if (@S9Update > 0) set @S9Update$,"^00FF00+"+@S9Update+"^000000"; -if (@S9Update == 0) set @S9Update$,@S9Update; - -if (@S10Update < 0) set @S10Update$,"^FF0000"+@S10Update+"^000000"; -if (@S10Update > 0) set @S10Update$,"^00FF00+"+@S10Update+"^000000"; -if (@S10Update == 0) set @S10Update$,@S10Update; - -// Displays shares & prices // -mes "^21698F"+$S1N$+"^000000" + " " + $S1 + "z (" + @S1Update$ + ")"; -mes "^21698F"+$S2N$+"^000000" + " " + $S2 + "z (" + @S2Update$ + ")"; -mes "^21698F"+$S3N$+"^000000" + " " + $S3 + "z (" + @S3Update$ + ")"; -mes "^21698F"+$S4N$+"^000000" + " " + $S4 + "z (" + @S4Update$ + ")"; -mes "^21698F"+$S5N$+"^000000" + " " + $S5 + "z (" + @S5Update$ + ")"; -mes "^21698F"+$S6N$+"^000000" + " " + $S6 + "z (" + @S6Update$ + ")"; -mes "^21698F"+$S7N$+"^000000" + " " + $S7 + "z (" + @S7Update$ + ")"; -mes "^21698F"+$S8N$+"^000000" + " " + $S8 + "z (" + @S8Update$ + ")"; -mes "^21698F"+$S9N$+"^000000" + " " + $S9 + "z (" + @S9Update$ + ")"; -mes "^21698F"+$S10N$+"^000000" + " " + $S10 + "z (" + @S10Update$ + ")"; -next; - -// GM Menu link // -if (getgmlevel() > 90) goto GM_subMenu; -menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"Cancel",S_Quit; + mes "[Stock Market]"; + mes "Last fluctuation: " + $S_LastUpd$; + + // Loss/Gain in price // + set @S1Update,$S1-$S1B; + set @S2Update,$S2-$S2B; + set @S3Update,$S3-$S3B; + set @S4Update,$S4-$S4B; + set @S5Update,$S5-$S5B; + set @S6Update,$S6-$S6B; + set @S7Update,$S7-$S7B; + set @S8Update,$S8-$S8B; + set @S9Update,$S9-$S9B; + set @S10Update,$S10-$S10B; + + // Makes Loss/Gain Red/Green // + if (@S1Update < 0) set @S1Update$,"^FF0000"+@S1Update+"^000000"; + if (@S1Update > 0) set @S1Update$,"^00FF00+"+@S1Update+"^000000"; + if (@S1Update == 0) set @S1Update$,@S1Update; + + if (@S2Update < 0) set @S2Update$,"^FF0000"+@S2Update+"^000000"; + if (@S2Update > 0) set @S2Update$,"^00FF00+"+@S2Update+"^000000"; + if (@S2Update == 0) set @S2Update$,@S2Update; + + if (@S3Update < 0) set @S3Update$,"^FF0000"+@S3Update+"^000000"; + if (@S3Update > 0) set @S3Update$,"^00FF00+"+@S3Update+"^000000"; + if (@S3Update == 0) set @S3Update$,@S3Update; + + if (@S4Update < 0) set @S4Update$,"^FF0000"+@S4Update+"^000000"; + if (@S4Update > 0) set @S4Update$,"^00FF00+"+@S4Update+"^000000"; + if (@S4Update == 0) set @S4Update$,@S4Update; + + if (@S5Update < 0) set @S5Update$,"^FF0000"+@S5Update+"^000000"; + if (@S5Update > 0) set @S5Update$,"^00FF00+"+@S5Update+"^000000"; + if (@S5Update == 0) set @S5Update$,@S5Update; + + if (@S6Update < 0) set @S6Update$,"^FF0000"+@S6Update+"^000000"; + if (@S6Update > 0) set @S6Update$,"^00FF00+"+@S6Update+"^000000"; + if (@S6Update == 0) set @S6Update$,@S6Update; + + if (@S7Update < 0) set @S7Update$,"^FF0000"+@S7Update+"^000000"; + if (@S7Update > 0) set @S7Update$,"^00FF00+"+@S7Update+"^000000"; + if (@S7Update == 0) set @S7Update$,@S7Update; + + if (@S8Update < 0) set @S8Update$,"^FF0000"+@S8Update+"^000000"; + if (@S8Update > 0) set @S8Update$,"^00FF00+"+@S8Update+"^000000"; + if (@S8Update == 0) set @S8Update$,@S8Update; + + if (@S9Update < 0) set @S9Update$,"^FF0000"+@S9Update+"^000000"; + if (@S9Update > 0) set @S9Update$,"^00FF00+"+@S9Update+"^000000"; + if (@S9Update == 0) set @S9Update$,@S9Update; + + if (@S10Update < 0) set @S10Update$,"^FF0000"+@S10Update+"^000000"; + if (@S10Update > 0) set @S10Update$,"^00FF00+"+@S10Update+"^000000"; + if (@S10Update == 0) set @S10Update$,@S10Update; + + // Displays shares & prices // + mes "^21698F"+$S1N$+"^000000" + " " + $S1 + "z (" + @S1Update$ + ")"; + mes "^21698F"+$S2N$+"^000000" + " " + $S2 + "z (" + @S2Update$ + ")"; + mes "^21698F"+$S3N$+"^000000" + " " + $S3 + "z (" + @S3Update$ + ")"; + mes "^21698F"+$S4N$+"^000000" + " " + $S4 + "z (" + @S4Update$ + ")"; + mes "^21698F"+$S5N$+"^000000" + " " + $S5 + "z (" + @S5Update$ + ")"; + mes "^21698F"+$S6N$+"^000000" + " " + $S6 + "z (" + @S6Update$ + ")"; + mes "^21698F"+$S7N$+"^000000" + " " + $S7 + "z (" + @S7Update$ + ")"; + mes "^21698F"+$S8N$+"^000000" + " " + $S8 + "z (" + @S8Update$ + ")"; + mes "^21698F"+$S9N$+"^000000" + " " + $S9 + "z (" + @S9Update$ + ")"; + mes "^21698F"+$S10N$+"^000000" + " " + $S10 + "z (" + @S10Update$ + ")"; + next; + + // GM Menu link // + if (getgmlevel() > 90) goto GM_subMenu; + menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"Cancel",S_Quit; GM_subMenu: -menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"GM Menu",GM_Menu,"Cancel",S_Quit; + menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"GM Menu",GM_Menu,"Cancel",S_Quit; -// Selling Shares // + // Selling Shares // S_Sell: mes "[Stock Market]"; mes "Enter the name of the share you wish to sell."; @@ -282,7 +282,7 @@ S_Sell: if (zeny < $S_Trans) goto S_NoZeny; set zeny,zeny-$S_Trans; - SELLS1: +SELLS1: if (@sellname$ != $S1N$) goto SELLS2; if (@sellamount > #S1) goto S_SellTooHigh; set @price,@sellamount*$S1; @@ -294,7 +294,7 @@ S_Sell: next; goto S_Start; - SELLS2: +SELLS2: if (@sellname$ != $S2N$) goto SELLS3; if (@sellamount > #S2) goto S_SellTooHigh; set @price,@sellamount*$S2; @@ -306,7 +306,7 @@ S_Sell: next; goto S_Start; - SELLS3: +SELLS3: if (@sellname$ != $S3N$) goto SELLS4; if (@sellamount > #S3) goto S_SellTooHigh; set @price,@sellamount*$S3; @@ -318,7 +318,7 @@ S_Sell: next; goto S_Start; - SELLS4: +SELLS4: if (@sellname$ != $S4N$) goto SELLS5; if (@sellamount > #S4) goto S_SellTooHigh; set @price,@sellamount*$S4; @@ -330,7 +330,7 @@ S_Sell: next; goto S_Start; - SELLS5: +SELLS5: if (@sellname$ != $S5N$) goto SELLS6; if (@sellamount > #S5) goto S_SellTooHigh; set @price,@sellamount*$S5; @@ -342,7 +342,7 @@ S_Sell: next; goto S_Start; - SELLS6: +SELLS6: if (@sellname$ != $S6N$) goto SELLS7; if (@sellamount > #S6) goto S_SellTooHigh; set @price,@sellamount*$S6; @@ -354,7 +354,7 @@ S_Sell: next; goto S_Start; - SELLS7: +SELLS7: if (@sellname$ != $S7N$) goto SELLS8; if (@sellamount > #S7) goto S_SellTooHigh; set @price,@sellamount*$S7; @@ -366,7 +366,7 @@ S_Sell: next; goto S_Start; - SELLS8: +SELLS8: if (@sellname$ != $S8N$) goto SELLS9; if (@sellamount > #S8) goto S_SellTooHigh; set @price,@sellamount*$S8; @@ -378,7 +378,7 @@ S_Sell: next; goto S_Start; - SELLS9: +SELLS9: if (@sellname$ != $S9N$) goto SELLS10; if (@sellamount > #S9) goto S_SellTooHigh; set @price,@sellamount*$S9; @@ -390,7 +390,7 @@ S_Sell: next; goto S_Start; - SELLS10: +SELLS10: if (@sellname$ != $S10N$) goto SELLS11; if (@sellamount > #S10) goto S_SellTooHigh; set @price,@sellamount*$S10; @@ -402,22 +402,22 @@ S_Sell: next; goto S_Start; - SELLS11: +SELLS11: mes "^FF0000Invalid Share Name.^000000"; next; goto S_Start; - S_SellTooHigh: +S_SellTooHigh: mes "^FF0000You don't have that many shares.^000000"; next; goto S_Start; - S_SellInv: +S_SellInv: mes "^FF0000Invalid integer.^000000"; next; goto S_Start; -// Buying Shares // + // Buying Shares // S_Buy: mes "[Stock Market]"; mes "Available shares:"; @@ -449,7 +449,7 @@ S_Buy: // Purchases the shares // - PURS1: +PURS1: if (@buyname$ != $S1N$) goto PURS2; set @price,@buyamount*$S1; if (zeny < @price) goto S_NoZeny; @@ -461,7 +461,7 @@ S_Buy: next; goto S_Start; - PURS2: +PURS2: if (@buyname$ != $S2N$) goto PURS3; set @price,@buyamount*$S2; if (zeny < @price) goto S_NoZeny; @@ -472,7 +472,7 @@ S_Buy: next; goto S_Start; - PURS3: +PURS3: if (@buyname$ != $S3N$) goto PURS4; set @price,@buyamount*$S3; if (zeny < @price) goto S_NoZeny; @@ -483,7 +483,7 @@ S_Buy: next; goto S_Start; - PURS4: +PURS4: if (@buyname$ != $S4N$) goto PURS5; set @price,@buyamount*$S4; if (zeny < @price) goto S_NoZeny; @@ -494,7 +494,7 @@ S_Buy: next; goto S_Start; - PURS5: +PURS5: if (@buyname$ != $S5N$) goto PURS6; set @price,@buyamount*$S5; if (zeny < @price) goto S_NoZeny; @@ -505,7 +505,7 @@ S_Buy: next; goto S_Start; - PURS6: +PURS6: if (@buyname$ != $S6N$) goto PURS7; set @price,@buyamount*$S6; if (zeny < @price) goto S_NoZeny; @@ -516,7 +516,7 @@ S_Buy: next; goto S_Start; - PURS7: +PURS7: if (@buyname$ != $S7N$) goto PURS8; set @price,@buyamount*$S7; if (zeny < @price) goto S_NoZeny; @@ -527,7 +527,7 @@ S_Buy: next; goto S_Start; - PURS8: +PURS8: if (@buyname$ != $S8N$) goto PURS9; set @price,@buyamount*$S8; if (zeny < @price) goto S_NoZeny; @@ -538,7 +538,7 @@ S_Buy: next; goto S_Start; - PURS9: +PURS9: if (@buyname$ != $S9N$) goto PURS10; set @price,@buyamount*$S9; if (zeny < @price) goto S_NoZeny; @@ -549,7 +549,7 @@ S_Buy: next; goto S_Start; - PURS10: +PURS10: if (@buyname$ != $S10N$) goto PURS11; set @price,@buyamount*$S10; if (zeny < @price) goto S_NoZeny; @@ -560,234 +560,232 @@ S_Buy: next; goto S_Start; - PURS11: +PURS11: goto S_InvName; // Number too low // - S_TooLow: +S_TooLow: mes "^FF0000Minimum of " + $S_BuyMin + " shares can be bought at a time.^000000"; next; goto S_Start; // Number too high // - S_TooHigh: +S_TooHigh: mes "^FF0000Maximum number of " + $S_BuyMax + " shares can be bought at a time.^000000"; next; goto S_Start; - S_NoZeny: +S_NoZeny: mes "^FF0000You do not have enough zeny.^000000"; next; goto S_Start; // Sends user to start if name invalid // - S_InvName: +S_InvName: mes "^FF0000Invalid share name.^000000"; next; goto S_Start; -// Displays your total amount // + // Displays your total amount // S_Port: -mes "[Stock Market]"; + mes "[Stock Market]"; - ACCS1: +ACCS1: if (#S1 < 1) goto ACCS2; set @S1,#S1*$S1; mes $S1N$ + ": " + #S1 + " x " + $S1 + "z = " + @S1 + "z"; - ACCS2: +ACCS2: if (#S2 < 1) goto ACCS3; set @S2,#S2*$S2; mes $S2N$ + ": " + #S2 + " x " + $S2 + "z = " + @S2 + "z"; - ACCS3: +ACCS3: if (#S3 < 1) goto ACCS4; set @S3,#S3*$S3; mes $S3N$ + ": " + #S3 + " x " + $S3 + "z = " + @S3 + "z"; - ACCS4: +ACCS4: if (#S4 < 1) goto ACCS5; set @S4,#S4*$S4; mes $S4N$ + ": " + #S4 + " x " + $S4 + "z = " + @S4 + "z"; - ACCS5: +ACCS5: if (#S5 < 1) goto ACCS6; set @S5,#S5*$S5; mes $S5N$ + ": " + #S5 + " x " + $S5 + "z = " + @S5 + "z"; - ACCS6: +ACCS6: if (#S6 < 1) goto ACCS7; set @S6,#S6*$S6; mes $S6N$ + ": " + #S6 + " x " + $S6 + "z = " + @S6 + "z"; - ACCS7: +ACCS7: if (#S7 < 1) goto ACCS8; set @S7,#S7*$S7; mes $S7N$ + ": " + #S7 + " x " + $S7 + "z = " + @S7 + "z"; - ACCS8: +ACCS8: if (#S8 < 1) goto ACCS9; set @S8,#S8*$S8; mes $S8N$ + ": " + #S8 + " x " + $S8 + "z = " + @S8 + "z"; - ACCS9: +ACCS9: if (#S9 < 1) goto ACCS10; set @S9,#S9*$S9; mes $S9N$ + ": " + #S9 + " x " + $S9 + "z = " + @S9 + "z"; - ACCS10: +ACCS10: if (#S10 < 1) goto ACCS11; set @S10,#S10*$S10; mes $S10N$ + ": " + #S10 + " x " + $S10 + "z = " + @S10 + "z"; // Total // - ACCS11: +ACCS11: set @total,@S1 + @S2 + @S3 + @S4 + @S5 + @S6 + @S7 + @S8 + @S9 + @S10; mes "Total value: "+@total+"z"; next; goto S_Start; -// GM MENU // + // GM MENU // GM_Menu: -mes "[Stock Market]"; -mes "Master, do you require anything?"; -menu "Fluctuate Market",S_Fluc,"Reset Prices",GM_Open,"Nothing",S_Start; + mes "[Stock Market]"; + mes "Master, do you require anything?"; + menu "Fluctuate Market",S_Fluc,"Reset Prices",GM_Open,"Nothing",S_Start; S_Fluc: -set $fluc,rand (-6,6); -set $S1B,$S1; -set $S1,$S1+$fluc; -if ($S1 < 25) set $S1,$S1+3; -if ($S1 < 50) set $S1,$S1+2; -if ($S1 > 150) set $S1,$S1-2; -if ($S1 > 175) set $S1,$S1-3; -if ($S1 < 1) set $S1,1; - -set $fluc,rand (-6,6); -set $S2B,$S2; -set $S2,$S2+$fluc; -if ($S2 < 25) set $S2,$S2+3; -if ($S2 < 50) set $S2,$S2+2; -if ($S2 > 150) set $S2,$S2-2; -if ($S2 > 175) set $S2,$S2-3; -if ($S2 < 2) set $S2,1; - -set $fluc,rand (-6,6); -set $S3B,$S3; -set $S3,$S3+$fluc; -if ($S3 < 25) set $S3,$S3+3; -if ($S3 < 50) set $S3,$S3+2; -if ($S3 > 150) set $S3,$S3-2; -if ($S3 > 175) set $S3,$S3-3; -if ($S3 < 1) set $S3,1; - -set $fluc,rand (-6,6); -set $S4B,$S4; -set $S4,$S4+$fluc; -if ($S4 < 25) set $S4,$S4+3; -if ($S4 < 50) set $S4,$S4+2; -if ($S4 > 150) set $S4,$S4-2; -if ($S4 > 175) set $S4,$S4-3; -if ($S4 < 1) set $S4,1; - -set $fluc,rand (-6,6); -set $S5B,$S5; -set $S5,$S5+$fluc; -if ($S5 < 25) set $S5,$S5+3; -if ($S5 < 50) set $S5,$S5+2; -if ($S5 > 150) set $S5,$S5-2; -if ($S5 > 175) set $S5,$S5-3; -if ($S5 < 1) set $S5,1; - -set $fluc,rand (-6,6); -set $S6B,$S6; -set $S6,$S6+$fluc; -if ($S6 < 25) set $S6,$S6+3; -if ($S6 < 50) set $S6,$S6+2; -if ($S6 > 150) set $S6,$S6-2; -if ($S6 > 175) set $S6,$S6-3; -if ($S6 < 1) set $S6,1; - -set $fluc,rand (-6,6); -set $S7B,$S7; -set $S7,$S7+$fluc; -if ($S7 < 25) set $S7,$S7+3; -if ($S7 < 50) set $S7,$S7+2; -if ($S7 > 150) set $S7,$S7-2; -if ($S7 > 175) set $S7,$S7-3; -if ($S7 < 1) set $S7,1; - -set $fluc,rand (-6,6); -set $S8B,$S8; -set $S8,$S8+$fluc; -if ($S8 < 25) set $S8,$S8+3; -if ($S8 < 50) set $S8,$S8+2; -if ($S8 > 150) set $S8,$S8-2; -if ($S8 > 175) set $S8,$S8-3; -if ($S8 < 1) set $S8,1; - -set $fluc,rand (-6,6); -set $S9B,$S9; -set $S9,$S9+$fluc; -if ($S9 < 25) set $S9,$S9+3; -if ($S9 < 50) set $S9,$S9+2; -if ($S9 > 150) set $S9,$S9-2; -if ($S9 > 175) set $S9,$S9-3; -if ($S9 < 1) set $S9,1; - -set $fluc,rand (-6,6); -set $S10B,$S10; -set $S10,$S10+$fluc; -if ($S10 < 25) set $S10,$S10+3; -if ($S10 < 50) set $S10,$S10+2; -if ($S10 > 150) set $S10,$S10-2; -if ($S10 > 175) set $S10,$S10-3; -if ($S10 < 1) set $S10,1; - -set $S_LastUpd$,"GM Fluctuation"; -mes "Market fluctuated."; -close; + set $fluc,rand (-6,6); + set $S1B,$S1; + set $S1,$S1+$fluc; + if ($S1 < 25) set $S1,$S1+3; + if ($S1 < 50) set $S1,$S1+2; + if ($S1 > 150) set $S1,$S1-2; + if ($S1 > 175) set $S1,$S1-3; + if ($S1 < 1) set $S1,1; + + set $fluc,rand (-6,6); + set $S2B,$S2; + set $S2,$S2+$fluc; + if ($S2 < 25) set $S2,$S2+3; + if ($S2 < 50) set $S2,$S2+2; + if ($S2 > 150) set $S2,$S2-2; + if ($S2 > 175) set $S2,$S2-3; + if ($S2 < 2) set $S2,1; + + set $fluc,rand (-6,6); + set $S3B,$S3; + set $S3,$S3+$fluc; + if ($S3 < 25) set $S3,$S3+3; + if ($S3 < 50) set $S3,$S3+2; + if ($S3 > 150) set $S3,$S3-2; + if ($S3 > 175) set $S3,$S3-3; + if ($S3 < 1) set $S3,1; + + set $fluc,rand (-6,6); + set $S4B,$S4; + set $S4,$S4+$fluc; + if ($S4 < 25) set $S4,$S4+3; + if ($S4 < 50) set $S4,$S4+2; + if ($S4 > 150) set $S4,$S4-2; + if ($S4 > 175) set $S4,$S4-3; + if ($S4 < 1) set $S4,1; + + set $fluc,rand (-6,6); + set $S5B,$S5; + set $S5,$S5+$fluc; + if ($S5 < 25) set $S5,$S5+3; + if ($S5 < 50) set $S5,$S5+2; + if ($S5 > 150) set $S5,$S5-2; + if ($S5 > 175) set $S5,$S5-3; + if ($S5 < 1) set $S5,1; + + set $fluc,rand (-6,6); + set $S6B,$S6; + set $S6,$S6+$fluc; + if ($S6 < 25) set $S6,$S6+3; + if ($S6 < 50) set $S6,$S6+2; + if ($S6 > 150) set $S6,$S6-2; + if ($S6 > 175) set $S6,$S6-3; + if ($S6 < 1) set $S6,1; + + set $fluc,rand (-6,6); + set $S7B,$S7; + set $S7,$S7+$fluc; + if ($S7 < 25) set $S7,$S7+3; + if ($S7 < 50) set $S7,$S7+2; + if ($S7 > 150) set $S7,$S7-2; + if ($S7 > 175) set $S7,$S7-3; + if ($S7 < 1) set $S7,1; + + set $fluc,rand (-6,6); + set $S8B,$S8; + set $S8,$S8+$fluc; + if ($S8 < 25) set $S8,$S8+3; + if ($S8 < 50) set $S8,$S8+2; + if ($S8 > 150) set $S8,$S8-2; + if ($S8 > 175) set $S8,$S8-3; + if ($S8 < 1) set $S8,1; + + set $fluc,rand (-6,6); + set $S9B,$S9; + set $S9,$S9+$fluc; + if ($S9 < 25) set $S9,$S9+3; + if ($S9 < 50) set $S9,$S9+2; + if ($S9 > 150) set $S9,$S9-2; + if ($S9 > 175) set $S9,$S9-3; + if ($S9 < 1) set $S9,1; + + set $fluc,rand (-6,6); + set $S10B,$S10; + set $S10,$S10+$fluc; + if ($S10 < 25) set $S10,$S10+3; + if ($S10 < 50) set $S10,$S10+2; + if ($S10 > 150) set $S10,$S10-2; + if ($S10 > 175) set $S10,$S10-3; + if ($S10 < 1) set $S10,1; + + set $S_LastUpd$,"GM Fluctuation"; + mes "Market fluctuated."; + close; GM_Open: -menu "Set prices to...",GM_Set,"Cancel",-; -mes "Farewell."; -close; + menu "Set prices to...",GM_Set,"Cancel",-; + mes "Farewell."; + close; GM_Set: -mes "Are you sure you want to reset?"; -mes "^FF0000All share values will become the same.^000000"; -next; -menu "Yes",-,"No",GM_Menu; -set @gmset,0; -input @gmset; -set $S1,@gmset; -set $S2,@gmset; -set $S3,@gmset; -set $S4,@gmset; -set $S5,@gmset; -set $S6,@gmset; -set $S7,@gmset; -set $S8,@gmset; -set $S9,@gmset; -set $S10,@gmset; -set $S1B,@gmset; -set $S2B,@gmset; -set $S3B,@gmset; -set $S4B,@gmset; -set $S5B,@gmset; -set $S6B,@gmset; -set $S7B,@gmset; -set $S8B,@gmset; -set $S9B,@gmset; -set $S10B,@gmset; -mes "All prices changed to " + @gmset + "z."; -close; + mes "Are you sure you want to reset?"; + mes "^FF0000All share values will become the same.^000000"; + next; + menu "Yes",-,"No",GM_Menu; + set @gmset,0; + input @gmset; + set $S1,@gmset; + set $S2,@gmset; + set $S3,@gmset; + set $S4,@gmset; + set $S5,@gmset; + set $S6,@gmset; + set $S7,@gmset; + set $S8,@gmset; + set $S9,@gmset; + set $S10,@gmset; + set $S1B,@gmset; + set $S2B,@gmset; + set $S3B,@gmset; + set $S4B,@gmset; + set $S5B,@gmset; + set $S6B,@gmset; + set $S7B,@gmset; + set $S8B,@gmset; + set $S9B,@gmset; + set $S10B,@gmset; + mes "All prices changed to " + @gmset + "z."; + close; S_Quit: -mes "[Stock Market]"; -mes "Goodbye."; -close; + mes "[Stock Market]"; + mes "Goodbye."; + close; } - -prontera,140,181,5 duplicate(stockmarket) Stock Market 109 |