
Edit: He says that that he don't remember the changes. So sorry, I can't make it, until he recalls it


edited 3×, last 06.08.16 09:27:26 am
on:load { 		if (exists("unit",1)==1) { 			freetimers 0,"detectrun"; 			timer 0,$runtick,0,"detectrun"; 		}
on:load { 		if (exists("unit",1)==1) { 			freetimers 0,"detectrun"; 			timer 0,1000,0,"detectrun"; 		}
menu_adventure=0 menu_random=1 menu_loadsave=1 menu_singleplayer=1 menu_multiplayer=0 menu_editor=1 menu_achievements=1 menu_credits=1
on:create { 	 if ((count("unit",72) + count_inrange("unit",79))==0) { //is there a worker? no 			local $c; 			$c+=count_inrange("unit",71,50,"unit",1);						//is there a female native in range? 			if ($c==1) {													//yes 				closemenu; 				play "woman_sigh.wav"; 				areal_event "createworker", getx("unit",1), gety("unit",1), getz("unit",1), 50; 				event "workerbell","global";		 			}elseif ($c==0) {												//no 				local $c; 				$c+=count_inrange("unit",78,50,"unit",1);					//is there a male native in range? 				if ($c==1) {												//yes 					closemenu; 					play "man_sigh.wav"; 					areal_event "createworker", getx("unit",1), gety("unit",1), getz("unit",1), 50; 					event "workerbell","global"; 				}elseif ($c==0) {											//no 					local $id; 					$id=create("item",3592); 					store $id,"unit",1;										//at least you get your honey back 					speech "negative"; 				} 			} 	 }elseif ((count("unit",72) + count("unit",79))==1) { 		//is there a worker? yes 			 if ((count("unit",89) + count("unit",90))==2) { 		//is there already 2 warriors? yes 				 local $id; 					$id=create("item",3592); 					store $id,"unit",1;										//at least you get your honey back 					speech "negative"; 				}elseif ((count("unit",89) + count("unit",90))==1) { 		//is there already 2 warriors? no there is only 1 						local $c; 						$c+=count_inrange("unit",78,50,"unit",1);			//is there a male native in range? 						if ($c==1) {										//yes 							closemenu; 							play "man_sigh.wav"; 							areal_event "createwarriorm", getx("unit",1), gety("unit",1), getz("unit",1), 50; 							event "warriorhorn","global"; 						}elseif ($c==0) {									//no 							local $c; 							$c+=count_inrange("unit",71,50,"unit",1);		//is there a female native in range? 							if ($c==1) {									//yes 								closemenu; 								play "woman_sigh.wav"; 								areal_event "createwarriorf", getx("unit",1), gety("unit",1), getz("unit",1), 50; 								event "warriorhorn","global"; 							}elseif ($c==0) {								//no 								local $id; 								$id=create("item",3592); 								store $id,"unit",1;							//at least you get your honey back 								speech "negative"; 							} 						} 			}elseif ((count("unit",89) + count("unit",90))==0) { 			//is there a warrior1? no 				local $c; 				$c+=count_inrange("unit",71,50,"unit",1);					//is there a female native in range? 				if ($c==1) {												//yes 					closemenu; 					play "woman_sigh.wav"; 					areal_event "createwarriorf", getx("unit",1), gety("unit",1), getz("unit",1), 50; 					event "warriorhorn","global";		 				}elseif ($c==0) { 							//no 					local $c; 					$c+=count_inrange("unit",78,50,"unit",1);				//is there a male native in range? 					if ($c==1) {											//yes 						closemenu; 						play "man_sigh.wav"; 						areal_event "createwarriorm", getx("unit",1), gety("unit",1), getz("unit",1), 50; 						event "warriorhorn","global"; 					}elseif ($c==0) {										//no 						local $id; 						$id=create("item",3592); 						store $id,"unit",1;									//at least you get your honey back 						speech "negative"; 					} 					} 				} 		} 	}
setpos "unit",$id, getx("unit",1), gety("unit",1), getz("unit",1);