Форум TeamX
   Home   Members  
Форум TeamX > Технические вопросы > Мастерская > Скриптинг (Moderators: Mynah, Alchemist, Pavel) > Topic: Скрипт не компилится
Pages: [1] |   Go Down
 
Author Topic: Скрипт не компилится  (Read 1949 times)
Jordan
Пользователь
Posts: 416

476228895
Скрипт не компилится
« on: 28 September 2008, 07:19:36 »
Приветствую!

Скрипт не компилиться. Выдаёт

Startreck scripting language compiler (Fallout 2 edition)
*** THERE WERE ERRORS (1 of them)
Compiling ARADESH.i
ARADESH.i(8860): Error! expecting ';'.

Я смотрел эту строку но не могу найти ошибку, целый час бьюсь с эти скриптом.

Вот архив внутри h файлы компилятор и препроцессор что бы скомпилить скрипт запустите

1.bat

http://jordan631.narod.ru/Mods/F2/F1_to_F2_conversion/1.7z
« Last Edit: 02 June 2009, 09:36:32 by Wasteland Ghost »
Воспрянет Россия, из праха отцов
Расправятся крылья, миллионов сердец
Поднимут все головы и грудью вздохнут
И громка скажут, что пришли
Мы пришли, со столетней войны
Wasteland Ghost
Администратор
Posts: 869

Маленькое Злое Привидение
Re: Скрипты
« Reply #1 on: 28 September 2008, 11:40:08 »
Архив битый. Кинь строку 8860 и 2-3 строки до неё и после. Наверняка где-нить после end затесалась ; Надо просто внимательно всё просмотреть.
Jordan
Пользователь
Posts: 416

476228895
Re: Скрипты
« Reply #2 on: 28 September 2008, 11:51:47 »
Вот эти строчки

До

 if (has_skill(dude_obj, (10)) >= proto_data(obj_pid((83886081)), (14))) then begin if (obj_carrying_pid_obj(self_obj, (83886081)) >= 1) then begin if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption(proto_data((83886081), (1)) + " кол-во " + obj_is_carrying_obj_pid(self_obj, (83886081)), NODE_PID_FLYING_ROCKET); SayOption("", ""); end end end
 if (has_skill(dude_obj, (10)) >= proto_data(obj_pid((83886082)), (14))) then begin if (obj_carrying_pid_obj(self_obj, (83886082)) >= 1) then begin if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption(proto_data((83886082), (1)) + " кол-во " + obj_is_carrying_obj_pid(self_obj, (83886082)), NODE_PID_FLYING_PLASMA_BALL); SayOption("", ""); end end end
 if (has_skill(dude_obj, (10)) >= proto_data(obj_pid((83886086)), (14))) then begin if (obj_carrying_pid_obj(self_obj, (83886086)) >= 1) then begin if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption(proto_data((83886086), (1)) + " кол-во " + obj_is_carrying_obj_pid(self_obj, (83886086)), NODE_PID_FLYING_KNIFE); SayOption("", ""); end end end
 if (has_skill(dude_obj, (10)) >= proto_data(obj_pid((83886087)), (14))) then begin if (obj_carrying_pid_obj(self_obj, (83886087)) >= 1) then begin if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption(proto_data((83886087), (1)) + " кол-во " + obj_is_carrying_obj_pid(self_obj, (83886087)), NODE_PID_FLYING_SPEAR); SayOption("", ""); end end end
 if (has_skill(dude_obj, (10)) >= proto_data(obj_pid((83886089)), (14))) then begin if (obj_carrying_pid_obj(self_obj, (83886089)) >= 1) then begin if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption(proto_data((83886089), (1)) + " кол-во " + obj_is_carrying_obj_pid(self_obj, (83886089)), NODE_PID_FLYING_LASER_BLAST); SayOption("", ""); end end end
 if (has_skill(dude_obj, (10)) >= proto_data(obj_pid((83886090)), (14))) then begin if (obj_carrying_pid_obj(self_obj, (83886090)) >= 1) then begin if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption(proto_data((83886090), (1)) + " кол-во " + obj_is_carrying_obj_pid(self_obj, (83886090)), NODE_PID_FLYING_PLASMA_BLAST); SayOption("", ""); end end end
 if (has_skill(dude_obj, (10)) >= proto_data(obj_pid((83886091)), (14))) then begin if (obj_carrying_pid_obj(self_obj, (83886091)) >= 1) then begin if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption(proto_data((83886091), (1)) + " кол-во " + obj_is_carrying_obj_pid(self_obj, (83886091)), NODE_PID_FLYING_ELECTRICITY_BOLT); SayOption("", ""); end end end
 if ((get_critter_stat(dude_obj,(4))) >= 001) then begin SayOption("[Выход]", Node999); SayOption("", ""); end






// PROCEDURES_H
 
После

procedure do_dialogue;
procedure aradeshleave;
procedure aradeshend;
procedure aradeshcbt;
procedure aradesh01;
procedure aradesh01_2;
procedure aradesh01_3;
procedure aradesh02;
procedure aradesh02_2;
procedure aradesh02_4;
procedure aradesh02_5;
procedure aradesh03;
procedure aradesh04;


Перезалил архив качать здесь

Архив скачал проверил

http://jordan631.narod.ru/Mods/F2/F1_to_F2_conversion/error.7z
Воспрянет Россия, из праха отцов
Расправятся крылья, миллионов сердец
Поднимут все головы и грудью вздохнут
И громка скажут, что пришли
Мы пришли, со столетней войны
Wasteland Ghost
Администратор
Posts: 869

Маленькое Злое Привидение
Re: Скрипты
« Reply #3 on: 28 September 2008, 16:12:43 »
end потерял.

procedure Node_Steal begin
// куча всего
end

PS Вот он, результат пренебрежительного отношения к форматированию исходного кода. Подмигивающий
Jordan
Пользователь
Posts: 416

476228895
Re: Скрипты
« Reply #4 on: 28 September 2008, 22:22:03 »
Wasteland Ghost

Quote
end потерял.

procedure Node_Steal begin
// куча всего
end

Спасибо!

Quote
PS Вот он, результат пренебрежительного отношения к форматированию исходного кода. Подмигивающий

А что с ним не так. Я создал макросы и отдельные h файлы для удобства.
Воспрянет Россия, из праха отцов
Расправятся крылья, миллионов сердец
Поднимут все головы и грудью вздохнут
И громка скажут, что пришли
Мы пришли, со столетней войны
Wasteland Ghost
Администратор
Posts: 869

Маленькое Злое Привидение
Re: Скрипты
« Reply #5 on: 29 September 2008, 08:22:02 »

procedure name begin
    if condition == true then begin
        // do something
        // do something else
        if other_condition == true then begin
            // do something again
        end
    end
    else begin
        // and here we will do something too
    end
end


Уровни видны. Упихнуть всё в одну строку, может, и компактно, но совершенно нечитабельно.
Pages: [1] |   Go Up
 
Форум TeamX > Технические вопросы > Мастерская > Скриптинг (Moderators: Mynah, Alchemist, Pavel) > Topic: Скрипт не компилится