Home

Code Snippets

Simple scene library for Ren'Py

Fri, 2010-03-19 02:32 — Chris Charabaruk

While some visual novels offer a way to play back scenes after completion of the game, Ren'Py doesn't offer a scene player in its standard menus. However, it is possible to add such a feature, as the code here demonstrates.

  1. # Copyright (c) 2010 Karl Knechtel, Chris Charabaruk
  2. # Licensed under the zlib/libpng license
  3. # see http://www.opensource.org/licenses/zlib-license.php
  4.  
  5. # Documentation is in-line with the source, or visit
  6. # http://labs.coldacid.net/code/simple-scene-library-renpy
  7. # for further details.
  8.  
  9. init python:
  10.    
  11.     # show_scene_ actually plays the scene, show_scene lets us use it
  12.     # from a button.
  13.     def show_scene_(scene_id):
  14.        
  15.         # Put a halt to music, in case the scene starts without any
  16.         renpy.music.stop(fadeout=0.0)
  17.        
  18.         # Now we actually star

Automatic directories for audio in Ren'Py

Fri, 2010-03-19 00:04 — Chris Charabaruk

This is an idea I had for Ren'Py, which saves visual novel developers from having to type out a complete path for any music, sound or voice files they want to play in their project. If implemented, it will make for less cluttered project directories and less redundancy in play and queue statements.

  1. # No code yet, may add later

Ren'Py settings for SciTE 2.0.3+

Wed, 2010-03-17 13:03 — Chris Charabaruk

With a minimal change, SciTE's Python lexer can be used for formatting of Ren'Py scripts. The property settings below can be used to configure SciTE 2.x to better deal with Ren'Py. Note, however, that properties in SciTE are global, and not per-buffer; if you're switching between Python and Ren'Py files, you'll need to write some Lua code to handle swapping property values whenever tabs are changed and files opened.

  1. # Define SciTE settings for Ren'Py files.
  2.  
  3. file.patterns.rpy=*.rpy;*.rpym
  4.  
  5. shbang.renpy=rpy
  6.  
  7. filter.renpy=Ren'Py (rpy rpym)|$(file.patterns.rpy)|
  8.  
  9. lexer.$(file.patterns.rpy)=python
  10. lexer.renpy.strings.over.newline=1
  11.  
  12. keywordclass.renpy=at call expression hide image init jump label menu \
  13. onlayer python scene set show with \
  14. and assert break class continue def del elif \
  15. else except exec finally for from global if import in is lambda None \
  16. not or pass print raise return try while yield $ \
  17. play queue stop sound music fadeout fadein channel \
  18. voice sustain nvl clear window
  19.  
  20. k

Number rounding extension method

Tue, 2009-03-03 11:32 — Chris Charabaruk

A C# extension method which takes an integer and rounds it to the nearest multiple of 10. Written in response to this question on Stack Overflow.

  1. using System;
  2.  
  3. namespace TestApp
  4. {
  5.     public static class ExtensionMethods
  6.     {
  7.         public static int RoundOff (this int i)
  8.         {
  9.             return ((int)Math.Round(i / 10.0)) * 10;
  10.         }
  11.     }
  12.  
  13.     public class TestApp
  14.     {
  15.         public static void Main()
  16.         {
  17.             int roundedNumber = 236.RoundOff(); // returns 240
  18.             int roundedNumber2 = 11.RoundOff(); // returns 10
  19.             Console.WriteLine(roundedNumber);
  20.             Console.WriteLine(roundedNumber2);
  21.         }
  22.     }
  23. }

Anti-Telus filter

Fri, 2009-02-13 16:37 — Chris Charabaruk

A Perl script which removes the tag added by Telus in mobile e-mail, so that various services can work properly when using mobile e-mail from a Telus phone.

  1. #!/usr/bin/perl
  2.  
  3. $user = 'REDIR@EXAMPLE.ADDRESS';
  4. $pass = 'PASSWORD';
  5. $host = 'POP3.SERVER.ADDRESS';
  6.  
  7. %redir = (
  8.     'sender@example.address' => 'reciever@example.address'
  9. );
  10.  
  11. $sendmail = '/usr/sbin/sendmail -t';
  12. #DEBUG $sendmail = 'cat >>test2.txt';
  13.  
  14. use Mail::POP3Client;
  15.  
  16. # connection
  17. $pop = new Mail::POP3Client(HOST => $host);
  18. $pop->User($user);
  19. $pop->Pass($pass);
  20.  
  21. $pop->Connect() >= 0 || die $pop->Message();
  22.  
  23. # loop through messages
  24. for ($i = 1; $i <= $pop->Count(); $i++) {
  25.     %head = ();
  26.  
  27.     foreach ($pop->Head($i)) {
  28.         /^(From|Subject|Content-type):\s+(
# Syndicate content