GeoSafari Geography

GeoSafari Geography
Publisher: Educational Insights Platforms: Windows, Mac OS Classic This game has uncompiled source code. This game has hidden development-related text.

This page is rather stubbly and could use some expansion. Are you a bad enough dude to rescue this article?

GeoSafari Geography is an educational geography game in the GeoSafari line of products. It was released sometime in the second half of the 1990s, with varying accounts reporting 1995, 1997, or 1999.

Cached Source Code

There are two cache.cst files in the ISO, apparently used as a binary cache. The one in the root directory contains snippets of source code written in AppleScript, including comments and debug messages, interspersed with binary data. As there are almost 3,000 such lines of source code, only one snippet is reproduced below as an example.

 on SetpFlashing me, val
   -- DEBUG 1 line
   -- put "button in sprite "&string(GetSpriteNum(me))&" just got set pFlashing message val = "&string(val)
   
   set pFlashing to val
   if pFlashing then
     set pLastFlash to the ticks
     set pFlashingSuspended to FALSE
   else
     Unhilite(me, FALSE)
   end if
 end
 
 on SuspendFlashing me
   set pFlashingSuspended to TRUE
 end
 
 on ResumeFlashing me
   set pFlashingSuspended to FALSE
 end
 
 on SetpFlashStopTime me, val
   set pFlashStopTime to integer(val)
 end
 
 on stepFrame me
   if pFlashing then
     if not pFlashingSuspended then
       if pFlashStopTime > 0 and the ticks > pFlashStopTime then
         -- stop flashing
         set pFlashing to FALSE
         Unhilite(me, FALSE)
         set pFlashStopTime to 0
       else
         if pLastFlash + pFlashTime < the ticks then
           set pLastFlash to the ticks
           ToggleHilite(me, pUpdateWhenFlashing)
         end if
       end if
     end if
   end if
 end
 
 on TrackMouse me
   put TrackMouse(ancestor) into clicked
   if clicked then
     set pFlashing to FALSE
     UnHilite(me, FALSE)
   end if
   
   return clicked
 end