Booya
collapse collapse

* User Info

 
 
Welcome, Guest. Please login or register.
Did you miss your activation email?

* Search


* Board Stats

  • stats Total Members: 1074
  • stats Total Posts: 18300
  • stats Total Topics: 2487
  • stats Total Categories: 7
  • stats Total Boards: 31
  • stats Most Online: 500

Author Topic: Text Adventure Module  (Read 4589 times)

0 Members and 1 Guest are viewing this topic.

Offline DJKRose

  • Contributor
  • *******
  • Posts: 38
  • Karma: +0/-0
Text Adventure Module
« on: November 18, 2009, 07:34:04 pm »
Hi folks!

I've made a flexible Text Adventure Module for BeBot: Create interactive text adventures and let your guild members in-game go from chapter to chapter by clicking on options that you have defined. You can make guild advertisement with it as well!

- Simple text files to define your text adventure
- Use name tags, includes, redirects
- Enabling creative guild advertisement
- For fun or serious stuff (crafting, instance information, ...)

Download: http://tubaka.tu.funpic.de/TextAdventure.zip

1) Extract it in your bot's root directory keeping the directory structure.
2) Test the bot with the command "!textadventure example"
3) See example.txt with lots of comments for creating your own adventures.
4) Put your own adventures in directory "textadventures" with .txt extension.
5) Have a look at the seetings (you don't need to change anything): "!settings TextAdventure"

Zip file also includes a big German text adventure called "tortage" which I use for guild advertisement sometimes.

Please post your comments and own text adventures in this thread (german welcome)!

Have fun,
djkrose

Offline DJKRose

  • Contributor
  • *******
  • Posts: 38
  • Karma: +0/-0
Re: Text Adventure Module
« Reply #1 on: November 18, 2009, 07:37:27 pm »
p.s.:
There is an undocumented feature: Prepend a chapter line with "-->" to allow lateral entrance to this chapter. Useful if you want to include the first choice command in global guild spam or other scripts. Example:

--> 5. You are entering the room.
- Go right --> 6
- Go left --> 7


Directly jump into chapter 5 and trigger choice 7 with this command: !textadventure filename 5 7

Offline Drizzurdeen

  • BeBot Apprentice
  • ***
  • Posts: 193
  • Karma: +0/-0
    • Obsidian-Cult
Re: Text Adventure Module
« Reply #2 on: November 18, 2009, 11:05:07 pm »
ohhhh a very nice module ... works perfekt ;) our rp-fanatics love it ... they are know writing storries ... maybe we would post them here ... (german ;) )

greez Drizz

Offline Gauche

  • BeBot Rookie
  • *
  • Posts: 16
  • Karma: +0/-0
Re: Text Adventure Module
« Reply #3 on: November 26, 2009, 05:04:29 pm »
Hi i just test your module, and when i start example and click on one answer i have this :

A [Mrbot] : !textadventure 1 10
[Mrbot]: /tell Mrbot !help

Offline Gauche

  • BeBot Rookie
  • *
  • Posts: 16
  • Karma: +0/-0
Re: Text Adventure Module
« Reply #4 on: November 26, 2009, 05:16:42 pm »
I make some translation for my french guildies and i suppose i remove or translate one var because i haven't this : !textadventure filename 1 10

i have this :
!textadventure 1 10

Offline Gauche

  • BeBot Rookie
  • *
  • Posts: 16
  • Karma: +0/-0
Re: Text Adventure Module
« Reply #5 on: November 26, 2009, 05:35:36 pm »
After somme test if i whrite !textadventure filename 1 10 --> work

I just want to give automatically <filename> in the generated link

I post my code :

Code: [Select]
<?php
/*
 * Aventure RPG texte pour BeBot
 * Version: 1.1
 * Copyright (c) 2009 djkrose
 * Modification / traduction par Gauche
 * Change log:
 *   v1.1  - Traduction en français par Gauche pour la guilde Vigilance sur Ishtar.
 *   v1.0  - First Release version!
 *         - Fixed some formatting.
 *   v0.2  - Added possibility to have multiple choices with same target.
 *         - Removed chapter text in info blob.
 *         - Added possibility to include html tags
 *         - Added support for ##include=file.txt##
 *         - Added setting to allow lateral entrance from every chapter.
 *         - Added support to define lateral entrance to particular chapters using "-->" before the chapter number.
 *   v0.1  - First working version.  
 */

