root/npc/custom/eAAC_Scripts/messageboards.txt @ 1

Revision 1, 12.7 kB (checked in by jinshiro, 17 years ago)
RevLine 
[1]1geffen,122,102,4        script  Message Man     774,{
2mes "[Robert]";
3mes "Hello, I am here to serve you. Enjoy my service. ^_-";
4next;
5mes "[Robert]";
6mes "Please keep in mind, that all messages are wiped once every two days";
7mes "-Msg From Creator- In new version this will be set able, look forward to this! -End Msg From Creator-";
8next;
9L_Menu01:
10mes "[Robert]";
11mes "What would you like to do??";
12next;
13if((getgmlevel() >= 90)) menu "Public board",L_pubgmmenu,"Gm Board",L_gmmenu,"Close Public Board",L_clospub,"Open Public Board",L_openpub;
14if(($messagepubclose == 1)) goto L_pubclosed;
15menu "Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave;
16L_pubgmmenu:
17if(($messagepubclose == 1)) goto L_pubclosed;
18menu "Re-set the rotation",L_setrot,"Reset Message",L_Clearmsgs,"Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave;
19L_gmmenu:
20menu "Read messages!",L_gmboardread,"Post a Message!",L_gmboardpost,"Reset Messages",L_gmboardreset;
21
22L_openpub:
23mes "[Robert]";
24mes "Are you sure?";
25menu "Yes",-,"No",L_openpubn;
26mes "[Robert]";
27mes "It is done.";
28close2;
29set $messagepubclose,0;
30end;
31
32L_openpubn:
33mes "[Robert]";
34mes "Very well it shall remain closed.";
35close;
36
37L_pubclosed:
38mes "[Robert]";
39mes "Im sorry. The public boards are currently Closed.";
40close;
41
42L_clospub:
43mes "[Robert]";
44mes "Are you sure?";
45next;
46menu "Yes.",-,"No",L_closepubn;
47mes "[Robert]";
48mes "Very well I will not allow anyone into the public board.";
49close2;
50set $messagepubclose,1;
51end;
52
53L_closepubn:
54mes "[Robert]";
55mes "Have a nice day";
56close;
57
58L_gmboardreset:
59mes "[Robert]";
60mes "This will require atleast 2 GM's approval to reset the gm board.";
61mes "-Msg From Creator- This is bugged same gm can vote twice. Planned to revise in next version. -End Msg From Creator-";
62next;
63menu "Vote for reset.",L_gmboardresetvote,"Back to main.",L_Menu01,"Leave.",L_leave;
64
65L_gmboardresetvote:
66callfunc "F_gmresetcheck";
67set @tempid,getcharid(0);
68set $gmboardresetvotenumb,$gmboardresetvotenumb+1;
69set $gmboardresetvoted[$gmboardresetvotenumb],1;
70set $gmboardresetvoteid[$gmboardresetvotenumb],@tempid;
71set @tempid,0;
72set $gmboardreset,$gmboardreset-1;
73mes "[Robert]";
74mes "Thank you.";
75next;
76if(($gmboardreset == 0)) goto L_gmresetdone;
77if(($gmboardreset >= 1)) goto L_gmresetnotdone;
78close;
79
80L_gmresetdone:
81deletearray $gmmessageboardpost$[1],$gmmessageboardpostnumber;
82deletearray $gmmessageboardpostdate$[1],$gmmessageboardpostnumber;
83deletearray $gmmessageboardpostname$[1],$gmmessageboardpostnumber;
84deletearray $gmmessageboardeditdate$[1],$gmmessageboardpostnumber;
85deletearray $gmboardresetvoted[1],$gmboardresetvotenumber;
86deletearray $gmboardresetvoted[1],$gmboardresetvotenumber;
87deletearray $gmboardresetvoteid[1],$gmboardresetvotenumber;
88set $gmboardresetvotenumber,0;
89set $gmboardreset,2;
90mes "[Robert]";
91mes "The reset has been done.";
92close;
93
94L_gmresetnotdone:
95mes "[Robert]";
96mes "There needs to be "+$gmboardreset+" more gm(s) approval to do the reset.";
97close;
98
99L_gmboardread:
100if(($gmmessageboardpostnumber == 0)) goto L_msgno;
101callfunc "F_gmmessage";
102end;
103
104L_gmboardpost:
105if(($gmmessageboardpostnumber >= 127)) goto L_postmsgyestm;
106set @gmmessageboardpostername$,strcharinfo(0);
107set @gmmessageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21);
108set $gmmessageboardpostnumber,$gmmessageboardpostnumber+1;
109input @gmmsgboardmsgt$;
110set $gmmessageboardpost$[$gmmessageboardpostnumber],@gmmsgboardmsgt$;
111set $gmmessageboardpostdate$[$gmmessageboardpostnumber],@gmmessageboarddate$;
112set $gmmessageboardpostname$[$gmmessageboardpostnumber],@gmmessageboardpostername$;
113mes "[Robert]";
114mes "Here is what your message looks like";
115next;
116mes "Posted by: "+$gmmessageboardpostname$[$gmmessageboardpostnumber]+".";
117mes "On: "+$gmmessageboardpostdate$[$gmmessageboardpostnumber]+".";
118mes $gmmessageboardpost$[$gmmessageboardpostnumber];
119close;
120
121
122L_setrot:
123set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages.
124if(($@determinedayrotation == 0)) set $rotation,0;
125if(($@determinedayrotation == 1)) set $rotation,1;
126if(($@determinedayrotation == 2)) set $rotation,0;
127if(($@determinedayrotation == 3)) set $rotation,1;
128if(($@determinedayrotation == 4)) set $rotation,0;
129if(($@determinedayrotation == 5)) set $rotation,1;
130if(($@determinedayrotation == 6)) set $rotation,0;
131mes "It is done.";
132close;
133
134L_Clearmsgs:
135mes "[Robert]";
136mes "Are you sure?";
137next;
138menu "Yes",L_clearmsgsy,"No thanks.",L_Menu01;
139
140L_clearmsgsy:
141deletearray $messageboardpost$[1],$messageboardpostnumber;
142deletearray $messageboardpostdate$[1],$messageboardpostnumber;
143deletearray $messageboardpostname$[1],$messageboardpostnumber;
144deletearray $messageboardeditdate$[1],$messageboardpostnumber;
145deletearray $mymessage[1],$messageboardpostnumber;
146set $messageboardpostnumber,0;
147mes "[Robert]";
148mes "It is done.";
149close;
150
151L_leave:
152close;
153
154L_Postmsg:
155mes "[Robert]";
156mes "What do you want to say in your message?";
157next;
158set @msgboardmsgt$,0;
159input @msgboardmsgt$;
160mes "[Robert]";
161mes "are you sure this is the message you want?";
162mes @msgboardmsgt$;
163next;
164menu "Yes!",L_postmsgyes,"No let me re-do it!",L_Postmsg,"Ive changed my mind let me leave.",lleave;
165
166L_postmsgyes:
167if(($messageboardpostnumber >= 127)) goto L_postmsgyestm;
168set @messageboardpostername$,strcharinfo(0);
169set @messageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21);
170set $messageboardpostnumber,$messageboardpostnumber+1;
171set @mymessage2,$messageboardpostnumber;
172set $mymessage[$messageboardpostnumber],5;
173set $messageboardpost$[$messageboardpostnumber],@msgboardmsgt$;
174set $messageboardpostdate$[$messageboardpostnumber],@messageboarddate$;
175set $messageboardpostname$[$messageboardpostnumber],@messageboardpostername$;
176mes "[Robert]";
177mes "here is what your message looks like";
178next;
179mes "Posted by: "+$messageboardpostname$[$messageboardpostnumber]+".";
180mes "On: "+$messageboardpostdate$[$messageboardpostnumber]+".";
181mes $messageboardpost$[$messageboardpostnumber];
182close;
183
184L_postmsgyestm:
185set @mesboardmsgt$,0;
186mes "[Robert]";
187mes "Im sorry your going to have to wait till more space opens up for messages, it should be in 1 or 2 days =)";
188close;
189
190lleave:
191deletearray $messageboardpost$[@tempview],@tempview;
192deletearray $messageboardpostname$[@tempview],@tempview;
193deletearray $messageboardpostdate$[@tempview],@tempview;
194deletearray $mymessage[@tempview],@tempview;
195set $messageboardpostnumber,$messageboardpostnumber-1;
196set @msgboardmsgt$,0;
197close;
198
199L_readmsg:
200if(($messageboardpostnumber == 0)) goto L_msgno;
201callfunc "F_message";
202end;
203
204L_msgno:
205mes "[Robert]";
206mes "There are currently no messages.";
207close;
208
209OnInit:
210set $gmboardreset,2;
211set $gmboardresetvotenumb,0;
212end;
213
214OnInterIfInitOnce:
215set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages.
216if(($@determinedayrotation == 0)) set $rotation,0;
217if(($@determinedayrotation == 1)) set $rotation,1;
218if(($@determinedayrotation == 2)) set $rotation,0;
219if(($@determinedayrotation == 3)) set $rotation,1;
220if(($@determinedayrotation == 4)) set $rotation,0;
221if(($@determinedayrotation == 5)) set $rotation,1;
222if(($@determinedayrotation == 6)) set $rotation,0;
223end;
224
225
226OnSun1200:
227if(($rotation == 1)) end;
228deletearray $messageboardpost$[1],$messageboardpostnumber;
229deletearray $messageboardpostdate$[1],$messageboardpostnumber;
230deletearray $messageboardpostname$[1],$messageboardpostnumber;
231deletearray $mymessage[1],$messageboardpostnumber;
232set $messageboardpostnumber,0;
233end;
234
235OnSat1200:
236if(($rotation == 0)) end;
237deletearray $messageboardpost$[1],$messageboardpostnumber;
238deletearray $messageboardpostdate$[1],$messageboardpostnumber;
239deletearray $messageboardpostname$[1],$messageboardpostnumber;
240deletearray $mymessage[1],$messageboardpostnumber;
241set $messageboardpostnumber,0;
242end;
243
244OnMon1200:
245if(($rotation == 1)) end;
246deletearray $messageboardpost$[1],$messageboardpostnumber;
247deletearray $messageboardpostdate$[1],$messageboardpostnumber;
248deletearray $messageboardpostname$[1],$messageboardpostnumber;
249deletearray $mymessage[1],$messageboardpostnumber;
250set $messageboardpostnumber,0;
251end;
252
253OnTue1200:
254if(($rotation == 0)) end;
255deletearray $messageboardpost$[1],$messageboardpostnumber;
256deletearray $messageboardpostdate$[1],$messageboardpostnumber;
257deletearray $messageboardpostname$[1],$messageboardpostnumber;
258deletearray $mymessage[1],$messageboardpostnumber;
259set $messageboardpostnumber,0;
260end;
261
262OnWed1200:
263if(($rotation == 1)) end;
264deletearray $messageboardpost$[1],$messageboardpostnumber;
265deletearray $messageboardpostdate$[1],$messageboardpostnumber;
266deletearray $messageboardpostname$[1],$messageboardpostnumber;
267deletearray $mymessage[1],$messageboardpostnumber;
268set $messageboardpostnumber,0;
269end;
270
271OnThu1200:
272if(($rotation == 0)) end;
273deletearray $messageboardpost$[1],$messageboardpostnumber;
274deletearray $messageboardpostdate$[1],$messageboardpostnumber;
275deletearray $messageboardpostname$[1],$messageboardpostnumber;
276deletearray $mymessage[1],$messageboardpostnumber;
277set $messageboardpostnumber,0;
278end;
279
280OnFri1200:
281if(($rotation == 1)) end;
282deletearray $messageboardpost$[1],$messageboardpostnumber;
283deletearray $messageboardpostdate$[1],$messageboardpostnumber;
284deletearray $messageboardpostname$[1],$messageboardpostnumber;
285deletearray $mymessage[@tempview],@tempview;
286set $messageboardpostnumber,0;
287end;
288}
289
290function        script  F_gmresetcheck  {
291set @tempcheck,0;
292L_top:
293set @tempcheck,@tempcheck+1;
294if(($gmboardresetvoted[@tempview] == 1)) goto L_votecheck;
295if(($gmboardresetvoted[@tempview] == 0)) return;
296goto L_top;
297end;
298
299L_votecheck:
300set @tempcheckid,0;
301set @tempcheckid,getcharid(0);
302if(($gmboardresetvoteid[@tempview] != @tempcheckid)) goto L_top;
303if(($gmboardresetvoteid[@tempview] == @tempcheckid)) goto L_voted;
304end;
305}
306
307function        script  F_gmmessage     {
308set @tempview,0;
309L_top:
310set @tempview,@tempview+1;
311mes "Posted By: "+$gmmessageboardpostname$[@tempview]+".";
312mes "On: "+$gmmessageboardpostdate$[@tempview]+".";
313mes $gmmessageboardpost$[@tempview]+".";
314menu "Next Message",L_top2;
315
316L_top2:
317if(($gmmessageboardpostnumber > @tempview)) goto L_top;
318close;
319}
320
321function        script  F_message       {
322set @tempview,0;
323L_top:
324set @tempview,@tempview+1;
325mes "Posted By: "+$messageboardpostname$[@tempview]+".";
326mes "On: "+$messageboardpostdate$[@tempview]+".";
327mes $messageboardpost$[@tempview]+".";
328next;
329if(($mymessage[@tempview] == 5) && (getgmlevel()>0)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy,"Delete This message",L_Del;
330if((getgmlevel()>0))  menu "Next Message",L_top2,"Delete This message",L_Del;
331if(($mymessage[@tempview] == 5)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy;
332menu "Next message",L_top2;
333close;
334
335L_editmy:
336mes "Are you sure?";
337next;
338menu "Yes",L_editmyy,"No",L_editmyn;
339
340L_editmyy:
341mes "what do you want your new message to be?";
342next;
343mes "Current message!";
344mes $messageboardpost$[@tempview];
345set @tempeditmsg$,0;
346input @tempeditmsg$;
347next;
348mes "is this what you want?";
349mes @tempeditmsg$;
350next;
351menu "Yes!",L_editmyyy,"No.",L_editmyyn;
352
353L_editmyyy:
354deletearray $messageboardpost$[@tempview],@tempview;
355set $messageboardpost$[@tempview],@tempeditmsg$;
356mes "Here is what your new message looks like.";
357next;
358mes "Posted By: "+$messageboardpostname$[@tempview]+".";
359mes "On: "+$messageboardpostdate$[@tempview]+".";
360mes $messageboardpost$[@tempview]+".";
361close2;
362set @tempview,0;
363end;
364
365L_editmyn:
366Mes "So be it.";
367set @tempview,0;
368close;
369
370L_editmyyn:
371mes "So be it!";
372set @tempeditmsg$,0;
373set @tempview,0;
374close;
375
376L_delmy:
377mes "Are you sure...?";
378next;
379menu "Yes",L_delmyy,"No thanks.",L_delmyn;
380
381L_delmyy:
382deletearray $messageboardpost$[@tempview],@tempview;
383deletearray $messageboardpostname$[@tempview],@tempview;
384deletearray $messageboardpostdate$[@tempview],@tempview;
385deletearray $mymessage[@tempview],@tempview;
386deletearray $messageboardeditdate$[@tempview],@tempview;
387set $messageboardpostnumber,$messageboardpostnumber-1;
388set @tempview,0;
389mes "It is done.";
390close;
391
392L_delmyn:
393mes "Come back soon.";
394set @tempview,0;
395close;
396
397L_top2:
398if(($messageboardpostnumber > @tempview)) goto L_top;
399close;
400
401L_Del:
402mes "Are you sure?";
403next;
404menu "Yes",L_Dely,"No",L_Deln;
405
406L_Dely:
407deletearray $messageboardpost$[@tempview],@tempview;
408deletearray $messageboardpostname$[@tempview],@tempview;
409deletearray $messageboardpostdate$[@tempview],@tempview;
410deletearray $mymessage[@tempview],@tempview;
411deletearray $messageboardeditdate$[@tempview],@tempview;
412set $messageboardpostnumber,$messageboardpostnumber-1;
413mes "It is done.";
414set @tempview,0;
415close;
416
417L_Deln:
418mes "Come back soon!";
419set @tempview,0;
420close;
421}
Note: See TracBrowser for help on using the browser.