SpiralKinetics Flowers — File Browser
SpiralKineticsFlowersv1.0 / SpiralKineticsFlowersv1.0 / SKflowers / scripts / 02-flowers.mrc
02-flowers.mrc — 10.62 KB — Download this file
dialog inputlist {
size -1 -1 160 113
title "Flowers Input List Setting"
icon $mircdir\Icons\input.ico
option dbu
box "" 1, 3 0 154 110
list 2, 8 30 60 80 , sort
check "Enable input set" 3, 15 7 47 10
check "Rainbow Input" 13, 15 16 47 10
check "Octa Text Input" 14, 75 7 47 10
check "Flip Text Input" 15, 75 16 47 10
edit "" 4, 72 38 80 10 , autohs
edit "" 5, 72 58 80 10 , autohs
text "Your Text:" 6, 72 30 30 8
text "Input Will Be:" 7, 72 50 40 8
button "Add" 8, 75 75 25 9
button "Delete" 9, 125 75 25 9
button "OK" 11, 74 92 35 10 ,cancel
button "Show List" 12, 115 92 35 10
}
on 1:dialog:inputlist:*:*:{
if ($devent == init) {
if (%input == ON) { did -c $dname 3 }
if (%inputcolouring == ON) { did -c $dname 13 }
if (%inputocta == ON) { did -c $dname 14 }
if (%inputflip == ON) { did -c $dname 15 }
inputlistshow
did -b $dname 9
}
if ($devent == sclick) {
if ($did == 3) { .inputon }
if ($did == 13) { .inputcolouring }
if ($did == 14) { .text.octa }
if ($did == 15) { .text.flip }
if ($did == 2) && ($did(2).sel != $null) {
did -e $dname 9
did -ra $dname 4 $did(2).seltext
did -ra $dname 5 %input [ $+ [ $did(2).seltext ] ]
if ($active != @Input-List) { window -ak @Input-List }
clear @Input-List
echo @Input-List *** $did(2).seltext => %input [ $+ [ $did(2).seltext ] ]
}
if ($did == 8) {
if (* * iswm $did(4)) { set %errorinadd Don't leave empty char! }
elseif ($did(4) != $null) && ($did(5) != $null) {
set %inputadd $did(4)
set %input-add $did(5)
inputadd
}
}
if ($did == 9) && ($did(2).sel != $null) {
set %inputdel $did(2).seltext
inputdel
}
if ($did == 11) { window -c @inpu-set }
if ($did == 12) { inputlistshoww | input.code }
} }
on 1:input:*: {
if ($left($1,1) = /) { return }
if (%isidleAway == on) || ($away == $true) {
if (%away.since == $null) {
.echo -a $timestamp ***AUTO IDLE Var away.since ERROR!
.scon -a raw away
.unset %isidleAway
}
else {
.say i'm back after14 $duration($calc($ctime - %away.ctime)) idle since %away.since
.scon -a raw away
.unset %isidleAway %away.ctime
} }
elseif (%input == ON) && ($1 == %input1) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input2) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input3) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input4) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input5) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input6) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input7) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input8) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input9) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input10) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input11) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input12) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input13) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input14) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input15) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input16) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input17) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input18) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input19) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input20) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input21) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input22) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input23) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input24) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input25) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input26) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input27) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input28) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input29) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input30) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input31) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input32) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input33) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input34) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input35) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input36) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input37) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input38) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input39) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input40) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input41) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input42) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input43) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input44) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input45) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input46) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input47) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input48) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input49) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input50) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input51) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input52) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input53) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input54) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input55) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input56) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input57) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input58) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input59) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
elseif (%input == ON) && ($1 == %input60) { msg $active ` %input [ $+ [ $1 ] ] $2- | halt }
If ($1 == !love): { //say 4 $+ $chr(226) $+ $chr(157) $+ $chr(164) $+ $2- | .halt }
If ($1 == !tel): { //say 4 $+ $chr(226) $+ $chr(132) $+ $chr(161) $+ $2- | .halt }
If ($1 == !sun): { //say 7 $+ $chr(226) $+ $chr(152) $+ $chr(128) $+ $2- | .halt }
If ($1 == !cloud): { //say 0 $+ $chr(226) $+ $chr(152) $+ $chr(129) $+ $2- | .halt }
If ($1 == !payung): { //say 11 $+ $chr(226) $+ $chr(152) $+ $chr(130) $+ $2- | .halt }
If ($1 == !star1): { //say 8 $+ $chr(226) $+ $chr(152) $+ $chr(133) $+ $2- | .halt }
If ($1 == !star2): { //say 8 $+ $chr(226) $+ $chr(152) $+ $chr(134) $+ $2- | .halt }
If ($1 == !racun): { //say 4 $+ $chr(226) $+ $chr(152) $+ $chr(162) $+ $2- | .halt }
If ($1 == !metal): { //say 4 $+ $chr(226) $+ $chr(152) $+ $chr(174) $+ $2- | .halt }
If ($1 == !yinyang): { //say 0 $+ $chr(226) $+ $chr(152) $+ $chr(175) $+ $2- | .halt }
If ($1 == !male): { //say 0 $+ $chr(226) $+ $chr(153) $+ $chr(128) $+ $2- | .halt }
If ($1 == !female): { //say 0 $+ $chr(226) $+ $chr(153) $+ $chr(130) $+ $2- | .halt }
If ($1 == !sheet1): { //say 4 $+ $chr(226) $+ $chr(153) $+ $chr(169) $+ $2- | .halt }
If ($1 == !sheet2): { //say 4 $+ $chr(226) $+ $chr(153) $+ $chr(170) $+ $2- | .halt }
If ($1 == !sheet3): { //say 4 $+ $chr(226) $+ $chr(153) $+ $chr(171) $+ $2- | .halt }
If ($1 == !sheet4): { //say 4 $+ $chr(226) $+ $chr(153) $+ $chr(172) $+ $2- | .halt }
If ($1 == !sheet5): { //say 4 $+ $chr(226) $+ $chr(153) $+ $chr(173) $+ $2- | .halt }
If ($1 == !sheet6): { //say 4 $+ $chr(226) $+ $chr(153) $+ $chr(174) $+ $2- | .halt }
If ($1 == !sheet7): { //say 4 $+ $chr(226) $+ $chr(153) $+ $chr(175) $+ $2- | .halt }
If ($1 == !right): { //say 4 $+ $chr(226) $+ $chr(156) $+ $chr(148) $+ $2- | .halt }
If ($1 == !wrong): { //say 4 $+ $chr(226) $+ $chr(156) $+ $chr(150) $+ $2- | .halt }
If ($1 == brbi): {
//say ` Be Right Back. Idle! $2-
.scon -a ame auto Idle. afk!
.isgone
.halt
}
if ($active != $null) { .timerGone 0 1800 isGone }
If ($target ischan) && ($1 ison $chan) { msg $chan ° $+ $iif($1 isop $chan,@,$iif($1 isvo $chan,+,$iif($1 ison $chan,``))) $+ $+ $1 $+ ! $2- | halt }
if (%inputcolouring == ON) {
if ($left($1-,1) != /) {
haltdef
set -l %count 1
while (%count <= $len($1-)) {
set -l %rainbow %rainbow $+ $+ $gettok(04.07.08.09.11.13,$r(1,6),46) $+ ,01 $+ $iif($mid($1-,%count,1) != $chr(32),$mid($1-,%count,1),$chr(32) $+ $chr(32))
inc %count
}
msg $active %rainbow
} }
if (%inputocta == ON) { .octatext $1- | .halt }
if (%inputflip == ON) { .flip $1- | .halt }
}