| // MorgenGrauen MUDlib |
| // |
| // newsclient.c -- Nachrichtenbretter |
| // |
| // $Id: newsclient.c 8349 2013-02-04 21:15:28Z Zesstra $ |
| |
| /* 1992 JOF */ |
| #pragma strong_types |
| #pragma save_types |
| #pragma no_clone |
| #pragma range_check |
| #pragma pedantic |
| |
| inherit "/std/thing"; |
| inherit "/std/more"; |
| |
| #include <config.h> |
| #include <properties.h> |
| #include <news.h> |
| #include <wizlevels.h> |
| #include <language.h> |
| #include <defines.h> |
| #include <input_to.h> |
| |
| string GROUP; |
| string writer; |
| string usemsg; |
| |
| void SetInUseMessage(string str) |
| { |
| usemsg=str; |
| } |
| |
| string SetGroup(string str) |
| { |
| return GROUP=str; |
| } |
| |
| protected void create() |
| { |
| thing::create(); |
| writer==""; |
| |
| } |
| |
| void thinginit() /* If someone doesnt want our add_action he may call this */ |
| { |
| thing::init(); |
| } |
| |
| varargs int remove(int silent) |
| { |
| return thing::remove(); |
| } |
| |
| void init() |
| { |
| thing::init(); |
| add_action("schreib","schreib",1); |
| add_action("lies","lies"); |
| add_action("loesche","loesch",1); |
| } |
| |
| string ladj(string str, int weite) |
| { |
| return((str+" ")[0..weite-1]); |
| } |
| |
| string QueryLong() |
| { |
| mixed *messages; |
| string desc; |
| int i; |
| |
| desc=QueryProp(P_LONG); |
| desc+="\n"; |
| messages=NEWSSERVER->GetNotes(GROUP); |
| if (!pointerp(messages) || !sizeof(messages)) |
| return desc+"Zur Zeit befinden sich keine Nachrichten am Brett.\n"; |
| if (sizeof(messages)==1) |
| desc+="Zur Zeit befindet sich eine Nachricht am Brett:\n\n"; |
| else |
| desc+="Zur Zeit befinden sich "+sizeof(messages)+" Nachrichten am Brett:\n\n"; |
| for (i=0;i<sizeof(messages);i++) |
| { |
| if (i<9) desc+=" "; |
| desc+=""+(i+1)+". "; |
| desc+=(ladj(messages[i][M_TITLE],45)+" ("+ |
| ladj(messages[i][M_WRITER]+",",13)+ |
| dtime(messages[i][M_TIME])[4..24] + ")\n"); |
| } |
| return desc; |
| } |
| |
| varargs string long(int mode) |
| { |
| return QueryLong(); |
| } |
| |
| mixed *message; |
| |
| int schreib(string str) |
| { |
| int err; |
| |
| if (!this_interactive() || !this_interactive()->query_real_name()) return 0; |
| if (writer) |
| { |
| write("Das geht im Moment nicht, da "+capitalize(writer)+" gerade an diesem Brett schreibt.\n"); |
| if (usemsg) write(usemsg+"\n"); |
| return 1; |
| } |
| _notify_fail("Du musst einen Titel fuer die Notiz angeben !\n"); |
| if (!str) return 0; |
| switch (err=NEWSSERVER->AskAllowedWrite(GROUP)) |
| { |
| case 1: break; |
| case -1: write("Du darfst keine Notes an dieses Brett heften !\n"); return 1; |
| case -3: write("Das Brett ist leider voll !\n"); return 1; |
| default: write("Interner Fehler "+err+", Erzmagier verstaendigen !\n"); return 1; |
| } |
| writer=this_interactive()->query_real_name(); |
| message=allocate(6); |
| message[M_BOARD]=GROUP; |
| message[M_TITLE]=str; |
| message[M_MESSAGE]=""; |
| write("Ok, beende Deine Notiz mit '**' oder brich sie mit '~q' ab !\n"); |
| if (IS_WIZARD(this_player())) |
| write("Als Magier"+(this_player()->QueryProp(P_GENDER)==FEMALE ? "in" : "")+ |
| " kannst Du per '~r<filename>' ein File in die Notiz einlesen.\n"); |
| input_to("get_note_line", INPUT_PROMPT, ":"); |
| return 1; |
| } |
| |
| int get_note_line(string str) |
| { |
| int err; |
| if (str=="**" || str=="~.") |
| { |
| writer=0; |
| switch (err=(NEWSSERVER->WriteNote(message))) |
| { |
| case 1: write("Ok, Nachricht aufgehaengt.\n"); |
| say(message[M_WRITER]+" hat eine Nachricht ans Brett gehaengt.\n"); |
| return 1; |
| case -1: write("Du darfst leider keine Nachrichten hier aufhaengen.\n"); |
| return 1; |
| case -3: write("Das Brett ist leider voll !\n"); |
| return 1; |
| default: write("Interner Fehler "+err+" aufgetreten ! Bitte Erzmagier verstaendigen.\n"); |
| return 1; |
| } |
| } |
| if (str=="~q") |
| { |
| writer=0; |
| write("Notiz nicht angeheftet.\n"); |
| return 1; |
| } |
| if (str[0..1]=="~r" && IS_WIZARD(this_player())) { |
| str=str[2..<1]; |
| if (str[0]==' ') str=str[1..<1]; |
| if (!str || catch(err=file_size(str);publish) || err<0) { |
| write("File nicht gefunden.\n"); |
| input_to("get_note_line", INPUT_PROMPT, ":"); |
| return 1; |
| } |
| str=read_file(str); |
| if (!str){ |
| write("Zu gross!\n"); |
| input_to("get_note_line", INPUT_PROMPT, ":"); |
| return 1; |
| } |
| write("Ok.\n"); |
| } |
| if (message[M_MESSAGE] && message[M_MESSAGE]!="") message[M_MESSAGE]+="\n"; |
| message[M_MESSAGE]+=str; |
| input_to("get_note_line", INPUT_PROMPT, ":"); |
| return 1; |
| } |
| |
| int lies(string str) |
| { |
| int num; |
| mixed *messages; |
| |
| if (!str || str=="" || sscanf(str,"%d",num)!=1 || num<=0) |
| { |
| _notify_fail("WELCHE Nachricht willst Du lesen ?\n"); |
| return 0; |
| } |
| num--; |
| messages=(NEWSSERVER->GetNotes(GROUP)); |
| if (sizeof(messages)<=num) |
| { |
| _notify_fail("So viele Nachrichten sind da nicht !\n"); |
| return 0; |
| } |
| this_player()->More(messages[num][M_TITLE]+" ("+messages[num][M_WRITER]+", "+ |
| dtime(messages[num][M_TIME])[5..26] + "):\n" + |
| messages[num][M_MESSAGE]); |
| return 1; |
| } |
| |
| int loesche(string str) |
| { |
| int num; |
| |
| if (!str || str=="" || sscanf(str,"%d",num)!=1 || num<=0) |
| { |
| _notify_fail("WELCHE Nachricht willst Du loeschen ?\n"); |
| return 0; |
| } |
| num--; |
| switch (NEWSSERVER->RemoveNote(GROUP, num)){ |
| case 1: write("Ok.\n"); |
| say(this_player()->name()+" entfernt eine Nachricht vom Brett.\n"); |
| return 1; |
| case -1: write("Das darfst Du nicht.\n"); |
| say(this_player()->name()+" versucht, eine Nachricht vom Brett zu reissen.\n"); |
| return 1; |
| case -3: write("So viele Nachrichten sind da nicht !\n"); |
| return 1; |
| default: write("Interner Fehler. Bitte Erzmagier verstaendigen !\n"); |
| return 1; |
| } |
| return 0; |
| } |
| |
| void Crumble() |
| { |
| if (environment() && living(environment())) |
| return; |
| say(capitalize(name(WER))+" zerfaellt zu Staub, der sich sofort verteilt.\n"); |
| write(capitalize(name(WER))+" zerfaellt zu Staub, der sich sofort verteilt.\n"); |
| remove(); |
| } |
| |
| varargs int move(object target,mixed method) |
| { |
| if (objectp(target)&&!living(target)&&environment()&&living(environment())) |
| call_out("Crumble",30+random(30)); |
| return ::move(target, method); |
| } |