1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:
812:
813:
814:
815:
816:
817:
818:
819:
820:
821:
822:
823:
824:
825:
826:
827:
828:
829:
830:
831:
832:
833:
834:
835:
836:
837:
838:
839:
840:
841:
842:
843:
844:
845:
846:
847:
848:
849:
850:
851:
852:
853:
854:
855:
856:
857:
858:
859:
860:
861:
862:
863:
864:
865:
866:
867:
868:
869:
870:
871:
872:
873:
874:
875:
876:
877:
878:
879:
880:
881:
882:
883:
884:
885:
886:
887:
888:
889:
890:
891:
892:
893:
894:
895:
896:
897:
898:
899:
900:
901:
902:
903:
904:
905:
906:
907:
908:
909:
910:
911:
912:
913:
914:
915:
916:
917:
918:
919:
920:
921:
922:
923:
924:
925:
|
<?php
//
// ----------------------------------------------------------------------------
//
// Clans/Guilds Pages
// CR#Dasher#004
// 25th March 2004
// Version: 0.98 beta
// The latest version is always runnning at: www.sembrance.uni.cc/rpg
// (c) Dasher [david.ashwood@inspiredthinking.co.uk] 2004
// This module is relased under the LOTGD GNU public license
// You may change/modify this module and it's associated modules as you wish but
// this copyright MUST be retained.
//
// I would apprechiate feedback/updates on how it works and changes you make.
// Dasher
//
// ----------------------------------------------------------------------------
//
// This module processes the user actions, the included funcs module
// provides the main/supporting functionality.
//
// The activities are in the form:
// op= Activity type {SU|Manage|member|nonmember}
// action= Action to be performed
// task=sub task
//
// ID=The guild|Clan ID
// who=The member affected
// type=Where functionality depends if it's a guild or a clan
// stage=When a multi stage action is being performed - keeps track of progress
//
// A Nav Management system has been implemented to simplify functionality
// in this and the funcs module, and to aid customisation.
// The nav system is for User Display of Nav's and isn't used for hidden Nav's (HTML Forms/Display URL's)
//
// The following examples illustrate how it works:
// NavSystem["Separator"]="";
// NavSystem["DisplayName"]="url";
// NavSystem["Separator"]["DisplayName"]="url";
//
// ----------------------------------------------------------------------------
// Changelog:
// Ranks, NavSysem, Split into 2 modules: clan.php and guildclanfuncs.php
// Many functions:
// now support a dymanic return path
// are aware of the guilds/clans diff
// Deleting a user now changes the management team if they are a member
// Pay guild funds to members
// Simplified the URL paths
// SU can now modify the management team
// Promote members to the management team
// Ranks can now be assigned
// Tidied up the display in many funcs - still needs more work
// Custom Weapons & Armor can now be defined in each guild
// Going into the Weaponry/Armoury via the guilds (setting the guild=GuildID attribute in the URL) now activates guild functionality
// with guild discounts on standard items, access to Special Guild Items and extra earned on trade in price
// Now you can spend SitePoints on discounts and revamped the display of Discounts
// Interest earned on Guild Funds (just gold), interest is accrued once per real day on management member entering
// The Guild TLA can now be a prefix/suffix next to the display name in chat
// ViewCommentary code now links to the display summary info for the guild
// Fixed a bug with the default ranks (rankorder 0 & 20), now created if they don't exist in PopulateRanks
// Fixed a bug in the weapon/Armor upgrade
// Fixed a bug in the spying
// Fixed a return path problem in Armor.php/Weapons.php
// Modified common: Checkday, If passed true, checks if the user is dead, clears the output buffers if set and redirects to the shades if they are dead
// and now checks for newday in clan.php
// Updated the Healer to use the same stage process
// Removed some latent debug info
// Updated common: loadsettings/getsettings/savesettings to always use a lowercase settingname
// Cost of upgrading weapons/armor is progressively more expensive and the weapon/armor value increases by 10% of the upgrade cost
//
// Settings used with GetSettings:
// MaxInterest - Max Bank Interest, Default:10
// MaxFightPercent - Maximum % from fights (FF/PvP), Default: $MaxInterest
// RatioOfSitePoints - Ratio of SitePoints to % increase, Default: 5
// WeaponUpgradeCost - Cost of Upgrading Weapons, Default: 500
// ArmourUpgradeCost - Cost of Upgrading Armour, Default: 500
// ----------------------------------------------------------------------------
//
// ToDO:
// Differentiate Clans from Guilds - High Priority
// Mail other management team members when a management member leaves - low Priority
// Spending of SitePoints needs to be a little more balanced and there needs to be some way of unspending SitePoints
// Partially done - currently Each DK in dragon.php earns 1 sitepoint for a normal kill and 2 SitePoints for a flawless fight
// - PvP earns sitepoints:
// -2 => killing somebody on your clan
// +1 => standard kill
// +1 => Member on your guild hitlist
// +1 => You are on their hitlist
// +1 => Their guild in on your guild hitlist (Guild Wars)
//
// Council Management
// Assign some kind of reason when an application is denied - low Priority
// Guild Management
// Define votes - medium Priority
// Currently there are no limits on how much you can upgrade weapons/armor - the cost is progressivly more expensive
// Member Options
// Vote - medium Priority
// Site changes
// Guild Discounts, update the other pages to support the discounts - background
// Bio update - high Priority
//
// ----------------------------------------------------------------------------
// Gargamel:
// - renamed to clan.php
// - navigation options by variables: supress parts of the whole menu
// - all superuser options transferred into guilds-clans-su.php
// - totally separated for clans
// - fixed bug of missing initial cost in case of withdraw clan application
// - chatarea "campfire" for leader of ALL clans
// - help system implemented. For help texts pls. see guildclanhelp.php
//
// Install instruction:
// - copy this file into your LOGD main folder.
//
// Contact Gargamel:
// eMail: gargamel@rabenthal.de or gargamel@silienta-logd.de
// Forum: Gargi at dragonprime
// ----------------------------------------------------------------------------
//
require_once "common.php";
require_once "guildclanfuncs.php";
if ($session[user][alive]==0) redirect("shades.php");
page_header("Guilds/Clans");
output("`c`& ~ Guilds/Clans ~ `c",true);
addcommentary();
checkday(true);
populate_guilds(); // Ensures we always have the most up to date info in the session
//variables by Gargamel
$helpid=1;
$nonav = 0; // standard navs (bottom) - 0:visible 1:suppressed
$retnav = 1; // standard return nav - 0:visible 1:suppressed
global $NavSystem;
if ($session[user][superuser]>=4 || $session[user][prayer]) {
$NavSystem["Aufsichtsamt"]["b?Übersicht"]="guilds-clans-su.php?type=applications";
}
// ----------------------------------------------------------------------------
// Main decision tree
// ----------------------------------------------------------------------------
switch ($HTTP_GET_VARS['op']) {
// ----------------------------------------------------------------------------
// -- MANAGE
// ----------------------------------------------------------------------------
case "manage": // Management functions for members who are on the management team
$action=$HTTP_GET_VARS['action'];
$clanID=$HTTP_GET_VARS['id'];
get_clanguild_var($clanID);
$session[user][locate]=10000+$clanID;
$ManageGuild=&$session['guilds'][$clanID];
$who=$HTTP_GET_VARS['who'];
$helpid=400;
nav_manageclanoptions($clanID);
nav_clanoptions($clanID);
nav_claninfo($clanID);
switch ($action) {
case "sitepoints":
ManageSitePoints($clanID);
break;
case "weapons":
WeaponEditor($clanID);
break;
case "armor":
ArmorEditor($clanID);
break;
case "create":
unset($NavSystem["Management Options"]);
unset($NavSystem["Return"]);
$type=$HTTP_GET_VARS['type'];
$status=$HTTP_GET_VARS['status'];
switch ($status) {
case "verifyInfo":
unset($NavSystem["Management Options"]);
unset($NavSystem["Return"]);
$NavSystem["Zurück"]["Antrag verwerfen"]="clan.php";
// Display data entered by the user, verify for bad language or missing information
$Info=$_POST['info'];
$Info['GuildLeader']=$session['user']['acctid'];
display_clan_info($Info);
break;
case "submit":
// Submit data to the council, update the information
$tmp=base64_decode($_POST['info']);
$Info=unserialize($tmp);
if ($Info!=true) {
output("`n`nProblem getting data from Verify Form`n");
} else {
if ($Info['BadLanguage']!=0) {
unset($NavSystem["Management Optionen"]);
unset($NavSystem["Mitglieder Optionen"]);
unset($NavSystem["Informationen"]);
$NavSystem["Zurück"]["Antrag verwerfen"]="clan.php";
output("`n`%*hicks* `&Unerwünschte Begriffe `%$@#%`& - Bitte Antrag überarbeiten.`n`n`n");
display_edit_clan($Info);
} else {
if ($Info['MissingVitalInfo']==true) {
unset($NavSystem["Management Optionen"]);
unset($NavSystem["Mitglieder Optionen"]);
unset($NavSystem["Informationen"]);
$NavSystem["Zurück"]["Antrag verwerfen"]="clan.php";
output("`n`&Es fehlen Pflichtangaben! Versuche es nochmal.");
display_edit_clan($Info);
} else {
unset($Info['BadLanguage']);
unset($Info['MissingVitalInfo']);
$Info['IsGuild']=0;
// Save the Clan info
if (!isset($Info['ID']) or $Info['ID']==0) {
$id=create_guild_info($Info); // Returns the identity of the user
$session['user']['clanID']=$id; // Assign the user to the clan
PopulateRanks($clanID);
output("`n`0Der freundliche Mitarbeiter im Gründungsbüro
nimmt Deinen Antrag lächelnd entgegen und prüft ihn.`n
\"`3Vielen Dank, er sieht soweit gut aus und ich werde ihn
umgehend den Göttern vorlegen. Du wirst dann eine Nachricht
erhalten....\"`0`n
Mit diesen Worten bedeutet Dir der Mitarbeiter doch nun zu
gehen.`n`n
Du bemerkst, dass der Mitarbeiter den Antrag, Deinen Antrag,
etwas lieblos auf einen Haufen wirft und etwas von einem
pergamentlosem Büro murmelt.`0`n");
// Grab the cash
$session['user']['gems']-=$ClanPurchaseCostGems;
$session['user']['gold']-=$ClanPurchaseCostGold;
// Load them the cash into the guild
$Info['gems']=$ClanPurchaseCostGems;
$Info['gold']=$ClanPurchaseCostGold;
$Info['ID']=$id;
update_guild_info($Info); //also handels clans
} else {
update_guild_info($Info); //also handels clans
output("`n`0Der Mitarbeiter des Büros schaut auf die
Angaben, die Du eingetragen hast. `&\"Hmm... Schaut
alles ordentlich aus. Ich werde die Daten übernehmen.\"`0");
}
$NavSystem["Sonstiges"]["Zurück zum Gildenhaus"]="clan.php";
}
}
}
break;
default:
output("Fehler! Kein parameter! Action=create/Status=??`n");
break;
}
break; // end case "create"
case "manageranks":
// Add/modify/remove the ranks of this guild
ManageRanks($clanID);
break;
case "approveapplicant":
// Approve a pending applicant
if ($who=="") {
// Nothing has been passed
output("Wen soll ich denn zulassen?`n");
} else {
$Applicants=&$ManageGuild['ApplicantList'];
unset($Applicants[$who]);
update_guild_info($ManageGuild);
$sql="select name, clanID, guildID from accounts where acctid=".$who; // guildID in clanID
$result = db_query($sql);
$row = db_fetch_assoc($result);
if ($row['clanID']==0 && $row['guildID']==0) {
$sql="update accounts set clanID=".$clanID." where acctid=".$who;
db_query($sql);
output("`n`nMitgliedschaft bestätigt und Information per Brieftaube abgeschickt!");
systemmail($who,"`%Re: Mitgliedsantrag für die Gilde: ".$ManageGuild['Name']."`0",
($session['user']['name'])." `0hat Deinem Antrag auf Mitgliedschaft in der Gilde ".$ManageGuild['Name']." zugestimmt!`n`n Herzlichen Glückwunsch!!", $session['user']['acctid']);
} else {
if ($row['clanID']<>0)
output($row['name']." `0wurde bereits von ".$session['guilds'][$row['clanID']]['Name']." aufgenommen",true);
else
output($row['name']." `0wurde bereits von ".$session['guilds'][$row['guildID']]['Name']." aufgenommen",true);
output("`0Der Aufnahmeantrag wurde gelöscht.");
}
}
break;
case "denyapplicant":
// Deny an pending applicant
if ($who!="") {
$Applicants=&$ManageGuild['ApplicantList'];
unset($Applicants[$who]);
update_guild_info($ManageGuild);
output("Aufnahme abgelehnt");
systemmail($who,"`%Re: Aufnahmeantrag ".$ManageGuild['Name']." Gilde!`0",
($session['user']['name'])." `0hat Deinen Aufnahmeantrag
für die Gilde ".$ManageGuild['Name']." `iabgelehnt`i.`n`n
Pech....
`nAntworte auf diese Mail, wenn Du genaueres zur Ablehnung
erfahren möchtest.", $session['user']['acctid']);
} else {
output("Du kannst nur jemanden ablehnen, den Du vorher ausgewählt hast!");
}
break;
case "revokemember":
// Kick somebody out
if ($who!="") {
$sql="update accounts set clanID=0,cg_getgold=0,cg_spendgold=0,cg_getgems=0,cg_spendgems=0 where acctid=".$who;
db_query($sql);
systemmail($who,"`%Re: Mitgliedschaft ".$ManageGuild['Name']." Gilde!`0",
($session['user']['name'])." `0hat Deine Mitgliedschaft
in der Gilde ".$ManageGuild['Name']." `&`iwiderrufen`i!
`n`nAntworte auf diese Mail für weitere Informationen",
$session['user']['acctid']);
output("Mitgliedschaft widerrufen");
} else {
output("Du musst jemanden auswählen bevor Du ihn kicken kannst!");
}
break;
case "assignrank":
// Assign one or more members to a rank
AssignRank($clanID);
break;
case "pay":
// Pay a stipend to one or more members
PayMember($clanID, $who);
break;
case "promotemember":
// Promote somebody to the management team
PromoteMember($clanID);
break;
case "members":
// Display/Manage members
ClanMembers($clanID,true);
break;
case "guildinfo":
// Display the guild Information for editing
display_edit_clan($ManageGuild,true,false);
break;
case "hitlist":
//### Verify
// Display/Manage the current Hitlist
edit_hitlist_clan($clanID);
break;
case "meetingtent":
output("`n");
// this is pure HTML - logd text codes didn't work here....
$titeltext="Das Versammlungszelt";
$fliesstext="Hier haben nur Clanführer Zutritt! Du betrittst forschen
Schrittes das Versammlungszelt.
Am Eingang gibts Du Deine Waffe ab, denn trotz aller Rivalität ist
dies ein Ort, an dem Kämpfe nur mit scharfen Worten geduldet werden.
Ein wenig angespannt gehst Du weiter hinein, betrachtest das wärmende
Lagerfeuer, um das herum sich schon einige Dir bekannte Anführer anderer
Clans versammelt haben. Nicht alles Freunde...";
rawoutput("<IMG SRC=\"images/campfire.gif\" align=\"left\">");
rawoutput("<p>".$titeltext."<br><br>".$fliesstext."</p>");
//output("`n");
OTviewcommentary("ClanFire",
"Die Führer der Clans diskutieren und streiten miteinander", 25,"sagt");
break;
default:
// Should not have got here!
output("Should not have got here - Option: ".$action);
break;
}
break; // End of op=manage
// ----------------------------------------------------------------------------
// -- MEMBER
// ----------------------------------------------------------------------------
case "member":
$action=$HTTP_GET_VARS['action'];
$clanID=$HTTP_GET_VARS['id'];
get_clanguild_var($clanID);
$session[user][locate]=10000+$clanID;
$ThisClan=$session['guilds'][$clanID];
$stage=$HTTP_GET_VARS['stage'];
switch ($action) {
case "suggestions":
$helpid=200; //member menu help
output("`n`0Willkommen im Audienzzelt des Clanführers!",true);
output("`n`nAuch wenn der Clanführer selbst nicht anwesend ist, so
liegen doch auf einem Holztisch Pergamente aus, auf denen Du Deine
Wünsche, Anregungen und vielleicht sogar Kritik notieren kannst.
Als Du Dich dem Tisch näherst, bemerkst Du einen grob eingeritzen Satz:`n`n");
output("`c`i`&Der `bClanführer`b hat das Recht, alle Vorschläge
zu ignorieren`noder zu überlesen, die hier hinterlassen werden.`i`c",true);
output("`n`0Du blätterst in den Pergamenten und siehts schon reichlich
andere Einträge. Willst Du Dich nun auch äussern?`n`n",true);
// Display the welcome intro
OTviewcommentary("ClanSuggest:".$clanID,"vorschlagen", 25,"schlägt vor");
break;
case "donate":
$helpid=200; //member menu help
transfer_cash_clan($clanID, $stage);
break;
case "festzelt":
$ExpandedLinks=true;
$retnav = 0;
$nonav = 1;
$NavSystem["~Festzelt~"]["Juhedin"]="clan.php?op=member&action=festzelt&type=juhedin&id=".$clanID;
$NavSystem["~Festzelt~"]["Brieftauben"]="clan.php?op=member&action=festzelt&type=tauben&id=".$clanID;
//$NavSystem["~Kellergewölbe~"]["Steinespiel"]="stonesgame.php";
switch ($HTTP_GET_VARS['type']){
case "juhedin":
falsegold($clanID,$stage);
$retnav = 1;
break;
case "tauben":
mail2whole_clan($clanID,$stage);
break;
default:
output("`0`nHier im Festzelt triffst Du auf die Mitglieder
anderer Clans. Und obwohl hier eine friedliche Stimmung
herscht, liegt doch eine gewisse Unruhe in der Luft. Vermutlich
gibt es hier doch noch ein paar Streitthemen...`0`n`n");
OTviewcommentary("ClanTent",
"Mit Mitgliedern anderer Clans reden", 25,"sagt");
break;
}
break;
case "shop":
$ExpandedLinks=true;
$retnav = 0;
//$NavSystem["~Shops~"]["Display Guild Discounts"]="clan.php?op=member&action=shop&type=discounts&id=".$clanID;
$NavSystem["~Markt~"]["Waffe verbessern"]="clan.php?op=member&action=shop&type=weapon&id=".$clanID;
$NavSystem["~Markt~"]["Rüstung verbessern"]="clan.php?op=member&action=shop&type=armour&id=".$clanID;
$NavSystem["~Markt~"]["Dr. Ohura"]="clan.php?op=member&action=shop&type=doctors&id=".$clanID;
$NavSystem["~Markt~"]["Trainingsring"]="clan.php?op=member&action=shop&type=practice&id=".$clanID;
$NavSystem["~Markt~"]["Waffengeschäft"]="weapons.php?clan=".$clanID."&return=".urlencode(CalcReturnPath(true))."";
$NavSystem["~Markt~"]["Rüstungsgalerie"]="armor.php?clan=".$clanID."&return=".urlencode(CalcReturnPath(true))."";
switch ($HTTP_GET_VARS['type']){
/*case "discounts":
output("`n`0Die folgenden Rabatte und Vorteile werden Dir durch
Deine Gilde gewährt:`n`n");
output("`c",true);
displaySitePoints($clanID);
output("`c",true);
// display_guild_discounts($guildID);
break;*/
case "weapon":
display_weapon_upgrade($clanID);
break;
case "armour":
display_armour_upgrade($clanID);
break;
case "doctors":
display_healer($clanID);
break;
case "practice":
display_practice_field($clanID);
break;
default:
output("`0`nDu wanderst zu den bunten Marktständen.
Einige Waren und Dienstleistungen werden hier den
Mitgliedern des Clans ".$ThisClan['Name']."`0 angeboten.`0");
break;
}
break;
case "leaveclan":
$helpid=200; //member menu help
switch ($HTTP_GET_VARS['choice']){
case "yes":
if (IsOnManagementTeam($clanID)) {
$ThisClan=&$session['guilds'][$clanID];
// Send mail to other management - ?also to the members
if ($ThisClan['GuildLeader']==$session['user']['acctid']) $ThisClan['GuildLeader']=0;
if ($ThisClan['HeadOfWar']==$session['user']['acctid']) $ThisClan['HeadOfWar']=0;
if ($ThisClan['HeadOfMembership']==$session['user']['acctid']) $ThisClan['HeadOfMembership']=0;
update_guild_info($ThisClan);
}
$session['user']['clanID']=0;
$session['user']['guildrank']=0;
$session['user']['cg_getgold']=0;
$session['user']['cg_spendgold']=0;
$session['user']['cg_getgems']=0;
$session['user']['cg_spendgems']=0;
output("`n`0Du entscheidest Dich, in Zukunft mehr Zeit mit
Deinem eigenen Kram zu verbringen.`nDu gibst Deine Mitgliedskarte
ab und verlässt die Gilde mit einer kleinen Träne im Auge.
Gerne erinnerst Du Dich an die schönen Momente, die Du hier
erlebt hast. Du hältst einen Moment inne. Gleich bist Du wieder
im Dorf.");
// ### Send a mail to the GuildLeader or the head of membership
clearnav();
header("Refresh: 10; URL=village.php");
addnav("","village.php");
break;
case "no":
output("`n`0Du überlegst noch einmal und entscheidest Dich dann
doch zu bleiben. Das Positive überwiegt doch und Du willst es
nicht missen.`0");
break;
default:
if (IsOnManagementTeam($clanID)) {
output("`nDu bist der Clan-Führer!!!");
output("`nWie sollen die ohne Deine Erfahrung bloß weitermachen??");
}
output("`n`n`0Bist Du sicher, dass Du den Clan verlassen willst?");
$NavSystem["~Options~"]["J?Ja - lass mich hier raus"]="clan.php?op=member&action=leaveclan&choice=yes&id=".$clanID;
$NavSystem["~Options~"]["N?Nein - Ich will bleiben"]="clan.php?op=member&action=leaveclan&choice=no&id=".$clanID;
$ExpandedLinks=true;
$nonav = 1; //suppress standard navs
break;
}
break;
case "viewrules":
$helpid=300; //information menu help
output("`n`n`&`cRegeln des Clans`c",true);
output("`n`c~~~`c",true);
output("`n`c".$ThisClan['RulesText']."`c",true);
break;
case "viewdesc":
$helpid=300; //information menu help
output("`n`n`&`cBeschreibung des Clans`c",true);
output("`n`c~~~`c",true);
output("`n`c".$ThisClan['PublicText']."`c",true);
break;
case "showstatus":
$helpid=300; //information menu help
$sort= $HTTP_GET_VARS['sort'];
output("`n`c`iRangliste Clans`i`c`n");
ClansHOF($clanID,$sort);
break;
case "showmembers":
$helpid=300; //information menu help
ClanMembers($clanID);
break;
case "kassenbuch":
$helpid=300; //information menu help
CGKasse($clanID);
break;
case "gemkasse":
$helpid=300;
CGGemkasse($clanID);
break;
case "discounts":
$helpid=300; //information menu help
output("`n`0Die folgenden Rabatte und Vorteile werden Dir durch
Deinen Clan gewährt:`n`n");
output("`c",true);
displaySitePoints($clanID);
output("`c",true);
// display_guild_discounts($clanID);
break;
case "enter":
$helpid=200; //member menu help
$clanID=$HTTP_GET_VARS['id'];
$ThisClan=&$session['guilds'][$clanID];
$ExpandedLinks=false;
// Wanna fall into default!
default:
// We have entered the mightly clan
output("<table align='top'><tr><td>`n`0Willkommen im Clan `3".$ThisClan['Name']."`0.
Einige Mitglieder stehen im grossen Hauptzelt des Clans in kleinen
Gruppen zusammen und unterhalten sich...`n
Einige gehen geschäftig umher und verschwinden in einem der
angrenzenden kleinen Zelte.`n`n`0</td>",true);
//clanavatar
if (getsetting("avatare",0)==1){
if ($ThisClan['avatar']){
$avatar=gce_makepic($ThisClan[avatar],$ThisClan[avatarbig]);
if ($avatar['LINK'] <> ""){
output('<TD align="right">'.$avatar['LINK'],true);
}else{
output('<TD align="right">'.$avatar['TAG'],true);
}
output("</td></tr></table>",true);
} else {
output("<tr><td> </td></tr></table>",true);
}
}
$news=fetchNews($ThisClan['ID']);
if (isset($news)) output("Die letzte Nachricht aus dem Clan:`n`n`0`c`i".$news['newstext']."`i`c`n`0",true);
//if (isset($news)) output("The latest Guild News:`n`n`0`c`i".$news['newstext']."`i`c`n`0",true);
// Display the welcome intro
OTviewcommentary("ClanChat:".$clanID,"Rede mit anderen Mitgliedern", 25);
break;
}
// Display the links
if ($action == "leaveclan") {
unset($NavSystem["Informationen"]);
unset($NavSystem["Mitglieder Optionen"]);
unset($NavSystem["Management Optionen"]);
}
if (!$ExpandedLinks) {
$onTeam=IsOnManagementTeam($clanID);
if ($onTeam) {
nav_manageclanoptions($clanID);
}
//nav_manageoptions($guildID);
nav_clanoptions($clanID);
nav_claninfo($clanID);
// External Page link
$NavSystem[]="~";
}
if (!$retnav) {
$NavSystem["Zurück"][$ThisClan['Name']]="clan.php?op=member&action=enter&id=".$clanID;
$NavSystem[]="~";
}
break;
// ----------------------------------------------------------------------------
// -- NON MEMBER
// ----------------------------------------------------------------------------
case "nonmember":
$action=$HTTP_GET_VARS['action'];
switch ($action) {
case "join":
switch ($HTTP_GET_VARS['task']) {
default:
// You wish to join the Clan
$clanID=$HTTP_GET_VARS['id'];
$ApplyGuild=&$session['guilds'][$clanID];
if ($session['user']['clanID']!=0) {
// You are a member of one already
$ThisClan=&$session['guilds'][$session['user']['clanID']];
if ($session['user']['clanID']==$clanID){
StrollIn();
output("Duh! Du bist doch schon Mitglied!");
} else {
if ($ThisClan['Status']<>1) {
// You cannot spy unless the guild is approved
} else {
// Include the option to spy
addnav("Spy on ".$ApplyGuild['Name'],"clan.php?op=nonmember&action=join&task=spy&id=".$clanID);
output("`0You are already a member of the ".$ThisClan['Name']."`0 Guild",true);
output("`n`0But you can try and spy - you might get lucky!");
}
}
} else {
// You are not a member of any other Guild
output("`n`nIf you join the Guild you will be required to adhere to the rules");
output("`n`n`&`cRules`c",true);
output("`n`c~~~`c",true);
output("`n`c".$ApplyGuild['RulesText']."`c",true);
output("`0<form action='clan.php?op=nonmember&action=join&task=submit&id=".$clanID."' method='POST'>",true);
output("`n`n`c<input type='submit' name='submit' class='button' value='Apply'>`c",true);
output("`n`c<input type='submit' name='submit' class='button' value='Forget it'>`c",true);
addnav("","clan.php?op=nonmember&action=join&task=submit&id=".$clanID);
}
break;
case "submit":
$buttonClicked=$_POST['submit'];
$clanID=$HTTP_GET_VARS['id'];
if ($buttonClicked=="Apply") {
$ApplyGuild=&$session['guilds'][$clanID];
// This won't handle applications to multiple Clans!
$ApplicantList=array(); $ApplicantList=&$ApplyGuild['ApplicantList'];
if (array_key_exists($session['user']['acctid'],$ApplicantList)==true) {
output("You have already applied to join this clan");
} else {
$ApplicantList[$session['user']['acctid']]="";
update_guild_info($ApplyGuild);
if ($ApplyGuild['HeadOfMembership']!=0) {
$MailTo=$ApplyGuild['HeadOfMembership'];
} else {
$MailTo=$ApplyGuild['GuildLeader'];
}
systemmail($MailTo,"`%You have an application to join the Guild!`0",
($session['user']['name'])."`& has applied to join the ".$ApplyGuild['Name']." `&Guild", $session[user]['acctid']);
$sql="select name from accounts where acctid=".$MailTo; // Determine the name of the person - makes the mail pretty
$result=db_query($sql);
$row=db_fetch_assoc($result);
systemmail($session['user']['acctid'],"`%You have applied to join the ".$ApplyGuild['Name']." `%Guild!`0",
"Your application has been submitted to ".$row['name'],$MailTo);
output("`nYour Application for membership has been submitted");
output("`nCheck your mail for notification of your membership");
} // Array_Key_Exists
} else {
$ApplyGuild=&$session['guilds'][$clanID];
output("`n`0You decide to back away from joining the ".$ApplyGuild['Name']." `0Guild",true);
strollin();
} // Button clicked = Apply
break;
case "spy":
$Success = (e_rand(50,100)==76);
$clanID=$HTTP_GET_VARS['id'];
$SpyGuild=&$session['guilds'][$clanID];
output("`n`0You try to spy!");
if ($Success) {
output("`n`n`0You sneak past the Clan Guards into the office of the management team");
output("`n`0With stealth and cunning you manage to open the safe without setting off the alarms!!");
$gold = e_rand(($SpyGuild['gold']/10),$SpyGuild['gold']);
$gems = e_rand(($SpyGuild['gems']/10),$SpyGuild['gems']);
output("`n`nYou manage to steal `^".$gold."`0 Gold and `%".$gems."`0 Gems");
$SpyGuild['gold']-=$gold;
$SpyGuild['gems']-=$gems;
$session['user']['gold']+=$gold;
$session['user']['gems']+=$gems;
$hitpoints=e_rand(2,20);
$experience=e_rand(100,3000);
output("`n`0For your bravery you gain an extra `&".$hitpoints." `0Max HitPoints and `&".$experience." `0experience");
$session['maxhitpoints']+=$hitpoints;
$session['user']['experience']+=$experience;
update_guild_info($SpyClan);
$Discovered=(e_rand(1,20)==17);
output("`n`nOutside you hear a noise of somebody approaching");
output("`n`0You manage to leave through the window before you are seen - but did you put everything back as you should of??");
if ($Discovered) {
// Inform the leader and head of war about being spied upon
systemmail($SpyClan['GuildLeader'],"`0A Spy has snuck into your guild!!`0",
($session['user']['name'])."`0 sneaked into the guild offices and managed to steal `^".$gold." `0Gold and `%".$gems."`0 Gems", 0);
systemmail($SpyClan['HeadOfWar'],"`0A Spy has snuck into your guild!!`0",
($session['user']['name'])."`0 sneaked into the guild offices and managed to steal `^".$gold." `0Gold and `%".$gems."`0 Gems", 0);
}
} else {
output("`n`n`&Yikes.. Spying isn't looked upon lightly by the ".$SpyClan['Name']." `&Guild",true);
output("`n`n`0You are suddently surrounded by warriors, who guard the entrance, carrying short sharp pikes. The angry ends appear to be pointing at you!!");
// Determine the name of the person - makes the mail pretty
if ($SpyClan['HeadOfWar']!=0) {
$PersonID=$SpyClan['HeadOfWar'];
$PrettyTitle = "Head of War";
} else {
$PersonID=$SpyClan['GuildLeader'];
$PrettyTitle = "Guild Leader";
}
$sql="select name from accounts where acctid=".$PersonID;
$result=db_query($sql);
$row=db_fetch_assoc($result);
output("`n`n`0From the shadows the ".$PrettyTitle." - ".$row['name']." `0walks up with an angry scowl and barks a command to the guards.",true);
output("`n`0They grin and suddenly jump you!!");
$HPLoss = e_rand(1,$session['user']['hitpoints']);
$goldLoss= e_rand(1,$session['user']['gold']);
$session['user']['hitpoints']-=$HPLoss;
$session['user']['gold']-=$goldLoss;
$SpyClan['gold']+=$goldLoss; //###
$SpyClan['SitePoints']+=(int)($HPLoss/1000);
update_guild_info($SpyClan);
output("`n`n`&You lose `4".$HPLoss." `&Hitpoints and `^".$goldLoss." `&gold!!");
output("`n`&Bad Luck!!");
if ($SpyClan['GuildLeader']<>0) {
systemmail($SpyClan['GuildLeader'],"`0A Spy has snuck into your guild!!`0",
($session['user']['name'])."`0 sneaked into the guild offices but your patrols managed detect him and he was caught!", 0);
}
if ($SpyClan['HeadOfWar']<>0) {
systemmail($SpyClan['HeadOfWar'],"`0A Spy has snuck into your guild!!`0",
($session['user']['name'])."`0 sneaked into the guild offices but your patrols managed detect him and he was caught!", 0);
}
addnews($session['user']['name']." was caught trying to spy on the ".$SpyClan['Name']."`n They were dealth with severely by the Guards and ".$PrettyTitle."!!");
}
break;
}
break;
case "examine":
case "viewintro":
strollin();
// View the intro info for a clan
$clanID=$HTTP_GET_VARS['id'];
$ThisClan=&$session['guilds'][$clanID];
$return=$HTTP_GET_VARS['return'];
if (isset($return)) {
$NavSystem=array();
$NavSystem['Return to whence you came']=$return;
}
// We have a clan name
output("`n`n`n`0You wander up to the clan headquarters for the "
.$ThisClan['Name']. "`0 Clan and examine the notice board, looking
for information on joining.",true);
output("`n`n`&`c`iWelcome board`i`c",true);
output("`n`n`&`c`i`bInformation about our Clan`b`i`c",true);
output("`%`c~~`c",true);
output("`&`c".$ThisClan['PublicText']."`c",true);
output("`n`n`&`c`i`bInformation for Applicants`b`i`c",true);
output("`%`c~~`c",true);
output("`&`c".$ThisClan['ApplyText']."`c",true);
output("`n`n`&`c`i`bRegeln des Clans`b`i`c",true);
output("`%`c~~`c",true);
output("`&`c".$ThisClan['RulesText']."`c",true);
if ( $session['user']['guildID'] == 0 && $session['user']['clanID'] == 0 ) {
//$NavSystem[]="~";
$NavSystem["Bewerber"]
["`b`qMitgliedsantrag für ".$ThisClan['Name']." abgeben`b"]="clan.php?op=nonmember&action=join&id=".$clanID;
}
break;
case "list":
strollin();
listall_guildclan();
break;
case "create":
$type=$HTTP_GET_VARS['type'];
switch ($type){
case "guild":
output("wrong type. here are clans - not guilds!`n`0");
break;
case "clan":
$status=$HTTP_GET_VARS['status'];
switch ($status) {
case "verifyInfo":
$NavSystem["Zurück"]["Antrag verwerfen"]="clan.php";
// Display data entered by the user
$Info=$_POST['info'];
$Info['GuildLeader']=$session['user']['acctid'];
display_clan_info($Info);
break;
default:
if (($session['user']['gems']>=$ClanPurchaseCostGems) && ($session['user']['gold']>=$LanPurchaseCostGold)) {
output("`n`nIm Gründungsbüro erhälst Du ein Antragspergament:`n`n");
display_edit_clan($Info);
} else {
output("`n`nIm Gründungsbüro bekommst Du mitgeteilt:`n`n");
output("`0Du hast nicht genug Reichtümer, um einen Clan zu gründen.`n
Du benötigst `%".$ClanPurchaseCostGems." `0Edelsteine und
`^".$ClanPurchaseCostGold." `0Goldstücke.`n`n
`0Komm' später wieder!`0`n");
}
break;
}
break;
}
default:
break;
}
break;
break;
// ----------------------------------------------------------------------------
// -- DEFAULT
// ----------------------------------------------------------------------------
default:
// Are they a member of a guild/Clan
// gargamel: nop, they aren't....
output("`n`n`0Du gehst in die edle Klingengasse und passierst die Bauten,
bis Du vor dem majestätischen Hauptgebäude der Gilden von Rabenthal etwas
ehrfürchtig stehen bleibst.`n`n
Weiter die Strasse herunter lässt Du Deinen Blick über ein offenes Feld
schweifen, auf dem sich die Clans von Rabenthal in einem bunten Lager
gewaltiger Zelte zusammengefunden haben.");
// Work out what nav's to display
StrollIn();
break;
}
$linkback = URLEncode(calcreturnpath());
//$NavSystem[]="~";
if ( $nonav == 0 ) {
$NavSystem[]="~";
$NavSystem["Auskunftsbüro"]["A?Alle Gilden/Clans"]="clan.php?op=nonmember&action=list";
$NavSystem["Auskunftsbüro"]["H?Hilfe"]="guildclanhelp.php?id=".$helpid."&ret=".$linkback;
//$NavSystem[]="~";
if ($HTTP_GET_VARS['op'] != "" ) {
$NavSystem["Sonstiges"]["Z?Zurück zum Hauptgebäude"]="clan.php";
}
$NavSystem["Sonstiges"]["Z?Zurück zum Dorf"]="village.php";
}
PopulateNavs();
page_footer();
?>
|