script=start 
	on:create {
	local $pid,$pclass,$age;
	$pid=parent_id();
	$pclass=parent_class();
	$age=1;
	}
	on:use {
	msg "Aged for $age days",3;
	}
	on:eat {
	process "drinking",2000;
	drink 10,5,30,0;
	}
	on:changeday {
	if ($age>=0){
	$age++;
	}elseif ($age>=2){
	freestored ("$pclass",$pid,39,1);
	store (228,"$pclass",$pid);
	}
freevar $age,$pid,$pclass; 
} 
script=end

on:useground {
		local $x,$y,$z,$id,$item;
		$x=use_x();
		$y=use_y();
		$z=use_z();
		$item=getplayerweapon();
		
		if (count_stored("unit",1,$item)>0){
if ($item==42){
				if ($y>0){
					if (freespace($x,$y,$z,20,1,0,0,0)){
						freestored "unit",1,42,1;
						$id=create("object",121,$x,$z);
						event "plant","object",$id;
						if (skillvalue("plant")>=400){
							process "planting grain",500;
						}else{
							process "planting grain",2000;
						}
						play "dig.wav";
						play "mat_leaf1.wav";
						event "iskill_plant","global";
					}else{
						speech "negative";
						msg "Here is not enough space!",3;
					}
				}else{
					speech "negative";
					msg "Grain does not grow in water!",3;
				}

if (freespace($x,$y,$z,20,1,0,0,0)){ 
                              freestored "unit",1,42,1; 
                              $id=create("object",121,$x,$z); 
                              event "plant","object",$id; 
                              if (skillvalue("plant")>=400){ 
                                   process "planting grain",500; 
                              }else{ 
                                   process "planting grain",2000; 
                              } 
                              play "dig.wav"; 
                              play "mat_leaf1.wav"; 
                              event "iskill_plant","global"; 
                         }else{ 
                              speech "negative"; 
                              msg "Here is not enough space!",3; 
                         }

if (count_inrange("unit",1,30,"self")>=1){
kill "self";
}

################### Random Profile: Endless Game

id=1
name=Endless Game - Easy


################### Scripts

script=start
	on:preload {
		// Set Startpoint in Sea
		$size=mapsize();
		$size=$size/3;
		$id=create("info",1,$size,$size);
		setpos "info",$id,"self",2,"self";
		// Random Startscriptstuff
		extendscript 0,0,"sys/scripts/random_start.s2s";
	}

	on:start {		
		// Start Items
		$id=create("item",44,0,0,15);
		store $id,"unit",1;
		$id=create("item",66,0,0,20);
		store $id,"unit",1;
		$id=create("item",38,0,0,10);
		store $id,"unit",1;
		$id=create("item",47,0,0,10);
		store $id,"unit",1;
		$id=create("item",118);
		store $id,"unit",1;
		
		// Settings
		$s2g_firesuccess=60;
		$s2g_plagues=100000;

		// Forced Creation of Important Stuff
		if (count("object",75)==0){ randomcreate "object",75,1,500; } 	// Watersource
		if (count("object",121)==0){ randomcreate "object",121,1,500; } // Grain
		if (count("object",47)==0){ randomcreate "object",47,1,500; } 	// Cotton
		if (count("object",70)==0){ randomcreate "object",70,1,500; } 	// Metal
		
		// Cotton Spawn
		loop ("objects",47){
			$id=loop_id();
			$x=getx("object",$id);
			$z=getz("object",$id);
			$id=create("info",45,$x,$z);
			info_spawncontrol $id,50,"object",47,1,3,1;
			starttrigger $id;
			exit;
		}

	}

	on:stdiary {
		// Start Diary
		add "You are stranded.";
		add "Try to survive - besides this there is no special aim.";
		add "Have fun!";
		add "";
		add "!4Difficulty: Easy";
		add "A lot of resources and no dangerous animals.";
		add "You have a lot of supplies at the start.";
		diary "Stranded";
	}

	on:changeday {
		$mapc=mapsize();
		$mapc=($c/512);
		// Spawn Birds
		if (count("unit",25)<$mapc){ randomcreate "unit",25; }
		// Spawn Butterflies
		if (count("unit",6)<$mapc){ randomcreate "unit",6; }
		if (count("unit",7)<$mapc){ randomcreate "unit",7; }		
		freevar $mapc;
	}
script=end


################### Objects

### Palms
range=15,255
ratio=40
objects=1
ratio=30
objects=2,3,4
ratio=10
objects=5,7
ratio=5
objects=6,213
ratio=10
objects=8,9

### Trees
range=50,270
ratio=10
objects=10,12,13,14,16,
ratio=7
objects=15,229,230,231
ratio=2
objects=11,17

### Bushes
range=30,240
ratio=30
objects=33
range=50,250
ratio=10
objects=31,32,33,36,37,38,185,124
ratio=3
objects=34,39,40,41,42
ratio=6
objects=35,42,45,46,47
range=-10,10
ratio=5
objects=43
range=-500,-50
ratio=5
objects=48

### Stones
range=-5,500
ratio=20
objects=63
ratio=15
objects=65
ratio=5
objects=64,67,68,69,126,227,226,228
ratio=7
objects=70,73,74,75
ratio=1
objects=71,72
ratio=15
objects=60,61,62
ratio=7
objects=66

### Flowers
range=60,200
ratio=20
objects=100,101,102,103,105,106,107,108,109

### Stuff
range=50,100
ratio=5
objects=120,130,131,134,135,232,233
ratio=15
objects=121

### Reproduction
range=60,200
ratio=10
objects=197,198,202,204
range=-100000,-70
ratio=10
objects=210

################### Units

### Land
range=-10,40
ratio=15
units=3,10
range=10,200
ratio=20
units=6,7,16,17,18,20,26,46,47,49,50,52,53
ratio=10
range=50,150
units=19
ratio=5
units=15

### Sky
range=-100000,100000
ratio=10
units=25
ratio=5
units=36

### Sea
range=-100000,-70
ratio=20
units=4,11,12

################### Items

### Stuff
range=60,200
ratio=6
items=7,15,21,22,23,24,25,26
ratio=4
items=31,32,33,16,17,19,20
ratio=2
items=34,35,18
range=0,30
ratio=10
items=102
ratio=5
items=103

local $x,$z;
$x=getx ("self");
$z=getz ("self");
create "object" TYPE,$x,$z;
freevar $x,$z;
free "self";

### Leatherman
id=125
name=Leatherman
group=tool
icon=gfx\leatherman.bmp
model=gfx\ironbar.b3d
scale=2
mat=metal
weight=10
rate=1000
damage=5
info=my Leatherman Fuse
healthchange=0
script=start

	on:attack2 { 

                alteritem $Leathermans_qty,125,$Leathermans_qty,126;
		alteritem  1,126;
 
		msg "Knife Mode",4;

script=end