This is just a frogger game :) copy and paste into remotes (ctrl + R), and type /set %owner nick (your other nick, because im assuming this to be a bot).

Commands:
/me crosses the road - actives the game.
!fstats - your stats in the game.
!rfrogger - resets the scores
!hp - set someones hp if there are playing, and the user is the owner.

this is CharltonJ's idea, i just fixed it up
I added:
A load sequence which is used for nothing if you don't want to use up the space, DON'T.
I fixed up the stats, they seem to work now :)

This is the link to the original.
http://www.hawkee.com/snippet/3805/

V2.0
added health and death count, and also a reset command, and a health cheat xD

on *:LOAD: {
  echo 9 -a You Have Loaded The Frogger Game.
  echo 9 -a I Do Hope You Like It.
  echo 9 -a Ask Someone Else To Type: /me crosses the road.
}
on *:action:$($+(crosses,*,road,*)):*: {
  if (travian isin $chan) || ($chan == #WW) { halt }
  else {
    if (%lvl. [ $+ [ $nick ] ] == $null) { set %hp. [ $+ [ $nick ] ] 10 | set %lvl. [ $+ [ $nick ] ] 1 | set %level. [ $+ [ $nick ] ] 0 | set %dead. [ $+ [ $nick ] ] 0 | part1 }
    if (%lvl. [ $+ [ $nick ] ] == 1) {
      if (%hp. [ $+ [ $nick ] ] < 1) { msg $chan 4,1Ooh Dear, 0 $+ $nick 4You Died. | inc %dead. [ $+ [ $nick ] ] 1  | unset %lvl. [ $+ [ $nick ] ] %hp. [ $+ [ $nick ] ] | set %lvl. [ $+ [ $nick ] ] 1 | set %hp. [ $+ [ $nick ] ] 10 | halt }
      else { part1 }
    }
    if (%lvl. [ $+ [ $nick ] ] == 2) {
      if (%hp. [ $+ [ $nick ] ] < 1) { msg $chan 4,1Ooh Dear, 0 $+ $nick 4You Died. | inc %dead. [ $+ [ $nick ] ] 1  | unset %lvl. [ $+ [ $nick ] ] %hp. [ $+ [ $nick ] ] | set %lvl. [ $+ [ $nick ] ] 1 | set %hp. [ $+ [ $nick ] ] 10 | halt }
      else { part2 }
    }
    if (%lvl. [ $+ [ $nick ] ] == 3) {
      if (%hp. [ $+ [ $nick ] ] < 1) { msg $chan 4,1Ooh Dear, 0 $+ $nick 4You Died. | inc %dead. [ $+ [ $nick ] ] 1  | unset %lvl. [ $+ [ $nick ] ] %hp. [ $+ [ $nick ] ] | set %lvl. [ $+ [ $nick ] ] 1 | set %hp. [ $+ [ $nick ] ] 10 | halt }
      else { part3 }
    }
    if (%lvl. [ $+ [ $nick ] ] == 4) {
      if (%hp. [ $+ [ $nick ] ] < 1) { msg $chan 4,1Ooh Dear, 0 $+ $nick 4You Died. | inc %dead. [ $+ [ $nick ] ] 1  | unset %lvl. [ $+ [ $nick ] ] %hp. [ $+ [ $nick ] ] | set %lvl. [ $+ [ $nick ] ] 1 | set %hp. [ $+ [ $nick ] ] 10 | halt }
      else { win }
    }
  }
}
alias part1 {
  var %x = $rand(1,4)
  if (%x == 1) { .msg $chan 4,1[14wow! 0 $+ $nick 14got hit by a airforce jet!4] | set %lvl. [ $+ [ $nick ] ] 1 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%x == 2) { .msg $chan 4,1[14so bad, 0 $+ $nick 14got hit by a car!4] | set %lvl. [ $+ [ $nick ] ] 1 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%x == 3) { .msg $chan 4,1[14oh my god! 0 $+ $nick 14got hit by a tank!4] | set %lvl. [ $+ [ $nick ] ] 1 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%x == 4) { .msg $chan 0,9 $+ $nick made it to the first patch of grass! | notice $nick you can keep going! | set %lvl. [ $+ [ $nick ] ] 2 | halt }
}
alias part2 {
  var %y = $rand(1,4)
  if (%y == 1) { .msg $chan 4,1[14wow! 0 $+ $nick 14got hit by a airforce jet!4] | set %lvl. [ $+ [ $nick ] ] 2 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%y == 2) { .msg $chan 4,1[14so bad, 0 $+ $nick 14got hit by a car!4] | set %lvl. [ $+ [ $nick ] ] 2 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%y == 3) { .msg $chan 4,1[14oh my god! 0 $+ $nick 14got hit by a tank!4] | set %lvl. [ $+ [ $nick ] ] 2 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%y == 4) { .msg $chan 0,9 $+ $nick made it to the second patch of grass! | notice $nick you can keep going! | set %lvl. [ $+ [ $nick ] ] 3 | halt }
}
alias part3 {
  var %i = $rand(1,4)
  if (%i == 1) { .msg $chan 4,1[14wow! 0 $+ $nick 14got hit by a airforce jet!4] | set %lvl. [ $+ [ $nick ] ] 3 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%i == 2) { .msg $chan 4,1[14so bad, 0 $+ $nick 14got hit by a car!4] | set %lvl. [ $+ [ $nick ] ] 3 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%i == 3) { .msg $chan 4,1[14oh my god! 0 $+ $nick 14got hit by a tank!4] | set %lvl. [ $+ [ $nick ] ] 3 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%i == 4) { .msg $chan 0,9 $+ $nick made it to the last patch of grass, before the end of the road! | notice $nick you can keep going! | set %lvl. [ $+ [ $nick ] ] 4 | halt }
}
alias win {
  var %w = $rand(1,4)
  if (%w == 1) { .msg $chan 4,1[14wow! 0 $+ $nick 14got hit by a airforce jet!4] | set %lvl. [ $+ [ $nick ] ] 4 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%w == 2) { .msg $chan 4,1[14so bad, 0 $+ $nick 14got hit by a car!4] | set %lvl. [ $+ [ $nick ] ] 4 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%w == 3) { .msg $chan 4,1[14oh my god! 0 $+ $nick 14got hit by a tank!4] | set %lvl. [ $+ [ $nick ] ] 4 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | dec %hp. [ $+ [ $nick ] ] 1 | halt }
  if (%w == 4) { .msg $chan 1,15 $+ $nick made it to the other side of the road!  | inc %level. [ $+ [ $nick ] ] 1 | msg $chan 1,7Successfully!0 $nick 1became level0 %level. [ $+ [ $nick ] ]  | unset %lvl. [ $+ [ $nick ] ] | unset %hp. [ $+ [ $nick ] ] | set %lvl. [ $+ [ $nick ] ] 1 | ignore $nick $+ !*@* | timer 1 20 ignore -r $nick $+ !*@* | notice $nick Please Wait 20 seconds if you want to try again. | timer 1 20 notice $nick You can now try again! | set %hp. [ $+ [ $nick ] ] 10 }
}
on *:TEXT:!Fstats*:#: {
  if (%level. [ $+ [ $nick ] ] == $null) { set %level. [ $+ [ $nick ] ] 0 | set %hp. [ $+ [ $nick ] ] 10 | set %lvl. [ $+ [ $nick ] ] 1 | set %dead. [ $+ [ $nick ] ] 0 }
  if (!$2) { msg $chan 1,7Your Frog level is:0 %level. [ $+ [ $nick ] ] $+ 1, Health is:0 %hp. [ $+ [ $nick ] ] $+ 1, Part:0 %lvl. [ $+ [ $nick ] ] $+ 1, And deaths:0 %dead. [ $+ [ $nick ] ] $+ 1. }
  else { 
    if (%level. [ $+ [ $2 ] ] == $null) { set %level. [ $+ [ $2 ] ] 0 | set %hp. [ $+ [ $2 ] ] 10 | set %lvl. [ $+ [ $2 ] ] 1 | set %dead. [ $+ [ $2 ] ] 0 }
  msg $chan 0,7 $+ $2 $+ 1's Frog level is:0 %level. [ $+ [ $2 ] ] $+ 1, Health is:0 %hp. [ $+ [ $2 ] ] $+ 1, Part:0 %lvl. [ $+ [ $2 ] ] $+ 1, And deaths:0 %dead. [ $+ [ $2 ] ] $+ 1. }
}
on *:TEXT:!rfrogger:#: {
  if (%owner == $nick) {
    unset %hp* %lvl* %level* %dead*
    msg $chan 4,1The frogger scores have been reset, by 0,1 $+ $nick $+ 4,1.
  }
  else { notice $nick you do not have permission to do that. }
}
on *:TEXT:!hp*:#: {
  if (%owner == $nick) {
    if (!$3) { unset %hp. [ $+ [ $nick ] ] | set %hp. [ $+ [ $nick ] ] $2 | notice $nick health cheat activated. }
    else { unset %hp. [ $+ [ $2 ] ] | set %hp. [ $+ [ $2 ] ] $3 | notice $nick health cheat activated. | notice $2 health cheat activated, by $nick $+ . Don't tell ANYONE about this. :) }
  }
  else { notice $nick you do not have permission to do that. }
}