Game.inf:

on:usesea {
temp $menuclass,$menuid;
$menuclass=currentclass();
$menuid=currentid();
if ($gamecorevalue==0){
dialogue "start","sys\scripts\game.s2s";
}
if ($gamecorevalue>0){
if ($gamecorevalue==1){
if (inarea_freshwater("unit",1)) {
process "drinking",1000;
drink 0,0,25,0;
speech "positive";
}else{
process "drinking",1000;
drink 0,0,-15,0;
msg "Ugh! Saltwater!";
}
} elseif ($gamecorevalue==2){
if (count_stored("unit",1,106)>0){
if (inarea_freshwater("unit",1)) {
alteritem 1,106,1,38;
msg "I filled the bottle!",4;
speech "positive";
}else{
if (count_stored("unit",1,106)>0){
alteritem 1,106,1,499;
msg "I filled the bottle!",4;
speech "positive";
}else{
msg "I dont have a bottle!",3;
speech "negative";
}
} $gamecorevalue=0;
}
}
}
}

Game.s2s:

page=start
title=Water Menu
text=start
What should i do?
text=end
button=gw,Gather Water
button=dw,Drink Water
button=action:close,Nothing

page=gw
script=start
setlocal "unit",1,"gamecorevalue",2;
closemenu;
script=end

page=dw
script=start
setlocal "unit",1,"gamecorevalue",1;
closemenu;
script=end

### Native
id=500
name=Eingeborener Trader
group=human
model=gfx\native.b3d
icon=gfx\native.bmp
scale=0.9
colxr=9
colyr=20
behaviour=normal
speed=1.0
eyes=10
health=100
damage=10
range=150
attackrange=40
maxweight=25000
ani_move=2,3,0.10
ani_attack=23,25,0.10
ani_die=4,7,0.15
ani_idle1=9,13,0.09
ani_idle2=14,21,0.08
ani_idle3=21,23,0.12
sfx=native
script=start
     on:start {
          ai_stay "self";
     }
     on:use {
          dialogue "start","sys\scripts\trader.s2s";
     }
     on:kill {
          event "iskill_hunt","global";
     }
script=end


page=start
title=trader
# Hemp -> Cookie
### Bread -> Stones
trade=start
sell=5,1
buy=23,5
trade=end
### Bread -> Leafes
trade=start
sell=5,1
buy=15,15
trade=end
### Bread -> Lianas
trade=start
sell=5,1
buy=26,3
trade=end
### Bread -> Branches
trade=start
sell=5,1
buy=24,10
trade=end
### Bread -> Trunk
trade=start
sell=5,1
buy=7,1
trade=end
### Bread -> Wool
trade=start
sell=5,2
buy=48,3
trade=end
### Bread -> Iron
trade=start
sell=5,3
buy=85
trade=end
### Bread -> Strong Healherb
trade=start
sell=5,4
buy=18,1
trade=end
### Bread -> Spears
trade=start
sell=5,5
buy=52,10
trade=end
trade=end
### Hempleaf -> Grapes
trade=start
sell=5,15
buy=45,3
trade=end
### Hempleaf -> Grain Pile
trade=start
sell=5,15
buy=42,3
trade=end
### Hempleaf -> Plums
trade=start
sell=5,15
buy=116,3
trade=end
### Hempleaf -> Coconut
trade=start
sell=5,20
buy=27,3
trade=end
### Hempleaf -> Banana
trade=start
sell=5,20
buy=14,3
trade=end
### Hempleaf -> Cacao Fruit
trade=start
sell=5,25
buy=67,3
trade=end
### Hempleaf -> Coffee Fruits
trade=start
sell=5,25
buy=70,3
trade=end
# Meat -> Juice
trade=start
sell=5,3
buy=47,1
trade=end
# Meat -> Healthpotion
trade=start
sell=5,5
buy=36,1
trade=end
# Meat -> Airpotion
trade=start
sell=5,1
buy=114,1
trade=end
# Meat + Bread -> Speedpotion
trade=start
sell=5,1
buy=112,1
trade=end
### Skin, Cord -> Volleyball
trade=start
sell=5,10
buy=77,1
trade=end
### Iron -> Rocket
trade=start
sell=5,28
buy=79,1
trade=end
### Iron, Poison -> Toxic Rocket
trade=start
sell=5,32
buy=80,1
trade=end
### Iron, Ironbar, Cord, Firestone -> Rocket Launcher
trade=start
sell=5,50
buy=81,1
trade=end
### Iron, Cord, Strong Healherb -> Medikit
trade=start
sell=5,15
buy=118,1
trade=end
# Meat + Bread -> Immortalpotion
trade=start
sell=5,6
buy=113,1
trade=end
# Wine -> Gold
trade=start
sell=39,1
buy=5,1
trade=end
# Pearl -> Gold
trade=start
sell=108,1
buy=5,1
trade=end
# Goldnugget -> Gold
trade=start
sell=4,1
buy=5,25
trade=end
# Crystal -> Gold
trade=start
sell=9,1
buy=5,35
trade=end
# Crystal -> Gold
trade=start
sell=38,1
buy=5,8
trade=end
# Crystal -> Gold
trade=start
sell=90,1
buy=5,8
trade=end
button=action:close,Cheers!

### Flower Seed
id=122
name=Flower seed
group=tool
icon=gfx\bag.bmp
model=gfx\bag.b3d
scale=1.0
mat=wood
weight=8
info=This seed is a random flower seed i hope its not somthing bad!
behaviour=spear
damage=0
drag=1
healthchange=0
script=start
     on:impact{
                              freevar $tmp3;
                              $tmp3=impact_id();
                              $tmp3=random(1,15);
                         if ($tmp3==1){
                              $tmp=create("object",100);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3==2){
                              $tmp=create("object",101);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3==3){
                              $tmp=create("object",102);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3==4){
                              $tmp=create("object",103);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3<==5){
                              $tmp=create("object",104);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3<==6){
                              $tmp=create("object",105);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3<==7){
                              $tmp=create("object",106);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3<==8){
                              $tmp=create("object",107);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3<==9){
                              $tmp=create("object",108);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3<==10){
                              $tmp=create("object",109);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "positive";
                              msg "Successfuly Planted!";
                         }elseif($tmp3<==11){
                              $tmp=create("object",110);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "negitive";
                              msg "Oh no the seed i planted was tainted!";
                         }elseif($tmp3<==12){
                              $tmp=create("object",110);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "negitive";
                              msg "Oh no the seed i planted was tainted!";
                         }elseif($tmp3<==13){
                              $tmp=create("object",110);
                              setpos "object",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "object",$tmp,0,getyaw("unit",1),0;
                              speech "negitive";
                              msg "Oh no the seed i planted was tainted!";
                         }elseif($tmp3<==14){
                              $tmp=create("unit",8);
                              setpos "unit",$tmp,impact_x(),impact_y(),impact_z();
                              setrot "unit",$tmp,0,getyaw("unit",1),0;
                              speech "negitive";
                              msg "Oh no it was a pirahnah plant!";
                         }elseif($tmp3<=15){
                              speech "negitive";
                              msg "Damn dident plant ok lets try again.";
                              find 122;
}
script=end