$rpgaventure = new RpgAventure($bot);

class 
RpgAventure extends BaseActiveModule {

private $AVENTURE_FILE_DIRECTORY "./rpgaventures";
private $MSG_ONLY_CLICK_ONCE "Un clic suffit! (soyez patient)";
private $progress = array();
private $adventures = array();
private $cooldown = array();
private $file_times = array();

function __construct(&$bot) {
parent::__construct($botget_class($this));

// Register commands
$this -> register_command(&#39;all&#39;, &#39;rpgaventure&#39;, &#39;GUEST&#39;);

// Create settings
$this -> bot -> core("settings") -> create("RpgAventure""TimeOut"5,
"Après combien de minutes le status du chapitre en cour doit être reset?""1;2;3;4;5;10;20;30;60");
$this -> bot -> core("settings") -> create("RpgAventure""CoolDown"5,
"Après combien de minutes les joueurs peuvent retenter une aventure?""1;2;3;4;5;10;20;30;60");
$this -> bot -> core("settings") -> create("RpgAventure""LateralEntrance"FALSE,
"Autoriser les joueurs a commencer depuis n&#39;importe quel chapitre, avec la commande \"-->\" marker?");

// Set help texts
$this -> help[&#39;description&#39;] = &#39;Permet aux utilisateurs de réaliser des RPG en mode texte.&#39;;
$this -> help[&#39;command&#39;][&#39;rpgaventure <exemple>&#39;]="Commencer l&#39;aventure RPG nommé <exemple>.";
$this -> help[&#39;notes&#39;] = "Les admins peuvent modifier les paramétres sur les timers avec la commande !settings.";
}

function command_handler($name$msg$origin) {
// Process input command
if (preg_match(&#39;/^rpgaventure +([a-zA-ZöäüßÖÄÜ_-]+) +([0-9]+) +([0-9]+) *$/i&#39;, $msg, $matches))
$reply $this->process_step($name$matches[1], (int)$matches[2], (int)$matches[3]);
elseif (preg_match(&#39;/^rpgaventure +([a-zA-ZöäüßÖÄÜ_-]+) *$/i&#39;, $msg, $matches))
$reply $this->process_step($name$matches[1]);
else
$this->bot->send_help($name);
// Send reply via tell, if any
if ($reply)
$this->bot->send_tell($name$reply);
}

/**
 * Supprimer tous les éléments de $this->Temps dépassé.
 */
function clear_timed_out_progress() {
$time_out $this->bot->core("settings")->get("RpgAventure""TimeOut");
$time time();
foreach($this->progress as $key=>$value) {
if ($value[&#39;time_stamp&#39;] + $time_out*60 < $time)
unset($this->progress[$key]);
}
}

/**
 * Supprimer tous les éléments de $this->Temps de recharge dépassé.
 */
function clear_timed_out_cooldown() {
$time_out $this->bot->core("settings")->get("RpgAventure""CoolDown");
$time time();
foreach($this->cooldown as $key=>$value) {
if ($value $time_out*60 $time)
unset($this->cooldown[$key]);
}
}

/**
 * Rappel pour preg_replace_callback qui est appelée à chaque include trouvé dans le texte
 * de l&#39;aventure. Attention risque de faille niveau sécurité! Ne jamais utiliser d&#39;aventure non vérifié,
         * car la fonction include peut charger n&#39;importe quel fichier!
 * 
 * @param $matches Utilisation de l&#39;expression matches; le premier élément correspond
 *                 au nom du dossier relatif a l&#39;aventure.
 * @return Retourne le contenu d&#39;un fichier ou une chaîne vide en cas d&#39;erreur.
 */
function include_callback($matches) {
$content = @file($this->AVENTURE_FILE_DIRECTORY."/".$matches[1]);
if ($content === FALSE)
return "";
else
return join(""$content);
}

/**
 * Makes sure, that the given adventure is properly parsed and ready to use in $this->aventures.
 * If it&#39;s not yet ready or if the source file has changed, it will be (re)parsed.
 *  
 * @param $aventure The text aventure name to parse. 
 * @return FALSE on any parsing errors
 */
function prepare_aventure($aventure) {
// Init some variables and values
$curradv =& $this->aventures[$aventure];
$aventure preg_replace(&#39;/[^a-zA-ZöäüßÖÄÜ_-]/&#39;, &#39;&#39;, $aventure); // Extra double security
$filename "$aventure.txt";
$filepath $this->AVENTURE_FILE_DIRECTORY."/".$filename;

// Don&#39;t re-load file if file hasn&#39;t been changed since last parsing
clearstatcache();
$file_time filemtime($filepath);
if (is_array($curradv) && $this->file_times[$filepath] >= $file_time)
return TRUE;
$this->file_times[$filepath] = $file_time;

// Load file contents
$curradv = array();
$lines = @file($filepath);
if ($lines === FALSE) {
$this->bot->log("RpgAventure""ERROR""Le fichier aventure $filename n&#39;a pu être trouvé.");
return FALSE;
}

// Process includes; since included content can have line breaks, the new lines must be inserted in $lines.
for ($i=0$i<count($lines); $i++) {
$newlines preg_replace_callback(&#39;/##include=([^#]+)##/&#39;, array($this, "include_callback"), $lines[$i], -1, $count);
if ($count 0) {
$newlines preg_split(&#39;/(\r\n|\n|\r)/&#39;, $newlines);
$lines_before array_slice($lines0$i);
$lines_after  array_slice($lines$i+1);
$lines array_merge($lines_before$newlines$lines_after);
$i--;

}

// Parse file line by line
$chapter_mode FALSE;
$number 0;
foreach ($lines as $line) {
$number++;
$line trim($line);
// Ignore empty lines and comments
if (empty($line) || $line{0} == "#")
continue;
// Parse chapter number and its first text
if (preg_match(&#39;/^(-->)?\s*([0-9]+)\.\s*(.*)$/&#39;, $line, $matches)) {
$current_chapter 2;
$curradv_chapter =& $curradv[(int)$matches[2]];
if (isset($curradv_chapter)) {
$this->bot->log("RpgAventure""ERROR""$filename:$number - 2 chapitres avec le même numéro trouvé!");
return FALSE;
}
$curradv_chapter[&#39;chapter_text&#39;] = $matches[3];
// Set flag that lateral entrance to this chapter is allowed, if chapter line starts with "-->"
if ($matches[1] == "-->")
$curradv_chapter[&#39;lateral_entrance&#39;] = TRUE;
$chapter_mode TRUE;
}
// Parse choice
elseif (preg_match(&#39;/^-\s*(.+?)\s*-->\s*([0-9]+)$/&#39;, $line, $matches)) {
if (!isset($curradv_chapter)) {
$this->bot->log("RpgAventure""ERROR""$filename:$number - Choix non autorisé ici!");
return FALSE;
}
// Choices are collected in an extra array because we could have more than one choice with same target
$curradv_chapter[&#39;choices&#39;][(int)$matches[2]][] = $matches[1];
$chapter_mode FALSE;
}
// Parse redirect
elseif (preg_match(&#39;/^-->\s*([0-9]+)$/&#39;, $line, $matches)) {
if (!$chapter_mode) {
$this->bot->log("RpgAventure""ERROR""$filename:$number - Redirection non autorisé ici!");
return FALSE;
}
$curradv_chapter[&#39;redirect&#39;] = (int)$matches[1];
unset($curradv_chapter); // unset the reference, not the actual array content! 
$chapter_mode FALSE;
}
// Parse additional chapter texts
elseif ($chapter_mode == TRUE) {
$curradv_chapter[&#39;chapter_text&#39;] .= "\n$line";
}
else {
$this->bot->log("RpgAventure""ERROR""$filename:$number - Je ne sais pas gérer cette ligne!");
return FALSE;
}
}
// Check for existence of chapter 1
if (!isset($curradv[1])) {
$this->bot->log("RpgAventure""ERROR""$filename ne contient pas de chapitre 1. Ceci est obligatoire pour commencer l&#39;aventure!");
return FALSE;
}
// Check if all choice targets exist as chapters
foreach ($curradv as $chapter_nr=>$chapter) {
if (!is_array($chapter["choices"]))
continue; 
foreach ($chapter["choices"] as $target=>$text) {
if (!isset($curradv[$target])) {
$this->bot->log("RpgAventure""ERROR""$filename - Chapitre $chapter_nr contient le choix $target, mais il n&#39;existe pas!");
return FALSE;
}
}
}
$this->bot->log("RpgAventure""PARSE""RPG aventure $filename chargé.");
return TRUE;
}

/**
 * Verifier ou executer la prochainne (ou premiere) étape dans l&#39;aventure donnée selon le
 * $chapter et $choice. La prochainne étape est annoncer directement a l&#39;utilisateur, toutes erreur est          * retournée sous forme de chaîne et annoncé a l&#39;utilisateur
 * Fonction est appelée directement par command_handler(..). Toutes les commandes nécessaires pour charger          * l&#39;aventure, vérifier les erreurs et cheat, les cd et les temps dépassé se font ici aussi.
 *  
 * @param $name Le nom de l&#39;utilisateur executant la commande rpgaventure
 * @param $aventure Le nom de l&#39;aventure demandé en tant que chaîne
 * @param $chapter Le numéro du chapitre en cours, à savoir ou est l&#39;utilisateur dans l&#39;histoire en ce          * moment
 * @param $choice La cible choisit (numéro du prochain chapitre), ou l&#39;utilisateur veut aller
 * @return Une chaîne envoyer a l&#39;utilisateur en tell, ou rien du tout ce qui n&#39;est pas plus mal^^. 
 */
function process_step($name$aventure$chapter FALSE$choice FALSE) {
// Init progress and aventures
$this->clear_timed_out_progress();
$this->clear_timed_out_cooldown();
$curradv  =& $this->aventures[$aventure];        // shortlink for the current adventure content
$currpro  =& $this->progress["$name:$aventure"];  // shortlink for the user&#39;s progress on current aventure
$currcool =& $this->cooldown["$name:$aventure"];  // shortlink for the user&#39;s cool down on current aventure
if (!$this->prepare_aventure($aventure))
return "##error##RPG aventure ##highlight##$aventure##end## n&#39;a pu être trouvé ou a une erreur.##end##";

// Check if progress timed out
// (time out error in lateral entrance mode is not possible, because the user can start from everywhere)
$is_lateral_entrance_everywhere $this->bot->core("settings")->get("RpgAventure""LateralEntrance");
$is_lateral_entrance_here = ($choice !== FALSE && $curradv[(int)$choice][&#39;lateral_entrance&#39;]);
if ($chapter !== FALSE && !isset($currpro) && !($is_lateral_entrance_everywhere || $is_lateral_entrance_here))
return "##error##Votre progression sur cette aventure a expirée ou vous l&#39;avez terminé. Recommencer!##end##";

// Check if user tries to re-do steps or cheat
if ($chapter !== FALSE && isset($currpro) && $chapter != $currpro["chapter"]) {
if ($chapter == $currpro["last_chapter"] && $choice == $currpro["last_choice"])
    return; // assume double click and ignore it
else
return "##error##Votre choix n&#39;est pas autorisé.Vous ne pouvez pas refaire une étape ou tricher!";
}

// Check if user tries to start over when not finished yet
if ($chapter === FALSE && isset($currpro)) {
if (!$currpro["last_chapter"])
return; // assume double click on start link, so we ignore it
else
return "##error##Vous ne pouvez pas recommencer, Vous n&#39;avez pas fini!##end##"
}

// Check if choice is possible
if ($chapter !== FALSE && !isset($curradv[(int)$chapter]["choices"][(int)$choice]))
return "##error##Choix impossible!##end##";

// Check if user tries to start adventure when cooldown active
if (!isset($currpro) && isset($currcool))
return "##error##Vous ne pouvez recommencer cette aventure pour le moment, cool down encore actif##end##"

// If this adventure was started right now, activate the cool down
if (!isset($currpro))
$currcool time();

// Depending on users choice start with either chapter 1 or with his selection 
if ($choice === FALSE) {
$currpro["chapter"] = 1;
} else {
$currpro["last_chapter"] = (int)$chapter;
$currpro["last_choice"]  = (int)$choice;
$currpro["chapter"]      = (int)$choice;
}

unset($chapter); // does not contain current value any more
unset($choice);  // does not contain current value any more

// Make chapter text
$text $curradv[$currpro["chapter"]]["chapter_text"];

// Follow redirects
$i 0;
while (isset($curradv[$currpro["chapter"]]["redirect"])) {
$i++;
if ($i 50) {
$this->bot->log("RpgAventure""ERROR""Il semble que l&#39;aventure $adventure a une redirection infini vers le chapitre {$currpro[&#39;chapter&#39;]}!");
$currpro NULL;
return "##error##Une erreur s&#39;est produite lors du traitement de votre demande. S&#39;il vous plaît informer Gauche!##end##";
}
$currpro["chapter"] = $curradv[$currpro["chapter"]]["redirect"];
}

// Add choice text as info blob
if (isset(
$curradv[$currpro["chapter"]]["choices"]) && count($curradv[$currpro["chapter"]]["choices"]) > 0) {
//
$text_for_blob = preg_replace(&#39;/{([^{}]+)}/&#39;, &#39;##highlight##$1##end##&#39;, $text);
//
$text_for_blob = htmlspecialchars(strip_tags($text_for_blob));
//
$text_for_blob = str_replace("\n", "<br>", $text_for_blob);
$info_blob  = "##blob_title## ::::: RPG AVENTURE :::::<br></><br>";
// $info_blob .= "##blob_text##$text_for_blob<br>";
$info_blob .= "##blob_text##";
$i 0;
foreach ($curradv[$currpro["chapter"]]["choices"] as $target_id=>$target_texts) {
// One target can have multiple texts, which is why it is always an array of strings
foreach ($target_texts as $target_text) {
$i++;
$info_blob .= "$i. <a href=&#39;chatcmd:///tell {$this->bot->botname} <pre>rpgaventure " .
  "$adventure {$currpro[&#39;chapter&#39;]} $target_id&#39;>" . htmlspecialchars($target_text) . "</a><br>";
}
}
$info_blob .= "</><br>" . $this->MSG_ONLY_CLICK_ONCE;
$info_blob = str_replace("\"""&quot;"$info_blob);
$text preg_replace(&#39;/{([^{}]+)}/&#39;, "<a href=\"text://$info_blob\">\$1</a>", $text);
}

// Insert user&#39;s name for ##name##
$text str_replace("##name##"$name$text);

// Send multi-line text as multiple tells
$text explode("\n"$text);
foreach ($text as $msg)
$this->bot->send_tell($name$msg);

// If finished, clear progression
if (!is_array($curradv[$currpro["chapter"]]["choices"]) || count($curradv[$currpro["chapter"]]["choices"]) == 0)
$currpro NULL;
// If not finished, update time stamp
else
$currpro["time_stamp"] = time();
}

}

?>

Offline Jiheld

  • BeBot User
  • **
  • Posts: 53
  • Karma: +0/-0
Re: Text Adventure Module
« Reply #6 on: November 26, 2009, 09:20:01 pm »
the download link doesnt work

Offline Gauche

  • BeBot Rookie
  • *
  • Posts: 16
  • Karma: +0/-0
Re: Text Adventure Module
« Reply #7 on: November 27, 2009, 12:59:47 pm »
I found one error in my script i whrite this :    private $adventures = array(); i change in    private $aventures = array();

But i have the same error.

Edit : Ok i'm big noob... i define $aventures and i use $aventure...i haven't test but i'm sure it's ok^^
« Last Edit: November 27, 2009, 01:03:13 pm by Gauche »

Offline Runemy

  • BeBot Apprentice
  • ***
  • Posts: 97
  • Karma: +0/-0
    • Exalted [Age of Conan guild - Aquilonia EU]
Re: Text Adventure Module
« Reply #8 on: December 14, 2009, 08:38:21 pm »
Got this one up and working with no problems and I really like the potential of it, but is it possible to get all things happening inside the popup window instead of a combination of chat box and window?
Wood of Exalted
Age of Conan
Aquilonia - EU

 

* Recent Posts

0.7.0 updates by bitnykk
[May 17, 2020, 04:22:04 pm]


Stats module by bitnykk
[April 16, 2020, 04:45:43 pm]


OnlineOrg by Hell
[February 28, 2020, 11:21:55 pm]


AO Bots - discord server by Kjellis1234
[January 23, 2020, 04:17:04 pm]


Offline AA training timer module by Kjellis1234
[August 29, 2019, 11:12:14 pm]

* Who's Online

  • Dot Guests: 114
  • Dot Hidden: 0
  • Dot Users: 0

There aren't any users online.

* Forum Staff

admin bitnykk
Administrator
Khalem admin Khalem
Administrator
WeZoN gmod WeZoN
Global Moderator
SimplePortal 2.3.7 © 2008-2020, SimplePortal