| |
Haris
Member
Откуда: Sweden
Регистрация: Янв. 2005
Всего: 12 сообщений
|
According to watcom its expecting "then" somewhere in this part of script.
Цитата:
procedure talk_p_proc begin
if (dude_charisma < 3)and(dude_level) < 1) and
(has_skill(dude_obj,SKILL_SCIENCE) < 20)
then begin
call Node001;
else if ((obj_is_carrying_obj_pid(dude_obj, PID_44_MAGNUM_REVOLVER) > 0)
then begin
call Node003;
end
else begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
then begin
call Node002;
gSay_End;
end_dialogue;
end
end
procedure destroy_p_proc begin
flick_obj := 0;
set_flick_dead;
inc_evil_critter
end
procedure look_at_p_proc begin
script_overrides;
display_mstr(100);
end
procedure description_p_proc begin
script_overrides;
display_mstr(150 + herebefore);
set_examined;
end
procedure use_skill_on_p_proc begin
end
procedure Node998 begin
set_hostile;
end
procedure Node999 begin
end
procedure Node900 begin
remove_pid_qty(dude_obj, PID_44_MAGNUM_REVOLVER, 1);
give_pid_qty(dude_obj, PID_44_MAGNUM_SPEEDLOADER, 1);
item_caps_adjust(dude_obj, 8000);
give_xp(10000);
then begin
call Node004;
end
procedure Node001 begin
floater (200);
end
procedure Node002 begin
Reply(201);
NOption(202, Node999, 004);
end
procedure Node003 begin
Reply(203);
NOption(204, Node004, 004);
NOption(205, Node999, 004);
end
procedure Node004 begin
Reply(206);
NOption(207, Node999, 004);
end
Yea dont ask me what this script is for its just a test script for later editing and making quests out of it. And this is not entire script i just took the part that is errored and i cant see whats wrong with it.
|
Отправлено: 23:27 - 12 Фев., 2005
|
|
Ray
Модератор
Откуда: Донецк,Украина
Регистрация: Янв. 2004
Всего: 746 сообщений
|
You should remove "begin" after
if (dude_charisma < 3)and(dude_level) < 1) and
(has_skill(dude_obj,SKILL_SCIENCE) < 20)
then
________________________________________
Or,second variant :
procedure talk_p_proc
begin
if ((dude_charisma < 3)and(dude_level) < 1) and
(has_skill(dude_obj,SKILL_SCIENCE) < 20)) then
begin
call Node001;
end
else if ((obj_is_carrying_obj_pid(dude_obj, PID_44_MAGNUM_REVOLVER) > 0) then
begin
call Node003;
end
........................
Maybe someone can find another mistakes?
P.S Sorry for my English 
-----
Не бывает невозможных задач – бывает мало времени.
|
Отправлено: 2:07 - 13 Фев., 2005
|
|
Haris
Member
Откуда: Sweden
Регистрация: Янв. 2005
Всего: 12 сообщений
|
Ok that didnt fix the problem. It still says "then" expected line 10263. Or somewhere around that line depending how much i edit. so it must be below the thing you said it was wrong. Here is the entire script.
Цитата:
/*
Copyright 1998-2003 Interplay Entertainment Corp. All rights reserved.
*/
/*
Name:
Location: Den
Description:
Log:
Created: August 22, 1998
Updated:
*/
/* Include Files */
#include "..\headers\define.h"
#define NAME SCRIPT_DCFLICK
#define TOWN_REPUTATION GVAR_TOWN_REP_THE_DEN
#include "..\headers\command.h"
#include "..\headers\ModReact.h"
#include "..\headers\Den.h"
/* Standard Script Procedures */
procedure start;
procedure critter_p_proc;
procedure pickup_p_proc;
procedure talk_p_proc;
procedure destroy_p_proc;
procedure look_at_p_proc;
procedure description_p_proc;
procedure use_skill_on_p_proc;
procedure damage_p_proc;
procedure map_enter_p_proc;
procedure timed_event_p_proc;
/* Script Specific Procedure Calls */
procedure Node998; // This Node is Always Combat
procedure Node999; // This Node is Always Ending
procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node900;
/* Local Variables which are saved. All Local Variables need to be
prepended by LVAR_ */
#define LVAR_Flags (4)
/* Imported variables from the Map scripts. These should only be
pointers and variables that need not be saved. If a variable
Needs to be saved, make it a map variable (MVAR_) */
/* Local variables which do not need to be saved between map changes. */
procedure map_enter_p_proc begin
//flick_obj := self_obj;
if (is_loading_game == false) then begin
if (map_first_run) then begin
critter_add_trait(self_obj,TRAIT_OBJECT,OBJECT_TEAM_NUM,TEAM_THE_DEN);
critter_add_trait(self_obj,TRAIT_OBJECT,OBJECT_AI_PACKET,AI_LONER_CITIZEN);
end
end
end
procedure critter_p_proc begin
if (self_can_see_dude) then begin
if (hostile) then begin
self_attack_dude;
end
end
end
procedure damage_p_proc begin
if (source_obj == dude_obj) then begin
set_personal_enemy;
end
end
procedure pickup_p_proc begin
if (source_obj == dude_obj) then begin
call Node998;
end
end
procedure talk_p_proc
begin
if ((dude_charisma < 3)and(dude_level) < 1) and
(has_skill(dude_obj,SKILL_SCIENCE) < 20)) then
begin
call Node001;
end
else if ((obj_is_carrying_obj_pid(dude_obj, PID_44_MAGNUM_REVOLVER) > 0) then
begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
then begin
call Node003;
gSay_End;
end_dialogue;
end
end
else begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
then begin
call Node002;
gSay_End;
end_dialogue;
end
end
procedure destroy_p_proc begin
flick_obj := 0;
set_flick_dead;
inc_evil_critter
end
procedure look_at_p_proc begin
script_overrides;
display_mstr(100);
end
procedure description_p_proc begin
script_overrides;
display_mstr(150 + herebefore);
set_examined;
end
procedure use_skill_on_p_proc begin
end
procedure Node998 begin
set_hostile;
end
procedure Node999 begin
end
procedure Node900 begin
remove_pid_qty(dude_obj, PID_44_MAGNUM_REVOLVER, 1);
give_pid_qty(dude_obj, PID_44_MAGNUM_SPEEDLOADER, 1);
item_caps_adjust(dude_obj, 8000);
give_xp(10000);
then begin
call Node004;
end
procedure Node001 begin
floater (200);
end
procedure Node002 begin
Reply(201);
NOption(202, Node999, 004);
end
procedure Node003 begin
Reply(203);
NOption(204, Node004, 004);
NOption(205, Node999, 004);
end
procedure Node004 begin
Reply(206);
NOption(207, Node999, 004);
end
|
Отправлено: 17:41 - 13 Фев., 2005
|
|
Ray
Модератор
Откуда: Донецк,Украина
Регистрация: Янв. 2004
Всего: 746 сообщений
|
Talk_p_proc should be :
procedure talk_p_proc
begin
if ((dude_charisma < 3)and(dude_level) < 1) and
(has_skill(dude_obj,SKILL_SCIENCE) < 20)) then
begin
call Node001;
end
else if ((obj_is_carrying_obj_pid(dude_obj, PID_44_MAGNUM_REVOLVER) > 0) then
begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
call Node003;
gSay_End;
end_dialogue;
end
else
begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
call Node002;
gSay_End;
end_dialogue;
end
end
-----
Не бывает невозможных задач – бывает мало времени.
|
Отправлено: 18:21 - 13 Фев., 2005
|
|
Haris
Member
Откуда: Sweden
Регистрация: Янв. 2005
Всего: 12 сообщений
|
Well i made it look exactly like you said and it still says its expecting "then" somewhere. I am pretty sure its in the lines below talk_p_proc.
|
Отправлено: 19:19 - 13 Фев., 2005
|
|
Wasteland Ghost
Маленькое Злое Привидение
Откуда: Россия, Самара
Регистрация: Дек. 2002
Всего: 2251 сообщение
|
Must be
remove_pid_qty(dude_obj, PID_44_MAGNUM_REVOLVER, 1)
give_pid_qty(dude_obj, PID_44_MAGNUM_SPEEDLOADER, 1)
remove_pid_qty and give_pid_qty are macros, which already include ;
|
Отправлено: 9:58 - 14 Фев., 2005
|
|
Haris
Member
Откуда: Sweden
Регистрация: Янв. 2005
Всего: 12 сообщений
|
Well that was one more of errors i fixed now. But still there is one expecting "then" somewhere in the script below talk_p_proc. So if anyone can see it please tell me.
|
Отправлено: 16:28 - 14 Фев., 2005
|
|
Raven
Пользователь
Откуда: Владик
Регистрация: Февр. 2004
Всего: 408 сообщений
|
procedure Node900 begin
remove_pid_qty(dude_obj, PID_44_MAGNUM_REVOLVER, 1);
give_pid_qty(dude_obj, PID_44_MAGNUM_SPEEDLOADER, 1);
item_caps_adjust(dude_obj, 8000);
give_xp(10000);
then begin //???? where the IF statement?
call Node004;
end
|
Отправлено: 16:34 - 14 Фев., 2005
|
|
Haris
Member
Откуда: Sweden
Регистрация: Янв. 2005
Всего: 12 сообщений
|
Yea i fixed that to, but thats not whats showing up as error. It keeps saying that i am missing ""Then"" somwhere in the script.
|
Отправлено: 18:17 - 14 Фев., 2005
|
|
Raven
Пользователь
Откуда: Владик
Регистрация: Февр. 2004
Всего: 408 сообщений
|
----------------------------------------------
procedure talk_p_proc
begin
if ((dude_charisma < 3)and(dude_level) < 1) and
(has_skill(dude_obj,SKILL_SCIENCE) < 20)) then
begin
call Node001;
end
else if ((obj_is_carrying_obj_pid(dude_obj, PID_44_MAGNUM_REVOLVER) > 0) then
begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
then begin //Drop this
call Node003;
gSay_End;
end_dialogue;
end //and this
end
else begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
then begin //and this
call Node002;
gSay_End;
end_dialogue;
end
end
----------------------------------------------
Finally:
----------------------------------------------
procedure talk_p_proc begin
if ((dude_charisma < 3)and(dude_level) < 1) and (has_skill(dude_obj,SKILL_SCIENCE) < 20)) then begin
call Node001;
end else if ((obj_is_carrying_obj_pid(dude_obj, PID_44_MAGNUM_REVOLVER) > 0) then begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
call Node003;
gSay_End;
end_dialogue;
end else begin
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start;
call Node002;
gSay_End;
end_dialogue;
end
end
----------------------------------------------
|
Отправлено: 18:26 - 14 Фев., 2005
|
|
| |
|