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 -p C:\Documents and Settings\Ägaren\Mina Dokument\Min Musik\06 Long Distance Runaround.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 -p C:\Documents and Settings\Ägaren\Mina Dokument\Min Musik\06 Long Distance Runaround.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 -p C:\Documents and Settings\Ägaren\Mina Dokument\Min Musik\06 Long Distance Runaround.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 -p C:\Documents and Settings\Ägaren\Mina Dokument\Min Musik\06 Long Distance Runaround.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
 }