| //-------------------------------------------------------------------------------- |
| // Name des Objects: Verkaeufer (August vom SCHRAENKER) |
| // Letzte Aenderung: 24.08.2006 |
| // Magier: Seleven |
| //-------------------------------------------------------------------------------- |
| #pragma strong_types,rtt_checks |
| |
| #include <properties.h> |
| #include <language.h> |
| #include <moving.h> |
| #include <wizlevels.h> |
| #include <bank.h> |
| |
| #include "schrankladen.h" |
| inherit "/std/npc"; |
| |
| // Wenn im Laden bzw. im Environment von August die Prop "test" auf 1 gesetzt |
| // wird, kostet der Kauf nichts. Jeder der ein Seherhaus besitzt, kann kaufen. |
| |
| // Fuer Prop im Spieler = individuellere Begruessung |
| #define LASTVISIT "schrankladen_lastvisit" |
| // 10% Rabatt fuer Leute, die intensiv testeten, Ideen fuer den Laden beisteuerten, |
| // oder halfen, groessere Bugs zu beheben! |
| #define RABATT ({"geordi","foobar","blood","lurchi", "eldaron"}) |
| |
| // kaufe... andere im raum sollten vor der antwort sehen wer august nach was fragt |
| |
| protected void create() |
| { |
| if(!clonep(TO)) return; |
| ::create(); |
| SetProp(P_LOG_FILE,"seleven/schraenker"); // Seleven 06.04.2006 |
| SP(P_SHORT, "August"); |
| SP(P_LONG, BS( |
| "Das ist August, ein kleiner Zwerg und seines Zeichens Seher-Berater. " |
| +"Er versorgt Seher mit Eigenheim mit dem Mobiliar, das man braucht, " |
| +"will man sein Haus uebersichtlich halten und etwas Ordnung in die " |
| +"Sammlungen bringen, die sich in so einem Seherhaus zwangslaeufig " |
| +"anhaeufen. Im Gegensatz zu den meisten Zwergen sieht August nicht nur " |
| +"aus wie frisch geduscht, er steckt auch in einem feinen Anzug. So " |
| +"einen gepflegten Bart wie den von August hast Du vorher noch nie " |
| +"gesehen. Und dann duftet er auch noch nach irgendeinem exotischen " |
| +"Waesserchen. Waere nicht der gierige Blick in seinen Augen, koenntest " |
| +"Du wirklich zweifeln, dass es sich hier wirklich um einen Zwerg " |
| +"handelt.",78,0,1)); |
| SP(P_NAME, "August"); |
| SP(P_GENDER, MALE); |
| SP(P_ARTICLE, 0); |
| SP(P_RACE, "Zwerg"); |
| // Arathorn, 2015-Okt-13, Zeile vor P_XP gezogen, damit auch sicher kein |
| // EK angezeigt wird. |
| create_default_npc(20); |
| SP(P_XP, 0); |
| AddId(({"august", "inhaber", "ladeninhaber", "besitzer", |
| "firmenbesitzer", "verkaeufer", "zwerg", "seher-berater"})); |
| |
| SP(P_SIZE, 130); |
| SP(P_NO_ATTACK, BS("Die beruhigende Melodie scheint nicht nur zum " |
| +"Vergnuegen der Kunden zu erklingen. Du bringst es einfach " |
| +"nicht fertig, Deine Hand gegen August zu erheben!")); |
| |
| AD(({"anzug"}), BS(Name(WER)+" steckt in einem feinen rotbraunen Anzug, " |
| +"in dem vermutlich auch ein Bettler koeniglich auf Dich wirken wuerde. " |
| +"Offensichtlich ist er nicht der Aermsten einer.")); |
| AD(({"bettler"}), BS("Wie ein Bettler wirkt August nicht auf Dich.")); |
| AD(({"waesserchen"}), BS("Es riecht koestlich. Schnupper doch mal!")); |
| AD(({"bart"}), BS("Der vermutlich weisse Bart wurde von Kuenstlerhand " |
| +"roetlich eingefaerbt und passt farblich vorzueglich zum Anzug.")); |
| AD(({"kuenstlerhand"}), BS("Bestimmt hat August das nicht selbst gemacht.")); |
| AD(({"mobiliar"}), BS("Das verkauft er hier.")); |
| AD(({"augen"}), BS("Obwohl "+Name(WER)+" perfekte Manieren an den Tag " |
| +"legt, seine Augen verraten ihn. Die Dollarzeichen in seinem Blick " |
| +"sind nicht zu uebersehen.")); |
| AD(({"dollarzeichen"}), BS("Eine Redensart. Keine Ahnung was das sein soll.")); |
| AD(({"redensart"}), BS("Irgend ein Spruch, den Du irgendwo aufgeschnappt hast.")); |
| AD(({"spruch"}), BS("Im Spruecheklopfen bist Du gut, oder?")); |
| AD(({"spruecheklopfen"}), BS("OK, ich geb auf. :)")); |
| AD(({"manieren"}), "Und das bei einem Zwerg!!!\n"); |
| |
| AddInfo(({"laden", "schraenker"}), "Der Schraenker ist mein Laden, " |
| +"und ich denke es ist ein guter Laden. Das Geschaeft laeuft, seit " |
| +"jeder Ordnung in seinem Seherhaus haben moechte. Und Seherhaeuser " |
| +"gibt es ja mehr als genug! :)", "sagt: "); |
| AddInfo(({"haeuser", "seherhaeuser"}), "Bei mir koennen Seher " |
| +"Mobiliar fuer ihr Seherhaus kaufen. Unsere Qualitaet ist weithin " |
| +"beruehmt. Ausserdem sind wir die einzigen auf dem Markt.", "grinst: "); |
| AddInfo(({"melodie"}), "lauscht vertraeumt.\n"); |
| AddInfo(({"geld"}), "Sie haben doch welches?\n", "fragt besorgt: "); |
| // Seleven 01.04.2006: frage nach (schluessel)brett eingefuegt |
| AddInfo(({"mobiliar", "schrank", "schraenke", "truhe", "truhen", "kommode", |
| "kuehlschrank", "waffenschrank", "waffentruhe", "spind", "kleiderschrank","brett","schluesselbrett", |
| "muellcontainer", "zauberkiste", "tresor", "holztruhe","vitrine","pult","lesepult"}), |
| "Lesen Sie doch bitte die Preisliste an der Wand.", "sagt: "); |
| AddInfo(({"liefern", "lieferung"}), "Wir liefern sofort.", "sagt: "); |
| AddInfo(({"bart"}), "Es ist ein schoener Bart, nicht? :)", "fragt: "); |
| AddInfo(({"augen"}), "Was haben Sie an denen auszusetzen?", "fragt: "); |
| AddInfo(({"dusche"}), "Jeden Morgen. Das ist leider Pflicht. Und 364 mal " |
| +"zu oft :(", "sagt: "); |
| AddInfo(({"pflicht", "pflichten"}), "Als Ladeninhaber hat man deren " |
| +"viele!", "sagt: "); |
| AddInfo(({"anzug"}), "Ein echter Armgani!", "verkuendet stolz: "); |
| AddInfo(({"armgani"}), "Du kennst Armgani nicht?", "fragt naseruempfend: "); |
| AddInfo(({"geordi"}), "Von ihm stammt die urspruengliche Geschaeftsidee " |
| +"fuer den SCHRAENKER. Dafuer bekommt er bei uns auch Rabatt!", "erzaehlt: "); |
| AddInfo(({"august"}), "Wollen Sie sich ueber mich lustig machen?", "fragt drohend: "); |
| AddInfo(({"rabatt"}), "Nur Stammkunden, die uns schon brauchbare Ideen " |
| +"geliefert haben, oder die uns beim Aufbau des Geschaefts geholfen haben, " |
| +"gewaehren wir Rabatt.", "sagt: "); |
| AddInfo(({"ideen"}), "Es muessen brauchbare Ideen sein.", "sagt: "); |
| AddInfo(({"stammkunde", "stammkunden"}), "Einige kommen oefter vorbei.", "sagt: "); |
| AddInfo(({"aufbau"}), "Es kommt mir noch so vor, als waers gestern gewesen.", "sagt: "); |
| AddInfo(({"kunde", "kunden"}), "Ich hoffe mal, dass SIE der Kunde sind!?", "sagt: "); |
| |
| AddCmd(({"kauf", "kaufe", "bestell", "bestelle"}), "container_kaufen"); |
| AddCmd(({"schnupper", "schnuppere"}), "schnuppern"); |
| } |
| |
| int schnuppern() |
| { |
| write(BS("Ein betoerender Duft umgibt August, und verdeckt jeglichen Geruch, " |
| +"den Du von sonstigen Zwergen gewohnt bist.")); |
| return 1; |
| } |
| |
| static string anrede() |
| { |
| switch( TP->QueryProp(P_GENDER) ) |
| { |
| case MALE : return "mein Herr"; break; |
| case FEMALE : return "meine Dame"; break; |
| } |
| return "mein H... D... Wasauchimmer"; |
| } |
| |
| void begruessung(object pl, string txt) |
| { |
| if( objectp(pl) && present(pl) ) |
| tell_room(ETO, "\n"+txt); |
| } |
| |
| void init() |
| { |
| ::init(); |
| if (!interactive(TP) || TP->QueryProp(P_INVIS)) |
| return 0; // Keine Meldungen wenn invis oder kein Spieler! |
| if(TP->QueryProp(LASTVISIT) < time()-3600) // laenger als 1 Std. nicht da gewesen |
| { |
| if( member(RABATT, geteuid(TP)) != -1 ) |
| call_out("begruessung", 0, TP, BS("Herzlichst Willkommen in meinem " |
| +"bescheidenen Laden, "+TP->name(WER)+". Es ist jedesmal eine Freude, " |
| +"Sie zu sehen!",78, Name(WER)+" sagt: ")); |
| else |
| call_out("begruessung", 0, TP, BS("Willkommen in meinem bescheidenen Laden, " |
| +anrede()+".",78, Name(WER)+" sagt: ")); |
| } |
| else // schonmal innerhalb 1 Std. da gewesen? |
| { |
| if( member(RABATT, geteuid(TP)) != -1 ) |
| call_out("begruessung", 0, TP, BS("Hallo, "+TP->name(WER)+". " |
| +"Sie konnten es ja nicht lange ohne mich aushalten, aber Stammkunden " |
| +"sind mir die liebsten Kunden. Womit kann ich Ihnen diesmal " |
| +"dienen?",78, Name(WER)+" sagt: ")); |
| else |
| call_out("begruessung", 0, TP, BS("Guten Tag, "+anrede()+". " |
| +"Ich freue mich, dass Sie meinen Laden so bald wieder besuchen kommen! " |
| +"Womit kann ich Ihnen diesmal dienen?",78, Name(WER)+" sagt: ")); |
| } |
| |
| TP->SetProp(LASTVISIT, time() ); |
| } |
| |
| int container_kaufen(string str) |
| { |
| string cnt_file; |
| int preis; |
| object zielraum,cnt,ob; |
| tell_room(ETO, TP->Name(WER)+" wendet sich wegen eines Kaufs an " |
| +Name(WEN)+".\n", ({TP}) ); |
| if( (query_wiz_level(TP) >= SEER_LVL && query_wiz_level(TP) < LEARNER_LVL) || |
| ETO->QueryProp("test") ) // TP ist Seher, oder Testmodus. |
| { |
| catch(call_other("/d/seher/haeuser/"+geteuid(TP)+"raum0", "???", 0)); |
| if( !zielraum=find_object("/d/seher/haeuser/"+geteuid(TP)+"raum0") ) |
| { |
| tell_room(ETO, BS("Tut mir leid, "+anrede()+". Voraussetzung fuer eine " |
| +"Lieferung unserer Artikel ist ein begehbares " |
| +"Seherhaus.",78, Name(WER)+" sagt: ")); |
| return 1; |
| } |
| notify_fail( BS("Tut mir leid, "+anrede()+". So einen Artikel fuehren wir nicht. " |
| +"Bitte lesen Sie die Preisliste an der Wand. Dort koennen Sie sich genau " |
| +"darueber informieren, ueber welche Artikel wir zur Zeit " |
| +"verfuegen.",78, Name(WER)+" sagt: ")); |
| if(!str) return 0; |
| switch(str) |
| { |
| case "1" : |
| case "kommode" : cnt_file="kommode"; |
| preis=3799; |
| break; |
| case "2" : |
| case "kleiderschrank": cnt_file="kleiderschrank"; |
| preis=5899; |
| break; |
| case "3" : |
| case "spind" : cnt_file="spind"; |
| preis=5299; |
| break; |
| case "4" : |
| case "kuehlschrank" : cnt_file="kuehlschrank"; |
| preis=3499; |
| break; |
| case "5" : |
| case "waffenschrank" : cnt_file="waffenschrank"; |
| preis=5899; |
| break; |
| case "6" : |
| case "waffentruhe" : cnt_file="waffentruhe"; |
| preis=5399; |
| break; |
| case "7" : |
| case "tresor" : cnt_file="tresor"; |
| preis=4499; |
| break; |
| case "8" : |
| case "zauberkiste" : cnt_file="zauberkiste"; |
| preis=7999; |
| break; |
| case "9" : |
| case "muellcontainer": cnt_file="muellcontainer"; |
| preis=999; |
| break; |
| // Seleven 01.04.2006 |
| case "10" : |
| case "schluesselbrett": cnt_file="schluesselbrett"; |
| preis=499; |
| break; |
| case "11" : |
| case "duschkabine": cnt_file="wasch"; |
| preis=3499; |
| break; |
| case "12": |
| case "holztruhe": |
| cnt_file="autoloadertruhe"; |
| preis=74999; |
| break; |
| case "13": |
| case "vitrine": |
| cnt_file="vitrine"; |
| preis=49999; |
| break; |
| case "14": |
| case "lesepult": |
| cnt_file="lesepult"; |
| preis=60000; |
| break; |
| default: return 0; break; |
| } |
| if( member(RABATT, geteuid(TP)) != -1 ) // 10% Rabatt fuer bestimmte Leute, |
| preis=preis/100*90; // die Ideen fuer den Laden beisteuerten. |
| if( !ETO->QueryProp("test") ) |
| { |
| if( !TP->QueryMoney() ) |
| { |
| tell_room(ETO, BS("Ohne Geld bekommen Sie bei uns nichts, "+anrede() |
| +". Wir sind kein Wohlfahrtsinstitut!",78, Name(WER)+" sagt: ")); |
| return 1; |
| } |
| if( TP->QueryMoney() < preis ) |
| { |
| tell_room(ETO, BS( CAP(anrede())+", Sie haben zuwenig Geld dabei. " |
| +"Der Preis fuer dieses Objekt ist "+preis |
| +" Muenzen.",78, Name(WER)+" sagt: ")); |
| return 1; |
| } |
| TP->AddMoney(-preis); // Spieler Geld abziehen |
| ZENTRALBANK->PayIn(preis); // Geld auf die Bank. |
| } |
| cnt=clone_object( LADEN(cnt_file) ); |
| cnt->move(zielraum, M_PUT|M_SILENT); |
| tell_room(ETO, TP->Name(WER)+" kauft "+cnt->name(WEN)+".\n", ({TP}) ); |
| tell_room(ETO, BS("Es ist ein Vergnuegen, mit Ihnen Geschaefte zu machen, " |
| +anrede()+"! Wenn Sie in Ihr Haus zurueckkehren, werden Sie die Ware bereits " |
| +"vorfinden, so schnell arbeiten wir.",78, Name(WER)+" sagt: ")); |
| tell_room(zielraum, BS("Mit Knall und Schwefelduft erscheint ein kleines, " |
| +"verhutzeltes Maennchen. Es traegt einen gruenen Anzug und eine gruene " |
| +"Kappe, auf der in gelbem Schriftzug \"SCHRAENKER\" steht. Das Maennchen " |
| +"stellt "+cnt->name(WEN)+" ab und verschwindet auf dem gleichen Wege, wie " |
| +"es hereingekommen ist.")); |
| if( present("Interactive", SCHRANKMASTER) ) |
| tell_room(SCHRANKMASTER, TP->Name(WER)+" kauft "+name(WEN)+".\n"); |
| SCHRANKMASTER->RegisterCnt(cnt, cnt->QueryProp("cnt_version_std") |
| +cnt->QueryProp("cnt_version_obj"), geteuid(TP), |
| "/d/seher/haeuser/"+geteuid(TP)+"raum0"); |
| return 1; |
| } |
| else if(query_wiz_level(TP) >= LEARNER_LVL ) // TP ist Magier. |
| { |
| tell_room(ETO, BS("Tut mir leid, "+anrede()+". An Magier liefern wir nichts. " |
| +"Das ist ein Prinzip des Hauses, und Prinzipien sind dazu da, dass " |
| +"sie eingehalten werden. ",78, Name(WER)+" sagt: ")); |
| return 1; |
| } |
| else // TP ist Spieler, kein Seher oder Magier. |
| { |
| tell_room(ETO, BS("Tut mir leid, "+anrede()+". Wir liefern nur an Seher. " |
| +"Aber da ich Sie als strebsame und erfolgreiche Person ansehe, " |
| +"bin ich sicher, dass wir uns bald wiedersehen!",78, Name(WER)+" sagt: ")); |
| return 1; |
| } |
| } |