/farm
alias farm {
dialog -md farm farm
}
dialog farm {
title "Farm Patch Timer by Lancs CCC"
size -1 -1 300 150
option dbu
text "Patch", 1, 10 7 25 8
text "Seed", 2, 73 7 25 8
text "Time (minutes)", 5, 122 7 40 8
text "Time started", 6, 206 7 31 8
text "Time finished", 7, 255 7 33 8
button "Ok", 3, 90 125 37 12, ok
button "Cancel", 4, 150 125 37 12, cancel
edit "", 8, 5 22 43 10
edit "", 9, 5 42 43 10
edit "", 10, 5 62 43 10
edit "", 11, 5 83 43 10
edit "", 12, 5 103 43 10
edit "", 13, 62 22 43 10
edit "", 14, 62 42 43 10
edit "", 15, 62 62 43 10
edit "", 16, 62 83 43 10
edit "", 17, 62 103 43 10
edit "", 18, 134 22 16 10
edit "", 19, 134 42 16 10
edit "", 20, 134 62 16 10
edit "", 21, 134 83 16 10
edit "", 22, 134 103 16 10
button "Start", 23, 168 22 18 12
button "Start", 24, 168 42 18 12
button "Start", 25, 168 62 18 12
button "Start", 26, 168 83 18 12
button "Start", 27, 168 103 18 12
edit "", 28, 206 22 32 10, disable result
edit "", 29, 206 42 32 10, disable result
edit "", 30, 206 62 32 10, disable result
edit "", 31, 206 83 32 10, disable result
edit "", 32, 206 103 32 10, disable result
edit "", 33, 255 22 32 10, disable result
edit "", 34, 255 42 32 10, disable result
edit "", 35, 255 62 32 10, disable result
edit "", 36, 255 83 32 10, disable result
edit "", 37, 255 103 32 10, disable result
}
on *:DIALOG:farm:sclick:23:{
if ($did(8) == $null || $did(13) == $null) {
did -a farm 8 Fill In
did -a farm 13 Fill In
notice $me Please fill in the missing sections.
halt
}
else {
did -a farm 28 $time
notice $me Timer started for your $did(13) seeds at $did(8) ( $+ $did(18) $+ min growth)
timer 1 $calc($did(18) *60) /notice $me The patch at $did(8) has finished growing your $did(13) seeds.
timer 1 $calc($did(18) *60) /splay beep.mp3 }
}
on *:DIALOG:farm:sclick:24:{
if ($did(9) == $null || $did(14) == $null) {
did -a farm 9 Fill In
did -a farm 14 Fill In
notice $me Please fill in the missing sections.
halt
}
else {
did -a farm 28 $time
notice $me Timer started for your $did(14) seeds at $did(9) ( $+ $did(19) $+ min growth)
timer 1 $calc($did(19) *60) /notice $me The patch at $did(9) has finished growing your $did(14) seeds.
timer 1 $calc($did(19) *60) /splay beep.mp3 }
}
on *:DIALOG:farm:sclick:25:{
if ($did(10) == $null || $did(15) == $null) {
did -a farm 10 Fill In
did -a farm 15 Fill In
notice $me Please fill in the missing sections.
halt
}
else {
did -a farm 28 $time
notice $me Timer started for your $did(15) seeds at $did(10) ( $+ $did(20) $+ min growth)
timer 1 $calc($did(20) *60) /notice $me The patch at $did(10) has finished growing your $did(15) seeds.
timer 1 $calc($did(20) *60) /splay beep.mp3 }
}
on *:DIALOG:farm:sclick:26:{
if ($did(11) == $null || $did(16) == $null) {
did -a farm 11 Fill In
did -a farm 16 Fill In
notice $me Please fill in the missing sections.
halt
}
else {
did -a farm 28 $time
notice $me Timer started for your $did(16) seeds at $did(11) ( $+ $did(21) $+ min growth)
timer 1 $calc($did(21) *60) /notice $me The patch at $did(11) has finished growing your $did(16) seeds.
timer 1 $calc($did(21) *60) /splay beep.mp3 }
}
on *:DIALOG:farm:sclick:27:{
if ($did(12) == $null || $did(17) == $null) {
did -a farm 12 Fill In
did -a farm 17 Fill In
notice $me Please fill in the missing sections.
halt
}