This game displays a group of letters (in alphabetical order) and removes one of them. You have three seconds to find the missing letter and put it in. This game consists of nine levels. If you lose one of them, you lose all of your progress in the game and have to start over. /txtfind to open. If you feel the need to stop the game at anytime, /find_stop will stop the game and exit the browser. Hope you guys like this game. =)
alias txtfind {
if ($window(findtxt)) { window -c @findtxt }
window -l15e @findtxt
set %findwon 1
txtfind_ game
}
alias -l txtfind_ {
if ($1 = game) {
clear @findtxt
if (%findwon = 1) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 2) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 3) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g h i, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 4) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g h i j k l, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 5) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g h i j k l m n o, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 6) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g h i j k l m n o p q r, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 7) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g h i j k l m n o p q r s t u, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 8) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g h i j k l m n o p q r s t u v w x, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
if (%findwon = 9) {
echo @findtxt $str(-,6)
echo @findtxt Now starting $+($sline($active,1),...)
echo @findtxt $str(-,6)
var %x = a b c d e f g h i j k l m n o, p q r s t u v w x y z, %y = $r(1,$numtok(%x,32))
aline -p @findtxt %x
set -e %find.get.data $gettok(%x,%y,32)
.timer 1 1 aline -p @findtxt $deltok(%x,%y,32)
.timerfind 0 1 getfind
}
}
}
on *:input:@findtxt:{
if ($1 iswm %find.get.data) {
.timerfind off
unset %timerfind
inc %findwon 1
echo @findtxt $str(-,6)
echo @findtxt Now proceeding to level %findwon $+ ...
echo @findtxt $str(-,6)
.timer 1 3 txtfind_ game
if (%findwon = 10) {
echo @findtxt You have won the game! Good job.
.timer 1 2 find_stop
}
}
if ($1 !iswm %find.get.data) {
echo @findtxt $str(-,6)
echo @findtxt You have lost the game. Now unsetting all data...
echo @findtxt $str(-,6)
unset %findwon %timerfind
.timerfind off
.timer 1 1 find_stop
}
}
alias -l getfind {
inc %timerfind 1
if (%timerfind <= 3) {
if ($v1 = 1) aline -p @findtxt $v1
else rline -p @findtxt 6 $v1
}
if (%timerfind > 3) {
.timerfind off
unset %find.get.*
unset %findwon %timerfind
find_stop
txtfind_ game
}
}
alias find_stop {
.timerfind off
unset %find.get.*
unset %timerfind
window -c @findtxt
}