0pad = [if (< $arg1 10) [result (concatword 0 @arg1)] [result @arg1]]

bakfile = [
	bffl = [
		bfk1 =; loopfiles g "packages/base" ogz [
			if (> (strstr $g (format "%1.bak" (mapname))) -1) [
				bfk1 = (concat $bfk1 (substr $g (+ (strlen (mapname)) 4)))
			]
		]
	]
	if (= $arg2) bffl
	if (= (getmode) 1) [
		if (= $arg2) [bkf2 = (mapname)]
		if (=s $bfk2 (mapname)) [
			savemap (format "%1.bak%2" (mapname) (0pad (+ (? (=s $bfk1) $arg2 (max @bfk1)) 1)))
			sleep (*f $arg1 60000) [bakfile @arg1 (+ (? (=s $bfk1) @arg2 (max @bfk1)) 1)]; bffl
		]
	]
]