Народ скажите где ошибка в скрипте(Редактор ругается на 18 строку.).Скрипт спер вот отсюда! вот сам скрипт begin 1@pi
short goneaway
short messageOn
short choice
float choicea
float choiceb
SetPos Z 44
if goneaway==1
Dontsaveobject
Disable
return
endif
if ( boatdoOnce==0 )
if Onactivate==1
Messagebox "Что вы хотите?", "Управлять лодкой","Быстрое путешествие","Отмена"
set messageOn to 1
endif
if messageOn==1
set choice to getbuttonpressed
if choice>=0
set messageOn to 0
if choice==0
"Player"->Addspell "water walking (unique)"
set boatspeed to 0
set boatdoonce to 1
PlaceatPc "1@Korab" 1 1 1
set goneaway to 1
Messagebox "Вы плывете"
elseif choice==1
Messagebox "Куда вы желаете отправится?","Восточное побережье","Южное побережье","Западное побережье","Северное побережье"
set boatdoOnce to 12
return
endif
endif
endif
return
endif
if boatdoOnce==12
set choicea to getbuttonpressed
if choicea>=0
if choicea==0
Messagebox "Какой город?","Альд Велоти","Недалеко от Гнисиса","Гнаар Мок","Хла Оуд"
elseif choicea==1
Messagebox "Какой город?","Сейда Нин","Эбенгард","Вивек","Недалеко от Пелагиада","Недалеко от Сурана"
elseif choicea==2
Messagebox "Какой город?","Тель Бранора","Тель Фир","Садрит Мора","Тель Арун","Тель Мора","Вос"
else
Messagebox "Какой город?","Дагон Фел","Хуул","Недалеко от Ахеммуза","Недалеко от Уршилаку"
endif
set boatdoonce to 13
return
endif
endif
if boatdoOnce==13
set choiceb to getbuttonpressed
if choiceb>=0
if choicea==0
if choiceb==0
"Player"->position -88678,128555,70,0
position -88432.055,128588.734,44358,0
setangle Z 10
elseif choiceb==1
"Player"->Position -86034.242,88588.461,65.306,0
Position -86034.242,88588.461,85,120
elseif choiceb==2
"Player"->Position -58683 26165 107 0
Position -58800.676,27492.027,85,58
;SetAngle Z 270
else
"Player"->Position -48421 -38964 236 0
position -48954,-39281,85,0
endif
elseif choicea==1
if choiceb==0
;Position -8882.121,-71993.232,44.58,0
;"Player"->position -10400 -71218 210 0
elseif choiceb==1
"Player"->position 20412 -102379 70 0
Position 20783 -102361 44.58 0
elseif choiceb==2
"Player"->position 22611 -87936 95 0
position 22669 -88147 44.58 90
setangle Z 270
elseif choiceb==3
"Player"->position 2172 -46895 142 0
position 2635 -46551 45 0
setangle Z 330
elseif choiceb==4
"Player"->position 52872 -51900 201 0
position 52535 -52009 44 0
endif
elseif choicea==2
if choiceb==0
"Player"->position 119043 -102158 58 0
position 118909.000,-102236.22,44.58,0
elseif choiceb==1
"Player"->position 127297,14673,59,0
position 127645.617,14618.494,44.58,0
setangle Z 30
elseif choiceb==2
"Player"->position 141825,38754,203,0
position 141354,38818,44.58,0
setangle Z 290
elseif choiceb==3
"Player"->position 123218,40899,90,0
position 123417,40671,56,0
setangle Z 180
elseif choiceb==4
;"Player"->position 126748,14687,135,0
;position 106021 115303 44.58 0
Messagebox "Not working (yet)"
elseif choiceb==5
"Player"->position 99992,114650,109,0
position 99714,114687,44.58,0
endif
elseif choicea==3
if choiceb==0
"Player"->position 62433,184190,86,0
position 62101.609,184199.281,44.58,0
elseif choiceb==1
"Player"->Position -68827.742,142175.078,70.0,0
Position -68573.742,142296.078,85, 0
setangle Z 20
elseif choiceb==2
"Player"->position 95257 139474 87 0
position 95204.734 140021.494 45 0
setangle Z 90
elseif choiceb==3
"Player"->position -28695,156802,90,0
position -28640,157082,45,0
setangle Z 90
endif
endif
set boatdoOnce to 0
set choice to -1
set choicea to -1
set choiceb to -1
set messageon to 0
endif
endif
end 1@pi