###################### # new_proto.cmd # # note: ONE base proto had better be selected, or bad things could happen :) # set save_cwd = `execute("oppwf")` # note where we were before here set cur_sel = `opselect("/obj")` opcf /obj if ( `argc($cur_sel) == 1` ) oprm geno* # remove all geno objects oprm prototype # remove old proto set which_proto = `arg($cur_sel, 0)` opcp $which_proto prototype # copy currently selected proto to "prototype" oplocate -d -x 1 -y 0 prototype # position tile opparm /ch/evolve/static value6 ( `chf("/obj/prototype/grid_sep",1)` ) opparm /ch/evolve/live value6 ( `chf("/obj/prototype/grid_sep",1)` ) source initialize_population.cmd # call initialize_population endif opcf $save_cwd # back to where we were before we got here