root/npc/custom/rpsroulette.txt @ 3

Revision 1, 5.7 kB (checked in by jinshiro, 17 years ago)
Line 
1//===== eAthena Script =======================================
2//= Rock Scissors Roulette Script
3//===== By: ==================================================
4//= acky (1.1)
5//===== Current Version: =====================================
6//= 1.2
7//===== Compatible With: =====================================
8//= Any eAthena Version
9//===== Description: =========================================
10//= Plays a hybrid Russian Roulette Rock Scissors Paper game.
11//===== Additional Comments: =================================
12//= Prizes customisable, Added emotions.
13//= 1.2 Fixes by Blackthunder and me [Poki#3]
14//============================================================
15
16cmd_in02,182,126,2      script  Crazy Boris     85,{
17        mes "Crazy Boris";
18        set @counter,1;
19        mes "Hey you! Up for Rock Scissors Roulette?";
20        next;
21        menu "Let me play.",PLAY,"Explain the rules.",RULES,"Leave",LEAVE;
22        SAME:
23        mes "Draw! Again!";
24        next;
25        goto PLAY;
26
27WIN:
28        mes "Damnit, You Win!";
29        emotion 19;
30        next;
31        goto OPPPULL;
32
33LOSE:
34        emotion 18;
35        mes "Boorah! You Lose!";
36        next;
37        goto YOUPULL;
38
39PLAY:
40        mes "Rock... Paper...";
41        set @opp,rand (1,3);
42        menu "^0000FFROCK!",ROCK,"^FF0000SCISSORS!",SCISSORS,"^00FF00PAPER!^000000",PAPER;
43
44ROCK:
45        if (@lastchoice == 1) set @opp,rand (1,3);
46        if (@opp == 1) emotion 11;
47        if (@opp == 2) emotion 10;
48        if (@opp == 3) emotion 12;
49        set @lastchoice,1;
50        if (@opp == 1) goto SAME;
51        if (@opp == 2) goto WIN;
52        if (@opp == 3) goto LOSE;
53
54SCISSORS:
55        if (@lastchoice == 2) set @opp,rand (1,2);
56        if (@opp == 1) emotion 11;
57        if (@opp == 2) emotion 10;
58        if (@opp == 3) emotion 12;
59        set @lastchoice,2;
60        if (@opp == 1) goto LOSE;
61        if (@opp == 2) goto SAME;
62        if (@opp == 3) goto WIN;
63
64PAPER:
65        if (@lastchoice == 3) set @opp,rand (2,3);
66        if (@opp == 1) emotion 11;
67        if (@opp == 2) emotion 10;
68        if (@opp == 3) emotion 12;
69        set @lastchoice,3;
70        if (@opp == 1) goto WIN;
71        if (@opp == 2) goto LOSE;
72        if (@opp == 3) goto SAME;
73
74YOUPULL:
75        if (@counter == 1) goto ONE;
76        if (@counter == 2) goto TWO;
77        if (@counter == 3) goto THREE;
78        if (@counter == 4) goto FOUR;
79        if (@counter == 5) goto FIVE;
80        if (@counter == 6) goto SIX;
81
82OPPPULL:
83        if (@counter == 1) goto ONEa;
84        if (@counter == 2) goto TWOa;
85        if (@counter == 3) goto THREEa;
86        if (@counter == 4) goto FOURa;
87        if (@counter == 5) goto FIVEa;
88        if (@counter == 6) goto SIXa;
89
90ONE:
91        set @counter,2;
92        mes "1 of 6";
93        set @pull,rand (1,6);
94        next;
95        if (@pull == 1) goto DIE;
96        if (@pull != 1) goto SAFE;
97
98TWO:
99        set @counter,3;
100        mes "2 of 6";
101        set @pull,rand (1,5);
102        next;
103        if (@pull == 1) goto DIE;
104        if (@pull != 1) goto SAFE;
105
106THREE:
107        set @counter,4;
108        mes "3 of 6";
109        set @pull,rand (1,4);
110        next;
111        if (@pull == 1) goto DIE;
112        if (@pull != 1) goto SAFE;
113
114FOUR:
115        set @counter,5;
116        mes "4 of 6";
117        set @pull,rand (1,3);
118        next;
119        if (@pull == 1) goto DIE;
120        if (@pull != 1) goto SAFE;
121
122FIVE:
123        set @counter,6;
124        mes "5 of 6";
125        set @pull,rand (1,2);
126        if (@pull == 1) set @pull,rand (1,2);
127        next;
128        if (@pull == 1) goto DIE;
129        if (@pull != 1) goto SAFE;
130
131SIX:
132        mes "6 of 6";
133        mes "Say your prayers";
134        set @pull,1;
135        next;
136        if (@pull == 1) goto DIE;
137        if (@pull != 1) goto SAFE;
138
139ONEa:
140        set @counter,2;
141        mes "1 of 6";
142        set @pull,rand (1,6);
143        next;
144        if (@pull == 1) goto KILL;
145        if (@pull != 1) goto SAFE;
146
147TWOa:
148        set @counter,3;
149        mes "2 of 6";
150        set @pull,rand (1,5);
151        next;
152        if (@pull == 1) goto KILL;
153        if (@pull != 1) goto SAFE;
154
155THREEa:
156        set @counter,4;
157        mes "3 of 6";
158        set @pull,rand (1,4);
159        next;
160        if (@pull == 1) goto KILL;
161        if (@pull != 1) goto SAFE;
162
163FOURa:
164        set @counter,5;
165        mes "4 of 6";
166        set @pull,rand (1,3);
167        next;
168        if (@pull == 1) goto KILL;
169        if (@pull != 1) goto SAFE;
170
171FIVEa:
172        set @counter,6;
173        mes "5 of 6";
174        set @pull,rand (1,2);
175        next;
176        if (@pull == 1) goto KILL;
177        if (@pull != 1) goto SAFE;
178
179SIXa:
180        mes "6 of 6";
181        mes "Say your prayers";
182        set @pull,1;
183        next;
184        if (@pull == 1) goto KILL;
185        if (@pull != 1) goto SAFE;
186
187SAFE:
188        emotion 32;
189        mes "*^0000FFClick^000000* whew...";
190        goto PLAY;
191
192DIE:
193        specialeffect2 183;
194        emotion 29;
195        percentheal -100,-100;
196        mes "*^0000FFClick^000000* *^FF0000BANG^000000*";
197        mes "You're dead!";
198        close;
199
200KILL:
201        specialeffect 183;
202        emotion 23;
203        mes "*^0000FFClick^000000* *^FF0000BANG^000000*";
204        mes "OWWW @#$%^!! THAT HURT LIKE HELL!!";
205        next;
206        goto PRIZE;
207
208RULES:
209        mes "Ok here are the rules:";
210        mes "I have with me a ^FF00006^000000 chamber pistol with ^FF00001^000000 round. First we play ^FF0000Scissors ^00FF00Paper ^0000FFRock^000000. The loser pulls the trigger. The winner is whoever comes out best.";
211        mes "Beat me to win a prize.";
212        menu "Let me play.",CONT,"No thanks.",LEAVE;
213
214CONT:
215        mes "Ok here we go...";
216        next;
217        goto PLAY;
218
219PRIZE:
220        mes "Congratulations! You have won...";
221        set @prize,rand (1,10);
222        if (@prize == 1) goto P1;
223        if (@prize == 2) goto P2;
224        if (@prize == 3) goto P3;
225        if (@prize == 4) goto P4;
226        if (@prize == 5) goto P5;
227        if (@prize == 6) goto P6;
228        if (@prize == 7) goto P7;
229        if (@prize == 8) goto P8;
230        if (@prize == 9) goto P9;
231        if (@prize == 10) goto P10;
232
233P1:
234        mes "10x Oridicon!";
235        getitem 984,10;
236        close;
237
238P2:
239        mes "10x Elunium!";
240        getitem 985,10;
241        close;
242
243P3:
244        mes "100x Fly Wings!";
245        getitem 601,100;
246        close;
247
248P4:
249        mes "8x Old Blue Box!";
250        getitem 603,8;
251        close;
252
253P5:
254        mes "4x Old Violet Box!";
255        getitem 617,4;
256        close;
257
258P6:
259        mes "1x Old Card Album!";
260        getitem 616,1;
261        close;
262
263P7:
264        mes "10x Dead Branch!";
265        getitem 604,10;
266        close;
267
268P8:
269        mes "3x Gold!";
270        getitem 969,3;
271        close;
272
273P9:
274        mes "10x Elunium!";
275        getitem 985,10;
276        close;
277
278P10:
279        mes "20x Blue Potion!";
280        getitem 505,20;
281        close;
282
283LEAVE:
284        mes "Pansy.";
285        close;
286}
Note: See TracBrowser for help on using the browser.