» TeamX (����� ������)«


����� TeamX » ���. ��������� » ������� (��� ������� �� ���������� - ����)

������� �� �����
<< ����. ����. >>
������������ �������� ���� ����

 
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

��� ������ � ���� ����� ���� ��������:
1. ��� ����� ������� ���������� ������������ ��� ��������, ��� ��������� ��� � ��������?
2. ��� ����� ������� ������������ ��� ��������, ������� ������������ ��� � ������ *.ssl (� ���� �������� �� F_GECK�. ������ ��� ����� ����� �� ����� http://www.tehnokrat.nm.ru)?

(��������������(�) GaroldPredator - 18:25 - 16 ���., 2004)

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 18:24 - 16 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

��������� ������������� ����������� �������� � ������� ����������������. ������� ���� "��� ��������" �� ����������. ���� �� ����������. � ������ ������ ���������� FScript-HowTo, ������� � ������ ����� ����� �����. �.�. �� "������� ����" �� "������ ���� ������". ����� ������ - �� ����. ����� ���� ��� 3 ������.

����������: 4:32 - 17 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

������ ������ � ������� ����������� : ��� ������� �����,������� ����������� *.ssl � *.int?

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 18:41 - 17 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

������������ ������ �������. ����� � ����� Scripts. ������ compile.exe.
����������� dos4gw.exe compile.exe ���_�������.ssl

� ��� ����� ��������� ������������. ����������� ����� - Watcom 11-�� ������. �� ����� ���������� ����� �����, ���� �� �������.

����������: 19:34 - 17 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

����� ���� � ���-�� �� �� �����, �� ��� � ���� ����� "can't load executable format for file DOS4GW.EXE ���, ���� � ��������� ������  ������� ��-������� ��������, �� ������ DOS4GW.EXE ����� ���_�������.SSL
�� �������, ������,!!!
���-�-�-�-��!!!!
P.S.

�� ��������� ������ � ��������� ������?!
������:

������ compile.exe. ����������� dos4gw.exe compile.exe ���_�������.ssl



-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 20:21 - 17 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

������ (��������� :-) ��������� ����������������� ����������:

- ������ � mapper\scripts ���� test.ssl
- ����� ����
----------------------------------------
procedure start begin
end
-----------------------------------------
- ������� cmd.exe (command.com)
- ������� � mapper\scripts
- ����:
dos4gw.exe compile.exe test.ssl

���� �������� ������� "Compiling TEST.SSL" - �� ��.
���� �������� ������� "Can`t load ���-�� ���"... ��� �� �������. Compile.exe - ��� dos-���������, � dos4gw - ��� dos-extender. ��������������, � Win2K, WinXP Win2K3 � ���������� WinME ����� ���������� �������� - dos`� ���. �������� �������� �������� DOSBox ��� ������� 98-�� ����������� �������� ���...

� ���� � 2000-�� ����� ��� ���� ����� ���. ����� �����. ��� ����� (?).

����������: 4:34 - 18 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

�������� ��������������� test.ssl ����������� ���������, �� �������� ������ ��������.
��� �������������� ������ ������� �������, �����
Undifened symbol reply
������ reply ����� ���� ���-������ ������. reply - ��� �������, ����������.

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 15:13 - 18 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

���, Reply - ��� �� �������, ��� ������. :-)

�.�. ���-�� � ������� command.h ��������

#define Reply(x) gsay_reply(NAME,x)

NAME - ����� ������� msg-����� �� scrname.msg
x - ����� ������ ����� �� msg-�����

�.�. gsay_reply - ��� �������, � Reply - ������ ����������. � ������ ������� �����, ��������:

#define NAME  1404
#include <command.h>

� ������ ������,��������,
gsay_reply(1404,201)
����� ������ ������
Reply(201)

��� ����, ����� ����� ���� ������������ #define � #include ����� �����, ���������� "������������". ������ ������ cpp.exe, ������������ � ����� C ��� Pascal ������������. ������������� Watcom.

��� �����? �� ... ����� � �����. ���, ��������, � ����� :-) ��, � �����, ������, ���� ��������. ����� ������ �����.

��� �������� - ��� ������ *cpp*.exe (���-�� ���� w386cpp.exe -����� �� ����), ������� ��� � ���� �� �������� � ��������:
cpp.exe [�����] -i=[���� � ����� headers] ���_�������.ssl
����� ��������� � ���� ������� :-) �� ������ �������� �����-�� ������ (���� �� ������ �������). ��� ��� ����� �������������.

������ ��� ���������� �� ������ ����� bat-���.

����������: 6:48 - 19 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

� ���� ��� ����� ���� �������:
��-������, � ����� (�� ����-�-�-��) �� ���� ����� ������������. ���� �������� ���� ����, ������ ������������, ������� �������, �� � ����� �� ����� ��� (����� � �� ��� �����)?!
������, � ���� ���� Visual C++ 5.0. ������ �� �����-�� Microsoft Developer Studio. � � ��� ���� �� ����� ������������ (����� � �� ��� �����)?!
��-������, � ��� ������� �������, � , ��� �������, ��� ���� �� (F-GECK) �� ���������� ��� ������������� �#include � #define ��2����, �� � ��� ����� � ���� �� ������ ���� ��������� �������� ������ � "reply��", � ��� (???) ��������� ��������, ����� � ������� ������ "reply�" "gsay_reply", ���� � ��������, ��� ��� �� �������� #include, �� ��� ������ ���� ��������, ��� ��� �� �����, ��� ����� "gsay_replay", ������, ��� �� ������������ � �ommand.h, � ��� �� ����� � ���� ����������!
�� ����� ��� �� ����� �� �����, ������, ��� ��� �� ��������, ��� ����� dude_is_male, ���� � �ommand.h � � ������ �������� ��� ����� ������������!
�����, � ����� ר-������ �� �������?!?!?!

(��������������(�) GaroldPredator - 17:21 - 19 ���., 2004)

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 17:20 - 19 ���., 2004
Tim
������������

������: �����-���������
�����������: ��� 2003

�����: 265 ���������

2Raven
� ����� ������������ ������ ��� ������... ��� � ���� ����� ruby... � ��������� ��� ������������ �� int � ssl...  � �������...
� � F-GECK �����������... � � ��������..
����� ��� ����� ������� ����������?
�.�. ������ �� ������� � ��������... �� ������� ����� FScript-HowTo �����������... �� �������� ���������...

-----
�������� ������ - ��! ��! ��!
���������� ���� - ���! ���! ���!

����������: 17:33 - 19 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

2 Tim
����� ���������������� ��������?
� ��� �� Ruby ������, ���?

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 17:47 - 19 ���., 2004
Tim
������������

������: �����-���������
�����������: ��� 2003

�����: 265 ���������

������ ���-��... �� �����... ���� �� ���� ������... ����?

-----
�������� ������ - ��! ��! ��!
���������� ���� - ���! ���! ���!

����������: 19:06 - 19 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

2 Tim
���� ����� �����������...
� ������, �����!
���� �����:
hunter199090@mail.ru
������� Thank you!



(��������������(�) GaroldPredator - 19:34 - 19 ���., 2004)

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 19:33 - 19 ���., 2004
Tim
������������

������: �����-���������
�����������: ��� 2003

�����: 265 ���������

2GaroldPredator
��������� ����� �������� � ����� ���� � �������� ��� ������� �����:
http://www.dm4lab.to/~usa/ruby/index_en.html

�� ��� ������� ������.... � ���� 1.6.8
� ����� ���...
� ��� ����� ��� ������...

���. � ���� ����� 741��... ����� ��� ����. ������ ��� ��� ��� �����...
�������� ���� ���-������ ������ ��� �� ���... ��� �����...?

-----
�������� ������ - ��! ��! ��!
���������� ���� - ���! ���! ���!

����������: 20:24 - 19 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

2 Tim
� ��� ������ ����� ����, ������� ����� ��������!
�����, ��� ���������� ������!

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 22:15 - 19 ���., 2004
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

������������ watcom ����� ����� (849K).

����� F-GECK �� ����� �������� ��������� � ���������� ��������. ��� ������� ������ "�������������" ��� ������� ��� ������� BAT-����� compiler.bat � ������� ������ ���� ��������� ���� � �������������, ����������� � ����� ���������� ��� ��������� �� ����������� int-������.

������������ Ruby ������������� ������ ����� ssl, �� ��� �� ����� ����������� BIS, � ����������� ���� ������������ ��� ����������� �� �����. ��� � �������� ������ ������ � ������ ����������� ����� ����������.

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 0:13 - 20 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Garold

����� ������, ���� ��� ���� ������:
1. ���������� �������
2. �������

���������� ������� ������� � ������, �� �� ����� ����� ��������� �������� ��� ���������� include-�� �����-���� �����. ���� � ������� ������������ ���������� ������� - �� ������������ �� �����, ���������� �������� � ��� ����.

������� - ��� ����������/���������� ���������� ������. ��������, ���� ����� ��������� ������������ ���������� ������� obj_name(dude_obj) - �.�. �������� ��� ������. ������ ����� �� ������ ��������

#define pl_name obj_name(dude_obj)

� ������������ pl_name, �� ������ ���� ����������� ������������.

�������� �� "������" HowTo (��. 2):
-------------------------------------------------------------
�� ������� ����������� ����������� ��� ���� ��������� - ������������. �� ���� ��� ���������� "��������� �������������" � ��������� ��. ������ ��������� ����� - ��� ���������� � ������� #.

���� ��� �������� ���� �������� - #define � #include

��������� #define ������ ������ (�� ����� ������ ���������) ������ ������� ��������� ������. ��������:

#define ONE 1
#define TWO 2

������� ��� ����� ONE � ������ �� 1 � ����� TWO �� 2. (ONE < TWO ����������� � 1 < 2)

��������� #include � �������� ��������� �������� ��� ����� - � ��� "���������" ���� ���� ���� � ������ - ��� ��� � �� ����� �����, ��� �������� ���������. �������� #include "c:\text.txt" ����� �������� �� ���������� ����� c:\text.txt. �� �� ������ ����������� ����� ����� ������ � ������ ���������. ��� ����, ����� � ����� ������� �� �������� ������������ ��� ��������� �� ���� �������� - ���������� ������������� �����.

�.�. �� ������ ������ ����� #include <text.txt> � �������� ������������ � ������ -I c:\ - ������ ��� ���� ��������� ��� ��������� #include ������������ ����� ������ � "c:\".
-------------------------------------------------------------

������ command.h ��� ��� � �������� ������� ����� ���� ��������.
��������, ������  dude_is_male �������� ��� (�� �� command.h):

#define dude_is_male                        (dude_gender == GENDER_MALE)

� ���� ������� ���� ������:
#define dude_gender                         (get_critter_stat(dude_obj,STAT_gender))

, � � ����� define.h ������������ ����� ���������� GENDER_MALE:
#define GENDER_MALE   (0)
#define GENDER_FEMALE (1)

���� �� "���������" ������ dude_is_male, �� �������:

get_critter_stat(dude_obj,STAT_gender) == 0

, ��� get_critter_stat - ��� ���������� �������, � dude_obj - ��������� �� ������ (�.�. ������� ����������� �� ��������� � ������. ���� Elder - ��������� �� ����������, �� get_critter_stat(Elder,STAT_gender) ������ ��� ����������).

��� "����������", ���������� ���������� ������� ������������ �� ���� define-� (����. GENDER_MALE). �.�. STAT_gender - ��� ���� define. ������� � define.h:

#define STAT_gender                (34)

� ����� ������ ��������, ���

dude_is_male

��� ���� �����, ��� �

get_critter_stat(dude_obj,34) == 0

���� �� �������� ��� dude_is_male � ������ �� get_critter_stat(dude_obj,34) == 0 - �� ������������ ���� �� ������������.

���� ����, ��� ��������� ������� �������, ��� ��� ��� � ����������. ��� ��� ��������� ����� ��������� � ���������� ������������.

to Tim and Garold

�� �������-������� - ����������� ��, ��� �� �������. ���� � ���� ����� ������� ��������� � ��������. � ��� ������, � � ���� ����� ��� � HowTo ������ :-)

����������: 6:23 - 20 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

��� �� �������! � ������ �������� ������ �� ��� ��� ���!
�� �����, �� ����� ����, ����, �������!


(���������� �� 15:33 - 20 ���., 2004.)


2 VSEM
� ���� �� ����� �����-�� �����:
�����  ������� ������� �������������, watcom ������� ������ � ��������� ������������ ������:
ScenePid.h, Party.h � �.� � �.�.
� ����  �� �������, �� �����, ��� ����� �� ���������, ������, ��� � ��� ���������� command.h.
��� ����?

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 15:01 - 20 ���., 2004
Tim
������������

������: �����-���������
�����������: ��� 2003

�����: 265 ���������

��������� ����� ���� ������� �������... ���� ��� watcom �� ��� ����... � ���� ����... ��� compile ������ �� �����...
�������� ���� �� �������...  ���� ������ ����� HEADERS... ���� watcom � ������� ��� ������ � ���. ������.... �� ����������� �� ����...

-----
�������� ������ - ��! ��! ��!
���������� ���� - ���! ���! ���!

����������: 16:36 - 20 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

2 Tim
������, �������!
��-������, �� ���, � �������, ������� ������?
���� ��, � ���� � ���� ����� ���� ����� watcom (���� �� �������), �� ����������� ��� (������� c_nt) � ����� fallout2mapper\scripts � ����� ����������� � ����� c_nt\binnt ���� command.h (������� ���� � �������� headers).
������ (���������� � volcov commandere ���� � ����� ������ ���������, ��� ����� ����������, ��� ����� ���� ����� ��� �������) �������� � ������� binnt � � ���������� ������ ������:
wcc386.exe (��� wcc.exe, �� ���, ���    �����     -i C:\fallout2\fallout 2 mapper \scripts\�������� �������.ssl.
��� �� ������, �� ����� ����� ����� ����� ��� ���-�� �������, ������, ��� ��� (��� ��) ����� � ���� ������ � ������ *.h ������ � ������ �� �����������!
���!!!

(��������������(�) GaroldPredator - 17:27 - 20 ���., 2004)

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 17:23 - 20 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������


1. ��������������� wcc386.exe � cpp.exe

2. ����� cpp.exe � Mappers\Scripts\Tools

3. ����� ���� ������ � Mappers\Scripts\New

4. ������ ���� comp.bat. ����� � ����:
---------------------------
@echo off

REM ����� ���� ����
set MP="C:\Fallout2\Mapper\Scripts"
set FP="C:\Fallout2\Data\Scripts"

..\Tools\cpp.exe -i=%MP%\Headers /w /pc /fo=%1.i %1.ssl

%MP%\Dos4Gw.exe %MP%\compile.exe %1.i

copy %1.int %FP%
-----------------------------------
��������, �������, �� �������� ������.
������ ��� ���������� ������� my_script.ssl:

5. ��������� �������, ��������� � Mapper\Scripts\New

6. �����:

comp my_script

�.�. ��� ����������.

7. ���� �������� ������ ������ �� ������ xxx - �������� my_script.i � ������ ������ xxx. ��� ������ ������� - ��������� � � my_script.ssl � �������� �����.

8. ����� ������� comp_my_script.bat:

comp.bat my_script

� ������������� �� ����-������.

����������: 9:01 - 21 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

����� �� �����, ��� � ������� � ������� ������ ��� � ������� NPC �������� ��� ������?
P.S.
2 Raven
�������, ��������� �������������� ���� ������!
������, �� �� ��� �� ��������, �� ��� ������ ����� ��� ������!

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 17:24 - 21 ���., 2004
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

>> ����� �� �����, ��� � ������� � ������� ������ ��� � ������� NPC �������� ��� ������?

����� ������:
obj_name(dude_obj)

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 23:22 - 21 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>����� �� �����, ��� � ������� � ������� ������ ��� � ������� NPC �������� ��� ������?

���� ����� ��������:

��������, �� ������ ����� NPC �������
"������, ���_������. ��� ����?"

� ������� ������:
Reply("������, "+obj_name(dude_obj)+". ��� ����?");

���� ������ ������ ����� msg-����, �� �� �����������. �� ���� �� ������ ��� ���������� msg-��� � ����? ����� ������.

1. � ������ ������� ������:
---------------------------------------
#define NAME 1304 �//����� ������, �� �� ������
...
Reply(mstr(xxx)+obj_name(dude_obj)+mstr(yyy));
...
---------------------------------------

2. ����� ������� msg-���� - ���_�������.msg (������, � �����, �������?). ������ ����:
---------------------------------------
...
{xxx}{}{������, }
{yyy}{}{. ��� ����?}
...
---------------------------------------

3. ����� ���������� Data\Text\English\Game\scrname.msg
��������� �������:
---------------------------------------
{1404}{}{���_NPC}# ���_�������.int ; ��������_NPC
---------------------------------------
��� ������ obj_name(self_obj) ��� ������ ������� �� ����� NPC ����� ���������� ������ ���_NPC
��������������, ���� ����� #define NAME 1305 ����� ������ {1405} � �.�.

4. ������ ���� �������� � ���� ��� ������. ��������� Data\Scripts\Scripts.lst.
��������� ��������� �������:
---------------------------------------
���_�������.int ; ��������_������� # local_vars=0
---------------------------------------

��� local_vars �����. ���� ���� 0. ����� ���������� ������ �� ��� Enter (�.�. �� �������� ������ ������) - ����� � ������ �������� ���� - �� ���������, �� ����������.

5. ��. ����� ��. ������, ��� ��� ��������� �� ���� �������� ��� ��������������� - ���� ��� ������� ������� � ��.

6. ������ ������� �����, �������� ������� � ��������� ��� ���� ������. ������, E,S, ������ ���� ������, Esc, F8 - ����� �������.

�������� ��� �� �������� ������ ����� ����� ��� ��.

� ����������. ������ ����������� ������� � ��������:
------------------------------
#define NAME 1304

#define My_Option(x,y) gsay_option(NAME,x,y,-1)

#include <command.h>

procedure start;
procedure talk_p_proc;
procedure NodeBegin;
procedure NodeEnd;

procedure start begin
end

procedure talk_p_proc begin
Start_gDialog(NAME,self_obj,-1,-1,-1);
GSay_Start;
call NodeBegin;
GSay_End;
End_Dialogue;
end

procedure NodeBegin begin
Reply("�, "+obj_name(dude_obj)+". ������� �������������, � "+obj_name(self_obj)+".");
My_Option("������, "+obj_name(self_obj)+", ��� �������",NodeEnd);
end

procedure NodeEnd begin
end
------------------------------

��������� � ���, ��� �� �������. �� ����, �� ���������� ��������� �� ������ ����� ����� �� �����. ��������� ������ � ���� �� fgeck`�.

� �������� �/� :-)
1. ������ ������ � ����.
2. ������ ����� ��������� �/� msg-����


����, ��� ����� � �������� � ������ ������������.... ���������.

(��������������(�) Raven - 12:27 - 22 ���., 2004)

����������: 5:24 - 22 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

����� ������, � �� ����� ������, �� �� �������!
�������, � ������, �� �� ��������� ��!
� ���� ��� MSG-����� � ��������� ���� ����� NAME!
�� ������� ��� ����� ������ � ����� �����, ������� � ��� ����� � �� �� ���������!
��� ���, �������!
�.�.
������ � ���� � ��� �������, �������� ������� (�� ����������� ���, ��� ���� ���������)!

(��������������(�) GaroldPredator - 15:53 - 22 ���., 2004)


(���������� �� 16:04 - 22 ���., 2004.)


��� ��� ����� local_vars!!!
� ���� ������� ���, ����� ����� ����������� ����� ������, �� �� ���������� �� ������ self_obj, �� � ������ �������!
��������
� ������� ��������� �� ��� �����, � ��� ������ ������� ����. ��� ��� �������?


-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 15:31 - 22 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Garold

No offence. ��� ���� ��� ��������� ������� � ����, �� ���� �� ������ ���� � ������ ����, ������� ��� ����� ��������������.

� ������ ����� ������ ����� ����� ������. �.�. ������� ������ ����������, ��������� �� ��������. ����� �� ���� ���� ������ ������������ FAQ. ����� FAQ ������ ���������� � How-To - ����. ��� ��� ���� � ���� ���-��, ��� �� ��� ������ - ������ �� �����. �� ���� ������� ������ ����� ������, ����� ��� "���� ��� ����� ����. ����� � ���. ���������".

������ �������������� �����.

>>� ������� ��������� �� ��� �����, � ��� ������ ������� ����. ��� ��� �������?

��������� �����:

1. ����� ������� ��� ������ � ���� �������. Team ������������� � ��������� ������� � Mapper`�. ����� � ������� ������ �� ���������� � ����� �� ����� ������� ��������� attack - � ��� ������� NPC-�� ������� ����.

2. ������� MVAR_say_fuck � �������� � ������� ���� ����������, ��������, ����� �����:
---------------------
procedure critter_p_proc begin
�if map_var(MVAR_say_fuck) then begin
� set_local_var(LVAR_Hostile,1);
� attack(dude_obj);
�end
� ...
end
---------------------
� ������� � ������� Node ��� ��� ����:
---------------------
procedure NodeFuckOff begin
� set_map_var(MVAR_say_fuck,1);
end
---------------------
��� ���� �������� � ���_�����.h

#define MVAR_say_fuck     (x)

3. ����� ����������� ������ - ������ ��� �/� ������/������� ����������. � ������� ������� �� ������ ��������� �����:
---------------------
export variable ptr_npc_xxx;

procedure start begin
�ptr_npc_xxx:=self_obj;
end
---------------------
� ������� �����, �� ������ �� �����������, �����:
---------------------
import variable ptr_npc_xxx;
import variable ptr_npc_xxy;
import variable ptr_npc_xxz;
...
---------------------
� ������� �������, � ������� ����� �������� ���, ������ ����, ��� � ��� �����:
---------------------
import variable ptr_npc_xxx;
import variable ptr_npc_xxy;
import variable ptr_npc_xxz;
...

procedure Node_Say_Fuck begin
attack_setup(ptr_npc_xxx,dude_obj);
attack_setup(ptr_npc_xxy,dude_obj);
attack_setup(ptr_npc_xxz,dude_obj);
end
---------------------
�������, �������, - ���� �� ��������� ������������� ��� ��������� � ��� ����� ������� ����� ��������� ������.

(��������������(�) Raven - 14:15 - 23 ���., 2004)

����������: 6:54 - 23 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

������:

����� ������, � �� ����� ������, �� �� �������!
�������, � ������, �� �� ��������� ��!
� ���� ��� MSG-����� � ��������� ���� ����� NAME!


���������, ��� �� ����, ����������!
������:

� ������� ��������� �� ��� �����, � ��� ������ ������� ����. ��� ��� �������?


������ ������ � ������ ������ ������!
� ���� �����, ��� ��� �����, ����� �� ���� ���������� �� ������ �������� � ������ ��������, �� � ������ ��������.
��������� � �������, ��� ����� 2 � ����� ���������:������� MVAR_say_fuck.
� ��������� �����?

(��������������(�) GaroldPredator - 18:17 - 23 ���., 2004)

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 16:42 - 23 ���., 2004
Tim
������������

������: �����-���������
�����������: ��� 2003

�����: 265 ���������

2GaroldPredator
������� ��� ������ ��� � ������...

2All
�� ���� � ��� ��������� � ����� ���������... �� ���� ������������ � ��� ���...

���, �������� ���� ��
C:\Fallout2
������
C:\Fallout2\Mapper

������ � ����� C:\Fallout2\Mapper\scripts
����� tools ������� ���� �����:
wcc386
wcc
wccd386.dll
wccd.dll

������ � C:\Fallout2\Mapper\scripts
����� new, ������� ���� ������ XSComp.ssl(�������� � GaroldPredator'a )

������ ���� � ����������� comb.bat ....

@echo off

set MP="C:\Fallout2\Mapper\Scripts"
set FP="C:\Fallout2\Data\Scripts"

..\Tools\wcc386.exe -i=%MP%\Headers /w /pc /fo=%1.i %1.ssl

%MP%\Dos4Gw.exe %MP%\compile.exe %1.i

copy %1.int %FP%

������� ��� � C:\Fallout2\Mapper\scripts\NEW

� ���. ������ ����� � ����� new
������� comb XSComp

�������:
Watcom ����������...
Error! E1073: invalid option '-i="c:\fallout2\mapper\scripts\"headers'
����� ���������� DOS/4GW
� DOS/4GW fatal error (1007): can't find file \DOS4GW.EXE to load

��� ���� wcc386.exe ��������. � cpp.exe ����� �� �� ���. ���� ����������...

� ����� ��������� ���� XSComp.i (����� 143��)

���� ��������!!! � ��� ������� ������ ����������...
����� XP........






-----
�������� ������ - ��! ��! ��!
���������� ���� - ���! ���! ���!

����������: 19:36 - 24 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

�� ������.
��� ������, ����� ������������� wcc386.dll � cppd.dll ����� watcom ������ �� ������.
������, XSComp.i - ��� ����, � ������� ��� includ� ���������� � ������������ �����, � ��� defin� ��� �������� (� ������: #define one two �������� � ������� ������ one  ,  two).
� ����� ���� ���� �� ����, ������, ��� � *.h ���� ������������, ������� ��� (watcom) ������������ ����� � ���� � ������� (������!).
*.i ����������� ����, ��� ������: ���� f-geck��, ���� ���������.
�����, ����� ��������������� *.i � *.int, ��� ����� ����� dos4gw � compile.exe.
� ��������, � ������� ���������� ������ dos4gw ������-�� �� ��������  (� windows commander, � ����\���������).
�� ���� �� ������-�� �������� � VOLCOV COMMANDER�!
� ����� ��������� ���������� ������� ������ � VC!
�����: ��� ����� ���� ������ ����������� VOLCOV COMMANDER, ��� ���������� �������� �� ������ ������ ����������!
P.S. � DOS-� �� �� ��������, ���� ���?!
P.P.S.
to Tim
� �����, � ���� msg-���� ����� �� ���� ��� ���!?
P.P.P.S.
�������, �� � ������� new comp.bat, dos4gw.exe � compile.exe �����?!
P.P.P.P.S.
������, �� ������,��� ������ ��������� �������, �.�. One � one �� ���� � ����!

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 20:51 - 24 ���., 2004
Tim
������������

������: �����-���������
�����������: ��� 2003

�����: 265 ���������

2GaroldPredator
1) Msg-���� �����...
2)���� ���� bat, ������ ���� �������

@echo off

set MP="C:\Fallout2\Mapper\scripts
set FP="C:\Fallout2\data\Scripts

..\Tools\cpp.exe -i=%MP%\Headers /w /pc /fo=%1.i %1.ssl
Dos4Gw.exe compile.exe %1.i
copy %1.i %FP%
3)������� � new Dos4Gw.exe compile.exe
4)������������
wccd386.dll � cppd.dll
wcc386.exe � cpp.exe
5) � Volkove ����� � ����� new � ������� comp xscomp
6) ����� ��� ������������ ������ ��� ���������� ����� Environment
������ ������ ERROR E1138 Filename required on command line...

P.S.���� ���� � ������ *.i �� ��������� ���...
� ������ � ���� � bat ������� ������ � ������ ����... � � Raven ���� �����. � �������...
�� �� ���� ���� � ����. i ���������.... ������ �����?
� �������� ������ Dos4Gw.exe compile.exe?
������ ���� � ����?
����� 98������ ���������...

�� �� � ��� ��������....

-----
�������� ������ - ��! ��! ��!
���������� ���� - ���! ���! ���!

����������: 23:38 - 24 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Tim

���� ���� ������� � ������� ������ ���� ��� �������� �������. �.�. � ��� �������, ������� ��� � ��� ����� ��� �� �����. �� ���� �� ��������
set FP=C:\Program Files\BlackIsle\Fallout2\Data

�� � ���� �������
cannot find C:\Program
��� ���-�� ��������.

�������� � DOS4GW ������ ����� ������� ����������� DOS � WinXP. � XP �� ������ ������� � ������ ����������� ������� �� ����. �������� �������� � �������� �������������. ���� ���� ����������� - ������� 98 (95, ������ DOS) �����. � Win2000 ��� ��������.

��� �������� ������ �������� dos4gw � compile � ���� �� ��������, ��������� cmd.exe, ������� � ��� ���� � ������ ����������
dos4gw compile ���_�������.ssl
���� ����� ���� ������ - ������ ���� ����� �� � ������� � � ���.

��� ���������������� wcc � cpp - � � ��� ������ ��� �������� � ������� ���������� ����� :-) ��� ������ �� �����������.

������, �� ������
Error! E1073: invalid option '-i="c:\fallout2\mapper\scripts\"headers'
������, ������ ����� - ��� ������� ����� � ����� c:\fallout2\mapper\scripts\
�������
set FP="C:\Fallout2\Data\Scripts" �� set FP=C:\Fallout2\Data\Scripts

��� ������ ����� ����� ������ �� ��������...

to Garold

��, ������ ����� ���� ����� ������� ����. ��, ����� ��, ���� ������ �������� ����� ���������� � ���� team � ������ - �� ����� � ���.

���� ������ ��������� *.i ���� - ������������ ���������� grep. ��� �������� �� ����� ������, ����������� � ����������� ��������. ��������, �� ������ �������� �� ����� ��� ������ ������ � ������, ������������ � # (i.e. #line 21). ������ ��� �� ���� (������� �� ������������� grep`�):

grep ^[A-Za-z_0-9]* ���_���������_����� > ���_���������_�����

�.�. �� ��������� ��� ������ ������������ �� �������� ��� ��������� ����, ���� ��� ����� ������������� � ������ �� � ������ ����. ������ �������. ����� ������.

������� ������ grep`� ��� ����� ���. �� ������� ������ ���� - � ������ :-) �� ���� ����� �������� ������ ��� ����. � ��������� ������������ ������ msys`��. ������ 2,5 ����, ����� ����� �����:
http://www.mingw.org/msys.shtml
������� ��� � Files � ������ msys package (�� gcc, binutils ��� ���-�� ��������, ������ msys) - ��� �����

MSYS-1.0.11-2004.03.30-1.exe

����� ���������� - �������� ���� ����, � �.�. � grep. �������� msys.dll �� Msys\bin\ � winnt\system32, grep � mapper\scripts\tools - � ����� ������������ ��� � ��������.

����������: 6:40 - 25 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

2 Raven
������ ������ � ������ ������ �� ������������ ������, ��� ��� �� ���� ������������� �� ���.
���� ������ �� ���-�� �����������, ��� ��������� ������:
� �������� � ������, � � ����������� �� ������, �� ���� ��� �������� ������ �� ���������� ��������, ��� ���� ���� ��� ��������� ���������.
� ���������� � ����������, � ��� � �������� �� �������.
����� ����� ���� ������������ GVAR, ������, ��� ��������� ������� � ��������, ���?
������, � ���� �� �������� ��� ����� GVAR, MVAR � LVAR.
�������� ���-�� �� ���������...
��������, �����!

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 9:12 - 25 ���., 2004
Tim
������������

������: �����-���������
�����������: ��� 2003

�����: 265 ���������

2All
������� ����, ����������... ������ ������ " �����...

-----
�������� ������ - ��! ��! ��!
���������� ���� - ���! ���! ���!

����������: 12:41 - 25 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Garold
>>������ ������ � ������ ������ �� ������������ ������, ��� ��� �� ���� ������������� �� ���.

???

>>����� ����� ���� ������������ GVAR, ������, ��� ��������� ������� � ��������, ���?

��. �� ��������� ������ Navarro (GVAR_NAVARRO_BASE_ALERT) - ��� ���� ������ ������� - �� ���� �� ���� ������ ��������.

>>������, � ���� �� �������� ��� ����� GVAR, MVAR � LVAR.
�������� ���-�� �� ���������...

� ��� �� ������� �������? ������� F8? ����� GVAR � ���� ������ �� ����������.
� ������ �� ����� �������� �� �������� GVAR (MVAR ����� �� ���� - ����� �� ����), timed events � ��� �� �������. ������� ������� ���� � ����. �� CTRL+R ������� ���� �� ��������� - ��� ������ ������ ����� ������ �� ��������������. ������� ������� ���� ������� ������� �� artemple.map � ����� ���������� �� � ������ �������. ����� ������� ���� ����� � ������ ������. �� ���� �� ����� ����� GVARs (i.e. ������� �����) - ����� �������� ����������! ����� ����������� �����������...

����������: 2:12 - 26 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

��� ����� �� ��������!
���-�-�-��, ������� ��� ��������� � ������� ������!

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 17:28 - 26 ���., 2004
Gatling
������������

������: ����
�����������: ����. 2004

�����: 115 ���������

� �� ����� �� ���������� ������� ������, � �� �������... ������ � ����������...

-----
"�����...�����-����!" Gremlin.

����������: 19:27 - 28 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

�� �������������� �������� :-)

������������� GVARs.

GVAR� ����� ��� ���������� ����������, ������� ������ ���� �������� �� ������ �������. ���� �� ������, ����� �������� ��������� �� ����� ������� (������, �������� ���� � �������� ����� ������) ������ �� �������, ������������� � ������ ������� (��������� NPC � ������ � ��������� ����� ������), �� ��� �� �������� ��� ������������� GVARs.

GVAR - ��� 32-������ ���������� (�.�. ��� �������� ������� �������� �� 0 �� 4.294.967.296). ����� GVARs � ������� 695 ����. �� ��� �������� (��������������� �������������� ) 60 (�� ����� ���� ������, �.�. ���� �������������� GVARs - ����. ��������� ������ � �������� Abbey, EPA � �.�., ������� �� ����� � ����. �� ����� ������������ ��� ����� ����).

��� GVARs ����������� � ����-����� (������, ������). � �������� GVARs ������� ���������� � ������� �������� GVAR_. �������� GVAR ��������������� � ������� ���������
set_global_var(���_����������,��������)

�������� � �������
global_var(���_����������)

���������� ���������� ���������� (�.�. ������������� define-���������� ������� ����������) ������������ � ����� headers\global.h. ��� ������� �� ��������, ����� ���������� ���������� ����� ���� ���������/����������� �� ������ ������� ��� �����-���� ��������������� ��������.

GVARs �� �������� � ������, ��������� �� ������ ����� ������ � ����� ����.

������� ������ �������, ������������� GVAR (��� ������ Garold`�). ������� ������� ��������-�����-�������� � ����������� ������� ����. �.�. � ��� ������ ���� Pet Master � Pets. � ���� Pet Master ������ ������, � �������� Pets - 2-3 ���� (����� ����� ��� �������� � ������ ����). ������� ������� petmaster.ssl � pet.ssl (�������� ��. ����). ������������, �������� � scripts.lst. ������� � ������ artemple.map, �������� ������ ������ �� petmaster.int, ������� ���� ���� �� �������� pet.int. ��������� artemple. ��������� arcaves, ��������� ��� ��������� ��������� (���� ��� ��������), ����� �� �������� pet.int. ���������. ��������� ����. �������� �����, ���� ����. ������ ����� � ������� - ��� ������ �� ������. ���������� ������-��������� - �����! ������-������ �������.

�������� ��������:
petmaster.ssl
--------------------------------------------
//����������� �������
#include <command.h>
#include <define.h>

//��� �������� ����� ���� �� ����� ������������ ���� �� ��������� ��� � ����:
//#define GVAR_TOWN_REP_ABBEY � � � � � � � � (63)
#define GVAR_say_fuck � (63)

//��� ��������
#define Option(x,y) � gsay_option(-1,x,y,-1)

//��� ������������� ������� Reply. ����� ������� ����� �����, �.�. �� �� ���������� msg-����
#define NAME 1407

//���������� ��������
procedure start;
procedure talk_p_proc;
procedure Node_Begin;
procedure Node_Attack;
procedure Node_End;

procedure start begin
end

procedure talk_p_proc begin
�start_dialogue(self_obj,-1);
�gsay_start;
� �call Node_Begin;
�gsay_end;
�end_dialogue;
end

procedure Node_Begin begin
�Reply("Hello, Chosen One.");
�Option("Fuck off, motherfucker.",Node_Attack);
end

procedure Node_Attack begin
�Reply("My mighty pets! Attack this creature! [He points at you]");
�set_global_var(GVAR_say_fuck,1);
�Option("O-ops",Node_End);
end

procedure Node_End begin
end
--------------------------------------------
pet.ssl
--------------------------------------------
#define GVAR_say_fuck(63)

procedure start begin
end

procedure critter_p_proc begin
�//����������� �������. ���������� ������������� LVAR_Hostile ����.
�if global_var(GVAR_say_fuck) and obj_can_see_obj(self_obj,dude_obj) then attack(dude_obj);
end
--------------------------------------------


(��������������(�) Raven - 14:19 - 29 ���., 2004)

����������: 7:03 - 29 ���., 2004
Jo Jim
������������

�����������: ���� 2004

�����: 14 ���������

��� ����� ���������� ������ ���������� �������������� LVAR ��� ������������� �������?

����������: 16:04 - 29 ���., 2004
Gatling
������������

������: ����
�����������: ����. 2004

�����: 115 ���������

������� � ����� ��������...


(���������� �� 19:07 - 29 ���., 2004.)


������, ��� � ��� ������� ������? ����������...

-----
"�����...�����-����!" Gremlin.

����������: 18:14 - 29 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

to Gatling
��-������:
����� ������, ���� ������ ����� �� ��������!!!
��-������:
��� ��� ����� ������, � �������� ������������ GVAR� �� �������!!!
������ � ���� �������� � ����� ����������� ������ ����� ����!!!
�� ����� ������, ����� ������ ������� ���� ������ � ��������� � ��� ���� �������.
��� �� ��� ��� ������, � GVAR� 32 ����, �� ����, 32 ������ � ������ GVAR� (� ������ 32 ����������� ������: �� ������, ������)!!!!!! �

���, �����!
���� �������, �� �� to Gatling, � to Raven!
���, � ����� ����� ����������!

(��������������(�) GaroldPredator - 17:31 - 30 ���., 2004)

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 20:50 - 29 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Garold

�� ������ �����: �������, ������. :-)

� ����������� ������� ������ � LVAR� ��� ��������� ������� ���� � ������������� ����� �� �����. � 6 LVAR-�� ������� ��������� ����� 100 ���������� - ���������� � �������/���������� � ������ ������ �� 52 ����, ���������� � ������ �� ����� � ������� �� ��� �������, ���������� � ������� ���������� � �������� ������.

��������, �� ����� ��� ������� � �������� � ��������� save-������. �� � ������ ���������� �������� �� �����. � ��������� ��� ��� ����� � ��������� ��� ���� ��������� ������ � ���������������� � ����, �� ����������� � vault13.gam GVAR�. � ��� GVAR� ����� �������� 90 ������� (1/0) ��������, �.�. ���������� � 45-�� ��������� ������� ������� (1/0 - ����/�� ����, 1/0 - ��������/�� ��������). ��� ������� � ��������������� �������� ��� ��������� ������� ������������, �������, ������ ����� - �� ���� � ��������� GVAR��, ���� ��������, ����� ����� ��������.

������ ��� �����? ���� � ���, ��� ��� ���������� ������ ������ (�, ��������������, ����� GVARs) � ���� ���������� ������� GVAR� � ���� vault13.gam. ��� GVAR� ������ ������� � ����-����. � ����� ���������� ��������������. �� ���� �� ����� � ���� ����������� � vault13.gam, �� �� ������������ � ���� - �� ����� ����� ����������! � ��������� ������ ��������� �������� � ��������� ����� ������� ���������� ����������. �.�. ���� ����������� ��������������� API (� ���� �������� ��������� ������) � ����������������� ��������������� ��������� ���� - �� ����� ����� ������ ����������� ����, ����������� � ������� ������������� ���� (� ��� ������������� ����� �������� �� ������������� ������ GVARs - � ����������� ����� ����� ����!). ��������� ���� - ������� ����� ��������� ���. ������ � �������� ������, ��������� �������, ����� �� ����������. ��� �� ������ ������? �������� ������ �� �����? � ��� - �������� ���� ������ ���� � ������������� ����� ������� � ����������...

����� ������ �� �������� �������������� ������������ �������� �� ���� ��� �������� ��������� ��������. ������ ����� ����� - �������� �� �������. � ���������, ����������� ����� � "����� �������" �� ��� �� ������ :-( �� "����� ������" ��� ��� � ������������ ������������ ���� � ������ ������.

������, �� ��������, �������� �����. ��� ����� ���� �� ����� ������ � ����������� ��������� ������/������ (� ����������� LVAR, � �� GVAR - �� ������� �������, ��� ���������, ���). �-�-���� ���������� �� ���� �� ������� ��� - �� ������������ � �������������.

----poker_bits.ssl----
//������ � �������� ��������� ( � ������, � LVARS :-)

//���������� 1/0 - ����/��� ����� � UID x (1-52) � ������
//��������� �������� ���� x �� ����� �� ���� ���������, ��������� ��� ������
procedure get_deck(variable x) begin
  if (x < 31) then return lvar_bit(LV_DECK1,pow(2,x-1));
  else return lvar_bit(LV_DECK2,pow(2,x-31));
end

/*
lvar_bit(x,2^y) - ���������� �������� ���� ����� y �� ���������� x
��� ������������� ��������� ����� ���������� �-�� ���������� � �������
pow(x,y) - ���������� x^y
*/

<...>

//��� ������ � .. �� .. ������.
//��������� ���������� ����� �� 1 �� 52 � ���������� hand (hand ������ �������� LVAR ���� �������� ������)
//��� ������������� ����� 52 ���������� 6 ���, �.�. � ���������� ������������ ���� ������ �� 6 ���
//num ��������� �������� tmp ��� ������ �������� ����� ����� num (1-5)
//---------------------------------------------------
procedure set_hand(variable num,variable value) begin
  variable i:=5;variable tmp;variable tmp1:=32;
  tmp:=6*num-1;//6*(num-1)+(5-i);
  while i>=0 do begin
     if value/tmp1!=0 then begin
        set_lvar_bit_on(hand,pow(2,tmp-i));
        value-=tmp1;
     end else set_lvar_bit_off(hand,pow(2,tmp-i));
     tmp1/=2;
     i-=1;
  end
end

/*
to Garold
������� ������ ��������� set_hand �� �������.
����� �� ����� �������� � hand ���������� � ���, ��� ����� ����� 4 � ���� ����� ����� 51.
num:=4;value:=51;tmp1:=32;
tmp:=23;
������ ������ �����:
����������� ������� if (51 ������-����� 32) - �� ������������� ��� ����� tmp-i=23-5=18 - ������ � 4-�� 6-� ������� �����.
value=51-32=19
tmp1:=tmp1/2=16;
i:=4;
������ ������:
if (19 ������-����� 16) == true => ������������� ������ ��� � �����
value:=3;tmp1:=8;i:=3;
������ ������:
if ( 3 ������-����� 8 ) == false => ������ ��� � 0
value:=3;tmp1:=4;i:=2;
�������� ������:
if ( 3 ������-����� 4 ) == false => �������� ��� � 0
value:=3;tmp1:=2;i:=1;
����� ������:
if ( 3 ������-����� 2 ) == true => ����� ��� � 1
value:=3-2=1;tmp1:=1;i:=0;
������ ������:
if ( 1 ������-����� 1 ) == true => ������ ��� � 1

� �������� ����� ����� ������ 110011 - �������� �������� 51 (������ ������, "�����������") �� �������� 18-1=17
� ��������, ����������z ��������� ����������� dec->bin, ������ bin ������������ ����� ������
*/

//������� ��� (����� �� �������).
procedure get_hand(variable num) begin
  variable i:=0;variable tmp:=0;
  variable tmp1;variable tmp2:=1;
  tmp1:=6*num-1;
  while (i<=5) do begin
     if lvar_bit(hand,pow(2,tmp1-i)) then tmp+=tmp2;
     tmp2*=2;
     i+=1;
  end
  return tmp;
end

<...>
----poker_bits.ssl----

������� ��������� pow(x,y)
--------
//���������� � �������. x - ����������, y - �������
procedure pow(variable x,variable y) begin
/*
������� ������� �� ���������� ��� ���������, �.�. ��� �������� ��������� ��������� ��������
�������� ����� ��������, �� ������ ��� �� ������������� ���������� � ������� (��. ����� ���������)
*/

  variable i:=1;variable tmp;
  if y==1 then return x;
  if y==0 then return 1;
  if y==-1 then return (1/x);

//�������� ������� �������� ������. ������ �� 2^30
//�� 2^31 ��������� ������������, �� ����� ������/������ ������ 30 ��� � ����
  if (x==2 and y < 31) then begin

     if (y<10) then
     if (y<6) then begin
        if (y==2) then return 4;
        if (y==3) then return 8;
        if (y==4) then return 16;
        if (y==5) then return 32;
     end else begin
        if (y==6) then return 64;
        if (y==7) then return 128;
        if (y==8) then return 256;
        if (y==9) then return 512;
     end

     if (y<20) then
     if (y<16) then begin
        if (y<13) then begin
           if (y == 10) then return 1024;
           if (y == 11) then return 2048;
           if (y == 12) then return 4096;
        end else begin
           if (y == 13) then return 8192;
           if (y == 14) then return 16384;
           if (y == 15) then return 32768;
        end
     end else begin
        if (y == 16) then return 65536;
        if (y == 17) then return 131072;
        if (y == 18) then return 262144;
        if (y == 19) then return 524288;
     end

     if (y<31) then
     if (y<26) then begin
        if (y<23) then begin
           if (y == 20) then return 1048576;
           if (y == 21) then return 2097152;
           if (y == 22) then return 4194304;
        end else begin
           if (y == 23) then return 8388608;
           if (y == 24) then return 16777216;
           if (y == 25) then return 33554432;
        end
     end else begin
        if (y == 26) then return 67108864;
        if (y == 27) then return 134217728;
        if (y == 28) then return 268435456;
        if (y == 29) then return 536870912;
        if (y == 30) then return 1073741824;
     end
  end
  tmp:=x;
  if y>1 then begin
     while(i<y) do begin tmp*=x;i+=1; end
     return tmp;
  end
  if y<0 then begin
     while(i<=0-y+1) do begin tmp*=x;i+=1; end
  return (1/tmp);
  end
end
--------

to Garold
���� ����� ������ ������ - ���� �� ����.

(��������������(�) Raven - 13:19 - 30 ���., 2004)

����������: 6:14 - 30 ���., 2004
Jo Jim
������������

�����������: ���� 2004

�����: 14 ���������

� ���� ��� "��������".
���, � ��� �������, �������� �� ������� ��������.
������ �������� � �� �������, � ������ ��� � �� �������
����, ��� ����� ����������, ������ ���������� ���������������� LVAR ��� ������������� �������.
������:
dclara.ssl
����� �������� � ����������
LVAR_Home_Tile
LVAR_Home_Rotation

����������: 10:32 - 30 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Jo Jim

������ �� �������� :-)

���� ����� ������������� ���, �� ������ ��� ���������� � ������� ������� (� ���������� start, map_enter, timed_event, critter_p_proc � �.�.) - LVAR ���������������� � ����� �� ���. �.�. � ������������ �������� ����������� �������� ������ (���� ������ ����� ���� ����������� ��� �������, ������� �������� �� ���� �������� � �.�.), �� ����� ������ ����� ������������� �������� ������.

��� ������ �������. dclara.ssl = Den Critter Lara
�������������, ������ "��������" � ����. ���������
headers\den.h
, ���� �������
set_local_var(LVAR_Home_Tile
������� ������� � ������� gang_member_map_enter
������ ��������� ������ ���� � ���� gang_member_map_enter:
-------------------
procedure map_enter_p_proc begin
  gang_member_map_enter
  flush_add_timer_event_sec(self_obj, 1, timed_event_float);
end
-------------------
�.�. ���� LVAR_Home_Tile ���������������� ������ ��� ��� ������ �� �����. ��� �� ���������������� LVAR_Home_Rotation.

������ ������, ������ �� ����������� ����� ������ � ���_������.h, ����� ������ ����������� ����� �� ���� ������ � headers.

to Gatling
� �� �������� ���������� VDM?

����������: 12:28 - 30 ���., 2004
Jo Jim
������������

�����������: ���� 2004

�����: 14 ���������

�������, ������.
����� �������� ���������� ���������, �� � ��- �������� �� ���� ����� �������� ��������, ������ ���, ����������� ��� ����������.
����� �������� ���������.
����� ����������� ����� ������� � ������ � ������� ������ ����� ���� �������� �������.
� ������ 1.0 (� � ��������� ��������) ���� ������ �� ����� �������, ������ �� ����� � �������. � ������ 1.2 ���� ������������� ������ ������ ������ �� ����� ������.
� ����� � ��� � ���� ��������: �������� �� ��������� �����������, � ��-�������� �� ���� �������� ��������� set_local_var(LVAR_Home_Tile, 23096), ��������. �� ���� � �� ���� ��� ������  ��� �������� � ���� ��� ��������, �������� �� ����� ���������, �����! ���� ��� ������� ������� ������� ����� ����� ����� ���� ���� LVAR - �� ���� ���-�� ������ ���� ������������������� ��������� ���� ��������.

����������: 15:34 - 30 ���., 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

to Gatling
����� � ����� ������� ����� � f-Gecke (��� ����� ���, ������ � ������), � ����� �� ����������, ����� ������ ���������� �������� �����������!
vsem ostal�n�m
� ���������� ����� ������?
��, ��, ���� ��������!
� ������� ��������� �������� (XSCOMP.INT, XSCOMP1.INT, XSCOMP2.INT), ������ XSCOMP2.INT ���������.
����� � ������� ��������� ��� ������� � ��������, ������������� ������-�� ������ ���������!
���� � ������ ������ �������� ������ ������ ��� ������, �� ����� ���������� ���������!!!
��� ������?!

(��������������(�) GaroldPredator - 17:41 - 30 ���., 2004)

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 17:39 - 30 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Garold

�������� �������/���������� � Scripts.lst ������ �����. ������� ���� �� ������� �� ���� �������������� ��������� �������. ��������� scripts.lst � ��������� ��������� ����������.

�.�. �������� ��������� ��-�� ������������ ������� scripts.lst

to Jo Jim

����� ��� �����. � ������. �������� � ��������� ������ - ��� ������� - ������ ����.

����������: 3:25 - 1 ���, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Jo Jim

���� ���� ����� ������ ����� - ������ � ����� �����. ���� ������ ������, ��� � ��� ����� - ������ ��� ����� � ������ ������.

����, �� ���� ���������� ������ �� ������� ������ ����� ����� ���� ����� ��� � ������ �������.
������ � ������. ���� � dclara.msg ����� ������, ���������� ����� �� �������:

---dclara.msg line:158---
{490}{}{I don't think so. You'll have to come with us if you want your money. You
won't have to fight but just to be sure it's not a trap. We'll give you $300 total.}
{491}{}{You ready?}
{492}{}{Okay, let's do it.} � � � <--- ��, ��� ��� ����.
-------------------------

���� ����� 492 � dclara.ssl:

---dclara.ssl line:450---
NOption(492, Node990, 004);
-------------------------

���� Node990:

---dclara.ssl line:277---
procedure Node990 begin
� setup_gang_fight;
end
-------------------------

��������� den.h � ������� ������ setup_gang_fight:

---den.h line:583---
<...>
set_gangwar(state_gangwar_in_fight); <--- ������������� GVAR_DEN_GANGWAR=state_gangwar_in_fight
<...>
load_map(MAP_DEN_BUSINESS,0) <--- ������ ����� denbus2.map (��.
--------------------

��������� maps\denbus2.ssl � ����� ���������:

---denbus2.ssl line:58---
procedure map_enter_p_proc begin
<...>
� if (gangwar(state_gangwar_in_fight)) then begin
� � �override_map_start_hex(21945,0,2); <--- ���������� ������ ������� � ������
<...>
-------------------------

������������ � ���� �������� �� ����� ���� ����������� map_enter_p_proc. ��� ������ ����� ������� �gang_member_map_enter �� den.h. ������� ������ �� ����� if-��, ������� ����������� ��� gang2, �.�. � ���� � ������� ��������
#define self_gang � � � � � � � � � � � � gang_2

����, �������:

---den.h line:798---
<...>
end else if (self_gang == gang_2) then begin
� if (NAME == SCRIPT_DCLARA) then gang_2_member_1 := self_obj;
<...>
� end
--------------------

����� ���������� ���� gang_x_member_y ����������� ����������� �� ������ ����. ��� ���� � ����� ������ y:=1, ��� ��������� - ��� �������. ��� ���� ������������� � ������� ���� � ��������� �������� (��� ������/������� ������ �������� � ��� ���������� �����. ���� �� ������ - ���������, ������� ���������).

������:

---den.h line:798---
<...>
� end if (gangwar(state_gangwar_in_fight)) then begin
� � �<...> � � �
� � �end else if (self_gang == gang_2) then begin
� � � � �if (gang_trap(state_gang_trap_no)) then begin
� � � � � � �critter_add_trait(self_obj,TRAIT_OBJECT,OBJECT_TEAM_NUM,TEAM_PLAYER);
<...>
--------------------

���� ���������� � ������� � ������. ������ ������� gang_critter_p_proc:

---den.h line:777---
<...>
�if (gangwar(state_gangwar_in_fight)) then begin
� � if (self_gang == gang_2) then begin
� � � �gang_2_follow_to_attack
<...>
--------------------

������� gang_2_follow_to_attack -> set_gang_2_follow - �����, ��� ������� ������� ������� ����� ������������� ������� ������� ������������ ����� � ����������� ������� (������� � �����, ��� ��������, ��� ������� x:=1). ���������� �����. ��� �������� ������ gang1 ����������� dest_gang_member, ������� �������� ��������� gang_1_member_x � �������� dec_gang_counter(self_gang). ����� ����� ��������, ����������� set_gang_1_dead -> set_gangwar(state_gangwar_2won).

�� - ����� �����������, ���� ��������, ��� ��������� �� gang_1_member_x ��������.

������, ����������, ����� �� ���� ������ :-)

������� gang_map_update_p_proc:

---den.h line:863---
if (local_var(LVAR_Home_Tile) == 0) then begin
� if (self_gang == gang_2) then begin
� � �check_take_home_tile(1)
� � �else check_take_home_tile(2)
� � �else check_take_home_tile(3)
� � �else check_take_home_tile(4)
� � �else check_take_home_tile(5)
� � �if (local_var(LVAR_Home_Tile) == 0) then begin
� � � � random_tile_in_box(22340, 22332, 24132, 23940);
� � � � set_local_var(LVAR_Home_Tile, global_temp);
� � � � set_local_var(LVAR_Home_Rotation, random(2,4));
� � �end
� end else begin
� � �set_local_var(LVAR_Home_Tile, self_tile);
� end
end
--------------------

check_take_home_tile(x) ������������� LVAR_Home_Tile ������� ������� ����� ����� x ������� �������� ��������� ���������������� �� ������ ������� ����� �������. ����� ��� �������� - check_take_home_tile �������� ��������, � ����������

LVAR_Home_Tile ������������� ��������� �������� �� �������� � ������������ (22340, 22332, 24132, 23940)

LVAR_Home_Rotation ������������� ��������� �������� �� 2 �� 4 ������������.

����� ��������� ���� �������� ������ ��� ���� ���� � �������������� ��������� ��������� �������� �� gang_critter_p_proc:

---den.h line:777---
<...>
end else if (self_tile != local_var(LVAR_Home_Tile)) then begin
� animate_move_to_tile(local_var(LVAR_Home_Tile));
end else if (self_cur_rot != local_var(LVAR_Home_Rotation)) then begin
� animate_rotation(local_var(LVAR_Home_Rotation));
end �
--------------------


����������: 8:14 - 1 ���, 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

�������, �������, �� � ����� ��������, ��� ��� ���������� !

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 9:24 - 1 ���, 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

to Raven
���� ����� ������ ����� ������:
��� ������������� ��������, �� ��������� ������? �.�, � ��������� ���������, � ��-�� ����� ���-�� ����������� �����.
� ������ ������ ������:
� ��������� �������� ��������� ��������� (������, ��� � ������� ����). ��� ��� � ��������� � ����� ���������.
�������� � �������� ���������. � ��������� ����. ���������� �������� ���������� (��� ��������?) ���������. �������� � �������� ���������.
��� �� ��� ����������?

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 17:34 - 1 ���, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

��� ��������������� ������������ �������� ��������� �������
----------------------------------------------------------
#include <animcomd.h>
anim(obj_ptr,anim_index,direction);
----------------------------------------------------------
,��� obj_ptr -��������� �� ����������� ������, anim_index - �� ������ ANIM_ � animcomd.h, direction - 0-5

��� ��������, � ��������, ��� ��������. ��� ������ ������ ����� �� ����. ����� ����, ������� ������������ �������� �������� ����� �� ������� ��� ����� �������� - �� �������� �������� ����� � ��������� "��������" �����.
��� ��� ����� ������������ ���������
----------------------------------------------------------
obj_open(obj_ptr);
----------------------------------------------------------
��� ��������� ��������� �� ����� ����� ������������ ������ ����������. �� �� �����. �����:
----------------------------------------------------------
tile_contains_pid_obj(int tile, int elev, int pid);
----------------------------------------------------------
Tile - ���������� �����. ����� �� ������ - ������ ������ ����� � ������� ����������� ����� � ����� ������ ����. Elevation - ��� ������������. � pid`�� �������. ������ �������� ����������� ��������:
----------------------------------------------------------
procedure look_at_p_proc begin
 display_msg("PID:"+obj_pid(self_obj);
end
----------------------------------------------------------
� �������� �� ����� (��� ��� � ���� ���). ���� �� �������� ����� �� �������������� ���������� - �� ������ ������ ������� ����� ����� �����, ������ E, �������� ���-������ � ����� ������� ���������, ������ Done. ������ � C:\Fallout2\dev\proto\scenery � ���� �������� ���-�� ���� 00000022.txt � � ��� ����� ������� ������ ���������� �� ������� - � �.�. � pid.

� �������� ����� � ���� ��������� ���-�� ��������:
----------------------------------------------------------
obj_open(tile_contains_pid_obj(20301,0,33554454));
----------------------------------------------------------
������������ ��� � ������ ���� ��� use_p_proc - � ��.

������ ������: ���� ����� �������� �������� ��� ����� � ����������� ����������� frm-��� ����� ���� �������� (������, �����������, ������;����������� = ����������� ��������, �� �������� �� ����). �.�., ��������� � �����, � ���� ���� ��� frm-��? ���� ������������� � ��� ���������? ��������, ����������, �����������.

����������: 5:59 - 2 ���, 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

>>display_msg("PID:"+obj_pid(self_obj);
����� �� ��� ���������?
����� �� ������ ��������:
tile_contains_pid_obj(int tile, int elev, obj_pid(self_obj);
�� ��� �������.
�������� � �������� �����:
��, � ���� ������������� ���� ��� frm-��: ������ - �������� ������, ������ - �� ����������, ������ - �� ������.
������, � ��������� �� ���� ������, �� ������� �������� �����. ��� ���, ��� ���� ������� � ��������� ����, �� ������� ����� ��������.
� ����� ������� ���, ����� ����� �������� ���������, ��� ��� ������ ���������� ��������� �������, � ����� �� ����������, ������� �� ���������.
���� ��� ���������� ������� FRM-��!
��
� ��� ����������� FRM-�� � ����������� ��������� �� ��� � �� ������. ������ ������ ��� ���������!
� ��������� ����. ����������� ������������� ���������� ���������. ��������� �������.

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 10:57 - 2 ���, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>����� �� ��� ���������?
>>����� �� ������ ��������:
>>tile_contains_pid_obj(int tile, int elev, obj_pid(self_obj));

8-| �������. �� ��� �����, ���� �������? ���� ����� ������� pid �����, � obj_pid(self_obj) ������ ���� pid ������ �����. ���� ��� �������� �� �����. PID ����� � ������� ����� ����� �������� - PID ����� �������� ����� ���� ���� ��������� �� ������. � �� ��� ��� ����� � ������� ���� ��������� ����� ������ ���������. �.�. PID ������ ���� ����� ����������. �������� ��� ����� ����� ��������, ���������� � ���������� ��������.

������ ������.

�� �� �����. ��������� frm-�� (���� �� ����) ������. ����� ��������� �������� ������-���� �������. �.�. ������� ���� ����� ������� scenery-�������� � ����������� ��� ������ frm-����.

��������:
1. ������� �� ��� ����� frm-�� ���� ������������� (� ������� gif2frm, ��������. ����� �� ����). � ���� ������ ���������� ������ �������� �������� ��� �������� ��������� � ������� ����� �������.
2. ������������ ������������ frm � data\art\scenery\scenery.lst
3. ������� � ������ ����� scenery-��������. ��������� ��� ���� ���� frm. ���������� ��������. ����� ��� ���������� ������ �����.
4. ���������� ���� ��������. � ���� ���������� ��������� ������, ������������ ������ ���� ����� frm-��.
5. � ������� ����� ������ ��������� (� �������, ��� �� ������ ����� � ���� �������� ��������):

  ��� ��������: animate_stand_obj(tile_contains_pid_obj(tile,elev,PID)) - ������� ��������� ����� ��������

  ��� ��������: animate_stand_reverse_obj(tile_contains_pid_obj(tile,elev,PID)) - �������� ���������

  + ��������/���������� ��������.

�.� ��� �������� ����������� ��� ���� �������� � ��������� ��������� �� ��������� �����. ��� �������� �������� �������� ����� ������ � ��������� ���������� �� ������ �����.

�������/��������� ������� �����. �� PID, �����, 33554499. ��� ��������/�������� ������� ����� ����� ��� ����������. �� ����� ��������� "�����",� ����� ��������� �������� ������������ ����� ���������. ������ ������ ����� � �������, �� ������ ������ "�����������".

������� ������: destroy_object(tile_contains_pid_obj(����������,elevation,33554499));
������� ������: create_object(33554499,����������,elevation);

�������, ��� �� ���������� ������������ � ������ ��� ���������� ������� � ������ � ���� PID��! �������� ������ ����� - �������� �� �� - �������� �� �����.


��� ���, ��� �� ����� ��� ���������/������������� ������� � ������ - ������� Maper as Proto Editor.

����������: 9:47 - 3 ���, 2004
GaroldPredator
������������

������: Military Base
�����������: ���. 2004

�����: 52 ���������

���... �������� � ����� �����...
�� �����, �������, � ���� � ��� ����������!
������ ������ ������.
� ����, ����� ����� ��������� � ����� ���� �����, � �� � ��������.
� ����������  ����� ����� � city.txt, � ����� ������ �� �����...
������ ����...
������, ������ �����, � �� ���� �������� �����!
� ��� �����, � ����-�� �� �������!!!

-----
� ���� ���� ��� ����� ������: ������������ � ���.

����������: 19:12 - 5 ���, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

���������:
1. ������ �����-������ ���� � ����������� (����., ������ pro-����� ������� ��������� ��������, ������� ���� ������� �� �����)
2. �� �� ����� - �� �� ���������
3. ����������� ���� �� ������� ����� - �.�. ������� ����� 100x100, ���� �����, ��������, ������������ �� ���� ������� 20x20 � ��������  - � �� ����������� ���� � (1,1)

����� �������� ������ ���� ��������� ����� ���� � ������������, ������� ����� � ������� ���� �� � ��� �����.

����������: 6:30 - 6 ���, 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ��������� ����� - elevation, tile_num, orientation. �� ������� (elevation) ���������� ������? ����, ������, ��� � ������ ������ � city.txt ��� � ����.

����������: 9:43 - 6 ���, 2004
Jo Jim
������������

�����������: ���� 2004

�����: 14 ���������

�������, ������.

*����� ���������� ���� gang_x_member_y ����������� ����������� �� ������ ����. ��� ���� � ����� ������ y:=1, ��� ��������� - ��� �������. ��� ���� ������������� � ������� ���� � ��������� �������� *
� ��� ������������, ��� ��������� ��� ����� ������ ������ ������� � ����� ������������ ������ ���������?

*---den.h line:863---
if (local_var(LVAR_Home_Tile) == 0) then begin
� if (self_gang == gang_2) then begin
� � �check_take_home_tile(1)
� � �else check_take_home_tile(2)
� � �else check_take_home_tile(3)
� � �else check_take_home_tile(4)
� � �else check_take_home_tile(5)
� � �if (local_var(LVAR_Home_Tile) == 0) then begin
� � � � random_tile_in_box(22340, 22332, 24132, 23940);
� � � � set_local_var(LVAR_Home_Tile, global_temp);
� � � � set_local_var(LVAR_Home_Rotation, random(2,4));
� � �end
� end else begin
� � �set_local_var(LVAR_Home_Tile, self_tile);
� end
end
--------------------

check_take_home_tile(x) ������������� LVAR_Home_Tile ������� ������� ����� ����� x ������� �������� ��������� ���������������� �� ������ ������� ����� �������. ����� ��� �������� - check_take_home_tile �������� ��������, � ���������� *
��� ����� �������� �� ��, ��� ��� �������? (���� ������� ����� ���������� ���. ����� ������ �� �� ����������, ���� ������������ ������� ������� ���?)

*LVAR_Home_Tile ������������� ��������� �������� �� �������� � ������������ (22340, 22332, 24132, 23940)*
��, �������. �� ��� ���� ��� �� ������. ���� ������ � ������ 1.0 ��� �� �������� ����, �� ���� ������ ������ �� ����� ������� � ������ ��������������� � ���� ������� �����. �� ����, � ����� �����, ��� ��� ���� ������ ���� _�����_ ����������� ���� ��������� ��� �������� �� ���������� �������.( � ��� ����� ���������� �������? � ���� ����� �� ����.)

� ��� ��� ������� ������: ��� ���� ���� _���������� ����������_ ���� �� ��������, ����� ���������� ��� (��� ���� ��� �� ������). � �� ����� �� ����. ��� ����� ���� � �������� ����.

����������: 13:30 - 6 ���, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Jo Jim

>>��� ����� �������� �� ��, ��� ��� �������? [��� ������ check_take_home_tile(x)]

��� �����.
if (gang_1_member_##x != 0) then begin

���������:
���������� (������, ����� ������������ map_enter_p_proc ��� ���� ������ �����) ��� ���������� gang_1_member_x �������� ��������� �� ������ ����� �������, �.�. ������� �� ����. ��������������, ����� ������ ������ - ����������� ������ dest_gang_member, ���������� ���������� � ���������� �� ������� �������. ���� ������ ���� - �� ���������� ����� ����. �.�. ���������� �������� �������� �� �� ��� �� ������ ������ ��� ���. ����� ��� ������� ������ - ��� ���������� gang_1_member_x ����������� � ���� (�� ����� ����, �� ��� - ��. ����) � � check_take_home_tile(x) ��� ������ x �� ����� ����������� if (gang_1_member_##x != 0).

>>����� ������ �� �� ����������, ���� ������������ ������� ������� ���?

������������� � ����� �������. �����, �� �� ������, ��� ##x �������� ����������� ���������� ���������?
�.�. ���
check_take_home_tile(1)
�����
if (gang_1_member_1 != 0) then begin
� ���
check_take_home_tile(2)
�����
if (gang_1_member_2 != 0) then begin
�.�. gang_1_member_1 � gang_1_member_2 - ������ ����, �� ��������, ���, ������ ������, �� ���������� check_take_home_tile(1) �� ������� ���������� check_take_home_tile(2).

��� �� ������ ������������� check_take_home_tile ��� ���������, � �� ������? ����� ��������� �������� �������������� ������ ��� �������� ���:
______________________________________________________________________
if (self_gang == gang_2) then begin
  if (self_obj == gang_2_member_1) then begin
     if (gang_1_member_1 != 0) then begin
        set_local_var(LVAR_Home_Tile, tile_num(gang_1_member_1));
        set_local_var(LVAR_Home_Rotation, has_trait(TRAIT_OBJECT, gang_1_member_1, OBJECT_CUR_ROT));
     end
  end else if (self_obj == gang_2_member_2) then begin
     if (gang_1_member_2 != 0) then begin
        set_local_var(LVAR_Home_Tile, tile_num(gang_1_member_2));
        set_local_var(LVAR_Home_Rotation, has_trait(TRAIT_OBJECT, gang_1_member_2, OBJECT_CUR_ROT));
     end
  end else <...>
______________________________________________________________________


>>� ��� ������������, ��� ��������� ��� ����� ������ ������ ������� � ����� ������������ ������ ���������?

��� ��� ���� ����������� � gang_member_map_enter:
______________________________________________________________________
<...>
if (NAME == SCRIPT_DCTYLER) then gang_1_member_1 := self_obj;
else if (NAME == SCRIPT_DCMARC) then gang_1_member_2 := self_obj;
else if (gang_1_member_3 == 0) then gang_1_member_3 := self_obj;
else if (gang_1_member_4 == 0) then gang_1_member_4 := self_obj;
else if (gang_1_member_5 == 0) then gang_1_member_5 := self_obj;
<...>
______________________________________________________________________

��� ��� ������� ����� �� ���� ����������� ������, ������� � � ������� ��� ��������� :-)

���������� ��� ��� ���� ��������. ��� ������ �� ����� � ���� �������� �� ���� ����������� map_enter_p_proc(gang_member_map_enter) - � ����-�� ������, � ����-�� �����. ��� ������, gang_1_member_1 ��������������� ��� ������� (� �� ��� �����, ��� � ������ � ������� ���), gang_1_member_2 - ��� �����. ��������� ��� ��������. � ���� ������ ��������� map_enter - ��� � �������� ���� "�������" ���� � ������� � ��� ��������� �� ����. �.�. gang_1_member_3 ��� ����� ������� �� ���� � ��� ���������� "��������" ����� ����� ������ ��� ������� �� �����������. ������� �� �������� ���� gang_1_member_4 � ����� ��������� ����.

>>��� ���� ���� _���������� ����������_ ���� �� ��������, ����� ���������� ���

� ������ ��� ����� ��������� ��� ��� gang_1_member_x ��������. ��� �� ���. gang_1_member_1 ����������� ������� - � �� � ����� �� ���������. �� ���������-�� ��� ���� ����������! �.�. ��� ������� � �����-�� ������ ���������� check_set_obj_visiblity(self_obj,false) [��� � ���� � ��� �� ���������� - �� ��� �� ��� �����] � �� "��������" � �����, ��������� � ����. ��������������, �.�. � � ���� � � ������� ������ ������, �� check_take_home_tile(1) ��� ���� (� ������ ��� ��) �������� �����. � � LVAR_Home_Title ����������� ������ �������������� ������� (���� ������ ������� ��� �� � ���) - �.�. ��� ���������� �������� � ������ ����������� - 24534. ����� ��� ��� ��������� ������ �� ����� ������ ����������������. �� ���� ��� ����� �� ��� �����, ��� ��� �� � �������.

��� ����� �������� ����� ������ ������� � BIS - ��� ������� (3-4 ������ ������� ��� � ��� ������) �� ��������... :-)

����������: 15:39 - 7 ���, 2004
Jo Jim
������������

�����������: ���� 2004

�����: 14 ���������

��� �, ������ �������� �� �� ������������ � ������.
��� ��� �������. ��� ����� ����� ����, �� ��� ���������� ������. ���� ������� .

*������������� � ����� �������. �����, �� �� ������, ��� ##x �������� ����������� ���������� ���������? * ���, � �� �������������� �������� ���� �����. ������ ��� ����� ����, ������� � ���������, ���� ����� ������. �������� ���������� � �������� � �������� ���������
If x= 0 then
 .......
 if x = 0 then
   .......
 end if
 .......
end if
�� ��������� �����?! �� �� � �� � ���. (��� � ��� ��, ��� ��� ���� �������, ����� ������ ������� )

*����� ��� ��� ��������� ������ �� ����� ������ ����������������. �� ���� ��� ����� �� ��� �����, ��� ��� �� � �������. *
���, �� ����� �������� ��������\�������� �� �������, ����� ���� ������ � ������. ��� ������ � ����������� ������ End, ����� ���� �������� ���� �����, � ���� � ��� �����. ������ ������ ������������ �� ������� ���������� ���, � �� �� update_map.
��, ��� ��� ����������. � ��������. ����� ������� ��� �������� ��������� � master.dat/maps/denbus2.map, � �� � �������?
Tnx a lot!

����������: 18:27 - 7 ���, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

������ ��� ������� �� �������� �������� ������������� ������?

Jo Jim, Garold? ������ ������ �� �����? ��� �� ����� ������� � ��������� ������ ? :-)

����������: 6:07 - 18 ���, 2004
Jo Jim
������������

�����������: ���� 2004

�����: 14 ���������

�� ���. ������ �� ��������  ������ ���� ��������. � ��� ������ ��� ������ +10 � �����. (���)

��������� ���������� ���������, ��������� ��������� �����������
*� ������ ��� ����� ��������� ��� ��� gang_1_member_x ��������. ��� �� ���. gang_1_member_1 ����������� ������� - � �� � ����� �� ���������. �� ���������-�� ��� ���� ����������! �.�. ��� ������� � �����-�� ������ ���������� check_set_obj_visiblity(self_obj,false) [��� � ���� � ��� �� ���������� - �� ��� �� ��� �����] *
��� �����, � ����������.
--------------------
if (op_global_var(454) == 9) then
   begin
      ...................
     if (468 == 467) then
       if (op_global_var(471) == 1) then
         op_critter_add_trait(op_self_obj(), 1, 6, 0);
       else if ((op_global_var(468) > (3 + ((op_global_var(446) bwand -2147483648) != 0 == 0))) or (910 == 911)) then
     ........................
           if (910 == 911) then
             op_set_global_var(446, op_global_var(446) bwor -2147483648);
           if (gang_1_member_1 == op_self_obj()) then
             gang_1_member_1 := 0;

-----------------
������ ������������ ����� ��� ������ �� �����, ����� ������������ ������ ���� � ��������. ������� gang_1_member_1 = 0 ���������� ������.
�� ��� ��������� ������������� �� ������, ��� ��� � ��������� map_update (���. ����������� ������ ������, ���� � �� ��������, ��� 250 ����� ����).
������� ���������.
------------------
 if (468 == 468) then
 begin
   if (op_local_var(5) == 0) then
   begin
     if (op_self_obj() == gang_2_member_1) then
       if (gang_1_member_1 != 0) then
       begin
         op_set_local_var(5, op_tile_num(gang_1_member_1));
         op_set_local_var(6, op_has_trait(1, gang_1_member_1, 10));
       end
------------------
��� ������, ��� home_tile'� ����������� ������� �� ������ ��������. �� ���� ��� ����� ����� ���� ������ ����� ������ ����� �������, ����� �� "���������"
��, ��� ����������, ��� � ����� �����. � �������� �������� � ���� � � ���� ���� �������. � ������� ������� ������������ � ��������� map_update:
-------------------
 if (468 == 468) then
 begin
 .......................
   if (gang_2_member_5 == 0) then
   begin
     gang_2_member_5 := gang_2_member_4;
     gang_2_member_4 := 0;
   end
   ........................... (���� ����� ��� 4,3)
   if (gang_2_member_2 == 0) then
   begin
     gang_2_member_2 := gang_2_member_1;
     gang_2_member_1 := 0;
   end
 end
 else
 begin
   if (op_local_var(5) == 0) then
     op_set_local_var(5, op_tile_num(op_self_obj()));
   if (gang_1_member_5 == 0) then
   begin
     gang_1_member_5 := gang_1_member_4;
     gang_1_member_4 := 0;
   end
   .......................(���� ����� ��� 3,4)
   if (gang_1_member_2 == 0) then
   begin
     gang_1_member_2 := gang_1_member_1;
     gang_1_member_1 := 0;
   end
 end

-------------------
� ���� ����, ���   gang_2_member_5 =0 ������, ��� ��� ����� ���� ������� �� 4 �������, gang_2_member_1 ����������� � ����� ������ gang_1_member_2, ������������� ���� ������� ��� �� ������� �� ����� �������.
������ ������. ����� �������������� ��������� ��� ���� �� ������ ����. ��� �� ������ �� ���� ������. �� ������ "���������" ��������� ��� ����� ������ ����� ����, ��� ���� ��������� ��������� ����������� � "������" ������ ���������� gang_x_member_y. �����������, ��� ��� ����� ��������� ����������, ��������, ���������� ����� ���������� �������� home_tile. ���� � ����, �� ����� � ��������� ���: ����� �� ��������� ��������, ����� ��� ������� home_tile'�� ���� �������� �� ��������������� ���� �� "�������������" ���� ���� �����. ������ ��������
����� ����                               ����� �������
gang2(home_tile = 0)                     0 (����)
0(�����)                                         gang1(home_tile)
...                                                      ....
��� ���� gang1 ��������, � gang2 ������� ���� ��������, �, ��������, ������ (�� ������) ���� �� ������ gang1 ���������� ������ gang2, ��� � ����������� "�����������" ���������� ����� ������ ����. �� ��� ������ ��� �������. ��� ���� ��� �������?!

��� � ������, � ���� ����� ���, ������� ������� ���� �� ������� � �������� ���� ��� �������� ����� ������ ����� ������� � ��������� ��� �����  �� ����� ������.
���� �����, ��������� ��������� ������? )

����������: 12:56 - 18 ���, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Jo Jim

������ ���, � �����, ��� �� ����������. "����������" ������� �� ������ �� ������ 1.02? ���� �� - �� ����� ������ ��� ��������� - ��. ������ "�������" � ������. ������ scripts_102d.rar. ~400 kb

���� �� ����� �� ���������� - �� ����� ������. ��� �� ��������� �� ������������� ������������ ������������ (� ���� �������� �� ������������� ����������� � ���� � ���������� ��������� :-)

���. ������ - ������.

������ ��� �������, ��� ����� ������� ������� �� 6 ������� (������ � ���).

������, �����. ��� ����� ���� - ������.

����������: 11:01 - 19 ���, 2004
Jo Jim
������������

�����������: ���� 2004

�����: 14 ���������

*"����������" ������� �� ������ �� ������ 1.02?*
��� � �������� ����� �� �������. (���� )
*������ scripts_102d.rar. ~400 kb*
�������. ���� ����� �����.

����� �� ���������. ���� �� ����� ����������� ���������� ������� ������� � ��������� ����, �� ����������. ������.

*������ ��� �������, ��� ����� ������� ������� �� 6 ������� (������ � ���). *
���, � ���� ����������� !!

(��������������(�) Jo Jim - 14:23 - 19 ���, 2004)

����������: 14:21 - 19 ���, 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�� ��������� ������������ �������� � ������������� ��������� �� ������ ����������� ��� ��� ����� "����������".

����������: 11:11 - 11 ����, 2004
GanGMaN
������������

������: ����������
�����������: ����. 2003

�����: 55 ���������

��, ����, ��� ���� ������� :-)

������ ������� � ������. ������ ��������� � ����� NPC - ��������� � �����. �� ��� ������������ ��� ������ ������ ������ :-) �����, �� � ��������. �� ��� ������ ������������, ��� ������ ��������� � ��������, ������ � ������ (������������) "GDialog::Error Grabbing text message!" ������ �� �� ���� - ����� �������� ��� 10... ��� �����, ��� �����? ���� ��������.

-----
�� �������, ������� ��������, ��� ����� �������� ��� � ����� ������ ��� ������...

����������: 16:24 - 14 ����, 2004
izuk3n
Deleted

�����������: N/A

�����: N/A ���������

����� ������, ����� ���� �� ������� *.msg ����, ��������������� �������.

����������: 17:42 - 14 ����, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

����, � ��������. ������ ����� (��� �������, ������ ������ - �������, ��������, ����). ������ ��������� ���� � ���� � �����-��������� ������������.

����������� ������� �� ������ - ������ ������ ����� ����� �� �������. �� � �����-��-������� ������� 166MMX 2mb video -> Atlon 3000 XP Radeon 9500 ���������, ������, �������� (��� �� ������� � ��������).

� �����, �� ���� ����� (������� ����) �������, �� ������� ���������� ���� ����������  � �������, ������� �� ���� ������� �� ����������.

PS to izuken
� ���� ���� ����������� �������� ����� ��������  �������. ��� ��� ���� � ���� �� ���-�� �� ������� - ��������� ��� �����.

����������: 8:20 - 22 ����, 2004
Orlangur
������������

������: �����
�����������: ���� 2004

�����: 9 ���������

��, ��������� � ����� �� �������� � �����, ��� ��� ������ �� ��� ����� ��������� - ����� ��� �� ���� ������� ...
2 Raven
���� ��� � �����? ��� ����� ����������� - ����������� - ����������.
������ - ����� ������� ����, �� ������ ���, ��� �� �����

-----
������ ���������. ���� �������. ��������, ����� � �����.

����������: 14:05 - 26 ����, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>���� ��� � �����? ��� ����� ����������� - ����������� - ����������.

������� ������� ���� � ����� � ��������� �� �������� ������������� ����� ��������� � NWN-�� � �������� (� ��� ����� � �� ������������ �������� - ��. ��� ����� ����������� ������������).

> ��� ��� ������ �� ��� ����� ��������� - ����� ��� �� ���� �������

��� ����� ������ � ������ :-) ��� �� �����-��������� ����, � �� "��������������" ��� ��������� �����.

����������: 13:05 - 27 ����, 2004
Kovarny
������������

������: ������, ��������� ...
�����������: ���� 2003

�����: 114 ���������

������:
Quote: from Orlangur on 17:05 - 26 ����, 2004
��, ��������� � ����� �� �������� � �����, ��� ��� ������ �� ��� ����� ��������� - ����� ��� �� ���� ������� ...


���� �� ������ ������ ��������� ������� � ������, ���� ���������� ��� ���. [�����]� ��� ������ ����� �� ���� ����� �������� �������. ���, ��� ���� ������������ ����� ������ ���-��������� TeamX ��� ������������ ���������. ������ �� ���� kirillkovarny@list.ru ���� ���. [/�����]

-----
��������� �� ������� �
����� � �������� ��� �� ������
� ��� ���� �������.

����������: 10:58 - 28 ����, 2004
Kovarny
������������

������: ������, ��������� ...
�����������: ���� 2003

�����: 114 ���������

������� ������ ����, �� �� ����� ���������. ������ ��������� ������/������ �� �����.
2Raven: ��������� ������ � LVAR ��� ������� �����. � � ������ �� � ����� � ����������, � ��� ������ GVAR, ������� ��-���� ������ ������� ����� ������������? ������� ����, �� ���� ������������ ��������� ������, �� ��������� �������� � ������������ ��������� ������ � ���-���. ����� ����� ����� ������ � quests.txt?

-----
��������� �� ������� �
����� � �������� ��� �� ������
� ��� ���� �������.

����������: 18:17 - 2 ����, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

�� ����, ������ ������. �������� ��������������������. � ����� ������, ��������� ������ - �� �������. ������� ��� ����� 852 �������, �� ������� ������ ������� ��� ���� ������������ (� ���� � ����, ��������������-������������ ��������, �.�. ��� ������� ������� - ������ ��� - ��������� �� ��-���� �����).

� ���-��� ������ ��� ��������� � ���������-������� ���������, ������ � ��� ��� �����. �� ���, �������, �� ��������.

�������� �������� ������ ���� �� ����� - ��� ����� �����, ������� �� ������ 160 �����������������.

��� ������������ �����-��������: �� ��� ����� ������ ��� ������.

����������: 8:04 - 3 ����, 2004
Anonymous
������������

������: ������, �.�������
�����������: ���� 2004

�����: 10 ���������

� ������ ����� ��������� ������� � ��� ���� ��������:
��� �������� ���� � ��������� � ��� ���������� ���� � ��������

����������: 15:15 - 14 ����, 2004
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

2 Anonymous
����������� �������, ��� ��� ���� ������� �� ������ ��� ������ ����������, ��� ��� ���� ����� ������.

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 18:06 - 14 ����, 2004
Kovarny
������������

������: ������, ��������� ...
�����������: ���� 2003

�����: 114 ���������

2Anonymous:
������� ������.

-----
��������� �� ������� �
����� � �������� ��� �� ������
� ��� ���� �������.

����������: 18:36 - 14 ����, 2004
Anonymous
������������

������: ������, �.�������
�����������: ���� 2004

�����: 10 ���������

� ��� ���� ����������? ��� ���� ���� �������� ���� ������.


(���������� �� 4:36 - 15 ����, 2004.)


� ������ ����� ������ ������������ �����, � ����� - ���?

����������: 4:25 - 15 ����, 2004
Anonymous
������������

������: ������, �.�������
�����������: ���� 2004

�����: 10 ���������

��� ����� ������ *.msg ������?

����������: 6:39 - 16 ����, 2004
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

� *.msg ��� ������ �����, ���.msg ����� ����� �� ��� � � �������. � ��� � ����� *.msg ��� ����� ������.

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 18:54 - 16 ����, 2004
Anonymous
������������

������: ������, �.�������
�����������: ���� 2004

�����: 10 ���������

���� �������� ������� �� *.msg �����, ���� ������� ����� ����� �����, � ����� ����� ������. � FAQ ��������, ��� � ����� sripts.lst ������� ������������� *.msg ������, � ����� ������ �������(��� �������� �� ����������) � ���� ����� �����. ��� ��� ����� ��� �������� 1200, � �������� ����� ����� 500.

����������: 13:31 - 17 ����, 2004
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

������� � master.dat � �� ������� ��� 1447 ��������, � ����� �� 500.

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 23:14 - 17 ����, 2004
Gatling
������������

������: ����
�����������: ����. 2004

�����: 115 ���������

� ����� ��� ��������� � ���� Howto (��� � ������� ��� � �����)
��� ��������� ���� ��� ���������? ������ �������� �� ����������� ��� ��� � ��� ���.

-----
"�����...�����-����!" Gremlin.

����������: 13:31 - 7 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

� ����� � ����. � ���� �� ��� ����� ���������� ��� �����.

����������: 11:13 - 21 ���., 2004
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

�����, ��������� ���� �������, ��� ������������� �������.
������ ���������� � ����� �����, � ���������� �� ������ �� ���� - ��� ����� �����-�� ������ ������.
������ ��������� ��� -
ipp.exe ���_�������.ipp
� ��� �������, ��� ����-�� �� �������? ���������� ����.
� ��� - ��������� ������ (������ ���������) ��� ��������� � ��� �������, � �������? ����� �� ��� �����-������ ����������� �������� ��� ����? ����� �� ���� ������� ���������� �������� ����� ���� ���������� �� ����� ������?
� ��������� ���� �� �����-������ GVAR, ������� �������� � 1 ���� ������ ������ �������� ��������? � ����� ������ ��� ��������������� � 1?

-----
��������! � �������� ���� �����...

����������: 9:31 - 23 ���., 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

Kovarny � ����� FAQ ������� �� ������:
"Q:��� �� ������� ������ ������� ���������� � �������?
����� ��������������� ���������������� ���������� (��� ��� � ������� � ����������� ��������).
� ������� ����� ����������� ����������:
export variable my_obj;
����� � ������� ������� ����������� ������ ����������:
import variable my_obj;
�� ������������� �������� ��������� "�� ����", ��������, ���:
procedure start
begin
my_obj := self_obj;
end
����� � ������ ������� � ����� ������������, ������� ��� "���������":
import variable my_obj;
"

� ������, ��� ����� ����������� ������������� �������, ����� ��� ������ �����, ����� ��� � ��������� ���� ���� �� ������������� �� ��������� �������. �� ����� � �� ����� �� ������� �� ������ �� ���� �, ��� ��� ����� ���������� �������� ����� �����.. : ������ ���� ��������� �� ������ ������� � �������: ����� ��������� ������ ������� ��� ������ ��������? ��� ��������� ��������� exportimport? ����� ����� ������������� ������ �����? ������ �� ����� ������ �� ������������ MVAR? ��� �������� "������������� �������� ��������� "�� ����""? ��� ������ ��������� � �����: ����� ���������� ���������� ���� ��������? �� � ��� �����..

����� ���� ���-������ ����������� �����.


-----
hit me, nail me, make me god

����������: 22:31 - 23 ���., 2004
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

>������ ���������� � ����� �����, � ���������� �� ������ �� ���� - ��� ����� �����-�� ������ ������.
������ ����� � ���. IPP �������� � ������ ��� ���������� ����������� ����������. ���� �� ����������� ����������������� ������, �� ��� ��� ���������� ��� ����. ��� �������� ������. ���� ������ ������� �����, ��������� ������ �����������. ��� ����� ��� ���������� - ������ ���� new_scr.ipp.
>� ��� - ��������� ������ (������ ���������) ��� ��������� � ��� �������, � �������?
���������� destroy_p_proc. ����������, �������, �����. ��. ���� �� ��������.� ���������  
>���� �� �����-������ GVAR, ������� �������� � 1 ���� ������ ������ �������� ��������?
�����������, ��� ����. ���� ��������������� ������� (��������, obj_dude.int).

>������ ���� ��������� �� ������ ������� � �������: ����� ��������� ������ ������� ��� ������ ��������?
������� �������� �� ������� ������� �� ����������. ��� ����� ��� ������ �����.
>��� ��������� ��������� export � import?
export - ������ ��, ��� ��� ���������� ����� �������������� ��� �������, import - ��, ��� ��� ���������� �������, ������� �������.
>����� ����� ������������� ������ �����?
�� ����, �� ������� ��� ������.
>��� �������� "������������� �������� ��������� "�� ����""?
��� �������� ������������ �� ����. ���� ������, � ������� ���������� ������������� �������� (������� �������).
>��� ������ ��������� � �����: ����� ���������� ���������� ���� ��������?
����������, ���. ����� ������������ ��� �������.
�������� ������ ������ (ACNagor.int) � ��� ��� ����� (ACDog.int). ��� ������ ������������� �������. ��� �������� ������ ����� (ArVillag.int, ��-�����) - ��� ������ ���� ��������� ���������� ����������. ������ ��� ������ �������� �� ������ � ������� ���.

-----
Into The New Year - With A New Vision!
������������ �� ��������, �������� �� ��������, ������� �� ��������, FAQ �� ��������, "�������", fallmods-tutor.

����������: 2:06 - 24 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>������ ���� ��������� �� ������ ������� � �������: ����� ��������� ������ ������� ��� ������ ��������?

�������� "���������" �� ����������. ��������. ����������, ����������� � ������� ����� � �������� ������ export ����� �������� ���� �������� �� ����� - ��� �� ������, ��� � �� ������. ������� � ���� ���������� ����� ��, ��� ������ - PID, ���������, ����� �����, ������������� ���� - � �����, ��.

������: �� ����������� ��������� � ����� ���������� ��� ������ �������� ��������� ���������� ����� �� �������. ����� ����� ������������ ������������� � ������� ������� ���. ��� ������� ������ ������� ����� ��������?

���������� ������/�������. � ������� ����� �����:
export variable money_to_give;
������ ���������� money_to_give ������������ �������� ���� �������� �� ���� �����.

� ������� ������� ��� (���������� ����� �����) �����:
---------------------------
<...>
//����������� ����������, �.�. ������ � ��������� ��� ����� �������
import variable money_to_give;
<...>
//�����-�� ��������� ��������� �����
procedure generate_amount begin
<...>
//����������� ���������� ���������� ��������������� �����
money_to_give:=generated_cash;
end
<...>
---------------------------

��, ������ ���������� money_to_give ������ ���������� ������ ����� �����. � ������� ���2 (��������) �����:
---------------------------
<...>
import variable money_to_give;
<...>
procedure give_money  begin
<...>
//������� ���� ��������������� �����
item_caps_adjust(dude_obj,money_to_give);
<...>
end
<...>
---------------------------

������2 (�������� ���������):
�����:
---------------------------
export variable ptr_npc1;
---------------------------
���1:
---------------------------
<...>
import variable npc1;

procedure start begin
//����������� ���������� ���� ��������� "�� ����"
npc1:=self_obj;
end
<...>
---------------------------
���2:
---------------------------
import variable ptr_npc1;
<...>
display_msg("NPC1 tile="+tile_num(npc1));
display_msg("NPC1 meelee skill="+has_skill(npc1,SKILL_MEELEE));
---------------------------
���3:
---------------------------
import variable ptr_npc1;
<...>
display_msg("NPC1 elev="+elevation(npc1));
display_msg("NPC1 doctor skill="+has_skill(npc1,SKILL_DOCTOR));
---------------------------

������ ������ ����� �� ������� ������������� ��������� �� ���1. ������ ����� ������ ����� ������������� ��� ���������� � ������������ ���������� � ��� ��������� ��� ��������� ����������� ���������� � ���1 - ����� �����, �������, �������� � ���������, �����, �������������� - �� ��� ������, ����� ���������� �� ������� ����� ���� ��������, ���� �� ����� ��������� �� ����.

��� ������, "���������" ���� ����� ���� ������� ������.

�������, ������ �������.

>>������ �� ����� ������ �� ������������ MVAR?

��, ����� ������������ MVAR. � ���� ������ ������ ����� ����� �� �������, � ������� ������ ��� �����:
---------------------------
//������ �������� start, �� ����� � m_e
procedure map_enter_p_proc
set_map_var(MVAR_var,self_obj);
end
---------------------------
��� ��������� ���:
---------------------------
//���������� ��������� ����������
variable var;
var:=map_var(MVAR_var);
---------------------------

�� ��� ������ �����. MVAR-� ������������ � ������. ����� ������� �� ������ ����� �����-�� ��������� �� ������, ��� �����, ��������� ������ ��� ������. ����� ������/�������.


>>��� ������ ��������� � �����: ����� ���������� ���������� ���� ��������?

����� ���������� ���������� ���������� ���� �������� �� �����, ������� ��� ���������� �������������.




(���������� �� 5:43 - 24 ���., 2004.)


>>�����, ��������� ���� �������, ��� ������������� �������.

�� �� ���, ���. �������, ���� :-) ��� ��� � ��������� ��� :-) ��� �������.

>>������ ���������� � ����� �����, � ���������� �� ������ �� ���� - ��� ����� �����-�� ������ ������.
��-������: ����� �������� �� ���, �� �� ������������ ����� ����������, ��� �� ������� ��� BIS compiler ������ �������.
��-������: ��� ���������? �������� �����.

>>� ��� �������, ��� ����-�� �� �������? ���������� ����.

������ � ������, �������. ��� ����� ������� ����������� ��������������� ��������� (������, ������ ����� �� ������). ������� ������ �� ������� ������� #define, #include, #ifndef.

>>� ��� - ��������� ������ (������ ���������) ��� ��������� � ��� �������, � �������?

������� "��������� ������" ���. �������� ������ ����������/�������������� �������, ������� ����� �� ��� ���. �� � ������ ������ ��������� ����������� ���������� destroy_p_proc, �� ����� ��������� ����������� (�����, �� ������ ���������) - damage_p_proc � � ���� ������� ����������� combat_p_proc

>>����� �� ���� ������� ���������� �������� ����� ���� ���������� �� ����� ������?

��, ��������� �������:
-----------------------------
procedure destroy_p_proc begin
//������� ����� - inc_good/bad_critter � �.�.
<...>
//������ ����������
set_global_var(GVAR_pogib_smertyu_hrabrih,1);
end
-----------------------------

>>� ���������  ���� �� �����-������ GVAR, ������� �������� � 1 ���� ������ ������ �������� ��������?

��, ��� �������� �� �������� �������� ����� ���������� ���� GVAR_FALLOUT_2 � �������: set_f2, force_f2, get_f2, f2_flag_any.

�����, ���������� � ���� ����� (������, �� ��������, ���� ����� ��������, �� 0 �� 8):
f2_state_v13_looking
f2_state_v13_known
f2_state_v13_found
f2_state_v13_entered
f2_state_tribe_kidnapped
f2_state_fix_tanker //��������, �� ������������
f2_state_tanker_fix_known
f2_state_tanker_fixed
f2_state_enclave_destroyed

����, ������, ���������� f2_state_tribe_kidnapped.

>>� ����� ������ ��� ��������������� � 1?

��� ������ ������ � ardead.map (�������� �������). ��������������� �� ������� �������� (����, ����������). ������� �� ����� ����������� ������� �������.

��������� ������ ����� "����� ������ - ������ ������". ��� ���� �� �������. ��, � �� �����-�� � �������, ���� ������ :-)

����������: 5:11 - 24 ���., 2004
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

��, � ���������� ���� �� � �������

� ���� ������� �� ���������� ���������/����������� - ������� ���� ���.

����. �� ���� ����� ������ �������� GVAR_FALLOUT_2 == 4 ��� � �������?

> f2_state_fix_tanker //��������, �� ������������

������, ��� ������������� ���. � ������� �������� ���� ������� (������� ������������, ��� �������� ������ � ��� �� ���������) ��������������� ������ ����� 6 � 7.

�� � ���. ��� ��� �� �������/�������� - op_metarule? ��� � �������� - op_metarule3 ��� ��� �����?

-----
��������! � �������� ���� �����...

����������: 9:23 - 24 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>����. �� ���� ����� ������ �������� GVAR_FALLOUT_2 == 4 ��� � �������?

��.

>>�� � ���. ��� ��� �� �������/�������� - op_metarule? ��� � �������� - op_metarule3 ��� ��� �����?

��. ���� �� WG. � BIS ��� �������������� metarule � metarule3 - ����������� ������������ ������� � �������� ������ ����������.

����������: 11:15 - 24 ���., 2004
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

����� ������ �� �������.
��� � ��� ������������� ������ ������-���� ������? � �������, ��� � ������� ����, � ���� ����� ������? � �������� ��� �������� ��� ��? ��� ����� �����-������ ����������� ������� ����������?
� �� ���� ������� ������ - ����� ������ ����� ������ ����� (��� ����� � ��� ����), ����� �� � ���-��� ������������� ����� �� ������ � �����, ���� � ����� �� ���� ������ ��� � �� ���������.
����� ���������, �����, ����� � ������� ����� - ��� � �� ���������� � ��� ��� �����.
Help!

-----
��������! � �������� ���� �����...

����������: 14:16 - 2 ����., 2004
izuk3n
Deleted

�����������: N/A

�����: N/A ���������

�������� master.dat//data/quests.txt

��� �� ����������

����������: 14:23 - 2 ����., 2004
escapist
������������

������: �. ��������
�����������: ���. 2004

�����: 34 ���������

��������� � ���� ��� ���� ����������:

-��� ����� AI Packet � ��������?

-��� � ����� float_msg ������������� ��� ����������� ������ ���������, ������� ���������� ��� �� ��������? ����� ��������� �� � ������� ��� ����� ��������� � ����� ��� ������ ����������?
procedure QQQ begin
float_msg(self_obj,127,1);
end

-� ���: ����� ��� ����� ���� �������, ����� �����������, � �� ��� ��� ������?
giQ_Option(4,NAME,114,Node003,NEUTRAL_REACTION);  

(��������������(�) escapist - 11:20 - 20 ����., 2004)

����������: 19:58 - 19 ����., 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:

-��� ����� AI Packet � ��������?


��. master.dat/data\ai.txt. AI ���������� ��������� �������� �� ����� ���.
������:

-��� � ����� float_msg ������������� ��� ����������� ������ ���������, ������� ���������� ��� �� ��������? ����� ��������� �� � ������� ��� ����� ��������� � ����� ��� ������ ����������?
procedure QQQ begin
float_msg(self_obj,127,1);
end


� ����� ���� ��� �����, ������, ���������? � �� �����... ���� ������ ���� ;).
���:
 
void float_msg(ObjectPtr who, string msg, int type) - ������� "���������" ��������� (��� ���������)
���������:
who - ��������� �� ��������
msg - ������ ���������, ������� ����� �������� ��� ������ ������� message_str
type - ��� (��. DEFINE.H):
�����������:
FLOAT_MSG_WARNING (-2) - �������������� (���� ������������ �� ����������)
FLOAT_MSG_SEQUENTIAL (-1) - ����������� ������� ���� ������
���� ���������:
FLOAT_MSG_NORMAL (0)
FLOAT_MSG_BLACK (1)
FLOAT_MSG_RED (2) (FLOAT_COLOR_BAD)
FLOAT_MSG_GREEN (3) (FLOAT_COLOR_SICK)
FLOAT_MSG_BLUE (4)
FLOAT_MSG_PURPLE (5) (FLOAT_COLOR_HIGH)
FLOAT_MSG_NEAR_WHITE (6)
FLOAT_MSG_LIGHT_RED (7) (FLOAT_COLOR_AFRAID)
FLOAT_MSG_YELLOW (8) (FLOAT_COLOR_NORMAL)
FLOAT_MSG_WHITE (9) (FLOAT_COLOR_GOOD)
FLOAT_MSG_GREY (10) (FLOAT_COLOR_SAD) (FLOAT_COLOR_WHISPER)
FLOAT_MSG_DARK_GREY (11)
FLOAT_MSG_LIGHT_GREY (12) (FLOAT_COLOR_SFX) (FLOAT_COLOR_PAIN)
������������ ��������:
���
�������:
gen_floater, floater, floater_rand


������:

-� ���: ����� ��� ����� ���� �������, ����� �����������, � �� ��� ��� ������?
giQ_Option(4,NAME,114,Node003,NEUTRAL_REACTION);  


����� ��, ������ ����:
���:
 
void giQ_Option(int iq_test, int msg_list, int msg_num, procedure target, int reaction) - ������� ������� ������ � �������
���������:
iq_test - ������������ ���������� (���� �������������, �� ������� �������� "��������� ������ ��� �����", ���� ������������� - "������ ��� �����")
msg_list - ����� ����� msg
msg_num - ����� ������ � ����� msg
target - ���������, � ������� �������������� ������� ��� ������ ���������������� ������
reaction - ������������� ������� (��. DEFINE.H):
GOOD_REACTION (49)
NEUTRAL_REACTION (50)
BAD_REACTION (51)
������������ ��������:
���
�������:
GOption, NOption, BOption, GLowOption, NLowOption, BLowOption


� ���������� ��� ���� ������ ��� ������� ����� �������.

����������: 11:52 - 21 ����., 2004
escapist
������������

������: �. ��������
�����������: ���. 2004

�����: 34 ���������

�� � ����-�� �����, ������ � ���� �� ������ ���������� ��, ��� � ������� , � ������, �������, �������.

������, � ��� � �� ������ ���� float_msg ��������� ����?

����������: 19:01 - 21 ����., 2004
izuken
������ �����

������: mSk
�����������: ���. 2004

�����: 125 ���������

��������� ����������, �����������!!!!!

-----
��� ������ ������.
save the planet - kill self.

����������: 19:40 - 21 ����., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

float_msg ����� �������� ������ ������, �� ����������� ������ �������. ��������, ���:

procedure description_p_proc begin
script_overrides;
float_msg(self_obj,"Hi",0);
end

����������: 1:03 - 22 ����., 2004
escapist
������������

������: �. ��������
�����������: ���. 2004

�����: 34 ���������

��� ����, ����� float_msg ���������� ��� ����� (�� ���� ����� �� �����).

� ������ ���:

procedure critter_p_proc begin  
In_Timed_Event:=0;
if (In_Timed_Event == 0) then begin
      In_Timed_Event:=1;
      add_timer_event(self_obj,game_ticks(random(5,9)),1);
  end  
 end
 
procedure timed_event_p_proc begin
  if (fixed_param == 1) then begin  
      float_msg(self_obj,"HI",0);    
      In_Timed_Event:=0;
  end
end

�.�. ������ �������. ������� ���������� ����� 5-9 ��� ����� ����� �� �����.

� ��� �������� ������� ���, ����� ��� ����� ��������� ����� ���������, � ����� ���������� �����?

� ��� ������: ����� ������� ���������� �������, ����� ����� ����� ����� �����������?

����������: 22:26 - 23 ����., 2004
Sereney
������������

�����������: ���. 2004

�����: 1 ���������

��� � ������� ������� ������� ��� ��� �� �������� ����� ������� ����� ������������� �������� ������ ������� �� ������?

-----
�� ������ �������� ���� �������� �� ������� ����!

����������: 14:35 - 10 ���., 2004
izuken
������ �����

������: mSk
�����������: ���. 2004

�����: 125 ���������

���� ������ �� node998 - � ����� ��� ���������� ������ ���� � ������� �����. � ��� ������������ ���-���� �����
set_lvar(lvar_hostile,99999);

-----
��� ������ ������.
save the planet - kill self.

����������: 16:53 - 10 ���., 2004
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

����������, � ��� � ������� ����� ������ hex �� ������� �������� ����� ��� ������ �� �������. � ��������� ����� �� Noida.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 22:07 - 21 ���., 2004
escapist
������������

������: �. ��������
�����������: ���. 2004

�����: 34 ���������

� ��� �������������� ������� Lighting?

����������: 21:06 - 23 ���., 2004
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

>>� ��� �������������� ������� Lighting?

�� �� ������� �������, ������� ������, ��������������� ������������� ��������� ����� � ����������� �� ������� �����:

#define Lighting � � � � � �  ��if ((get_month >= 3) and (get_month < 5)) then � � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � � � �Spring_Lighting; � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � �else if ((get_month >= 5) and (get_month < 9)) then � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � � � �Summer_Lighting; � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � �else if ((get_month >= 9) and (get_month < 11)) then � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � � � �Fall_Lighting; � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � �else � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � � � �Winter_Lighting

(��������������(�) Tehnokrat - 3:23 - 24 ���., 2004)

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 23:59 - 23 ���., 2004
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������ ����� ������ - ��� ������ ������ ��������� ����, �� ������� �������� ����� ��� ��������� �����. ����� ����� ������� ��� ����� ������. � �������� ���� ��������� - map_enter_p_proc
� ���-�� ������ op_move_to. � ������  map_enter_p_proc ���������� ��� ��������� �����, � op_move_to ��������� ������. �� ���� ������� op_move_to ������ ������ ������ �� �������� . ��� �����, ��� ����� �������� map_enter_p_proc?

� ���. ���� �������� ��������� ���� ����� ������ � ����������� ��� ������ �������, � ���� �� ��� ��������� ����.��� � ����� ����� �����������?  

����������: 23:10 - 28 ���., 2004
CrashBoom
������������

������: ������
�����������: ���. 2004

�����: 39 ���������

map_enter_p_proc ���� ������ ����� ������ ����� ��������� ������.

����������: 23:15 - 28 ���., 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

�� ��� � � ��������� �� �������� :)

����� ����:

procedure move_pistols begin
  add_mult_objs_to_inven(self_obj, pistols,num_of_pistols);
  rm_mult_objs_from_inven(dude_obj, pistols,num_of_pistols);
  set_gunz_quest_complete;
end

��� ���������� ����� "; expected"

������ ����� ����:
procedure move_pistols begin
  test := add_mult_objs_to_inven(self_obj, pistols,num_of_pistols);
  test := rm_mult_objs_from_inven(dude_obj, pistols,num_of_pistols);
  set_gunz_quest_complete;
end

������������� ��� ������, ���� ��� add_mult_objs_to_inven � rm_mult_objs_from_inven � ���� ������, ��� ��� void, � �� function... � ���-�� �� ��� �����?

-----
Scio me nihil scire

����������: 14:20 - 29 ���., 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:

������������� ��� ������, ���� ��� add_mult_objs_to_inven � rm_mult_objs_from_inven � ���� ������, ��� ��� void, � �� function... � ���-�� �� ��� �����?


�������� �� ����������� :). �� �������: �� ���� ��� ����� ������� ������ ���� ����������� ;). ��� ��� ������ ����������:

variable tmp;
add_mult_objs_to_inven(self_obj, 1, 1);
tmp := rm_mult_objs_from_inven(dude_obj, 1, 1);

add_mult_objs_to_inven, �������������, ������ �� ����������, � ��� rm_mult_objs_from_inven ���������� �����, � ��� �������� � ����.

����������: 15:11 - 29 ���., 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

Wasteland Ghost, ������� :)
���� � ��������� ��� ����������� ������... � �� ����� ������� �� ������.

������, ��� ������� ����������, �� ������ ����� ���������� ������� �� ����������. ������, ��-�� ���������� ���������� �������� ��������� :-/

-----
Scio me nihil scire

����������: 15:40 - 29 ���., 2004
Maximus
������������

������: RF
�����������: ����. 2004

�����: 1 ���������

������� ��� ������� ������� �� Fallout1?
���������� �� ������� ������.


-----
Dura lex sad lex

����������: 7:33 - 8 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

����� ������������������ �������:

� � �if ((op_global_var(639) == 1) or (op_global_var(639) == 2)) then
� � �begin
� � � �op_start_gdialog(1307, op_self_obj(), 4, -1, -1);
� � � �maybe_start_dialog();
� � � �asm_push_value(6672); // �������� � ���� �������� 6672
� � � �asm(0x800d); � // return? �� ����, ��� ������ ����������. ������ ���-��� 6672 �� "����� ���������"(?)
� � � �asm_push_value(0); � // ��������������� ���������
� � � �asm_push_value(12); �//  � ���� 0 � 12 (��� � �����, ������ �� ���������)
� � � �asm(0x8005); //call
� � � �asm(0x801a); //�������� �� ����� �
� � � �maybe_close_dialog();
� � � �maybe_op_end_gdialog();
� � �end

� �� ����� ������� ���������� � ����. ������ �������� :)
������� �� ���������� - ����� ������ ������� ���������� � ���� ����� ����? � ���� ������� - �� ����� �������?

(��������������(�) Mynah - 14:34 - 9 ������, 2004)

(��������������(�) Mynah - 14:35 - 9 ������, 2004)


(���������� �� 12:38 - 9 ������, 2004.)


2Maximus:
������:
������� ��� ������� ������� �� Fallout1?

�����, �����. ��, ����� ��, �� ���������� ��� ��������� ������� (����... ����� ������� �� ����).
��������� �������������� Noid'�, � ������ --fallout1.

-----
Scio me nihil scire

����������: 12:28 - 9 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

���� �������, �����������, ����� �� ���� ������ �������(������) ������, ���� �������, ������� ����������� �������� �� �������� �������, � ���� ���� ���������� - �� ��������� ��������� �����.

���� �� �������, ������� ��������� ����� �� ������/�������/������ ��������������� �� ���� �����? ������: ��������� ������, ����� �� ������� ������ �� �������� ����; ��������� ������, ���� ������� ������� �� 1 ����, �� ����� �� �� ����� ������� ��������?


-----
hit me, nail me, make me god

����������: 12:37 - 16 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>���� �� �������, ������� ��������� ����� �� ������/�������/������ ��������������� �� ���� �����?

���.

>>��������� ������, ���� ������� ������� �� 1 ����, �� ����� �� �� ����� ������� ��������?

����� ������� ��������� �������, ������� critter_attempt_placement �� ������ ���� � �������� ����-��� ����� ������� (���� ��� ���������� �� ����� ����) � �������� ������. ���� ������ �������� - �� ��, ���������� ��������. ����� ���. ������� ��������� ������� � ������ �� ���������.

�����, �������, ���� �������� �����.

� ������ ������� - ����� �����.

����������: 13:35 - 16 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������� Raven, ������ ��� � � ������ ��������. ������ - ��������� ����������� ��� �������� ����������� �� ���������, ��������� ��������� �������� IMHO ����� �� ����.

��� ����� ���������� ������: ��� � ������� ������ ��� ������?

-----
hit me, nail me, make me god

����������: 14:11 - 16 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

get_critter_stat(obj_ptr,STAT_gender);
0 - Male
1 - Female

����� ���������� ������� �� command.h: dude_is_male � dude_is_female ��������������.

>>������ - ��������� ����������� ��� �������� ����������� �� ���������.

��-�-�, �� �����. ���� ��� � ��� � ���� ���������... �����������, ��� �������... �� ���� �� ������� �������� ����������, �� � ��������� ������, ������, ���...

���� ������ ���������... :-)

����������: 14:28 - 16 ������, 2004
pal
������������

������: Estonia, Narva
�����������: ���. 2003

�����: 42 ���������

������ �����������. ��� ������ ����� ��������� ������� �-��� ScriptAction.
��� �������� � ������ ���� ����� ����� ����:

if ScriptAction=2 then begin
Heal(Player,-100);
Write('Hurt dude';
end;

��� ��� �������� ������ ????
������� �������

����������: 15:13 - 16 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

�� ����:

int script_action - ���������� ��������, �������������� ���� ������. � �������� Fallout2 �� ������������
���������:
���
������������ ��������:
����� ������������ ����������� (��. DEFINE.H, ������ Script Procedure Types)
---------------------------------------------
// script.h: Script Procedure Types //
#define no_proc           (0)
#define start_proc        (1)
#define spatial_proc      (2)
#define description_proc  (3)
#define pickup_proc       (4)
#define drop_proc         (5)
#define use_proc          (6)
#define use_obj_on_proc   (7)
#define use_skill_on_proc (8)
#define use_ad_on_proc    (9)
#define use_disad_on_proc (10)
#define talk_proc         (11)
#define critter_proc      (12)
#define combat_proc       (13)
#define damage_proc       (14)
#define map_enter_proc    (15)
#define map_exit_proc     (16)
#define create_proc       (17)
#define destroy_proc      (18)
#define barter_init_proc  (19)
#define barter_proc       (20)
#define look_at_proc      (21)
#define timed_event_proc  (22)
#define map_update_proc   (23)
---------------------------------------------

�� �������: ���� ���� ��������� ������� �� spartial_p_proc (� ��� ���������� ����� ��� ��������� �����), �� ��� ������ ����.

����������: 15:37 - 16 ������, 2004
pal
������������

������: Estonia, Narva
�����������: ���. 2003

�����: 42 ���������

To Raven:
���� �� ������ ������ ����� ��������� �����������

if (GVAR[613]=9103 OR GVAR[613]=9102) then begin
end else begin
end;
end;

�� ��� ��� ��� ������ �� ���� � ����� ����� ����

����������: 17:24 - 16 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

���.. ����, �������� ���� ���-�� ��� ��� ����������, �� �� � �������� Raven'a, �� � ���� Walteland Ghost, �� �� ���� ����.. ��� � �� ������ ������.

1. �� ��� [censored] ����� scrname.msg?

-------------------- �������� ����� Raven'a, ��. ���� ----------------------

� �3. ����� ���������� Data\Text\English\Game\scrname.msg
� ���������� �������:
� �---------------------------------------
� �{1404}{}{���_NPC}# ���_�������.int ; ��������_NPC
� �---------------------------------------
� ���� ������ obj_name(self_obj) ��� ������ ������� �� ����� NPC ����� ���������� ������ ���_NPC
� ���������������, ���� ����� #define NAME 1305 ����� ������ {1405} � �.�.

--------------------- end of �������� ����� Raven'a ------------------------

�� ���� ����� ����������� ����� ������ ��� ����, ����� � ������� ������ NPC �� ���������� look_at_p_proc ������?

2. ���� Pascal'�, � � ������ �������� � �����������, ��� ������� ����� �� �����������. ����� ��� ���-�� �������, ��� GVAR ����� 32 ����.. � ���������? ����� �� � LVAR �������� ������? ������? � ����� ����� � ��������� ������� ?

3. ���, ����������, � ������� �������� ����������� �������, � ������� � ����� ������� �������� �������:

�--- *.msg ---
� �..
� �{����� ������}{}{������ � �������}
� �..
�-------------

�--- *.ssl ---
� �..
� �set_local_var(LV_number,����� ������);
� �float_msg(self_obj,message_str(����� �������,LV_number)+","+message_str(����� �������,����� ������));
� �..
�-------------

� ���������� ������� �������: "Error,������ � �������". � ��� ������? ���� ����� ������ ����� 1, �� ������ ���.

(��������������(�) Alan Killenger - 7:39 - 17 ������, 2004)

����������: 19:46 - 16 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

2pal: �� ������ ������ �������� ��� �������... ��� ����� ������������ ������ � �����, �� � �� - ��-�������. ����, �� � ��� �� ���������. �� � ��������� ������ ����� ����, ����� ������, �� ������ ����� �� ���������.

2Alan Killenger:
1. ����� ������� ������:
�������� �� ������� ��� �������� � scrname.msg � ������ ��� � ���. �����, ������ ��� �����, ����� �������� <None> ������� �����������... (���-���-���)
2. � ������ �����������? ;) ��� �� �� ����� 32 ����. (������, ��� �� ��������� � �������� ������������ ����� � ��������� �������?). ������ ���, ����, ������� ��� ������. ����� ���� ������� ����� ������ �� *.msg ����� ;) � � ������ ������������� �����, ����� ��� � ����� *.msg ����� �������.
3. � ���� ���:
float_msg(self_obj,message_str(����� �������,LV_number)+","+message_str(����� �������,����� ������));
� ���� ���:
float_msg(self_obj,message_str(����� �������, local_var(LV_number))+","+message_str(����� �������,����� ������));


(���������� ��  21:27 - 16 ������, 2004.)


2Raven:
������:

�� ���� �� ������� �������� ����������, �� � ��������� ������, ������, ���...


���� ��������� :) �� ������� ������ :))

(��������������(�) Mynah - 23:40 - 16 ������, 2004)

-----
Scio me nihil scire

����������: 21:25 - 16 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Alan

1. ������ � �����, ��� scrname.msg ��������� ������ ����� ��� �������� msg-����� � ������� � ������� ����� � �������� �������. ��� � �������� ����� ������ � ���������, � ��������� ���� �� �� ����. ��� ��� ���� �� ���� ��� � ��������.

2. ����� � ��������� ������ � ���� ����. ������������ ������ �������, ��� ��������� ���������� ����������� ssl-������. ��������:
variable a=1234.5678;
display_msg("a="+a);

����� ����, � ���� ���� ��� char - ��������� ������ ('a','Z' � �.�.). ����� ����, � ������� ���� ����������� ����� �������� ASCII-��� char-�������. � �� ����.

� �� - ��� ���� 32-�� �������.

>>������ ���, ����, ������� ��� ������. ����� ���� ������� ����� ������ �� *.msg ����� ;)

������ ��� ���� ����� ����� ����� ������ ���-����. ������, ��� ��� ���� ��� ����������� - ��� ������ ��������� ���:
-------------------------------------
#define MAX_SCRIPTS2000
variable i=1307;
variable msg_file_num;
variable msg_string;
msg_string:="LABEL: "+obj_name(self_obj);
while (i<MAX_SCRIPTS) then begin
if message_str(i,100)==msg_string then begin
 msg_file_num:=i;
i:=MAX_SCRIPTS+1;
else i+=1;
end
-------------------------------------

����������? ���������, ���������� ��� "��������" ���-���, ������� �� 100-�� ������� �� ������� ����� "LABEL: Vasya", ��������. ��-���� ������� � ��� ������, ���� �� �� ������ ����� ���-���, �� ������ ����� �����������.

������ �� � ���� ������� ������, ������� ������ ���� ���-��� ��� ... ������. �.�. ����� � ���
{101}{GIVE}
{102}{������� �����}
� ���� ������� ����� :-) ���������� �������� �� ���� �������, �� ������� �� �������.

to pal

��� ���������������� �����. ������ ���, � ������ �� ��� ������ - ��� �����.


����������: 0:32 - 17 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

Mynah: "������ ���, ����, ������� ��� ������. ����� ���� ������� ����� ������ �� *.msg �����.."

����, ���� �����, �� ��� ������ � ��� ������, ����� ���������� ������ ������� ���� ���� �� ���������� ���������. � ���� ������ �������� ����� ���������?

float_msg(self_obj,message_str(����� �������, local_var(LV_number))+","+message_str(����� �������,����� ������));

- thanks.

Raven:"msg_string:="LABEL: "+obj_name(self_obj);"

� ��-�����, msg_string � ������ ����� ���� �� ������������.. � ��� ������?

��� ��������� �������� � ��������� �������� � ��� �����-������� � ��� �����-�������? � ����� ������ ��������� �����������:

1. ������ ������ ������ � *.msg �����:

 ???? - ? <=> ����� - �/�

2. � ����� �������:

 #define message(P_number) message_str(C_script,P_number*10+get_critter_stat(dude_obj,34))

������� ������� � ���������� ����������, �� � ����� ������ ��� ��������� ����� ��������� ���������� ����� � *.msg �����. ��� ��� ��������������� ������, ����� �� ����� ���������: � ������, ����� �� ������� ������� ��� �������� ����, ��������� ������� ����������� ������� ��������? �� ����, � ���������: ��� ����������, ������������ �� ������ ������� � *.msg �����?

(��������������(�) Alan Killenger - 6:36 - 17 ������, 2004)

����������: 2:37 - 17 ������, 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

Mynah ��������� ���� �� ������ scrname.
������:

� ��-�����, msg_string � ������ ����� ���� �� ������������.. � ��� ������?


���� ������� ����� ������ ������������ ������ ������������ :).

2pal ���������� ������ �������� �����, �������� ����� ������� ��� �� �1 ������������ :). ������, � ���� ������ ��������������, ������� ������� �� �1 ��������� � �2 � �������� ������� ;).

������:

������ ���, ����, ������� ��� ������.


�� ���� �� �������� ����� �����������:
���:
 
variable stored_node;
...
/*���-�� � ����� �� ��� �������*/
stored_node := "Node002";
...
/*��������, � ����������� talk_p_proc*/
start_gdialog(NAME, self_obj, 4, -1, -1);
gSay_Start;
 call stored_node;
gSay_End;
end_dialogue;


����� ��� ��� ������� ����������� ���������� ������ � ����� ����� :). ���, ���� �� ������� ������� �� ������� (����, ��������) �� ������ �������, �� ��������� ���� �� ������ ��� ������ �� �������. � ����� ��� ����� �������� �������� ������, ���-�� ��� ����������, � ����� ������ ����������� � ���� �����, �� ������� ������������.

����������: 9:36 - 17 ������, 2004
pal
������������

������: Estonia, Narva
�����������: ���. 2003

�����: 42 ���������

To WastelandGhost and Raven:
��� �� ���� ��������� �� ���������
��� ��� �� �� ��� ��������, � 1�� ����.

� ������� �����������:
����� ����� ���� ������ �� ���� ��� ��� ���������� ��������:? (����� OR)
if GVAR[159]>2 * GVAR[160] OR GVAR[156]=1 then .....

������ ���������������� ��� ������ � 1� ���� ��������� ���������� 2�� ,���? �.�. �� �������� ���� �� ������������ ������� 1�� ������ � ��������� 2�� ???

�� ���� �� ������ ����� ����������������� ��������� ����� ����:
if GetItemCountByCritter(Player,98) then begin
SayOption_2(249,124,22,50);
end else begin
SayOption_2(249,125,21,50);
end;


������� SayOption_2(_script_,num_str,xx,50); ���������. �� �� ���� �������� �� ?

(��������������(�) pal - 9:46 - 17 ������, 2004)

����������: 10:25 - 17 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

2Wasteland Ghost:
������:

stored_node := "Node002";
call stored_node;


�� ���� ����������� ���������� ��������� ������� �� ����. Big thnks :) ����� ������������.

2Raven:
������:

���������� ��� "��������" ���-���, ������� �� 100-�� ������� �� ������� ����� "LABEL: Vasya", ��������.


����������� alt+f7 � totalcmd ��� ���� :)
������:

������ �� � ���� ������� ������, ������� ������ ���� ���-��� ��� ... ������.


� ��� ��� - ������� :) ������� �� ���� :)

2pal:
����, noid'������ ���������� �����... �� ����� � ������������ �������� ����.

(��������������(�) Mynah - 15:24 - 17 ������, 2004)

-----
Scio me nihil scire

����������: 13:22 - 17 ������, 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2pal ��� ��� ����� �����, � ��� ��� ���� �������� ��������� �� ������. ��� � �� �1 �����? ��� � �������� :).
�� �������. ��� ��� ���������� ����� - ��� ������� :). �� ��� ��� � ��� say_option ����:

void gSay_Option(int msg_list, int msg_num, procedure target, int reaction) - ������� ������� ������ � ������� ��� �������� ����������
���������:
msg_list - ����� ����� msg
msg_num - ����� ������ � ����� msg
target - ���������, � ������� �������������� ������� ��� ������ ���������������� ������
reaction - ������������� ������� (��. DEFINE.H):
GOOD_REACTION (49)
NEUTRAL_REACTION (50)
BAD_REACTION (51)
������������ ��������:
���

����������: 16:03 - 17 ������, 2004
pal
������������

������: Estonia, Narva
�����������: ���. 2003

�����: 42 ���������

To Wasteland Ghost:
������� ������� �� ������������� �����!
�� ��� � �����.
������������ ������:
target - ���������, � ������� �������������� ������� ��� ������ ���������������� ������
� ��� ������� ��� � ����� ���� ��� ����� �����.� ��� ������� ��������� ������� �� ��������� ������� ��� ��������� �������. ������ ������ ��� � 1 ������ ��� 0 ?

To Mynah:
��� �������� ��� Noid'������ ����� ���� ��� Ipp-���� �������� ������ �� ���� , ������ �� ������������� ����������
���� �����....

����������: 16:28 - 17 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>����������� alt+f7 � totalcmd  �� ���� :)

Alt+F7 , �������, �����, �� �� �� ����� ������ ����� :-)

���� � ���, ��� ����� ������� �� "��������" ������ �� ������������� ������ (������� #define NAME?). �.�. ������ ������� ��������� ������ �� ����� ��� ������� scripts.lst ��� ���������. �� ��� ���� ������ ��� ���-��� �� ����������� �������� ����� � ���������� � �����. Scripts.lst � ���� ������ �������� ���� ����� ������.

>>� ��� ��� - ������� :) ������� �� ���� :)

��. �������. �� �������� ������ �������� :-) ���� ������� ���� ����.������, ��� �� ������� ������������ �� 10�� ���� :-)

�������� ����, �� ������� �� �����, ������: ����� ������� Node-��������� � ���-����. ��� ��� �������� (� � ����� �������, ������ �� ������ �����).

��������� ���-��� ������ ��� �������:
------------------------------
{100}{}{NODE_START}
{101}{}{������} //�������� ��� Reply
{102}{}{���}    //��������� �������� ��� Option
{103}{}{���1}   //������ �� ��� ��� ����� Option
{104}{}{����}   //���������� 102
{105}{}{�����}  //
{106}{}{NODE_END}

{200}{}{NODE_���1}
<...>
{341}{}{NODE_�����}
<...>
-------------------------------

������� �������� ����� ���:
variable start_node;
--------------------------------
variable start_node;

procedure talk_p_proc begin
call parse_node("START");
end

procedure parse_node(variable str) begin
variable i:=1;
//str-��� ���� ��� ��������
str:="NODE_"+str; //�������� � ������� �������, str="NODE_START"
while mstr(i)!=str do i+=1; //���� ������ ����. � ��� i==100
Reply(i+1); //������� � Reply ���. 101
start_opt:=i+2; //start_opt = ������ ���. � ������ Option (���. 102)
i:=0;
while mstr(start_opt+i)!="NODE_END" do begin //�� �� ����� ���� ������ ��� Option-�
 if (i/2+1)==1 then Option(mstr(start_opt+i),Node001);  //������ Option ������� ���������� ��������� �� Node001
 else if (i/2+1)==2 then Option(mstr(start_opt+i),Node002); //������ - �� Node002 � �.�.
 <...>
end
end

procedure Node001 begin
call parse_node(mstr(start_node+1));
//�������� ������ �����, ��������� ��� � �������� ���. ����� ��������������� ������� Option ������ (���. 103)
end

procedure Node002 begin
call parse_node(mstr(start_node+3)); //���. 105
end
<...>
--------------------------------

�����: ��� ������� ����������, �������� ����� � ��� ������. � "�����������" ����� � msg ����� ���� ������� ������. �.�. ������ ������� ���� ���, � ��� ������� ��������������� � ���. ����� ��������� �������� ��������� ������� ��� ��������������.

������� (� ����, �����������, ������) �����. ���� �� �����, ������ ���������, ������� ���������, ����������� ��������� ����������� ������ � �.�. �� �� �������������� ��� ����������� :-)

���-�� ���������������? ���� �������� 3-5 ��������, �� ����� ������ ������� �� ��� � ������������ � ������.

����������: 16:34 - 17 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

������:

���� ������� ���� ����.������, ��� �� ������� ������������ �� 10�� ���� :-)


�� � ����� ������ ����, ��� �� �����-�� � ������ :))) ���� �� ������ - �����. � ��� ����� ������ � ���� ��� ��������� :)
��� ����

-----
Scio me nihil scire

����������: 17:03 - 17 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
���� ������� ����� ������ ������������ ������ ������������ .


����.. ��� ���? (����� �� �� ����� �� ��������.. �� ���� �� ������ �������, ��� ��� ������� ���������� ���������� �������� ���� string, ���������� ������������� ������������� ��������� �� ��� ������? ��������� ��� ��� ������ �����, �� ����� ��� ��������� ������?)

[���� �����]

P.P.S. ����� �� ��������, �������� ������� �� �����.. ��� ������, ������������ �� � *.msg ����� ������� � �������� �������?

(��������������(�) Alan Killenger - 20:47 - 17 ������, 2004)

-----
hit me, nail me, make me god

����������: 19:45 - 17 ������, 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

����� error �� ������ ��������, ����� � ������� :). ������ ��� �� ������������, ��� ������������ ������.

����������: 10:39 - 18 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

1. ��� ����������� �������� ������ �������? �� ���� ���������� �� �����-���� ������� ���������� ����������, ��� � Pascal'e? ����, ��� ������ ����� ���.. �� � ������ �� ��� �� ��������. � �����-������ ����� �������? �, ��������, � ������ ������ critter_p_proc ������ ���������� ����������� �������� ���� ����������, ����� ��� ����� ������ �������?

2. ��� ��������� �������� ������� � ������ � ������ ����� ������� ������? ��.. ��������� ����� ���� ������ � ������� ��������� �� �������, �� �� �����. ������ ���������� �������������� ������� ��������������� �������� � ���������� ��������?

����������

������� ����� � �����: boolean anim_busy(ObjectPtr who), sorry �� ������ ������.

(��������������(�) Alan Killenger - 15:14 - 21 ������, 2004)

����������: 15:27 - 18 ������, 2004
pal
������������

������: Estonia, Narva
�����������: ���. 2003

�����: 42 ���������

��� ������ ����� ������ � ���������� ��� ������ ������� : PlayerHasPresencePerk(1) ?
� ���� �� ������� ���� �������? � �� ���������� � ������ � ipp � �������� � (������� �.�.)  �� ����� ������� � int ������ .

����������: 17:13 - 18 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

2pal:
������:

PlayerHasPresencePerk
Return 1 (true) if player has the Presence trait, false (0) otherwise.


�.�. � ���� ������� �� ������ ���� ����������. � ������, ���� ����.

-----
Scio me nihil scire

����������: 17:37 - 18 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

������:

��� ������, ������������ �� � *.msg ����� ������� � �������� �������?


if message_str(file_num, str_num)="Error" then begin
end else begin
end


(���������� �� 5:28 - 23 ������, 2004.)


2Alan Killenger:
1) ���������� ���������� ���. �������� ���������� ������ ������ display_msg'��� �� look_at � description .

2) �� ������ ����� ���� �����������. anim_busy ��� ����� ���� �������� ��������� ��������.
� ��� ����, ����� ������� �������� � ������ ����� �������� �� ��������.

���������� ������:

procedure citter_p_proc begin
 if (tile_distance_objs( self_obj, dude_obj ) <= 25) and (tile_distance_objs( self_obj, dude_obj ) >5) and (local_var(0)==0) then animate_run_to_tile(tile_num(dude_obj));
 if (tile_distance_objs( self_obj, dude_obj ) <= 5) and (local_var(0)==0) then call Node001;
end

procedure Node001 begin
set_local_var(0, 1);
end

� ���� �������, ��� ������ ����� �������� � ��������, � ������� �������� ������ ���������, �� 25 ������ - ������� ������ ������ � ������, ���� �� ��������� ���������� � 5 ������, � ��� ������ ������ ��������.
local_var ������������, ����� ������� "������� �������� �� �������" ���������� ����� ���� ���.

-----
Scio me nihil scire

����������: 5:10 - 23 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������������� �����, Mynah. ��������� � ����� ��������, ������������� ���������� �������������� ������� � �������� ���? anim_busy - ��� ��� ��� ��, ��� ��� �����, ������ ���� ������� ������. �� �����, ���� ��� ����� ������� (������� �����, ��� ���� �� ���������� ).
������:
if message_str(file_num, str_num)=="Error" then begin
end else begin
end

��������, ��������. �����, ���������� . �� ���� � ���� �������, �� � ���� ����������.. ��� ����� ���� ��������� ��������� ����� ��������� ���������� � ������� ��������.
������:
���-�� ���������������? ���� �������� 3-5 ��������, �� ����� ������ ������� �� ��� � ������������ � ������.

��� ���� ���� .

P.S. ��� �������� ������� self_can_hear_dude? � �������� �������, ��� ��� ������ ��������� �������� "������" � ��� ������, ����� ���� ������ ����� ������� ������. �� ����� ���� ��� ������� ����� �������� � ������ � ��� ����� ������� �� ����������� (����� � �������� self_can_see_dude ��� ����� ���������).


-----
hit me, nail me, make me god

����������: 21:33 - 23 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

������ ��������� � (��������) ���������� � ���� ����� ���������. � ��� ���������� - � ������ �� ������, ��� ��� ��������.

����������: 7:02 - 24 ������, 2004
pal
������������

������: Estonia, Narva
�����������: ���. 2003

�����: 42 ���������

������ ��� ����� ������:
������� ���������� ������ ��������� ��� � ����1, � �������� ��� � ������ ������� ����� ���������� �� �� ��� ����� LogFileDebug.bat
� ����� � ��������� ���� ������� �� ����������� � ������ ���� �� �������.
� ���� ��������� ������� ���������:

Error during execution:
Stack underflow short.

Current script: scripts\Zeca.int, procedure Zeca05
Scripts: [Game Reset]

�������� ��� ������!�� ���� ���?

�����.����� �������� ���.����������� ������ ��� ��������� SayWOAnswer(XXX,YYY,ZZZ) ����� �������� ���� ZZZ.

(��������������(�) pal - 13:52 - 24 ������, 2004)

����������: 10:34 - 24 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

������:
��� �������� ������� self_can_hear_dude?

�����.

���� ��� ���� �� ������������.
������� ���� �� ������ ����� ��: ������/�������/�������/������������/���������/�������������� ����� � ���. �� ������ �������� ������ ���������. ������ ������ ��� ���...

���� ���� "��������", ����� � ��� �� ������ ����� �����... ������ ��� � ���� ������.
�����: ������� �� ��������, ������������ ������.

-----
Scio me nihil scire

����������: 5:07 - 25 ������, 2004
pal
������������

������: Estonia, Narva
�����������: ���. 2003

�����: 42 ���������

��� ����� ������:
� ������� ����� GetObjectID(SlotX(Player,1); ����� ��
���� ������� ������ �����. ��� ��� ��������� � ������ �������� ���� ���� (�� �.�. ������� �� � �� ����� pro_item.msg) ,���� pro_item.msg � script.lst ����. ???

���� ����� �� �������� ������ ���� � ipp �������.

������� ��� ���������� ������� �� �� ��� ����� � ��������� �� ����� ������� � FOP ����:
write ('Object Name: ' + GetName (objAddr)); { ���������� �������� ������� }

Tnx !

(��������������(�) pal - 14:59 - 26 ������, 2004)

����������: 12:30 - 26 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

<����� ��� ����>

���� ������ ���� :-/
��������� ���� �� ������.

(��������������(�) Mynah - 22:03 - 27 ������, 2004)

-----
Scio me nihil scire

����������: 17:07 - 27 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

����� �� ������� ������������� ���� �������� *.msg ����, �� ����������� � ������-����, ����� ���� ��������������, �������?

������� �, ����� ��� �������� ����� �������� (����� ��� ���������� �������� ) �� ���������� Raven'�. ���� ���, ���� ����� ���� � ���������� ����������, � ���� ���? ���, �� ����� �����, ������� 4 ������� � �������� ��� ������ - ���, ����� ������, ��������; ����� ��������� ������ ���� �������, ����� ��������. ��� ����� ����������� ������? ����� ���� �� ��� ������� ��� � Pascal'� - findnext, �� ���������� ���������� ������� � ���������� ����� ��������� �������. ��� ��� �����, ����������� �� ����� � ���, ����� ������� ��� ����� *.msg'���. ���-������ ����������� � ��������?

���������� ������, �������� �� ��������� �������� �����-���� GVAR'� �����-���� �������������� ���������� (���� ��� �������, �� ����� ������� ������ )?

-----
hit me, nail me, make me god

����������: 2:25 - 28 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

2Alan Killenger:
���� ����.
� ������ �����-����� �����������. ������ ������ �� ��� ������� ��� *.msg.
������:

�������� �� ��������� �������� �����-���� GVAR'� �����-���� �������������� ����������


���. ���������� ���������� �������� ������ �� ����� ������ �������, �� �������� ��������������.
����.. ������ �������������� �� ������� obj_dude, ��������� �������� � �����, ��� ����������. ����� ����������������� ������ �����. �� ���, ����, ������ :)

(��������������(�) Mynah - 5:48 - 28 ������, 2004)

-----
Scio me nihil scire

����������: 3:46 - 28 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

������: � ��� ���� ��������� ���-�� "�����" � ������ (�� 0 �� �������������). �� ����� (���) ����� ������. ���� ����� ���

������ talk ��� "���" ������ (�� ������� ������� ��������-������� �� ����� � ����������� � �������), ��� ������ - ������ �

�.�. ����� ����� �������� - ����� ��������� �� ������.

�������:

��-������ ����������� � ������� ���. ������� ������� - �������������. ��� ������� (� ����� ������ �������������� �����) �����

���������� ������ �� �������, ������� 10-�� (10, 20, 30 ...).

���-���.
-------------------------------
{0}{}{[Songs file]}

{10}{}{[Song]}
{11}{}{La-la-la}
{12}{}{Lu-lu-u}
<...>

{20}{}{[Song]}
<...>

{60}{}{[Song]}
<...>

{100}{}{[End file]}
-------------------------------

������:

���:
 
variable msg_num; //��������� ����� �������/���
variable num_of_songs; //���������� ��� ����� �����
variable last_song; //��������� ����������� �����

<...>

//������� ����� �����
procedure get_num_of_songs begin
variable i:=10; //����� ������
while i<2000 and message_str(msg_num,i)!="[End file]" do begin //���� �� ������ ���� �����
�if message_str(msg_num,1)=="[Song]" then num_of_songs+=1; //������� ����� ��������
�i+=10;
end
if num_of_songs==0 then num_of_songs:=-1; //���� �������� ���, ������ ����� � -1
end

procedure sing(variable song) begin
variable i:=10; variable cur_song; variable start_song;
if not num_of_songs then call get_num_of_songs; //���� ����� ����, ������ �� �� ��� �� �������
if num_of_songs==-1 then begin //��� �������
�display_msg("There is no songs in msg #"+msg_num);
�return -1;
end
if song>num_of_song then begin //��� �������
�display_msg("There is only "+num_of_songs+" songs");
�display_msg("Try to get:" + song);
�return -1;
end
while cur_song!=song do begin //���� ������ ������. ������������ ����� ��� �� �����
�if message_str(msg_num,i)=="[Song]" then cur_song+=1;
�i+=10;
end
last_song:=song; //���������� ��������� ������ �����
i+=1; //��������� �� ������ ������� ��������� �����
start_song:=i;
//��������� ����� ������� �� �������. �� ������� ��� ������ ������ � ����������� � �������
//i-strsong=0 ��� ������ �������, 1 ��� ������ � �.�.
while message_str(msg_num,i)!="Error" and message_str(msg_num,i)!="[Song]" do begin
�add_timer_event(self_obj,i-start_song,i);
�i+=1;
end
end

procedure timed_event_p_proc begin
//fixed_param==����� ������, ������� �
floater(message_str(msg_num,fixed_param);
end

//��������� ����������
procedure talk_p_proc begin
if num_of_songs!=-1 then begin
�//���� ���� ��� ����� � ������ - ��� ���������
�if last_song<num_of_songs then call sing(last_song+1);
�//����� �������� �������
�else call sing(1);
end else display_msg("!ERROR!");
end



Enjoy :-) ��������� ������ - � � ��������� ��� :-)

(��������������(�) Raven - 14:18 - 28 ������, 2004)

����������: 7:16 - 28 ������, 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������� Raven, �� ����� � ������ ������? � ���� ��� ����� ��� ��, �� ������ ����� ��� ��� ��� ������� �� ��� �������:

1. ����� �� ������� ������������� ���� �������� *.msg ����, �� ����������� � ������-����, ����� ���� ��������������, �������?

2. ����� �� ������� ��� ����� �����? ���� �� �����-������ ������������ �����?

���� ������ �� ����� ��� ������ ��������� � ���������� ��.. ����� ��� ����� ����� "[End file]". ��, �������� � ������� ��� ���� �����? �����, � ������� �� ����������� ������� *.msg ����, �� ������� ����������� ������ ������ ������? ����� �����?

-----
hit me, nail me, make me god

����������: 13:09 - 28 ������, 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>����� �� ������� ������������� ���� �������� *.msg ����, �� ����������� � ������-����, ����� ���� ��������������, �������?

��������� � ������� �������� ������ ������ � ����� ������ ���-��� - ���. ������� ������� ���-��� ���, ���� ������ ��������. ���� � ���� � scripts.lst �� ������� 1307 �������� test.int, ��
--------------------
message_str(1307,10);
--------------------
���������� ����� test.msg � ������� �� ���� ������� �������. �.�. ����� ���-��� ������ ��������� � ������� �������� (� ������ ���-��� ����� ��������� � ������ ����������� �������).

��! �� ��� �� ������ ���-��� ����������� ��� ������ ��������. ����� �� ������ ���� ����� ������� �� "�����" ���-���, ���� �� ������ ������ �� ��������. ����� ����� �� �������� ������ ���������� message_str, �� ���  ���-��� � ����� ������� ������.

����� ����, ����� ������� fake-������: ������ ��������� ������ � scripts.lst, �� �� ������ ��� ������, ������ ���.

>> ����� �� ������� ��� ����� �����? ���� �� �����-������ ������������ �����?

��� �� ������� �� ���� ������ �� ������ ����� ������� � ���. ���� � ����, ������, ����� 10 ����� - �� � ��� ���� �� �����. ���� ����� ������� ����� �� ����������, �� ��� ���� �� ��������.

����, ������, ������ ������� - ������������ atoi (� ������� � ���-��� �������� � � ������� �� ��� ������):
------------------------------
{1}{}{[Songs]}
{2}{}{121}
{3}{}{632}
<...>
{121}{}{La-la}
<...>
{632}{}{Bla-bla}
<...>
------------------------------

�.�. ������� � ������ ����� ������ �����, � ������� ���������� �����. ����� ������ �������� �������� ��� ����� ����� �����, �.�. ����� ����� ����� ����� ����� � ������ ����������.

-----------------------------------------------
Atoi ����������� ��������� ������������� ����� � int-����� ("232" � 232). ���� � ���, ��� mstr(2) � ����� ������ ������ ������, "121". � mstr("121") ������ "Error". �.�. ����� � ���, ������ ������, ������� ������. �� ���� �������� ���������� atoi, ������� ��������� ��������� ������ �������������� char * -> int (������ � ���� ������� � ������ ��� ����, ����������). ����� - �������� �������� ��������, ������� ������ ������������ �, ������ � critter_p_proc, �������� �� 10-15 ��� �� map_update � ������������ ��� �������������� ������� ����� (>150 ��������).

������������������ � ��������� ��������� ������ ������ � ��������� ����� � "����������". ������ �����, �� �������.
-----------------------------------------------

����������: 13:51 - 28 ������, 2004
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

�� ������� ���� ��������� � ������, ������� ������ �����������.

� ���� ������ ����, ��� critter_attempt_placement �������� �����?
������ ���, ����� ������� � ������������ ��������� ������, �� ���������� ����... �� �� ���������� ������, �� ����������, �� ������ �� 20 �� ���� �����, ������� � ����������, �� ������ ������� ��������.
����� ���, move_to, ����� � tile_contains_pid_obj �������� ������ �� ����.
����� � �� ���� �����-�� ������ ��� ������� ���������?

-----
Scio me nihil scire

����������: 9:42 - 30 ������, 2004
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ���, ������ ����� :), ������� ������ ���� ���. �.�., ���� ��������� ���� �����, �� ��� ���� ��������� ���������. ���� �� �������, �� ������������.

�� ����� ���� ������� �� ������� ����� ��������.

����������: 10:07 - 30 ������, 2004
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

���� ��� �����, ����� ������� �� ����� ������ :
����� �� ����� ������� �������� �������� (�������� ������������� �����), �� ����� ��� ������������� �� �� �����. ���� ��, �� � ����� ������ ������� ��� ����������� (������ �� �����.)

����������: 1:38 - 5 ���., 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:

procedure description_p_proc;
procedure demo_proc(variable par1, variable par2);

procedure description_p_proc
begin
�variable myvar;
�script_overrides;
�myvar := demo_proc(12, "qwerty";
�display_msg("MyVar=" + myvar);
end

procedure demo_proc(variable par1, variable par2)
begin
�display_msg("param1="+par1);
�display_msg("param2="+par2);

�/* ���������� ������������ �������� */
�if par1<=10 then return(par1+25);
�else return(30);
end

����������:
������� � ��������� demo_proc ��������� return �� �����������, � ��� ���� ��� � ������ �� ������������ ���������� � ����������, ���������� ����� ������.


��� ��������, ��� ������ ��������� ����� ������� ������ ���� �������� (��������� ��� �������, ����� return ��������� ��������� �����������)? �� ���� ����� ������ � �������� �� ���������� �������� ��������� ���, ����� ��� ����������� ��� ���� ����������� ���� ���������� (��� ������ ����� ���������� ��� ������ � �������)?

��� ������ ��� ��������, ������� �������� � ���������� � ������ ������? ��� ������ ����� ������� (��� ������� ������� if .. then)?

����, ��� "���", �� �������� ���� . ����� �� �������� (���������) ����� ����������� float_msg?

��� ��������.

1. � �������:
������:

..
variable a:=true;
..
procedure start begin
�if a then begin
� �display_msg("true";
� �a:=not a;
�end else begin
� �display_msg("false";
�end
end
..


� ����:
������:

..
�true
�false
..


�� ���� ��������� start ����������� ������ � ����� ������. �� ��� ����� ������ ��������� ��� �� �����.

2. � �������:
������:

..
display_msg(message_str(1304,100));
display_msg(message_str(1304,100));
..


���
������:

..
display_msg(message_str(1304,200));
display_msg(message_str(1304,100));
..


������� �������� ������������, �� �� ����� ������� message_str �� ���� �� ����������. � ����:
������:

..
�Error
�(�������)
..


� �������:
������:

..
variable str;
str:=message_str(1304,100);
display_msg(message_str(1304,100));
display_msg(message_str(1304,100));
..


�� ���� message_str ��� ���� ��� ������� ��������. � ����:
������:

..
�(�������)
�(�������)
..


���� ��������� � message_str ����, �� ����� ������ ���, �� ��� ������������ �� ��� ���, ���� ��� �� ������ ������������ �������.

��� ����� �� ���� ���? ��� ����� ��� � ���� ��������? (� ������� ��� win2k.)

09.12.2004
������� �������� � message_str �������, ��� ��������� - � �� �������. ����� ���� �������� ��� ������� � *.msg ����� �������� ������:
������:

..
{}{}{}
..



(��������������(�) Alan Killenger - 6:58 - 9 ���., 2004)

-----
hit me, nail me, make me god

����������: 5:52 - 5 ���., 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

����� ������ ���� ����� ������.. ���� ������� message_str, ���� ����� ������� ����:
������:

..(message_str(a,b)==c)or(message_str(a,b)==d)..


����� ���� ����� ��� ��������� �����.. �� ��� ������� ����� ��������� � �����? ����� �� ���� ��������� ����������� ������ ��� ������������?
������:

str:=message_str(a,b);
..(str==c)or(str==d)..


���� ������, ������� �������?

�� ����� ������ ������.. ����, ���������� ���� ��� �������� ��� �����������, �� �������� �������������� ����. ���������� ������: ��������� ���������� ����� ��������� ������, ���� ��� ����; ����� �������� ��� ������ ��������� � ��� ������, ����� �������� ������ ���? ����� ���������� false, �� false ���� 32 ���� ���������� 0; ����� ���������� ���������, �� ���� ��������� ����� ���� ���������������� ��� �����.. ������� ���� �� ��� �� ����� ������� � ���� ��� ��������.

-----
hit me, nail me, make me god

����������: 5:59 - 9 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Ray

>>����� �� ����� ������� �������� �������� (�������� ������������� �����), �� ����� ��� ������������� �� �� �����.

��������� �����. ���������� ����� ������������� �������, �����, ���.

to Alan

>>��� ������ ��� ��������, ������� �������� � ���������� � ������ ������? ��� ������ ����� ������� (��� ������� ������� if .. then)?

if var+0!=var then ... ���������� ��������

"asdf"+0=="asdf0"

������� ����� �� ������������ �����, ��� ��� �� ����� � �� ���������. ��� ��� char* �� int �������� ����� - �� ���� if.

>>����� �� �������� (���������) ����� ����������� float_msg?

����� ��������� �������� ���� � �� �� ������. ����., floater("Hi") � critter_p_proc �� �������� �������. ����� ���������� � timed_event, � ��������, �������� ������������� ������ ����������� ��������� � ������� ����������� ������� �������. �� ������ �����? :-)

>>a:=not a;

����� ��������? � ��� ����� ��� a==0?

>>�� ���� ��������� start ����������� ������ � ����� ������

���������� start ����� �� �������. ����� ������ �� �����, ����� ������ �� ���������� (� ������ ������� ��������). ������, �� ���������� �� ������ ����� ������ ���������/�����������.

>>���������� ������: ��������� ���������� ����� ��������� ������, ���� ��� ����; ����� �������� ��� ������ ��������� � ��� ������, ����� �������� ������ ���?

� ������, ����������, � �� ���������, ��? ������. ��� ���������. ���� ������ ���� - �����, ���� ��� ������ "fck", ��������.
--------------------------
var num;
num:=get_str;
if not num=="fck" then begin
...
--------------------------

>>���� ������, ������� �������?

������ �������. ��� � ����� ��� ��� ��� �� ������ ��������? �� ������/������ ����� - �������� ��������� (��������, ���������������� ������ 6000 ����� �� XP3000+ �������� ~10-15 ���.). ������ ����������� � ���� ����� �� ������ �� �����. �����, ���� �������� ����� 32*7 ��� ������. � ����� ����������� ���� ���������� ���:
--------------------------------
typedef struct {
  int type;   // this type is the type of the variable
  union {
     int intData;
     float floatData;
     int stringData;  /* offset into program's string space */
  };
} Value;

typedef struct {
  int name;   /* offset into program or procedure's namespace */
  int uses;
  Value value;
  int type;   // this type is where it was declared
} Variable;
--------------------------------

�� � ������ ������������� �� ������ �� ���������. �������� :-)

����������: 9:32 - 9 ���., 2004
DeuS
������������

������: �����
�����������: ���. 2004

�����: 1 ���������

��������� ������, ���� � ������������� ��� ��� � ��� ��??
�������� ������� ������:

/*
Copyright 1998-2003 Interplay Entertainment Corp. �All rights reserved.
*/

/*
� � � �Name: Crate in Church
� � � �Location: Den
� � � �Description:


� � � � � Created: December 04, 1997

� � � � � Updated:
*/

/* Include Files */

#include "..\headers\define.h"

#define NAME � � � � � � � � � � � �SCRIPT_DICRATE
#define TOWN_REP_VAR � � � � � � � �GVAR_TOWN_REP_THE_DEN

#include "..\headers\command.h"
#include "..\headers\Den.h"

procedure start;
procedure use_p_proc;

procedure start begin
end

procedure use_p_proc begin
� script_overrides;
� display_mstr(100);
� set_crates_ID;
end

������, ������������ ������
..\headers\Condtion.h(45): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\Condtion.h(46): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\Condtion.h(46): Error! E1009: Expecting ';' but found ':'
..\headers\Condtion.h(46): Error! E1061: Expecting data or function declaration, but found ':'
..\headers\Condtion.h(46): Error! E1026: Invalid declarator
..\headers\Condtion.h(46): Error! E1009: Expecting ';' but found '='
..\headers\Condtion.h(46): Error! E1061: Expecting data or function declaration, but found '='
..\headers\Condtion.h(46): Error! E1026: Invalid declarator
..\headers\Condtion.h(46): Error! E1009: Expecting ';' but found '1'
..\headers\Condtion.h(46): Error! E1061: Expecting data or function declaration, but found 'constant'
..\headers\Condtion.h(46): Error! E1026: Invalid declarator
..\headers\ScenePid.h(18): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\ScenePid.h(19): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\ScenePid.h(20): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\ScenePid.h(21): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\ScenePid.h(22): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\Party.h(13): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\Party.h(14): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\Party.h(92): Warning! W123: '//' style comment continues on next line
..\headers\Party.h(185): Warning! W123: '//' style comment continues on next line
..\headers\Party.h(185): Warning! W123: '//' style comment continues on next line
..\headers\Party.h(185): Warning! W123: '//' style comment continues on next line
..\headers\Party.h(251): Error! E1022: Missing or misspelled data type near 'variable'
..\headers\Party.h(693): Error! E1022: Missing or misspelled data type near 'procedure'
..\headers\Party.h(693): Error! E1147: Too many errors: compilation aborted

� ��� ����� ������
���� help!

����������: 13:33 - 10 ���., 2004
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

� ������. ��� ����, ��� ������ ������� ����������� ���������.

(��������������(�) Alan Killenger - 3:32 - 11 ���., 2004)

����������: 2:24 - 11 ���., 2004
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������, ��� ������ �� �������� ������. �������� �����. ��������� ������������� � ����� ����������, � ���������� ��� ������ � ����� ��������� ��������, ����� ��� ����������, ��� �������, ��������.
� ������ ��� ������ ���������: ���������� ���� �����������, ����� �������, � ����� �������� ����� �����������, �� �����, ��� ��������� ����� � ������ �����. �, ����� ����� �������� ���, ���������� (��������������) ������.
��� ������� ��� �������� �������. �� ���������� ���� ���������� ���������, � ������� ������� ����(gfade_out), �������� ������������ �� ����� �����(critter_attempt_placement), ����� ���� ���������� � ���������� ������ ���������� ����.
�� �� ���� ��� �������� ��������! ���������� ���� �� ����� ����������� ������ �� �����������. � ��, ��� ��������� �����-�� ������������, ����� �������� ������ ����� ��� ������� ��� ������������ � ���� �������.
������, ������ ��� ��� �������� � ������������ ����. ������� � ��� � ���������� �������� ������ � ����� ��� ��������.
��� �� � ��� �������� �����, �� ������� ����� �������. � ���� ��������� ����������� �� ������������ �����, �� �������� �� ����������, ���� �� �� ������ �� ������� �����. ��� �� � �������� ������� ���� �����, ���� ����� ��������� ��� � ����.
�� ��� ��������, ��� ��� �� ���� ������� ����� ���������������. �� ����, � ������ ��� ������ ������� ������. �� ������ ��� �� �� �����������.
������ �������:
������ Node999 - ������ ���������, � ������ talk_p_proc ����������� ��� ��� ������ � �������� �������? � ������ ������ �� �������������, �� ��������� �����������, ��� ������� ���� ���� ���������� �� ������� � ������� ���������, � � ����� ����� start_dialog_at_node(Node���)?
����� ���� � ���� ��������� ��������� ������� ��������
gSay_End;
end_dialogue;
� ����� ����������?

� ��� ������, ������ �����, �� ���������� �� ��������������. � ���������� ����� ���������� ����� �������, ��� ������������? � ������� ������,
��� ��, ����� ���� �� ������ ������� ����,���������� �������� return. �� � ����� ������ ������ �������� ��������, ����� ���������_1
�������� ���������_2, �, ���� �� ��������������, ���������� ������������ ���������_1? � ��� ��� �������������?
��� ���� ������-�� ��������� call proc_XXX, ��� ��� ����� ��� goto XXX. ���� �������� �� ���������� ���.
�������� ������������ � ��������������, ���������� ����������.


����������: 6:23 - 11 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>������, ��� ������ �� �������� ������.

�� ���� ���������, �� ������ ���� ���-�� ����:
-------------------------------------
variable move;
variable already_moved;

<...>

procedure talk_p_proc begin
Start_gdialog(...);
gsay_start;
if not already_moved then call NodeStart;
else call NodeStart2;
gsa_end;
end_dialogue;

if move then begin
gfade_out(60);
move_to(self_obj,HEX,ELEV);
critter_attempt_placement(dude_obj,HEX,ELEV);
already_moved:=1;
gfade_in(60);
call talk_p_proc
end
end

<...>

procedure Node_SomeNode begin
<...>
move:=1;
call NodeExit
end

procedure NodeExit begin end
-------------------------------------

�.�. ������ ������ ��� ��� ������, ����� �������� �����, ����� ��������, ��� � ����� ������������ � ������ �����, ��������������� ���� "���������" � ������ ���������� ������ (�� - � ������� ���� - NodeStart2).

>>������ Node999 - ������ ���������, � ������ talk_p_proc ����������� ��� ��� ������ � �������� �������?

������� gsay_option ���������� ���������-���������� �������� ������ ��� ������������ ��������. ���� ��� ��������� ����� ������, �� ��������� ����� �� ������� call-��, ������ �� ������� call ����� gsay_* � talk_p_proc, ��� �������� � ������ �� ����������� ������. �� ������ ��������� ������, �� ���� ������.

Node999 (������������, �� �� ������������ ��� ��� ��������� ������) ����� ���� � �� ������. �������, ����� �� ���� *Reply � *Option.

>>��� ���� ������-�� ��������� call proc_XXX, ��� ��� ����� ��� goto XXX.

call - ��� � ���� ����� ������������. � ����������� ��� ������������ ���. ������������ ��������� � ���������� �������� (return). ��� ������, �� goto �� ������ ���� ������.

����������: 13:39 - 11 ���., 2004
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

to Raven
�������. ���� ����� �����������.
� ��������� ���������. ��� �� ��������� ��� �������������? ������������ ����?
�� �� ��, �� �������� ����� ����� �������� � ����:
====================
procrdure Node1 begin
Reply(XXX)
[option_1]; goto Node2
[option_2]; goto Node999
end

procrdure Node2 begin
[option_1]; goto Node999
end

procrdure Node999 begin
end

=========================
�� ����, �� Node1 ���������� ��������� � Node2, � ����� �� Node1 �������� Node2

��� ��� ������ ����������� �� ���������?
��� ������������ WG ��� ��� ��� critter_p_proc b talk_p_proc ���������� �������������., � �� ��������� - ���������.
�������, � ������ ����������?

����������: 14:30 - 11 ���., 2004
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

----------------------------------------
procedure start begin end

procedure hi begin
 display_msg("Hi");
end

procedure talk_p_proc begin
 variable i;
while i<10 do begin call hi; i+=1; end
end
----------------------------------------

�� � ������ ����� goto?

gsay_option �������� �� �������. ���������-�������� �� ���������� call-��, ������ �� ��������� ���������� (��� �������� �� ��������� � ���������� ���������). � �� � ���������, ���� ��� �� �������� option-������ �� ������ ��������� (�.�. �� ������ ������ ���������) ���������� ����� �� ������� (������� � talk_p_proc).

� �����, ���������� ����� ������ �������� ������� �����, ��� ������� ������. �� ��� �� �����, � ����� ������ - �������� ������������, �������? �� �� �������� ������� ������.

��� ������������: ���� �����������, ���� (���������) �������, ���� ������� �� ���� ���� ������, ���� ���������������� ���������. ���� - ��� ���������.

����������: 6:45 - 12 ���., 2004
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

������ ����� �����.
���������� � ���������.
������ �������� �� artemple.map, �������� ������ dura.int.
������� ����� ����. � ������ ������ ��� � �����. �� �������� �� description �� look_at �� talk.
��� �����?

����������: 23:29 - 6 ���., 2005
izuken
������ �����

������: mSk
�����������: ���. 2004

�����: 125 ���������

rtfm......

-----
��� ������ ������.
save the planet - kill self.

����������: 11:49 - 7 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

����� ������� rtfm. ��� ������ �������� ��� ��� �����.
������ ��� ��������:
���� �� ������������ define & include �� ����� �������� ��� �������������� � ��������� �������� BIS'������ ������������?


(���������� �� 14:02 - 7 ���., 2005.)


��� �������� � mstr. ����� underfined symbol.
������� ����������, ������ ��� � ������ ��������, � ����� ����� mstr.

����������: 12:18 - 7 ���., 2005
izuken
������ �����

������: mSk
�����������: ���. 2004

�����: 125 ���������

���� �� ������������ define & include �� ����� �������� ��� �������������� � ��������� �������� BIS'������ ������������?

��

��� �������� � mstr. ����� underfined symbol.

���� ��� �� �������� ������, mstr - ������. ���� � command.h, �� �� � define.h

� ������ ����....� ����� ������ �������� ���� �������� ������� �������. ��������, ��� �������� �� ��� ����� �� ������, ������ �����.

����� ����, ������ �������� ����� - ���� ���������� ���.....



-----
��� ������ ������.
save the planet - kill self.

����������: 15:17 - 7 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

Artemple.h
*************
#define MVAR_kill_dude (0)
*************

script.ssl
*************
procedure node6
begin
set_map_var(MVAR_kill_dude,1);
end
procedure critter_p_proc begin
 if map_var(MVAR_kill_dude)==1 then attack(dude_obj);
end
*************

�� ������� � ��� ���. ��� ������?

(��������������(�) Net - 23:06 - 7 ���., 2005)

����������: 16:16 - 7 ���., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

to Net
======
� ����� ��� ������? ���� �� �� ����� ������ ������������ � ��������, ������ �������� �������(.ssl) ���� ��������, ������� ����� � ����� � ����, ���������, ��� � ���� ��� ��������, ����� ����� ���� ���������, ����������� � ������� �������. ��� ������ �� ��������� ������ �������� ����� FSE (Fallout Script Editor).
������ - �������� ���������� ������. � rtfm!

����������: 20:01 - 8 ���., 2005
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

2Net:
critter_p_proc, ���� � �� ��������, ��� ������ ��� ����������. �������� ��������� � attack ��������� � ���� �� ���������� �������� (��������, �������� ������). � ������, Sokil ���� ��������.

2All:
������ �����, ��� ����� ����� �������� ����������� ������ *.int � ������� (���� ��� ������ � ������� ����������), �������� �� �������� ilink. ���� ������������� ����������� �� ��������� ��� F1, �������, ���� �� �����, ������������� ��� ������� ������, �� � ���������� � ������� ��������������� p-����.

(��������������(�) Alchemist - 22:28 - 8 ���., 2005)

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 21:15 - 8 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

���� � ������� attack �� ������ ������.
������ ��� ������� ����� ������ attack.
�� �������� � ���� ���� � ��� ���. rtfm ���������. ��� ���� ������ �����!
� ��� ����� ���� ��� ��������?

����������: 22:12 - 8 ���., 2005
izuken
������ �����

������: mSk
�����������: ���. 2004

�����: 125 ���������

*.*

(��������������(�) izuken - 9:53 - 9 ���., 2005)

-----
��� ������ ������.
save the planet - kill self.

����������: 2:03 - 9 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Net

c_p_p �� ����������:
1. �� ����� �������� ������� ������
2. �� ����� ����������� �� ������ ��������� ������� (���������, ������ � �.�.)

����������, ������ � ����������� ������ ����������� ���������� �� ������������� ���������

������� - ������ �� �������. ������� �������� attack �������� �� ������� �� ���������.

������� ��� ����� ��� (��������! ��� ��� �������,������ ������� ��. � �������� �����): ���

������ "�������������" ������ �� ������������� � ������� �����-�� ���������� � �������. �

����� ����� ������ � ���������. ���� ��� ���������� � ���� - �������� ���.

-----------------------------------
variable wrong_answer;

<...>

procedure NodeXXX begin
 <...>
 wrong_answer:=1;
 <...>
end

procedure critter_p_proc begin
 if wrong_answer:=1 then begin
   attack(dude_obj);
   wrong_answer+=1;  
 end
 <...>
end

<...>
-----------------------------------

����� ������� �� ���, ��� c_p_p �� ���������� �� ����� �������. �� ��������� *�����* �� ���

���������. � ���� ���������� ����������� � ����, �� ������ ������ �����.

������������ ���� ���� ��� ����, ����� attack �� ���������� �� 30 ��� � ������� ������ �

������ ������� c_p_p � �� ���� �� combat loops (����� �� ������� �� �������, ��������� ��� -

� �� ��� �� ���������� �����).

������� � ��������� ������������ LVAR ������ ������� ���, ����� ������� ��������� ��� ��,

��� �� �������� ����. ��� ���������� � map_update ��������. �� ��� - ��. � �����������

����� critter-������� �� ���.

������ ����� ������ - ������� �� �� ���� ���������� ����������� �������... ;-)

����������: 6:17 - 9 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

���� ���� ���������(�������), ����� ����� ���, ��� � ������ :
� ���� �� ������������ ����� ����� ���� ��������. ���� �� �������������� �� ������������ �� ������ ����� �� ����������� hex. ���� ��� � ��� - ���� �� ��� ����� ��������� spatial ������, �� ����� �������� �� �� ���������. � ��������� ������ ���� ���� ������� � ������� hex'� �� ������. �� ���� �� ��������. �������� ��� � ������ ��������
if (op_source_obj() == op_dude_obj()) then ...
�� ������� ����.
��� ��������� ����������� ������ ��� �����������?

����������: 0:09 - 10 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>���� ���� ���������(�������), ����� ����� ���, ��� � ������ :

map_enter �������. ����, �� �� � ��� ����� ��������� :-) ��� ��������� ������� ����, ��� ��� spartial-������� �� ��������?

����������: 3:43 - 10 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������� ������ ����������� ������ ��� *��������* �������� � ���� ��� ��������.

�� �� ����� �� ��, ��� � � ���� ��������� ����������, ����� �� ����� ����� � ������� � ����� ������... :)

����������: 10:09 - 10 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

�� �������� �� map_enter �� �� �� ��� ������.
� ���� ���� �����, ������ � random1, �� ������� ���� 2 "���� ���������" � ������ ����. ��� ��� : ��� �������� �� ����� random1 ���� ���������� � ����������� �����. ��� ����, ����� � ����������� �� ����������� �������� ���� ��������� �� ������ ������. ������ ���� �������� ����������� �� ���������, ���-��� ��� ������������ �� ������ ���.
��,�����. Map-enter ������ ������������ ���-��� � ���� 3-��������� ����� � �� ������ ������ ���� ���������� � ������ ������. � ��� �������� � ������ �� ������� map-enter �� �������� (��������).� ������ ���-�� ���������� ����� ����� � city.txt. ������ �������� ����� - � ���� ���� ����� ��� �������� �� ������� ���� � ����� ������ �������� �� ����� � ���-�� �����(��� �� � - ��� ������), � ��� ����, ��� �� �� ��� ���� �� ������ ������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 10:54 - 10 ���., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

>� ��� ����, ��� �� �� ��� ���� �� ������ ������.
� ����� ������ �����?
if x move_to 1
if y move_to 2
if z move_to 3
x,y,z - mvar ��������� �� �������� (�.�. � ����� ��� ����� �������� - ���� ����, ��� ������ - ������).
1,2,3 - �����.


-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 11:07 - 10 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

�� �� ���� ��� ������- ���� �� �� ���� ��� �����.

>>� ����� ������ �����?
 if x move_to 1
 if y move_to 2
 if z move_to 3

� ��� �� � ����, ��� ����� ������ ����� ������. ��� ���� ����� ������� �������� ������� ��������� � map-enter, � �� ��� ��� ������� �� �������� ��� 3 �������. � ���� ��� �������� � ������ ����� ��������, ���� ��� ����������� � ������ ������? -> ��������� ��� ������ �����!

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 11:48 - 10 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�����������: map_update_p_proc. ��� �������� �� ����� ����� ������� ���������.

�� ���� �� ������... ����� ���� ���?!? 8-( )

����������: 13:22 - 10 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

2 Wasteland Ghost
������� �������. ��� � ���-�� �� ���������. �� spatial ������� ��-����� �������� ������������, � �� ����� 4 ���� � 10 ������� ����� ����� ���������� �� ������� hex.
P.S �� ������, �� ���� �� ������� �� ���� ������ ���������, � "spatial" for you ������ � ����.

����������: 15:18 - 10 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���� �� ��������� ��������, �� �� ����� ;).

����������: 18:29 - 10 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

��� ���� ������. � ���� ���� ����� ����� ���� � ������� �����

procedure map_update_p_proc
begin
 if (op_global_var(644) != 0) then
 begin
   op_critter_attempt_placement(op_dude_obj(), op_global_var(644), op_elevation(op_dude_obj()));
   op_move_to(op_dude_obj(), op_tile_num(op_dude_obj()), op_elevation(op_dude_obj()));
   op_set_global_var(644, 0);
 end
 else
   op_set_light_level(100);
end

� spatial script �������� ���������

procedure spatial_p_proc
begin
 op_set_global_var(644,26304);
end

������, ����� ���� �������� �� spatial ������� ������������� �������� ����� - ���� ���� �����������. ����� ����������� ������� � ����� ���������� ���-�� �� �������� �� �����. ��! ������� ���������� ���������, ��� � ����, �� �� ����������� op_move_to ����������� ������ �� ������. ����� ������������ �� ���� �� �� �� map_update �� �� ��������. � ��� ���� �������(��� �� ��� � � ������� ��� �� ���������).�� ��� �������� �������� ����������?

����������: 19:03 - 10 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

������������, �������������� TeamX!
�����-�������, ���� ����������, �� �� ��� ��������� � ����������� ��� � �� �������������... �������, ����� ���� ������ ������� 19200, ������ ���� 1999 ���� � ������ ������������ ����������� ���������� � ���������. �� � �,  ������ ���� ��� � ��������� ���� ��������, ����� �����-�����-�������... ������� ��������, �������� � �������� �� ������...
������� ����� � ��� ��� ���... ��� �� ������������� ��������� ������� ����... ������� ��������... ������� �� ��� ������, �� ���... ������� �������... � ���� �� � ��� ��� � �� ���� ��� �� ������ � ����� ����� - � ���� �� �������� ����������. ������ � ������ ������ ������, ������� ���� ��� �������������� ���� �������� - �� � ����������� ������� �� ����� ����� ����� "���������� ������ S"(� ������ ��������... ���� �� � ���� ����� ���� ������������ �� ������ ����)...
���� ������... ��������! � �� ����� ���� =)...

P.S. �� ���� �� ������� � ���� �� �������� - �������� ����... ����� �����... �� �� ����� ������ � ���������� - ��� ������� �������� ����������� ��������� �������� ����, �� � �� ��������� ����� ������� �� ���� ��� ������� �� ��������������� =)))
���� ������ ������ ���������� - �� ��� ���������������� ��� ����� ��� � - ��� ����� =)

-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 21:07 - 10 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

Raven.
��, ��� � ����� ������-������. �� ������ �� �������� � ����������� MVAR Lvar ������ variables, �� �� ������� ���� � ��� ���. ��� ������? � ��� ������.

newland.h
***
#define MVAR_KILL_HIM (x)
***
x - ��� ������? ������ �������

���

� arvillag.h MVAR'� � "���������" �� 0 �� 4.
����� ������� acwarrior.ssl � ����� LVAR'� ����������� � "��������" ������� � 4. ��� ��� ����� ���������?

����������: 22:14 - 10 ���., 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
������ � ������ ������ ������, ������� ���� ��� �������������� ���� �������� - �� � ����������� ������� �� ����� ����� ����� "���������� ������ S"(� ������ ��������... ���� �� � ���� ����� ���� ������������ �� ������ ����)...

������� � ������ ��������������� ������.

P.S. ������ ������ � ����������, �� ����� �� ������� ��� � �������������� ���������?

-----
hit me, nail me, make me god

����������: 0:34 - 11 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Ray

>>�� ����������� op_move_to ����������� ������ �� ������.
--------------------------------------------------------
int move_to(ObjectPtr obj, int tile_num, int elev) - ����������� ������

���������:
obj - ��������� �� ������
tile_num - ������� (tile_num = 200 * y + x)
elev - ������� (����) - 0, 1 ��� 2
--------------------------------------------------------
--------------------------------------------------------
void tile_set_center(int tileNum) - ������������ ����� �� �������� �����

���������:
tileNum - ����� ����� (200 * y + x)

������������ ��������:
���

����������:
������ �� metarule3(METARULE3_TILE_SET_CENTER, tileNum, 0, 0)
���������� ����� �� �������� ����� �������� �����, ��� ����, ����� ������������ ����� �� ����� �� �������� �����, ����� ��������������� �������� metarule3(METARULE3_TILE_SET_CENTER, tileNum, elevation, 0)
--------------------------------------------------------

to Chosen One

>>���� ������ ������ ���������� - �� ��� ���������������� ��� ����� ��� � - ��� ����� =)

� ����� ��������? ����� � ���� ���� �������. ����� � �����, ��������.

to Net

>>#define MVAR_KILL_HIM (x)
>>x - ��� ������? ������ �������

���� �����? ����� "������������"?

������, �� �����, ��� ��� ������������� ����/���� �� ���� �����������?

>>�� ������ �� ��������

� �������, �����, �� � ������? ��� attack �� ����������. ������ ������� �� artemple.map, ����� ����� ���� � ������� (��� ����� ������ �����, ����� ctrl+R, save, Ctrl+R, load). ������ ��� �������� ������� ������ - ��������. � ����. � ������ - ���. ���� �� ����� �� ���������� - ����, ������� ������.

>>����� ������� acwarrior.ssl � ����� LVAR'� ����������� � "��������" ������� � 4.

� ������������ ������ ����� ���� ���������� ������ 4-��.

�� � ������ - ������ �� ������ ��� ������� ���:
scr.ssl
----------------------------------------------
#define My_lvar(11)
<...>
----------------------------------------------
scripts.ssl
----------------------------------------------
<...>
scr.int     ; <...>            # local_vars=12
----------------------------------------------

�������� �����. ����� ��� �������� ��� 12 ����. ������� �� ��� � ���� ������� ������������ - �� ����. ��� ����� � ���� ���������. ��������, � ��� ���� �� ������ ���������. �����-�� ������ Hostile. �����-�� - HereBefore. ����� ����������� ��� ���, ���������� ������ ��, ��� ����������.

����������: 2:41 - 11 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

>>void tile_set_center(int tileNum) - ������������ ����� �� �������� �����

����������:
������ �� metarule3(METARULE3_TILE_SET_CENTER, tileNum, 0, 0)
���������� ����� �� �������� ����� �������� �����, ��� ����, ����� ������������ ����� �� ����� �� �������� �����, ����� ��������������� �������� metarule3(METARULE3_TILE_SET_CENTER, tileNum, elevation, 0)

�� ������ metarule3(.....    � ��� ������� ��� ����������� ������� �� define.h? �� � ��������� � �� ����� �� ������ ���� ������������� � ������ �������� ��� ����� � ������ �� �����. � �� ���� ��������� ����������, ���-��� ��� �� ��������.
� �� ������ void tile_set_center(int tileNum)
���-�� � ������ � �������� �� ������� �������� �������. � ����� ���� ����� � �������� �� ����� tile_set_center(int tileNum) , � ��� �� ������ op_critter_attempt_placement(.....) ?

����������: 10:48 - 11 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

������:

P.S. ������ ������ � ����������, �� ����� �� ������� ��� � �������������� ���������?



������� �� 1.02d, �� ����� �� �������� �����
undefined symbol S.(����� �� ���� ��������, �������� � ��� �� ��������)
��� ��� � �������������� ���������� *.i �� ������� ��� ������(� �������� 9588)

������:

... else if ((global_var((38)) == 1)) then Static_Reaction:=S\ ... <- ��� ��� ��� S ���� �� �����, �� ������� �� ��������




�� ��������������� ����� Raven'�... ����� ��� �� �����, ��� ���������� =)...(���� �� ��������)


-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 14:26 - 11 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>... else if ((global_var((38)) == 1)) then Static_Reaction:=S\ ... <- ��� ��� ��� S ���� �� �����, �� ������� �� ��������

�����. �� �������. ��� �������. ������ ������ �������� ������� ������ (�������������) � ������ �� � ����� '\' - ������ ����������� ������. �� ��������� ����� �� ������. ������������, ��� ����������� �����-�� ������. ����������� ������ �� ����� ���������� ����������. �, ������ ������, ����� ������� �� ������������� ������������. �� ����� ������� �� ������.

��� ������ - ����� ������� ������������� ����� ���������� ������� ���������� ������� ����� � ����. �������, ��.


(���������� �� 14:59 - 11 ���., 2005.)


to Ray

http://www.teamx.ru/fop/docs/BIS_help.html
�������� ���� - ��, ����� - ��������� �������. ��� ��� say-������. � ������� ��� ������ ����� :-)

http://www.teamx.ru/fop/docs/FScript-HOWTO
��� ���, �� ������ ������ :-)

����������: 14:55 - 11 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

���... ��� ���������� - �������� ������������... �� �����...
Borland'������ ������������ � ��� ��� � ��������... � ���� ������ ���� Borland C++(�� ������)...

(��������������(�) ChosenOne - 16:26 - 11 ���., 2005)

-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 16:21 - 11 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

� �� Borland C++ Command Line Tools ����. �� ����� 90��.

����������: 17:57 - 11 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

#include "headers\define.h"
#include "headers\command.h"
#include "headers\newland.h"

#define NAME 1309

procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node999;

procedure start begin
end

#define LVAR_Hostile (1)

procedure look_at_p_proc begin
 display_msg(message_str(NAME,100));
//message_str(NAME,random(100,102))
end




procedure critter_p_proc begin
if (local_var(LVAR_Hostile) == 1) then
begin
attack(dude_obj);

end
end


procedure talk_p_proc begin
 start_gdialog(NAME,self_obj,-1,-1,-1);
 GSay_Start;
   call Node001;
 GSay_End;
 End_Dialogue;
end


procedure Node001 begin
 gsay_reply(NAME,103);
 
 if get_critter_stat(dude_obj,4) >= 4 then begin
   gsay_option(NAME, 104, Node002,-1);
   gsay_option(NAME, 105, Node999,-1);
 end
 else begin
   gsay_option(NAME, 106, Node999,-1);
 end
end

procedure Node002 begin
 gsay_reply(NAME,107);
 gsay_option(NAME,obj_name(dude_obj),Node004,-1);
 gsay_option(NAME,109,Node003,-1);
 gsay_option(NAME,110,Node005,-1);
end

procedure Node003 begin
 gsay_reply(NAME,111);
 gsay_option(NAME,112,Node004,-1);
 gsay_option(NAME,113,Node005,-1);
 gsay_option(NAME,114,Node999,-1);
end
procedure Node005 begin
set_local_var(LVAR_Hostile,1);
call Node999;
end
procedure Node004 begin
gsay_reply(NAME,115);
gsay_option(NAME,116,Node999,-1);
gsay_option(NAME,117,Node999,-1);
end
procedure Node999 begin
end

Raven, � ������ �������� ������, �� �� �������. � ���� �� �������� ������ � �� ���� ���� ��� ������ ��������� ������� ������ ������, ������� ������ � ��� �������� �� ����.

����������: 20:58 - 11 ���., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

1) ��������� �� � ������.��� ��������� ����� � ������ ������ 0.

�������� �� ������� ���
2) #define LVAR_Hostile (1) ������� 5. ��������� #define LVAR_Hostile (5) - ��� ����� 5 ���� ���� ��������� � ���.

3) ������ Node005 ������� Node998 - ������ �����.
  set_local_var(LVAR_Hostile,2);

4) � critter_p_proc  ������
 if ((local_var(LVAR_Hostile) == 2) and (obj_can_see_obj(self_obj,dude_obj))) then begin
      set_local_var(LVAR_Hostile,1);
      attack(dude_obj);

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 2:58 - 12 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

��� �����, � ���������� � �����, ��� "����� ��� � ���, � ���� �� ����� ���������� � ��� ������� �� �� �������� ��������������"
So it was...
�� ���������� � � ����������...
������� ��� ��� �� NPC ������ ���� ��� ������(�� ������  �� ������, � ������ �� ����� ���), ������� � ������, �������� � ���� - �� �� �������, ���� �� ������(��� �� ������)...
��� ������ ����� ���������:

������:

procedure damage_p_proc begin
script_overrides;
if (source_obj == dude_obj) then begin
set_local_var(LVAR_Personal_Enemy,1);
end

-----------

begin
  if (((local_var(LVAR_Hostile) == 2)or(local_var(LVAR_Personal_Enemy) == 1)) and (obj_can_see_obj(self_obj,dude_obj))) then begin
     set_local_var(LVAR_Hostile,1);
     Flee_From_Dude
  end
  else if ((random(0,100) == 1) and (In_Timed_Event == 0)) then begin
      In_Timed_Event:=1;
      add_timer_event(self_obj,game_ticks(random(17,37)),1);
  end


��������, ���� ������!

-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 21:43 - 13 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

� ��, ��� ���� "--------------", � ����� ��������� �����������? �� critter_p_proc, �����? ��� �� ����� ��� �� ����������. ��� � map_update, �����. ������� ���� ����� ����� � ��� �� damage_p_proc.

����������: 9:08 - 14 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

� ������ ������ ��������, � � ���� - ���. ��� ������? ������ �� ����

����������: 14:00 - 14 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Net

��������� (����������� ����������� newland.h). ��������� �������� ��� � ������, ��� � � ����.

�������������: � �� ������ � ����, �����, �� ����� ctrl+r �������? ��� �������� ������������ �� ����������. ������: ����� �������� ������� ���������� ������ ������� � ����.

����������: 14:10 - 14 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

To Raven.
�� ����. ���� ��� CTRL+r ��� ��� ���������� ctrl+r, ��������� ����.

����������: 19:15 - 14 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

Raven
��, �� ��� ���� � critter_p_proc(����� ���������)...
��� �������� ��� �� ������...

-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 19:36 - 14 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Net

>>��� ��� ���������� ctrl+r, ��������� ����.

���, ctrl+r - ����� �������. ������ �������� ��� ����-���� �������. ctrl+r, �������� �������, *�����������*, ����� ctrl+r, ��������� ����������. ���� ������ ��������������� - ������ ����� ������ load � ��. � ���� ����� �������� ���� - ����� load �� �������, ���� ����� ctrl+r � �.�. ������.

����������: 5:46 - 15 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

...� ���� � ���� ���-������ is_loading_game ����������� - �� ����� ����� �����.

� ��� "����" �� "Ctrl + R"? � ���, ��� ��� ����� ������� ������ �� ����� �� ����������� map_enter_p_proc. ����, ��� �������� ���������� ��������� � ���������, ������� �������� ������ obj_dude, ��� ��� ������� ��, ��������, ����� ����� ����������� "�������" ������������ �� ������, ������ ����� � �.�. ����� ������� ��� ������� � ��������.

����������: 8:49 - 15 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>� ��� "����" �� "Ctrl + R"? � ���, ��� ��� ����� ������� ������ �� ����� �� ����������� map_enter_p_proc.

�����������! �� ��� �����, �� ��������. � ��� CTRL+R, � ��� ����������� ������. m_e ��� ������ ����������.

����������: 8:54 - 15 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

Raven
����, �� ���� � ���������� � ��������� ��������� ����� =(... ����� ������ ��������� inc_goo(bad)_critter, ��������� ����...
�� ����� �� �� ��� ������� ��� ���� Borland ������������ ������� �� �����������(��� � ������ �� ����� ������ 90 ��? ���� � ��������� � �� 500 =)) � ������� ����������� �� ��� ��������� � SSL �������� Fallout'�.
���� �� ��������� �������... =)
�! E-mail: old--rocker@yandex.ru(��� "-"

(��������������(�) ChosenOne - 20:40 - 16 ���., 2005)

-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 20:29 - 16 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

�������� ���� ����������� � ����� ����, ������� ����� � ��� ������.
��� ��������, ����� ������� � ������ "Bed and brekfast" ����� 2 ������ - ���� ������, � ������ ���� ������ � ���.
������ ������ - ��� ������������� ������� ������� �� ������ ������� (������) ��� 2-� ��� ������ �� ��� �����? � ��������� ����� �� ����� (������ ModInn.int) � ����� �� ����� (����� ����� �����)?
��� ��� � ������ �������������?

���� �������� ���������� �� ����� ������.

-----
��������! � �������� ���� �����...

����������: 13:11 - 18 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

����� ������������ ���� ���� ���������? ��� ����� �� modinn.ssl:
----------------------------------------------------
#define place_on_inn(the_tile, the_elev, the_rot)                                \
        override_map_start_hex(the_tile, the_elev, the_rot);                    \
        set_map_start((the_tile % 200), (the_tile / 200), the_elev, the_rot)

procedure map_enter_p_proc begin
<...>
if (shitter_has_blown) then begin
 place_on_inn(22081, shitter_has_blown, 4);
end else begin
 place_on_inn(19477, shitter_has_blown, 5);
end
----------------------------------------------------

�������. ���� ��� ������� �������, �� shitter_has_blown ������ 1, ����� 0. ��������������, ������ place_on_inn � ������ ������ ��������� elevation==1, �� ������ elevation==0.

����������: 15:48 - 18 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

2 Raven: �� �� ��������� � ���������� ����������� (� ��� � ���� ��), � ���� ���������� ���/�����.

���� ����� �����:

if ((op_global_var(402) bwand 128) != 0) then
 begin
   if ((op_global_var(297) bwand 1) != 0) then
   begin
     op_obj_move_to_tile(22081 % 200, 22081 / 200, (op_global_var(297) bwand 1) != 0, 4);
     op_set_map_start(22081 % 200, 22081 / 200, (op_global_var(297) bwand 1) != 0, 4);
   end
   else
   begin
     op_obj_move_to_tile(19477 % 200, 19477 / 200, (op_global_var(297) bwand 1) != 0, 5);
     op_set_map_start(19477 % 200, 19477 / 200, (op_global_var(297) bwand 1) != 0, 5);
   end
 end
 else
 begin
   op_obj_move_to_tile(25321 % 200, 25321 / 200, (op_global_var(297) bwand 1) != 0, 5);
   op_set_map_start(25321 % 200, 25321 / 200, (op_global_var(297) bwand 1) != 0, 5);
 end

���� ��� ������ ���� �������, ����� ��� ��� ���������� ��������� ������ ����� ���� ����� ������ �������?

if ((op_global_var(402) bwand 128) != 0) and (�������)) then

���

if ((op_global_var(297) bwand 1) != 0) and (�������)) then

� �� � � ���� ������� � ������ ������ �� ������� ���.

-----
��������! � �������� ���� �����...

����������: 16:05 - 18 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

��������
------------------------------
if ((op_global_var(297) bwand 1) != 0) then
  begin
    op_obj_move_to_tile(22081 % 200, 22081 / 200, (op_global_var(297) bwand 1) != 0, 4);
    op_set_map_start(22081 % 200, 22081 / 200, (op_global_var(297) bwand 1) != 0, 4);
  end
  else
  begin
    op_obj_move_to_tile(19477 % 200, 19477 / 200, (op_global_var(297) bwand 1) != 0, 5);
    op_set_map_start(19477 % 200, 19477 / 200, (op_global_var(297) bwand 1) != 0, 5);
  end
------------------------------

��
------------------------------
op_obj_move_to_tile(19477 % 200, 19477 / 200, (op_global_var(297) bwand 1) != 0, 5);
op_set_map_start(19477 % 200, 19477 / 200, (op_global_var(297) bwand 1) != 0, 5);
------------------------------

����������: 16:20 - 18 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

��� ��� �� ���� ����� �������� ������ ����� ���������, ��� ���� ����� �� �������.
������� �� ���� ���������?

-----
��������! � �������� ���� �����...

����������: 16:29 - 18 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>��� ��� �� ���� ����� �������� ������ ����� ���������, ��� ���� ����� �� �������.

�� �����. ��� ���� �� ������? ����� ����� ���, �� ���� ��� � ���������, �� ���� ��������� �������?

����������: 17:38 - 18 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

� ���� ����� ����� ���, � �� ����� ���� ����� ��������������� � ����� + 20 ���� (� ������� �����).
��� ������ �� ����� ������ ����������� �������: ���� ����� < op_game_time - �������� ������ �������, ���� ��� - �� �������.

-----
��������! � �������� ���� �����...

����������: 17:43 - 18 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>� ���� ����� ����� ���, � �� ����� ���� ����� ��������������� � ����� + 20 ���� (� ������� �����).
>>��� ������ �� ����� ������ ����������� �������: ���� ����� < op_game_time - �������� ������ �������, ���� ��� - �� �������.

�������. ���� ��������. ���� ���������� � ������� �������� �����. �� �� ����������� ���, ��� ��� ������ ����� ����� �� ������ ������� ������ elevation, �� � ���� ��� ���� ����������, �.�. ��� ����������� �� �������. �������. ���� � ����������������� ��������? ��� � ������� �����?

����������: 17:49 - 18 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

����� � �����������������.

-----
��������! � �������� ���� �����...

����������: 17:50 - 18 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

���, ���� ���-�� ��� ���������� ���������� ����������. � �� ��� ������� � ��� ��������� ������� � ������ (�� � ���� ����, ������� Raven'�)
� ���� ����� ������ - ���� �� �������� � bis'���� ������� �����? ������. ���������� ������� �������� ��� ����. �� ������� ��������� �������������. � �������� ����� ����������� kcsulik.int  - ������ ������, �� ����� ���������� �� ����������. ���������� ������ ���� :

if ((op_global_var(6) != 0) and (op_global_var(449) != 0 == 0)) then
   begin
     op_debug_msg("   GVAR_PLAYER_WAS_MARRIED before == " + op_global_var(449));
    .....................

��� ��� ����������������� ��������. �������������� ������ �� ����������. ���� �� ����� �������� � bis'������ �������? � ������ ��� �������� � ������� ������ (�������� � �����������), �� ��� �� ������������ ������.
P.S. ��������, ������ ��� ������� - ����� ����� ���������� ������ � ���������� ������� (���� ����� 3), �� �������, ������ � ��������� ��������� �� patch000.dat  ��� ������ �� master.dat �� �����. ���������, ��� ��� ������ ,����� ������� �������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 18:20 - 18 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

��, � ���� ����� ����������/������������ ������ ��� �������.
��� �� ������� compile � decompile �� ��������� ���� ����?

-----
��������! � �������� ���� �����...

����������: 18:39 - 18 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� ���� ���� ���������� ��� �����, ��� �� ����������� � ����. ������ ���� � � ������ �� ���� ������� - � ���� �� �� �� �����������, � ��� ������ (����) 3 ����� ������� ������, �������, � ������� ���� �� vault city. � ���� 2 ����
1)���� WinXP ��������( ���� ���� ����������� � autoexec), � � XP ������ � ����������� nt, ���� � �������� �����, � � ��� � ��� ��������
2)���� � ����� ������ �����������. �� ���������� ����. ���� �� ������ ����� � ����.  
� ������ �������� - ���. �� ���� ������, �� ��� �� ������ ��������. ������� � ���������. 5 �������� � ������ ���������� � 2 �����

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 19:20 - 18 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

��� ��� �����, ��� �� ������. �� �� 1.6, �� �� 1.6.8 - �� ���� �����������.
� ���������� ���� ����� ��������� ���������� ��������� Patch. � ���������� ������ � � �� ���.

-----
��������! � �������� ���� �����...

����������: 19:39 - 18 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

��� �����, ��� ������������� �����, ����� ��� �� ����������� �� ��� ����� ��������� � ������ ����� ���������� �������.
������� lock\unlock �� ��������, � � ����������� �� �������� BIS ����� �� ����.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 21:30 - 19 ���., 2005
Kovarny
������������

������: ������, ��������� ...
�����������: ���� 2003

�����: 114 ���������

������:
Quote: from Ray on 0:30 - 20 ���., 2005
��� �����, ��� ������������� �����, ����� ��� �� ����������� �� ��� ����� ��������� � ������ ����� ���������� �������.

�������� �������� script_overrides � use_p_proc �����. ���-�� ����� ������� ������� ����������.

-----
��������� �� ������� �
����� � �������� ��� �� ������
� ��� ���� �������.

����������: 21:37 - 19 ���., 2005
Strongholder
��������� MkII

������: Nelly's Bar
�����������: ��� 2004

�����: 393 ���������

������ � ������ ������������. :)
���� ������������� ����� ������ (������ - ����� ���). ���� "kill_critter(dude_obj, 57);". ����� ���������.
��! �� �������� �������� �������� "�����������", ��� ����������� �������� � ������� (���� "��� ����� � �� �����"). ���� �� ��������� ������ ��������� ��� ���������. ����� ���������� ���� ������ �� ���� ��������? ����� ������������ ��������� ������? ���� ��, �� ��� �������� ���������� ������ ��������? ����� ���� ��������� ���������, �� �� ���� ���������� ��� �������������� ���-�� ��������. � �������������� �� ������...
�������� ������� ������ ��� ��� �����... :)

-----
������� � ������ ������. �������� �� �� ���.

����������: 23:33 - 9 ���., 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

��� kill_critter � ���� WG ���� �������: "������� �� ��������� ������ �������� � �� ��������� �����", ��� ��� ������ ����������.

���� ���������� ��������� ������-������������ �����, ��� ������� �� ���� �������:
critter_dmg(dude_obj, 999, DMG_fire bwor DMG_BYPASS_ARMOR);

999 ������������� ����� � ��� ��������� ������ �������� �����

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 0:33 - 10 ���., 2005
Strongholder
��������� MkII

������: Nelly's Bar
�����������: ��� 2004

�����: 393 ���������

��. critter_dmg � ���� � ������ ������, � ���� ������� ��� ���� ��� ����. ��� ������ ������� ����� ���. � ������ 512 (DMG_NOANIMATE) �������� ������-�� ��������. �� ������� � "����� � �������" ��� �� �����.
� ������ ���-������ ����� ��������� ����� ����� �������� ������ ����������/�������/�������� ��.�.? ��� � ������ ������ ������ ��������������� � ������ � �������, �� ��� �� 20 �� 40 HP ���������. � ���� ������ ������� �� ���?

-----
������� � ������ ������. �������� �� �� ���.

����������: 12:11 - 10 ���., 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

��������� ������ (ECBHead.ssl) ������� ���� � ������� critter_damage(dude_obj, 40000);
� critter_damage ��� ����� ���� ������ �� critter_dmg. ��� ��� ������ ���, ��� ��� ���� �����.
� ���� �� ��������� ��������, ����������� ��������.

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 0:28 - 11 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������ � ���, ��� ���������� � ������������� ���������. �������� � ������ ���� � �������, ������� ����� �������� �� �����-������ ��������. �� ����� ���� ����� �������� ������� game_ui_disable (������������� ���������������� ���������)
���� ������ � ����� �� ������, ��������� �� ���?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 12:04 - 11 ���., 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

������� game_ui_disable ��������� ��������� � ���� � �����, ������ ���� ��������. ��� ���������������� � �� ����, ��������� � ������� ������������ �������.

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 0:19 - 12 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

����� ��� �������, ��� ������� ���, ����� � ������� � ��� ��� ������� �� ������ "������" ���������� ��������� "���� �������� �� ����� � ���� ���������". ��� �������, ��������, � ���� ����� � ���������� � ����� � ������-�������. ������� �� �������, �� ��� �� ������ �� ���������.

-----
��������! � �������� ���� �����...

����������: 14:26 - 16 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

2 YikxX

��� �������� �����, �� �� ����� �������, � ����� ������. ����� ������������ ������ �������� ������� barter - off

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 14:44 - 16 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

� ��� ������� ����� ������? �� ����� ��� ��� ������, ������� � ����������� � ���.

-----
��������! � �������� ���� �����...

����������: 15:33 - 16 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

����������, �� ����� ������� ����� � �� ���� ��� ����� ��������. ������������, ��� ���� ������������ - ���� ����� ����� PROTOTYPEEDITOR . ����� 200 ����. � ������� �� ������� �� ������� �������� � ����������� . �� ��������� �������. ��� ����� ������ ����������� ������. ����� � ����� ����� ���� �� ������� : barter 1\0.
��� ���������� ����� ������ �� ������. ��� ��� �����������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 16:27 - 16 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

����-�� �� ���� ����� ������ �� ������. ����� ������� ��� ��� ����� �� yikxx@anort.com ?

-----
��������! � �������� ���� �����...

����������: 17:20 - 16 ���., 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

2Ray: � ����� ������, ��� ����� ���� ����� (������� �� KIA?) ��� ������ �� ������ ��������?
������ �������������� ����� �� ��������, � ��� ����� ����� �������.

����������: 21:38 - 16 ���., 2005
tracktor
������������

������: ������
�����������: ���� 2004

�����: 183 ���������

������:
Quote: from Perceptron on 21:38 - 16 ���., 2005
��� ����� ���� ����� (������� �� KIA?)

��.

����������: 23:43 - 16 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

2 Ray: �������, ����� �� ���� - ������ ���� ��� �������� ���������� �������.


-----
��������! � �������� ���� �����...

����������: 9:46 - 17 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

����� ������.
��� ������� ��� �� ��������� ����������� ��������, ����� ��� ��� ������ �� ��������� � ��� ��������� � ��������� ������ �� ����? ��������� � ���������� ������� �������� �� ��������� �� ���������.

-----
��������! � �������� ���� �����...

����������: 11:52 - 17 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���� ��� ������ ��������� ���� ��� ����� ����� ������? ;)

������, �������� ������������� :).

���� ���������... ������ ����������� �� � �����-���� ���������, � ����� ������� ���������. �� � ������ ��� ������ inven_cmds ��������������� �������� ��������� �� ������ ������� � �������...

����������: 14:02 - 17 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

���� ��������� ��? ��� ������ ��������� � �������� ��� � ��������� ����������� ����, ����� � ������. ��� ������ �� ������� ��� ���������. ����� ����� ��� ��������� ����������� �����.
� ��� ��������� �������/�������? � ��� � ���� ��������� ����������?


(���������� �� 14:17 - 17 ���., 2005.)


� �������� ������ ��� � ������� �������� �� ���-����: ������� � ������� ����� �������������� ����������
export variable barmen_inven_box := 0;
����� � ������� ������� �� ������������
import variable barmen_inven_box;
����� ����� ��������� ������� ����� ���
op_move_obj_inven_to_obj(op_self_obj(), barmen_inven_box);
� ����� ������ �� �������� - ��������� � ������� �������� �� �����. ����� � ���� ���������?

-----
��������! � �������� ���� �����...

����������: 14:08 - 17 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�� :). ��� ��� �� ���������, � ������ ����������� :). ��������� ������� �� ����� ��� ���������� ����������, �� ������ � ����� � ��� box�� ;).

�������: � ������� ������� �� ��������� ��������� ������. ������� � ���� ������. � ������� ����� ���������� �������������� ����. � ������� ����� ���������� ������������� ����. � ���_����� ����� ������������ ���� ���� ��������� �� ���� (self_obj). ����� ����������� ���� ��������� � ������� ��������.

����������: 14:21 - 21 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

�������, ��������.

-----
��������! � �������� ���� �����...

����������: 14:36 - 21 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

2 WG: � ����� ��� ���� ��������� � ��������� �� �����������? � � ���������� �� ����� ����������� �� ����.

������, ����������, ��� ������������ - ��� ����� �� ��������.

-----
��������! � �������� ���� �����...

����������: 17:38 - 21 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�� � ������ ���������� �������� ����� :).

��... �� ����� ���� ���� �������. � �����������, ��� ��������� �����.

����������: 10:21 - 22 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

������ �����:
...
procedure start;
procedure map_enter_p_proc;
procedure map_update_p_proc;

import variable sf_tanker_bar_box;
...
procedure start
begin
 sf_tanker_bar_box := op_self_obj();
end

procedure map_enter_p_proc
begin
 sf_tanker_bar_box := op_self_obj();
 if (op_metarule(22, 0) == 0) then
 begin
   if (op_local_var(0) < op_game_time()) then
   begin
     restock_amt := op_random(1, 2);
     if (op_obj_is_carrying_obj(op_self_obj(), 71) < restock_amt) then
     begin
... (� �����, ��� ��� � �������, ���� ������� ���������� ����� ����������� ������ - ����� �� ������� ����� ��� ������� � ������ ������)

procedure map_update_p_proc
begin
 sf_tanker_bar_box := op_self_obj();
end

������ �����:
...
export variable i_suze_obj := 0;
export variable i_tgun_table_swap := 0;
export variable i_tgun_merchant := 0;
export variable i_tmer_table_swap := 0;
export variable i_tmer_merchant := 0;
export variable sf_tanker_bar_box := 0;
...
procedure start
begin
 if (inited == 0) then
 begin
   inited := 1;
   i_suze_obj := -1;
   i_tgun_merchant := -1;
   i_tmer_merchant := -1;
 end
end
... (���� �������� ���� sf_tanker_bar_box := -1; �� ���� ��������, ����� �� ������� ������� ��� ������ ���� ����������� :( )

������ ������ �������:
...
import variable sf_tanker_bar_box;
...
procedure talk_p_proc
begin
 Evil_Critter := 0;
 Slavery_Tolerant := 2;
 Karma_Perception := 10;
 op_set_global_var(37, 0);
 op_set_global_var(38, 0);
 op_set_global_var(39, 0);
 op_set_global_var(40, 0);
...
else if (op_local_var(4) == 0) then
 begin
   op_start_gdialog(1103, op_self_obj(), 4, -1, -1);
   maybe_start_dialog();
   call Node001();
   maybe_close_dialog();
   maybe_op_end_gdialog();
 end
 else
 begin
   op_start_gdialog(1103, op_self_obj(), 4, -1, -1);
   maybe_start_dialog();
   call Node006();
   maybe_close_dialog();
   maybe_op_end_gdialog();
 end
 op_move_obj_inven_to_obj(op_self_obj(), sf_tanker_bar_box);
 op_set_local_var(4, 1);
end
...
procedure Node003
begin
 op_move_obj_inven_to_obj(sf_tanker_bar_box, op_self_obj());
   op_gsay_reply(1103, 113);
 op_giq_option(1, 1103, 115, @NodeBarter, 50);
end
...

� ����� ������ �� ��������. ������ � ������� ����� � ������ ��� �����, � scripts.lst ������ ����� ���������� (# local_vars = 0 ������ ��� ����).

-----
��������! � �������� ���� �����...

����������: 11:51 - 22 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ����� �� � ������� ����� ���-�� ���������������? ������ ���� ������ � �� ���� ������ "����".

����������: 14:22 - 22 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

� ������? ��� ��� �����?
export variable sf_tanker_bar_box := 0;
� ����� ������ �� ������������� � ������� �����.

-----
��������! � �������� ���� �����...

����������: 14:31 - 22 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ��� ���?

procedure start
begin
if (inited == 0) then
begin
  inited := 1;
  i_suze_obj := -1;
  i_tgun_merchant := -1;
  i_tmer_merchant := -1;
end
end



(���������� �� 15:01 - 22 ���., 2005.)


��... SVAR�-�� � ���� ������������ � ������� ������, ��� ��� �� ���� ��, � ��� ������� ����...

����������: 15:00 - 22 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

��� ����� ����. � � ������� ����� ��� ���������� ��������� �� ������� (���������� � ������ ����� )

-----
��������! � �������� ���� �����...

����������: 18:46 - 22 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

����� ������.

������ �� �������� ����� ����������� (LVar1 �� ������������� �� ������� � �.�.)?

if (op_party_member_obj(16777558) != 0) then
 begin
   if (op_tile_in_tile_rect(16324, 16312, 17924, 17912, op_tile_num(op_party_member_obj(16777558)))) then
   begin
     LVar1 := LVar1 + 1;
     op_critter_damage(op_party_member_obj(16777558), 1000, 0);
   end
 end

������, ��� � �������� ��� ��������� ��� ���� �������������� �� � ��� ������������������ ������ ��� ��� ������?

-----
��������! � �������� ���� �����...

����������: 13:43 - 2 �����, 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

�� ����� :-)
set_local_var( LVar1,get_local_var( LVar1)+1);

����������: 14:43 - 2 �����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

... ��� ������ inc_local_var(LVar1).

����������: 15:48 - 2 �����, 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

���� ������� - � ����������.
�� �������� ������, ��� � �������� ��������� ��������� � �� ��� party_member_obj ��� �� ��������.

��� ����� ���-�� ���������?

-----
��������! � �������� ���� �����...

����������: 16:27 - 2 �����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ��� ��������� ���� �����? ����� �������� �������� ����� ������ ����? ��� ���-�� ���?

����������: 16:56 - 2 �����, 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

��� ����, ����� ����� � ��������� �������� ��������� (������ "������� �����, ���� � �� �������" � ������� � ������������ ������-������������ ������� (4-� ������� SAD), �� �������� �� ����������� ���-������ � ����� ��������� ������� (�������� ����).
������ �� ��� �������� ������ �����, ����� �� �� ����� ������ ���������, ����� �������� �� ����� � ������� ���, � �������� ��� ��������� � ������� � ������������.

-----
��������! � �������� ���� �����...

����������: 17:30 - 2 �����, 2005
Yan Slate
������������

������: �.�����
�����������: ����. 2005

�����: 24 ���������

������������, ����������.
�������� � ��� ���� ������ (������� ��� test.ssl). ������ ������������� � ������, ������� ����� � ������-�������. �� ����� ��������� � �������� �� ����� ����� �������.
������� ���� ���������, ����� �� ���������� ��� ����, �� ����� � ������� ����������� ��� ���������, �� ���������� ���� �������� � ����.
� ���������� ������������ ������� � ������� ������������.
� �� ��������� ��� ������ ��� ���:

Compiling TEST.SSL
TEST.SSL(42): Error! Undefined symbol LVAR_Hostile

*** THERE WERE ERRORS (1 of them)

��� � ����� � 42-� ������ ������� �� ����� ������, ���� LVAR_Hostile - ��� �������������� ������.
���� �, ����, ������ �� ������������, ����� ��������� ������, �� �� ����. ���� � �� ����� ����� ������� ������, �� ������������� �� ����������.

���-������ ����� � ��� ����? ��������, ����������. ��� ���� ����� �������, �� ������� �������� ��������:

procedure critter_p_proc begin
  if ( ( ( local_var(LVAR_Hostile) == 2 ) or ( ( global_var( GVAR_ENEMY_VAULT_COURTYARD ) == 1 ) ) ) and (obj_can_see_obj(self_obj,dude_obj))) then begin
      set_local_var(LVAR_Hostile,1);
      attack(dude_obj);
  end
end

p.s. � ������������� ��� �� ssl ������-�� ���� ������-�������... � �������� ������� � ���������� .

����������: 16:20 - 4 �����, 2005
izuken
������ �����

������: mSk
�����������: ���. 2004

�����: 125 ���������

LVAR_hostile - ���, ��� �� �������, ����.... �� ���� ��������� ����������.

��� ��� ����� � ���  �� ��������� ��������� ����� - � ����.........

(��������������(�) izuken - 17:26 - 4 �����, 2005)

-----
��� ������ ������.
save the planet - kill self.

����������: 17:25 - 4 �����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2YikxX ��...
������:

�� �������� ������, ��� � �������� ��������� ��������� � �� ��� party_member_obj ��� �� ��������. �
��� ����� ���-�� ���������?


����, � �������, ������� ���������� "���������":
1. �������� ��������� �� ������ �� ���.
2. ���������, ��������� �� �� � �������.
3. ���� "��", �� "���������" :).
�������� ��?

����������: 17:50 - 4 �����, 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

�������� ��. �� ��� �������� �� ���� ��������� �� ���? � �� ������ ���� ��� �������� ��� ���?

-----
��������! � �������� ���� �����...

����������: 17:57 - 4 �����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

party_member_obj, ������, ���� ����������. "�������" �� ������� ���������� ��� ����, ������, ������ ��� ���� ��� �������. ��������� �� �����, ������� ��������.

����������: 22:14 - 5 �����, 2005
ROCK
������������

������: �.�������
�����������: ����. 2005

�����: 110 ���������

� ���� ��������� ���������-
� ������� ����� � ����� � ����������� int
(������ �� ������ ������� Anchorite-��� ���� � �� ���� ��������������� ���� ������ � �������������� ���)
�� ��� ��� ����� � ������� � � ���� ������ ����� ��������-���������� ��������.
� ���� ������ �� ����� ���������� � ���� ����� 1.02
���������� �� ��� ������� ���� ��� ��������� ��������!

��������� ���������� ��������� � ������ ����� �����������.

WG

����������: 20:54 - 7 �����, 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:

�� ��� ��� ����� � ������� � � ���� ������ ����� ��������-���������� ��������.



��� �� �������. ��� �� "����� � ����"? ���� �� ������ � ���� ������������ ������ (�-�� �������), �� � ��� �������� � �����������, ��������� ����� "FAQ �� ��������", ��� ��� �������.

-----
hit me, nail me, make me god

����������: 21:12 - 7 �����, 2005
ROCK
������������

������: �.�������
�����������: ����. 2005

�����: 110 ���������

�� ��� �� ������ �������-������ ������� ��� �������� � ������� ����� ������ �� ����-� ���� ��������� �������� ���(�� ������ ������)-��� ��� ��� �������� ����������.
�������� ������ ��� �� ��� ��������� � ���� ���� �� ����� ������ �� ������� ��� ����������� ���� �������� ����.
;-)
���� ��������� ��� � ���� ������ �� ����� ����������.

(��������������(�) ROCK - 23:43 - 7 �����, 2005)

����������: 23:41 - 7 �����, 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��� �����, ��� ����� ������� ���������� ������ ������� ��� msg. � ��� ����� ����������, � ������, ��� � ��� ��� msg ����� �������� � ��������� �� ����� ����������, � �� ������ � ��������� �� dos cp866.
������:

�������� ������ ��� �� ��� ��������� � ���� ���� �� ����� ������ �� ������� ��� ����������� ���� �������� ����.


���.. ���� ����� ������������? ������ ���: ���� ��������� ������ ��� ����� ����������, ���� �������� ���� ������� �� �������. ��.. ��� ���� ���� ������ ������ ������ , ����� ������� ��� ��� �����.


(���������� �� 0:54 - 8 �����, 2005.)


�� ���� ��������.. ����� �� ����� ������� �������� ������� ��� ���������, � ������� ����� ���� �� ��������� ������ ���������� ����������?

����� ������� ������: ���� N ��������, �� ��� ��������� ������� �������� ����. N ����� ��������, ������ �� �������� �� ��������� sup{N} ��������.

-----
hit me, nail me, make me god

����������: 0:47 - 8 �����, 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

� ������������, � ������������� ��������� - �� ���� ���� DOS ���������, ������ � ������� ������� � �������� � (���� �� ��������), � � �������� - ����� ������� �� ����, �� �����  ��������� ��������� � DOS��.
�������������, ����� ��������, �������������� ��� ���������. ��� � ������ ������������ Bred, � � �������� ���������� ��������� ����� Terminal.
� ���, ��� ������ Alan, � ������ ��������� �� ����� ������ �� ����� ;))).

����������: 11:58 - 10 �����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2YikxX
�� ������ ��������� �� ����. �������� ��� ����� tile_contains ������� �������. �� ����� � �������� ;). ������ �� ����� ���������� ���. ������� ���� �� ����� ���� ��� ���������. � ��� ��������, ��� party_member_obj(PID_SULIK) ����� ���������� ������ ���������... ������� ���� ����� �������� � ��������� ��� ������ �� �����. �� ���� ������ ������. �����������. ����, ����� ������� �����, � ������� ����� ����� ������ self_obj ������ ��� ��� ������ �� ������ �����. �� � ������ - ���� �������: ��������� �������������� ������� ��������������...

����������: 12:45 - 10 �����, 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

�������, ����� ���������.

-----
��������! � �������� ���� �����...

����������: 13:20 - 10 �����, 2005
ROCK
������������

������: �.�������
�����������: ����. 2005

�����: 110 ���������

������ ����!
������ �������� � ��������� � ����� ���������� � ����� ���-�������������� ����� �������:1)AkelPad(���� ��������� �������� ��������������� � Total Commander 6.50 PowerPack)�� ����� ������� � ������ �� ������������ ��������� DOS;2)COOLer-����� ������� ��� ���� ����� ��������� ����� ��������������� � ��������� �� ����� ����������.
----------------------------------
������ � ���� ���� ��������� ��������� � ���� ������� � ������� �� �������-��� �����(����) ������� � ����������(�����)-� ����� ���������� ������-� ���� ���������� �� ��� ������,�� ������ �� �� ������ �������� � ���� ������,� ����� ���� ����� ����� �������������� ����� �����(�.�. ������ ��� ������� ������ ����� ���������-"������,���������" ).
��� ��������� ��� �����������(���� ������� ���,����� ����� ������ ����� ���� ����� �������� � �������)!!!
------------------
��������!
������� �������!

(��������������(�) ROCK - 11:41 - 13 �����, 2005)

����������: 11:39 - 13 �����, 2005
tracktor
������������

������: ������
�����������: ���� 2004

�����: 183 ���������

������:
Quote: from ROCK on 11:39 - 13 �����, 2005
������ ����!
������ �������� � ��������� � ����� ���������� � ����� ���-�������������� ����� �������:1)AkelPad(���� ��������� �������� ��������������� � Total Commander 6.50 PowerPack)�� ����� ������� � ������ �� ������������ ��������� DOS;2)COOLer-����� ������� ��� ���� ����� ��������� ����� ��������������� � ��������� �� ����� ����������.
----------------------------------
������ � ���� ���� ��������� ��������� � ���� ������� � ������� �� �������-��� �����(����) ������� � ����������(�����)-� ����� ���������� ������-� ���� ���������� �� ��� ������,�� ������ �� �� ������ �������� � ���� ������,� ����� ���� ����� ����� �������������� ����� �����(�.�. ������ ��� ������� ������ ����� ���������-"������,���������" ).
��� ��������� ��� �����������(���� ������� ���,����� ����� ������ ����� ���� ����� �������� � �������)!!!
------------------
��������!
������� �������!

(��������������(�) ROCK - 11:41 - 13 �����, 2005)


��... �� �����, ��� �� ���������, � ���������� ��������� ����.
����� � talk_p_proc, ��� ���������� �����-�� ������ ����.

����������: 16:16 - 13 �����, 2005
ROCK
������������

������: �.�������
�����������: ����. 2005

�����: 110 ���������

��� ����� � ��� ���������:
-------------------------------------------------------
procedure talk_p_proc
begin
 variable LVar1 := 0;
 variable LVar2 := 0;
 variable LVar3 := 0;
 variable LVar4 := 0;

 if (op_local_var(3) == 1) then
 begin
   op_start_gdialog(751, op_self_obj(), 4, -1, -1);
   maybe_start_dialog();
   call Node010();
   maybe_close_dialog();
   maybe_op_end_gdialog();
 end
 else if (op_local_var(1) == 0) then
 begin
   op_start_gdialog(751, op_self_obj(), 4, -1, -1);
   maybe_start_dialog();
   call Node001();
   maybe_close_dialog();
   maybe_op_end_gdialog();
 end
 else if (op_local_var(1) == 1) then
 begin
   LVar1 := op_critter_inven_obj(op_self_obj(), 0);
   op_start_gdialog(751, op_self_obj(), 4, -1, -1);
   maybe_start_dialog();
   call Node005();
   maybe_close_dialog();
   maybe_op_end_gdialog();

   if (op_critter_inven_obj(op_self_obj(), 0) != LVar1) then
   begin
     if (op_critter_inven_obj(op_self_obj(), 0) == 0) then
       LVar1 := op_create_object(16777217, 0, 0, 751);
     else if ((op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 1) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 379)) then
       LVar1 := op_create_object(16777342, 0, 0, 751);
     else if ((op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 232) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 14) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 3)) then
       LVar1 := op_create_object(16777338, 0, 0, 751);
     else if ((op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 349) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 348)) then
       LVar1 := op_create_object(16777331, 0, 0, 751);
     else if ((op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 240) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 380) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 2)) then
       LVar1 := op_create_object(16777344, 0, 0, 751);
     else if ((op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 74) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 265)) then
       LVar1 := op_create_object(16777346, 0, 0, 751);
     else if ((op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 239) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 17) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 381)) then
       LVar1 := op_create_object(16777348, 0, 0, 751);
     else if ((op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 524) or (op_obj_pid(op_critter_inven_obj(op_self_obj(), 0)) == 113)) then
       LVar1 := op_create_object(16777700, 0, 0, 751);

     LVar2 := op_critter_inven_obj(op_self_obj(), 1);
     LVar3 := op_critter_inven_obj(op_self_obj(), 0);
     LVar4 := op_get_critter_stat(op_self_obj(), 35);
     op_critter_heal(LVar1, LVar4);
     op_set_obj_invisibility(op_self_obj(), 1);
     op_move_obj_inven_to_obj(op_self_obj(), LVar1);
     asm_expr(op_critter_attempt_placement(LVar1, op_tile_num(op_self_obj()), op_elevation(op_self_obj())));
     op_anim(LVar1, 1000, op_has_trait(1, op_self_obj(), 10));

     if (op_local_var(3) != 1) then
     begin
       op_critter_add_trait(LVar1, 1, 6, 0);
       op_critter_add_trait(LVar1, 1, 5, op_has_trait(1, op_self_obj(), 5));
       op_party_add(LVar1);
       op_set_global_var(40, op_local_var(1));
       op_set_global_var(41, op_local_var(3));
       op_set_global_var(42, op_local_var(6));

       if (LVar2 != 0) then
         op_wield_obj_critter(LVar1, LVar2);

       if (LVar3 != 0) then
         op_wield_obj_critter(LVar1, LVar3);

       op_party_remove(op_self_obj());
       op_destroy_object(op_self_obj());
       op_add_timer_event(LVar1, op_random(5, 20) * 10, 1);
     end
   end
 end
 else
   op_float_msg(op_self_obj(), "������ ���������", 9);
end
----------------------------------
� �� ��� ����� ���� ����������?
����������!
������� �������!

����������: 18:08 - 13 �����, 2005
tracktor
������������

������: ������
�����������: ���� 2004

�����: 183 ���������

���...
������ �� � ����������������� ������ �� ������...
���� ������� � ������� ������ ��� ���:

if (op_local_var(3) == 1) then
begin

���:

end
else

� ���

else
  op_float_msg(op_self_obj(), "������ ���������", 9);

�� ��� ��� ���� ���������� ���� �������� �� �����.

����������: 20:35 - 13 �����, 2005
ROCK
������������

������: �.�������
�����������: ����. 2005

�����: 110 ���������

� ��� �� ������ ������ ������:
------------------------------------------
if (op_local_var(3) == 1) then
begin

���:

end
else

� ���

else
 op_float_msg(op_self_obj(), "������ ���������", 9);
-----------------------------------------------------------------
������ ��������� ��������� ��������-
����� � ������ � ������� � ����������� �� ��� ������,�� ������������� ������(��� ������ ����)-� �����:������� ���������� ���� �� ������ ������ ���!
� ���� � ���������� � ���,�� �� �� ���� ����-�� ��� � ��� ����� ��������,�� ����� �� ���������� ��� ���� ������!
--------------------------------------------------------------------
��� ��� ���������?
����������!
������� �������!

����������: 21:26 - 13 �����, 2005
tracktor
������������

������: ������
�����������: ���� 2004

�����: 183 ���������

�� ����� ���� �������� ��������������� �� �������� fallout'� ���� �� ����� ���������, ������ ��� � ��������� �� ����� ���� ����� ���, � �� ������� �������� ������� ���������� ������.
� �� ����������� ���� ������� ��������� ���� ���������������� �� ������� ��� �������, � ����� ��������� � ��������.
�� ��� ���� �� �������� �������������� FScript-howto.
���, �������, �������� � ��������� ����� ���������� ��������, � �� � ����������� ����� �������.

����������: 12:44 - 14 �����, 2005
ROCK
������������

������: �.�������
�����������: ����. 2005

�����: 110 ���������

������� ���� ����� � ������ �� �������.
�� ��� ���-���� ���� ��� ����������!
��� �� ��� ���� ���������� ����� ��� ���������� ��� ������?
������� �������!

����������: 15:43 - 14 �����, 2005
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

�� �� ROCK �����!!!
����� �� �� ������� ��� ���-�� ����� �� ���� ������ ���� ������?

���� ������� ���, ���, �� ��� �������. � ����� ���� ������ ������� �������� "� ����������� ���" �.�. ������, ��� "�� � ���� ����".

����� ���� ������� ��� ������ ������� � ����� ����� ���� �� �������� �� Wasteland Ghost � ������� ����������� ��� � ���� �������� � ����?

����������: 19:53 - 14 �����, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� ����� ��� ������ ��� ��� ��� ���� ����.
� ���� ������ ������� �� ���� ������. ��� �������� �������� ���������. ��� ������������� ��� ������ �� ����� ������ �������� ���������. �� ������� ������ - ����� ������� "������ � �����" � �������� �� car, ����� ������� ���������� ������� �� ����� ����. ���� ����� ������, �� �� ������� - car_give_to_party  � ����� ���. �� ����� ������� ������ ������������� � ������. � �������� (� �������) ������ �������� ���. ��� �������� ���� �� �������. �������� ������� � ������ �� �����. ��� ����� ���� �� ��������������� ������ ������? �� ������ ����� ������ ����. ���� ��� ����������� ���-�� ����� - �� ���?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 0:35 - 23 �����, 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

��, � ZSDrvCar.int ��� ��� ������?

-----
��������! � �������� ���� �����...

����������: 9:48 - 23 �����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�� ������ � ������� ��������:
ZSDRVCAR.SSL - ������ ������
ZICRTRNK.SSL - ������ ���������
*���* ������� ����, � ������� ���������� ������ �� ����� ����.

����������: 9:50 - 23 �����, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

�������� ����������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 15:27 - 23 �����, 2005
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

��������� cinema.int ��� bosdemo ���� �������

� ssl �� ����� ���, ������������ ��������

����� 646 �� ��� �� ��������� �������� 9,
������?

procedure timed_event_p_proc
begin
�if (combat_is_initialized==0 /*==0 ����� ��� �������?
�� ������� ���������*/and global_var(646)==8) then begin
� �if cur_map_index==156 /* ����� �����? �� ���� ������� ����� ��� ������� Artemple �� ����� ����� � ��������������� h, ����� ��� ��������, �� � ������� ��� ������� - ����� �� ���������� */ then begin
� � �if (tile_num(var_restock_trash)>20705 or tile_num(var_restock_trash)<20705) then begin
� � � �animate_move_obj_to_tile(var_restock_trash,20705,0);
� � �end
� � �set_map_start(101,111,elevatio(0),0);
� float_msg(var_restock_trash,message_str(1444,105),3);
 � � �set_global_var(646,global_var(646)+1);
� �end
�end
�if (combat_is_initialized==0 and global_var(646)==14) then begin
� �if cur_map_index==156 then begin
� � �if (tile_num(global_var(644))>20705 or tile_num(global_var(644))<20705) then begin
� � � animate_move_obj_to_tile(global_var(644),20705,0);
� � �end
� � �set_map_start(101,111,elevation(0),0);
� � �float_msg(global_var(644),message_str(1444,106),7);
� � � � � �set_global_var(646,global_var(646)+1);
� �end
�end
� � �if global_var(646)<8 then begin
� � � �call cinema;
� � �if global_var(645)==0 then begin
� � �if global_var(646)==7 then begin
� � � �call endanim;
� � � � � � � � � � � � � � � � end
� � � � � � � � � � � � � � � � end
� � � � � � � � � � � � � � � � end
if (global_var(646)>=7 and global_var(646)<9) then begin
� �add_timer_event(self_obj,40,1);
�end
�if (global_var(646)>=11 AND global_var(646)<14) then begin
� �Call cinema;
� �if global_var(645)==1 then begin
� � �if global_var(646)==13 then begin
� � �Call endanim;
� � �end
� �end
�end
�if (global_var(646)>=14 AND global_var(646)<15) then begin
� �add_timer_event(self_obj,40,1);
�end
end

procedure endanim
begin
�Fadeout(1000);
�set_global_var(646,global_var(646)+1);
�game_ui_enable;
�FadeIn(1000);
end

� ��� ����������� ���� � ���������� �������?

(��������������(�) Dar - 11:20 - 1 ���., 2005)

����������: 11:06 - 1 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���� ����. � � ��������� (*.h):
/* Time Information  (in Ticks) */

#define ONE_GAME_SECOND             (10)
#define ONE_GAME_MINUTE             (60*ONE_GAME_SECOND)
#define ONE_GAME_HOUR               (60*ONE_GAME_MINUTE)
#define ONE_GAME_DAY                (24*ONE_GAME_HOUR)
#define ONE_GAME_WEEK               (7*ONE_GAME_DAY)
#define ONE_GAME_MONTH              (30*ONE_GAME_DAY)

����������: 14:02 - 1 ���., 2005
Jager
������������

�����������: ���� 2005

�����: 38 ���������

����� ��������� ����������� �� ���������.
���, ����� � ����� ���� �����
(is_success(roll_vs_skill(dude_obj,SKILL_CONVERSANT,0)))

��� ������ ������ ��������� ��������� ����� �������� �� ������ ���������? �� ���� ������ ���� � ���� ���� ����?

����� ���� (�� �� ��)

procedure Node027 begin
  if (is_success(roll_vs_skill(dude_obj,SKILL_CONVERSANT,0))) then begin
     Reply(263);
     NOption(264,Node999,004);
  end else begin
     Reply(267);
     NOption(188,Node999,004);
     NOption(266,Node998,004);
  end
end

���������� ��� ��� ������������� ������ ��������� �� critters.lst � �������� ��������� ����, ���� �� ����� ��������?

����������: 19:35 - 4 ���., 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

>��� ������ ������ ��������� ��������� ����� �������� �� ������ ���������? �� ���� ������ ���� � ���� ���� ����?

roll_vs_skill - ������ ������, ��������� �����. ������ ����� ���� ������� � ��������. ��� ���� �����, ��� ���� ����������� ������.

������-�� ����� ���������� ���� �� ���������� �������� �� Wasteland Ghost.

>���������� ��� ��� ������������� ������ ��������� �� critters.lst � �������� ��������� ����, ���� �� ����� ��������?

�������, �����. ��� ����� ���� ������� pro-�����. � ������� ���� ���� ���������� ������������� (ID). � ��� ��������� �������������� ��������� - ��������, ����������� � �.�.

�����, �� ���� �������� ������� PRO. ������� ������ "������������" �� ����� ����� ���� ��������?

� ��� ����, � ��� �� �������, ����� ������������ ������ ����� - ��� ��� �������� � ������� ���������, ������ � ���������� �������.

����������: 23:56 - 4 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

>>���������� ��� ��� ������������� ������ ��������� �� critters.lst � �������� ��������� ����, ���� �� ����� ��������?

� �����, ��� Jager ������������ ��������� ����. �������� ��������� � ���� - ��� �����, ���, ��������� �����.... ���� ���? ������ ��� � ����? ���� ��, �� ��� �������� ��������� � ����� ���. �� ������ ����� ����� ��������, ���������� � ��� ����� ���������(������), ��������������(������) � �������� ��������.

���� ������� � ���� ������, �� ����� ��� �������.

2 Perceptron:

�� � �����, �� ����������� �� ������ ���� �� �� ���� �� ������� ����� ������� ����������� �  ����������� ����������, ���.... ������ ����� ������ �������� �������� ����� � �� ������������� �������� ������ � ��������� ���������. �� �������� ����� ���� ����� ������������. ��� ������ �������� ��� ������ ��������, ������� ������� �� ��� ������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 0:40 - 5 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Ray
����� ������ ����, �� ���������� � �� ���������, ��� ��� ��������� �����������. �� ���������, �� �����, ���� �������. ��� �� �� "������������" � ����������� ;).

����������: 13:32 - 5 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��� ������� ������ ���������?��� ������ ����� ������ � ����?� ����� ������ �� �������,�.� ������� ������ �������� �������,� ��� ��� ������,� ��� �� ������������ ������.
�������,��� �������� � ������� �����.
����� ���� ����������� ����� ��� ��� ��� ������� ������������ ��� � ������� �����.
� ��������� ����� ������� ��� �����,������ � ���������.��� ��� ������,� ������� ����� �������?
������� � ������� �������..��� � ��������� ������� � �-����(� ���� ��������� �������� ��� ������),� ��� �� �����������?(� ���� ����� ���� �� ����� ������ ������.��� ��� ��� �� ���� �����)  


-----
...������� �������������, ���������� � ��������������..

����������: 21:13 - 6 ���., 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

���� - ��� ������. �� ����� �������� ��� �� �����.
��������� - ���� ��������.
� ������ ������ ������, ��� �� ����� ������ - ���������� �� ��, ��� ��� ������� � ����, ����������� �� ���������� ��������.
������.����� ���. �������� ����� .msg ������ ��������� � ��������� ����� .int � ���. ������ ��� ������������ �-��� ����� ������������� ����������� � ������������. � ������� ������� �� �������� ������������ (����� �� ������������ ����������).
������, ���� ���: Klint the Generous. ����� �� falloutsite.ru. ��� ����� ���������� ������. ���� ���������� ����� ����� � ��� ��� ��������, � �����, ����� ����� ������, ��� ������� ������ ���������.
� ��� ������ ����� ����������� ������� ���� �� ������ ���.

-----
Into The New Year - With A New Vision!
������������ �� ��������, �������� �� ��������, ������� �� ��������, FAQ �� ��������, "�������", fallmods-tutor.

����������: 3:42 - 7 ���., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

��� ������ �� ���� Raven'a �� ���������� �������:


//��� �����
#define NAME 1305 // �� ������ -1 � script.lst
//�������
//�������� (�����_�������,�����_�����) �� (�����_�����)
//�.�. ����� ������� - ������� �������� � ��������� ��� ����� �������
#define Reply(x) gsay_reply(NAME,x)
//���� � ��� gsay_option
#define Option(x,y) gsay_option(NAME,x,y,-1)

procedure Node009;
procedure Node010;
procedure Node011;
procedure Node999;

//���������
procedure start begin
end

procedure talk_p_proc begin
Start_gDialog(NAME,self_obj,-1,-1,-1);
GSay_Start;
 call Node009;
GSay_End;
End_Dialogue;
end

procedure Node009 begin
Reply(1);
 Option(10,Node010);
 Option(11,Node011);
end

procedure Node010 begin
 Reply(2);
 Option(12,Node011);
 Option(13,Node999);
end

procedure Node011 begin
 Reply(3);
 Option(15,Node999);
end

procedure Node999 begin
end

����� ����� ����� � msg �����
{1}{}{Hello, Chosen One}
{10}{}{Yeah. How its going?}
{11}{}{Sorry. No time for chat}
{2}{}{Not bad. Heard you have some troubles with the Enclave?}
{12}{}{Oooh. Nothing serious, really}
{13}{}{Eee. I must be going}
{3}{}{Well, I wish you luck anyway}
{15}{}{Thanks. Bye}

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 10:21 - 7 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�������� ��� ��� � ������� �����:
/* 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 use_obj_on_p_proc;
procedure damage_p_proc;
procedure map_enter_p_proc;
procedure push_p_proc;
procedure timed_event_p_proc;
��������� � ����� ��� ��� ��������� ������� ���������� ��� ���?� �� ����������� �������.��� ��� ���� � �������?
������
procedure Node998;                                      // This Node is Alshhays Combat
procedure Node999;                                      // This Node is Alshhays Ending
��� ���?��� �� ��������� ���,� �� ��� ������ ��������?
������
// The neht lines are added in by the Designer Tool.
// Do NOT add in any lines here.
//~~~~~~~~~~~~~~~~ DESIGNER TOOL STARTS HERE

procedure Node001;
procedure Node001a;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node004a;
procedure Node004b;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure Node011;
procedure Node012;
procedure Node013;
procedure Node014;
procedure Node015;
procedure Node016;
procedure Node017;
procedure Node017a;
procedure Node018;
procedure Node019;
��� ���?
������
// party member default nodes
procedure Node1001;
procedure Node1002;
procedure Node1003;
procedure Node1004;
procedure Node1005;
procedure Node1006;
procedure Node1007;
procedure Node1008;
procedure Node1009;
procedure Node1010;
procedure Node1100;
���?
������
// Cassidy dialog
procedure Node1101;
procedure Node1101a;
procedure Node1102;
procedure Node1103;
procedure Node1104;
procedure Node1105;
procedure Node1106;
procedure Node1107;
procedure Node1108;
procedure Node1109;
procedure Node1110;
procedure Node1111;
procedure Node1112;
��� ��������� � ����� ��� �������..��� ��� ���������?����������� �� ������?
// Cassidy floats
procedure Node2001;
procedure Node2002;
procedure Node2003;
procedure Node2004;
procedure Node2005;
procedure Node2006;
procedure Node2007;
procedure Node2008;
procedure Node2009;
procedure Node2010;
procedure Node2011;
procedure Node2012;
procedure Node2013;
procedure Node2014;
procedure Node2015;
procedure Node2016;
procedure Node2017;
procedure Node2018;
procedure Node2019;
procedure Node2020;
procedure Node2021;
procedure Node2022;
��� ����� ������?��� ��� ���������?
������
//~~~~~~~~~~~~~~~~ DESIGN TOOL ENDS HERE
// The Folloshhing lines are for anything that is not needed to be
// seen by the design Tool


/* Local Variables shhhich are saved. All Local Variables need to be
  prepended by LVAR_ */
#define LVAR_Herebefore                 (4)
#define LVAR_Hostile                    (5)
#define LVAR_Personal_Enemy             (6)
#define LVAR_SHHAITING                    (7)
#define LVAR_FOLLOSHH_DISTANCE            (8)
#define LVAR_TEAM                       (9)
#define LVAR_Cassidy_Offered            (10)
#define LVAR_Cassidy_Knoshhs_Plan         (11)
#define LVAR_Admonished_Cassidy         (12)
#define LVAR_Mentioned_Vault            (13)
#define LVAR_JOined_Party_Before        (14)
��� ��� �� ���������?�� ��� ��������?��� �� �������������?����� ��� ���-���� ��������� ��� ����,���� � ��������� ����?
#define check_bad_area(map, elev)         ((cur_map_indeh == map) and ((elevation(self_obj) == elev) or (elev == -1)))
#define cassidy_doesnt_like_area            ((check_bad_area(MAP_RAIDERS_CAMP2, -1)) or           \
                                          (check_bad_area(MAP_KLAMATH_TOHICCAVES, -1)) or              \
                                          (check_bad_area(MAP_KLAMATH_RATCAVES, -1)) or            \
                                          (check_bad_area(MAP_BROKEN_HILLS2, 1))
or     \
                                          (check_bad_area(MAP_SAN_FRAN_TANKER, 1)) or    \
                                          (check_bad_area(MAP_GHOST_FARM, -1)) or         \
                                          (check_bad_area(MAP_REDDING_MINE_TUNNEL, -1)) or         \
                                          (check_bad_area(MAP_SIERRA_BATTLE, -1)))      // *** finish
��� ���?�� ��� ��� ��������� ��������?�� ��� �������� � ��� ������ ����������?
����� ������� ��� ��� ���� ���� � ����� �� ��������
��� �� ((cur_map_index == map) and ((elevation(self_obj) == elev) or (elev == -1)))?
�� ��� ��� ��������?��� �� ��� ��� ���� ����� ��?
#define cassidy_is_poisoned                    (get_poison(self_obj))
#define cassidy_is_irradiated                  (get_critter_stat(self_obj, STAT_current_rad))
#define cassidy_is_crippled                    ((critter_state(self_obj) bshhand DAM_CRIP_LEG_LEFT)  or \
                                               (critter_state(self_obj) bshhand DAM_CRIP_LEG_RIGHT) or \
                                               (critter_state(self_obj) bshhand DAM_CRIP_ARM_LEFT)  or \
                                               (critter_state(self_obj) bshhand DAM_CRIP_ARM_RIGHT))
��.��� �� ����� ������..����� ����� ������� ������ ������ �� �������?� ������� ���� ����� �������?��� ��� ������?
����� get poison.�������:"int get_poison(ObjectPtr who) " - ������� ������� ���������� �������".��� ��� ������.������� ���������� �� ������� ����.��� ������� ��������� �����?int get_critter_stat�(ObjectPtr shhho, int stat) - ������� �������� ��������������.����� ��� ���?��� ��� ���������?
int critter_state(ObjectPtr who) - ������� ��������� �������.
��� ��� ���������?��� ������ ������� � ������?
bwand  DAM_CRIP_LEG_LEFT)
��� ����� bwand?��� ������ DAM_CRIP_LEG_LEFT,�� �� ����� ����,� �.�?������ ����� ���� ����� or?
#define cassidy_party_member_options      if( party_is_waiting == false ) then   \
                                            NOption(9999, Node1101, 004);       \
                                         party_member_default_options  \
��� ��� �� ���������?��� ��� ������?.��� �� ��� �����?��� ����� ������ ��� ����?
������� ���������
/* Local variables which do not need to be saved between map changes. */
variable Only_Once:=0;
variable Perform_Party_Add:=0;
variable Perform_Party_Remove:=0;
variable Perform_Critter_Float := 0;
�� ��� �������� ��� ����������?
� ��� ����� ����� �����,������������ �������� �� ��� ������� ,� ��� ����� �����.�� ���� �������=))� � �������� ������� ������ �� ����������.������� ����  �� ������ ������� ��� ��� ����,� ��� ��� �������� � ����.
������� �������.


-----
...������� �������������, ���������� � ��������������..

����������: 22:32 - 7 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� �� �����, �� �������� ��������. ����� ������� ����� ���� �� �������(��� ����� ���� ���� ������� ����� ����� ����������������//���������� ��//), �� ��������. ��� ������ ���� ������� - "�������"

>>procedure timed_event_p_proc;
��������� � ����� ��� ��� ��������� ������� ���������� ��� ���?� �� ����������� �������.��� ��� ���� � �������?

�� �����, ��� ������ ���� � �������. ������ - ��� ������� �� ���������� ��� ���. ���� �� ��� ����� ���������������, ������ - ���. �� ������ ����� �� ����. ����� �� ���� �������� ����� ���������� � � ������ ��������. ������ ��� ��� - ������ ��������� ������� (�� ������ � ��������, ��� �� ������� � ����������� ��� � ����!!!). ��� ����������������� ������ ����� �����. ���������� ��������� - ��� �������� �������, � ���, ��������� � �.�.

>>  procedure Node998;                                      // This Node is Alshhays Combat
procedure Node999;                                      // This Node is Alshhays Ending
��� ���?��� �� ��������� ���,� �� ��� ������ ��������?
������

��� ������� ���� �������� �� ��������. ���� ��� � �� ���. ������ ������������ ������ �������� ���������, ��� ������������� ������� ��� NodeXXX. ��� ������� ��� �������� ������� ����. � ���� ����� ���� ��� ������.
� ������ ������ 998 - ��� ������ �������� �� ���������������(����������� ����� ���. �� ����)
node999 - ������ � �������� �� ����� �������. � ����� �� ����� ������� ����� �������� ����� ���� ��� ������ ������ ����� ���������.

>>procedure Node1100;
���?
������

��� ������ ���� �������� �� ������. ���� ��� �� ���, �� ��� ���� - ��� ���������� ��������.

>>procedure Node1112;
��� ��������� � ����� ��� �������..��� ��� ���������?����������� �� ������?

��� � ��� ������, ���� ����� ���� � �� ��� �������. �� ������� �� ���� ��� �� �������� �:

procedure Node001;
.............
procedure Node001
begin
����
end

� ������ �� ����� �������, ������� ���� ������ ����.
��������� ��� ������. �� ���� ���������� �������, � ����� �� �������� ���� ����� ���(����� ��������)
�������� ���
call nodeXXX();

����� ����� ���������� ���������� ��������������� ���������.

>>��� ����� ������
�� ��-�� ����, �� ���������� �� ������� ��� ���. ������� �� ������� ��� ��������.

>>#define LVAR_JOined_Party_Before        (14)
��� ��� �� ���������?�� ��� ��������?��� �� �������������?����� ��� ���-���� ��������� ��� ����,���� � ��������� ����?

������-�� define - ��� ��������� �������������. ���������� ����������� �������� ��� ������� ��������� ��������. �� ������� ����������� ������� � �������� � �� ������ :
��������
#define Just 17

������ � ������ ��� ����� just � ������� �� 17. (������������ ���������� �� ������ ����).
��� �����, �����.... ��� ����� ��������, ��� �� ������� ����� � ��� ����. ����� �� �����.

>>��� �� ((cur_map_index == map) and ((elevation(self_obj) == elev)

cur_map_index - ������� ������������ ����� �������, ��� ��������� ����. elevation(self_obj) - ������� ������������ ����, ��� ��������� �������� �������. ���������� ��� �������� ����� � �����.

>>��.��� �� ����� ������..����� ����� ������� ������ ������ �� �������?� ������� ���� ����� �������?��� ��� ������?

� ���������, ��� ��������� ������. � ������ ��������� ����� ������������� ������ ��������. "�������" - ������� ���������� �������. �� �������� �����

>>(ObjectPtr shhho, int stat) - ������� �������� ��������������.����� ��� ���?��� ��� ���������?
int critter_state(ObjectPtr who) - ������� ��������� �������.
��� ��� ���������?��� ������ ������� � ������?

��� - ��� ���? ������ � ���� ����� ��� ��� ��� ����� ���������� � ����. ������� ��������� - ������, ��� ������� ������ �������� ��������������� ������ �������. ����� ����� ������� ��� ��������. �������� critter_state ������ �������� ����� �� �������������. ����� � ������ ���� ����� �� ���������. ������:

�������� � ���� �������� ���. = 120, �����

if (get_critter_stat(self_obj, STAT_current_rad) > 100 )
begin
.....
end

����������. ���� ���. = 90 - ���.

>>variable Perform_Critter_Float := 0;
�� ��� �������� ��� ����������?

� ��� �� �����, ���� ��������� �������� ����� ����.

�Ѩ

P.S. � ������, ���� ��� ���������� ������ ���������������� � ���������� ������ ������. ���� ����� ���� ������ 90% �������� �� �����. � ��� ��� ���� �������� ����� �� �����. � �� ��� ����� ����� ����������������. ������ ��� �����. �� � ����� ������� ������� ����� ���� �� �����.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 23:26 - 7 ���., 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

2 binyan:
�������� �� ��������. ��������������� ����������.

-----
Into The New Year - With A New Vision!
������������ �� ��������, �������� �� ��������, ������� �� ��������, FAQ �� ��������, "�������", fallmods-tutor.

����������: 23:58 - 7 ���., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

����, �� ���� ������� ���� ����������� �������� �� �������

1.�������� ��������
procedure - ���������, ������� ����� ��������������.

procedure Node998;                                      // ������ ����� �� �������
procedure Node999;                                      // ������� ����� �� �������.

���� ���������, ������� ������������ ��������� � ���������
� ������� � ���������, ��� ��� ��� ������ ������� ��� ����.
���� �������� ������� - ���� ��� ��������, ����� �������� ������
� ��� ��������� ��� �������� �����, ��� ��� ���� ��� ������ ��� ���������.

2.�������� ����������
#define LVAR_���     (�)

���� - ��������� ����������, ������������ ��� ��������� �������� �������
� ������ � �����.
���� �=5 ��, ��� �������� ������������� ����� ���������� ��� (��� �� �����
�������, �� ���� ���������� �������� ������ �������.)
����� � ����� ����� (� �������) �� �����������.

3.����� ���� ��������.
variable Perform_Party_Add:=0;
�������� �������� ������ ��� ���������� �������, ���� ������ ������� ���������, �� �������� �� �����������. �������� ���������� �� ����. ���� �������� ���, �� �� �� ����� ���� �� ����� �� �������������� ����� ����������.

4.����� ���� �������
������������, ���� �� ��������� ���������, �������� ��� ����������
������� ������� �� ����� ������� ������. �.�. �������� ������ �������
��������� ����� ������� �� ������� �������� ������ �������.
#define check_bad_area(map, elev) ......
#define cassidy_doesnt_like_area            ((check_bad_area(MAP_RAIDERS_CAMP2, -1)) or ...
������ ����� ���� ������� �������� ���������� �� ��� ��� ���� �����,
�������� ��� ����� ����������� ��� �����.
������ �������� ��� �����, ��� ��� ���, � ��������, ������ ������� ��������.

��� �� ((cur_map_index == map) and ((elevation(self_obj) == elev) or (elev == -1)))?
�� ��� ��� ��������?��� �� ��� ��� ���� ����� ��?
*
cur_map_index == ���������� ����� �����
elevation(self_obj) == ���������� ����� ������ �����
elev == -1 ����� ������� (������ ���� 0,1,2)

������� ���������� �� ������� ����.��� ������� ��������� �����?int get_critter_stat�(ObjectPtr shhho, int stat) - ������� �������� ��������������.����� ��� ���?��� ��� ���������?
*
�������� ���� �������������� �������� ������� ��� ����� ������, ����� ������� �� ������ � ��������. � ������ ������������, �������� ���� ���� ��� �� ������.

int critter_state(ObjectPtr who) - ������� ��������� �������.
��� ��� ���������?��� ������ ������� � ������?
*
����� ������� ������ Ray.

bwand  DAM_CRIP_LEG_LEFT)
��� ����� bwand?��� ������ DAM_CRIP_LEG_LEFT,�� �� ����� ����,� �.�?������ ����� ���� ����� or?
*
����, � �������, ���� �������, �� ����� ����������� ��� ������� �� ������, �� ��� ���� �������� ������_������_���� ��� ������_�����_���� (�������� �� ����� �����), ������_������_����.... (�� ��������)

� ������, ����� ������ �������� � ����. ��� ������ ������ �����������. ����� � ������� � ����������� � �������. ����� ����� ������ �������� - ����� �����. � ���������� �������������� ������.

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 14:27 - 8 ���., 2005
Jager
������������

�����������: ���� 2005

�����: 38 ���������

������:

roll_vs_skill - ������ ������, ��������� �����. ������ ����� ���� ������� � ��������. ��� ���� �����, ��� ���� ����������� ������.




� ������-������ ������� ����� ����������?
� ��� ����, ��� ���� ����� - ������� �������� ������. � ��� ��� ��������? �� ������ ����� ��� �������� �� ������...


Ray ��� ��������� �����. � �� ����� ���� ����� ����� ��� ���. ��������, � ������ ������ ������, ������� ���� � ����. ��������� �� � �����, ��� ����� ���� 500 pro ���� pro ������ � ���������������� ������?
��� ��� ���� �����-�� ����������� ��� "������ � ������� ������"? ��� �� ��� � ����������� ��������.

����������: 16:33 - 8 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������� ����� ��������, ��� ���� ��������. � ��� ����������� ��������(��������������) ���������. ��� �� �����������, ����. �����������, ����������� � �������, ����� � �.�. ������� ������� ������������� ���� ������. ������ ����������� � ������. �� ������ ����� ���� ���������� ���������(� ����������� ��������) � ��������� � ��� ������ �������. ����� ��������� � ��� ����� ������, �� �������������� ����. �� ��� ������������� ��������� ��������� ������ ��� ����. ���������.
��������, ���� ���� ��� �������, ��� � ������ � ���� ��������� ���������� ����. �� ������������ ���������� ���������(���������). � ���� ���� ����� ���-�� �������� �� ������ ������� ���. (������� ����), �� ��������� ��������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 17:56 - 8 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Jager �
��������������� ���������� ������� ���� � �������� ��� ���, � ����� ��, ��� ����� � ������� "���������". � �� �������� ������, ��� roll_vs_skill ������ �� ����������. ������� ������� ����� ��������.

����������: 13:02 - 9 ���., 2005
Jager
������������

�����������: ���� 2005

�����: 38 ���������

� �, ��������, ���, �������, ��� ��� ������ �� ����������?
� ����� ������, ����� �� �������, ��� ��� ����� �������� ������, ����������� ������� �� ������� �������� �����-��.
������� ������, �������� ���.

������, ���� �����-�� ������ �� ��������� ������������, � ������ �����.
� ������, ��� ������� ��� "�� ���������� ������".

����������: 18:52 - 9 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
� ������-������ ������� ����� ����������?
� ��� ����, ��� ���� ����� - ������� �������� ������. � ��� ��� ��������? �� ������ ����� ��� �������� �� ������...

��� ��������.

�� ��� ��� ����� ���������� � �����. � ������� ����������� ����� �� ���������� �� ���, ����� ������� �������, ��� �������, � ��������.

����������: 9:22 - 10 ���., 2005
Jager
������������

�����������: ���� 2005

�����: 38 ���������

���������.
��������� ������, ��������

procedure Node027 begin
  if (is_success(roll_vs_skill(dude_obj,SKILL_CONVERSANT,0))) then begin
     Reply(263);
     NOption(264,Node999,004);
  end else begin
.............................

��� �������� � ����������� (�������� �� ���������������)

int roll_vs_skill(ObjectPtr who, int skill, int modifier) - ��������� "������ ������" �� ������ (skill)
���������:
who - ��������� �� ������
skill - ����� ������������ ������ (��. ����������) ���������� �������
modifier - ����������� �������� ������, ������������� �������� ��������� ����������� ������, ������������� - �����������
������������ ��������:
ROLL_CRITICAL_FAILURE (0)
ROLL_FAILURE (1)
ROLL_SUCCESS (2)
ROLL_CRITICAL_SUCCESS (3)

��� �������� ��_�������, ��

boolean is_success(int val) - ���������, �������� �� ��������� "������ ������" ��������
���������:
val - ��������� "������ ������"
������������ ��������:
TRUE - ���� ��������� ��������
(val == ROLL_SUCCESS ��� val == ROLL_CRITICAL_SUCCESS),
����� - FALSE

� ����� �����, �� ����� �� �� ��� �� �������� �� ��� ������� ������ (��� ��������, ��� � ���, ��� � ����������� �� ���� �� ���� �����), � ������

� ����� ������, ����� �� �������, ��� ��� ����� �� �������� ������, ����������� ������� �� ������� ������������ �������� roll_vs_skill �����-��.
��� ������� �������� ������ ����� �� ������ �� ����� roll_vs_skill?


����������: 12:27 - 11 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���������� ����������,��� ����� ������������ ���������?
#define NAME 1387
#define Reply(x) gsay_reply(NAME,x)
#define Option(x,y) gsay_option(NAME,x,y,-1)
procedure Node001;
procedure Node002;
procedure Node999;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure party_member_count;
procedure start begin
end
procedure talk_p_proc begin
Start_gDialog(NAME,self_obj,-1,-1,-1);
GSay_Start;
 call Node001;
   call Node008;
GSay_End;
End_Dialogue;
end
procedure Node001 begin
Reply(1);
Option(2,Node002);
Option(3,Node999);
end
procedure Node002 begin
if party_member_count<3 then
party_add(self_obj);
else
procedure Node010 begin
Reply(15);
Option(13,Node999);
end
end
procedure party_add begin
procedure Node008 begin
Reply(4);
Option(5,Node003);
Option(14,Node009);
Option(10,Node999);
end
procedure Node003 begin
Reply(6);
Option(7,Node004);
Option(8,Node005);
Option(9,Node006);
Option(11,Node007);
Option(10,Node999);
end
procedure Node004 begin
Reply(12);
Option(11,Node007)
Option(13,Node999)
end
procedure Node007 begin
procedure Node008 begin
end
end
procedure Node005 begin
............//����� ��������� (������� �����)
end
procedure Node006 begin
inven_unwield(self_obj);
end
procedure Node009 begin
Reply(13);
party_remove(self_obj);
end
end//����� ���������  party_add


-----
...������� �������������, ���������� � ��������������..

����������: 18:31 - 11 ���., 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

2 Jager:
>� ����� ������, ����� �� �������, ��� ��� ����� �� �������� ������, ����������� ������� �� ������� ������������ �������� roll_vs_skill �����-��.
>��� ������� �������� ������ ����� �� ������ �� ����� roll_vs_skill?
�����, �������, ������. ������� ���������� �������� � �������� �� 0 �� 3. ���. �������� ����� (����������������) 1+skill/100. ����� �������������, ����� �� ����������������, ����������.
is_sucess ���������� 1, ���� �������� ����� � �������� �� 1 �� 2, is_critical - �� 0 �� 1 � �� 2 � ����.
����������� ������� ���.


(���������� ��  23:37 - 11 ���., 2005.)


2 binyan:

#define NAME 1387
#define Reply(x) gsay_reply(NAME,x)
#define Option(x,y) gsay_option(NAME,x,y,-1)
procedure Node001;
procedure Node002;
procedure Node999;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure party_member_count;

// ��� ����������� ��������� - Node999, party_member_count?

procedure start begin
end
procedure talk_p_proc begin
Start_gDialog(NAME,self_obj,-1,-1,-1);
GSay_Start;
call Node001;
� call Node008;
GSay_End;
End_Dialogue;
end

procedure Node001 begin
Reply(1);
Option(2,Node002);
Option(3,Node999);
end

procedure Node002 begin
if party_member_count<3 then
party_add(self_obj);
else

// ��� else?

procedure Node010 begin
Reply(15);
Option(13,Node999);
end

end

// ��� �� end?

procedure party_add begin

// ��� ��������� party_add?
// ������ ����������� ��������� ������� ��� ���� �� �����������?
// ��� end?

procedure Node008 begin
Reply(4);
Option(5,Node003);
Option(14,Node009);
Option(10,Node999);
end

procedure Node003 begin
Reply(6);
Option(7,Node004);
Option(8,Node005);
Option(9,Node006);
Option(11,Node007);
Option(10,Node999);
end

procedure Node004 begin
Reply(12);
Option(11,Node007)
Option(13,Node999)

// ��� ����� � �������?

end

procedure Node007 begin

// ��� end?

procedure Node008 begin
end

// ������ Node008 ����������� ��� ����?


end

// ��� �� end?

procedure Node005 begin
............//����� ��������� (������� �����)
end

procedure Node006 begin
inven_unwield(self_obj);
end

procedure Node009 begin
Reply(13);
party_remove(self_obj);
end

end//����� ��������� �party_add
// ��� �� end?


==============================================
� ������ ��, ��� ���������������� � ����
(������ ������-�� ������ �� ������ ���������������
inven_unwield(self_obj);
):

#define NAME 1387
#define Reply(x) gsay_reply(NAME,x)
#define Option(x,y) gsay_option(NAME,x,y,-1)
procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node006;
procedure Node005;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure Node999;
procedure party_member_count;

procedure start begin
end

procedure talk_p_proc begin
Start_gDialog(NAME,self_obj,-1,-1,-1);
GSay_Start;
call Node001;
� call Node008;
GSay_End;
End_Dialogue;
end

procedure Node001 begin
Reply(1);
Option(2,Node002);
Option(3,Node999);
end

procedure Node002 begin
if party_member_count<3 then
party_add(self_obj);
end


procedure Node010 begin
Reply(15);
Option(13,Node999);
end


procedure Node008 begin
Reply(4);
Option(5,Node003);
Option(14,Node009);
Option(10,Node999);
end

procedure Node003 begin
Reply(6);
Option(7,Node004);
Option(8,Node005);
Option(9,Node006);
Option(11,Node007);
Option(10,Node999);
end

procedure Node004 begin
Reply(12);
Option(11,Node007);
Option(13,Node999);
end

procedure Node999 begin
end

procedure Node005 begin
end

procedure Node006 begin
end

procedure Node007 begin
end

procedure party_member_count begin
end

procedure Node009 begin
Reply(13);
party_remove(self_obj);
end


==============================================
������� ����������� ���������� � ����������, ������ ������ �������������� � ���������, ��� ���� ��������� ������ ������ ����������� �� �����.

(��������������(�) Perceptron - 23:42 - 11 ���., 2005)

-----
Into The New Year - With A New Vision!
������������ �� ��������, �������� �� ��������, ������� �� ��������, FAQ �� ��������, "�������", fallmods-tutor.

����������: 23:02 - 11 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

#define NAME 1387
#define Reply(x) gsay_reply(NAME,x)
#define Option(x,y) gsay_option(NAME,x,y,-1)
procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node006;
procedure Node005;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure Node999;
procedure party_member_count;
//��� ����������� �����_���?������ �� �����������?
procedure start begin
end

procedure talk_p_proc begin
Start_gDialog(NAME,self_obj,-1,-1,-1);
GSay_Start;
call Node001;
 call Node008;
GSay_End;
End_Dialogue;
end

procedure Node001 begin
Reply(1); //���� �������
Option(2,Node002);
Option(3,Node999); //�������� ���� �������
end

procedure Node002 begin /���� ������� ������ �������,�� ���������� �� ���������
if party_member_count<3 then /���� ������ � ������� ������ ���,��
                   
party_add(self_obj);// ���� ��������������,� �������.� �����?�� ������ ���-�� �������..
end


procedure Node010 begin //��� ��������� ���������� ������ �����,����� ��������� �����_��� ����������.��� ����?
Reply(15);
Option(13,Node999);
end


procedure Node008 begin
Reply(4);
Option(5,Node003);
Option(14,Node009);
Option(10,Node999);
end

procedure Node003 begin
Reply(6);
Option(7,Node004);
Option(8,Node005);
Option(9,Node006);
Option(11,Node007);
Option(10,Node999);
end

procedure Node004 begin
Reply(12);
Option(11,Node007);
Option(13,Node999);
end

procedure Node999 begin//����� ��� ��� ����� ���?��� �� ��� � ������ ������������.��� ��� ������ �������� ����� ������ ����� ���?
end

procedure Node005 begin
end

procedure Node006 begin
end

procedure Node007 begin
end

procedure party_member_count begin
end

procedure Node009 begin
Reply(13);
party_remove(self_obj);
end
�� �� ��������,���� � ����-�� �� �������.��-���� ������� ���������� �� �� ����.


-----
...������� �������������, ���������� � ��������������..

����������: 11:34 - 12 ���., 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

party_add ������ ���. ������ �� ������ �� ������������� �� ���-������ ������.

>/���� ������� ������ �������,�� ���������� �� ���������
if party_member_count<3 then /���� ������ � ������� ������ ���,��
// ���� ��������������,� �������.� �����?�� ������ ���-�� �������..


� ������ �� ����� ����� ����� ������� ���������:

procedure Node010 begin
Reply(15);
Option(13,Node999);
end

����� ������ ����� ��������� ��������� ������? � ��� �����? ��� � C# ��� �������?
���������� �������� ���:

begin
Reply(15);
Option(13,Node999);
end

>//��� ��������� ���������� ������ �����,����� ��������� �����_��� ����������.��� ����?

�������� � ������ ���, ��� ������ ����� ��������� ������ ��������� ������.

>/����� ��� ��� ����� ���?��� �� ��� � ������ ������������.��� ��� ������ �������� ����� ������ ����� ���?

begin end - ������� ����������� ������. ������������ �� ���� ������ ����������������. ��� ��������� �����������.

� ���� ��� ������� ��� fallmods-tutor?

-----
Into The New Year - With A New Vision!
������������ �� ��������, �������� �� ��������, ������� �� ��������, FAQ �� ��������, "�������", fallmods-tutor.

����������: 12:17 - 12 ���., 2005
Jager
������������

�����������: ���� 2005

�����: 38 ���������

Perceptron, �������.

(��������������(�) Jager - 14:16 - 12 ���., 2005)

����������: 14:16 - 12 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������� �� ������=))
������,����� ��������������� party_add?

-----
...������� �������������, ���������� � ��������������..

����������: 22:28 - 12 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

???


-----
...������� �������������, ���������� � ��������������..

����������: 14:48 - 14 ���., 2005
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

������ ��� ������� ���� �� ���������� �������. ���� ������ ������� ���� ��������� - �������� �� ��� ���� �� ����������� ������.
� �������������� �� ����.

����������: 0:53 - 15 ���., 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

���� ��� ��� �������:

1. ����� �� ��� ������ �� exit grid ������� �������� ���� ��� ��������: �� ������ ����� ��� �� warldmap ?

2. �������� ��������-�������� ��������� �� �������� ��������� ��������� ?

����������: 16:28 - 2 ���, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���.

����������: 9:43 - 3 ���, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

����� ������: � ������� "������������" ����� ���� scenepid.h � ����� �������� Check_Car, � � ���������� �������� ���� (v1.02) ������������ ������ Check_Create_Car �������� � ������������ scenepid.h ���. � ������ scenepid.h �� v1.02 ����� ��������� ����������.

� � ��� �� ����� ���� ������� ���� scenepid.h ? ������� � ������� � ���������� Check_Create_Car �� Check_Car ? ��� �� ������ ���� � scenepid.h ?

����������: 8:12 - 6 ���, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Aman ������ � �������. ���� ���� �� ��� ��������� ������� ������ ���������. � ���������, ��������� ��� ������� ����, �� ���� ������ ���������� ������, �������, �.�. �������� ���������� ������ ��� ������ �������. ������ ��� ������� ����� ������, ������� �������� ������ ������� � ���������� ���. � ������, ���� �� �������� ����� ���������, �� ����� � �������� ������ � ������ ��������� �������� 1.02d �� Haenlomal. ��� �� �����.

����������: 9:44 - 11 ���, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

���, ��� ��� ���! ��� ��������� �������� 1.02d �� Haenlomal'a � ����, �� ��������� �������� �������. � ���� ��������� scenepid.h ������� � "������������" ���-�� ���� �������. ���� �� ��� ������� ��� �� ����� ������ ��� ���������� "���� ����� �� BIS".

����������: 2:38 - 13 ���, 2005
B A Z i K
������������

������: ����, �������
�����������: ���. 2004

�����: 36 ���������

������ ����!

��� � � ����� ��������� �� �������. ���� ��� � ���. ������ � ��� �����, ������ ���� �������������. ������ ������� - ���� � ������, ������ ��� ���� ������. �� ������ ������ ���������� ����(����� �����). �������� ��(������ ��� ��������������) ������� ���, ����� ���� �� ��������� ����� �� ������ ����� ��� ��������� �������� �� ������. ������ ��� ����� �����, � ������� ����� �� ������ �������� ���������:

if (map_var(0 == 0) then begin
� � � � � � � set_map_var(0, 1);
end
else begin
� � � � � � � set_map_var(0, 0);
end

�� ���� ��������� ����� ����� �������\�������. ����� ������� ��� ������ �� ������ ������ �������� ������ �������, � ����� import\export, �� �������� �� �������� �����. � ��� ������ �������-�� ������. �� ����� ���������� ��������� ��� �� ��� ����� �����? map_update ��������� �� �����, � ������ ����������� ��� critter_p_proc, ������������ "�����������" ��� �������� ����

������ ��� ���(�� ������ ������). ��� ������� �� �����, ����� �����, ����� ��������������� � 1. ������� � ������� �����, ����������� �������, ���� ������ �� ������ ������� �����, ��� �� ����� ����� �����-�� ������, ��� ��� ����� �������(������ ������������) ����� ��������� ��������� ����� �� ������ ������, � �������������� �������\������� ��?


-----
B@ZiK was here!

����������: 8:59 - 18 ���, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

����, ����� ������� ��� ��� ����� ����� ���������� ����-���������.

� ������� �����:
���:
 
export variable door1;
export variable door2;


� ������� door1:
���:
 
import variable door1;
import variable door2;

procedure start begin
       door1 := self_obj;
       if (obj_is_open(door2) and not(obj_is_open(door1)) then obj_open(door1);
       if (not(obj_is_open(door2)) and obj_is_open(door1) then obj_close(door1);
end

procedure map_enter_p_proc begin
       door1 := self_obj;
       if (obj_is_open(door2) and not(obj_is_open(door1)) then obj_open(door1);
       if (not(obj_is_open(door2)) and obj_is_open(door1) then obj_close(door1);
end

procedure map_update_p_proc begin
       door1 := self_obj;
       if (obj_is_open(door2) and not(obj_is_open(door1)) then obj_open(door1);
       if (not(obj_is_open(door2)) and obj_is_open(door1) then obj_close(door1);
end


� ������� door2:
���:
 
import variable door1;
import variable door2;

procedure start begin
       door2 := self_obj;
       if (obj_is_open(door1) and not(obj_is_open(door2)) then obj_open(door2);
       if (not(obj_is_open(door1)) and obj_is_open(door2) then obj_close(door2);
end

procedure map_enter_p_proc begin
       door2 := self_obj;
       if (obj_is_open(door1) and not(obj_is_open(door2)) then obj_open(door2);
       if (not(obj_is_open(door1)) and obj_is_open(door2) then obj_close(door2);
end

procedure map_update_p_proc begin
       door2 := self_obj;
       if (obj_is_open(door1) and not(obj_is_open(door2)) then obj_open(door2);
       if (not(obj_is_open(door1)) and obj_is_open(door2) then obj_close(door2);
end


������ ������� � ���, ��� ������� ���_������. �������� fade_in/fade_out. ����� �� ����� ��� ������ ����������...


(���������� �� 10:46 - 18 ���, 2005.)


������ ������: ����� ���� ������� ����� �������� ����� �������? ������ �� ����� exit grid?

����������: 10:44 - 18 ���, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������ ���� ��������, �������� �������.... ����� ��������, ��� �� �� ������ ����� ���������. � �.�. � �.�. ������, ��� ���-�� ����� ���� ��� ��� �������, � �������� � ��������� �������. ��� ��������� ��� ������� critter_p_proc. ������� � ������ �������� ��� ��������� ����� ������� � ��������, ��� ��� critter_p_proc. �� � ��� ��� �� ��������. ������ ��� � ���, ��� ����� import ������� ������ ����. �� ����� � ������� ����� ���� �� ������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 17:27 - 18 ���, 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

to Ray
��� � �� ����� ���������� ���������� ������ ������������

to B A Z i K
���� ����� ������������ ������ critter_p_proc ��� ������� - ������������ timed_event_p_proc. ����������� ������ - ����� ���. ��������� ��� ����� �� map_enter_p_proc ������� �������.



-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 23:28 - 18 ���, 2005
B A Z i K
������������

������: ����, �������
�����������: ���. 2004

�����: 36 ���������

2WG:
>>����, ����� ������� ��� ��� ����� ����� ���������� ����-���������.
�� ������ �� ��� �����... �� ��������� 6 �������� ������ + 3 ��������.
������������ ����� ������� � ������� ����� ��� ������ ����, �� ����� ��� ���������, � �������� ����� �������� ��� ���� ����. ��... ���� ��������� ��-�������.

����� �������� ����� ������� �� ����� �����\������ ������ �� ������� �����.
��� ������� ����������� �� ����, ������ ��� ������ ����� ���� ������ �� ������ ������� �����.
�� ���� ��� ����-��������� ������� �� �� ���� ������ �� ��������� ������ ����� ��� ����� ����.

>>������ ������� � ���, ��� ������� ���_������.
>>�������� fade_in/fade_out.
>>����� �� ����� ��� ������ ����������...
���-�� �� ���������� � ���� �������� ���_������� :\ ����� � � gfade_in\out.

>>������ ������: ����� ���� ������� ����� �������� ����� �������? ������ �� >>����� exit grid?
����, ����� ������� �������� �������� ������ �����. ����� � ������� ����� �����-�� ���. �������� ��� ��������� ���� ���������. ���-�� fade_in c �����. ��� ������� ������ ���������� �����.

2Tehnokrat: � ����� ���� ��������� ��� ����������� ������?

-----
B@ZiK was here!

����������: 8:56 - 19 ���, 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

2 B A Z i K

������, � �� ����� �� ������� ����� � ������������ ��������� ������? ���� 1 ������� � bit_1==1 � ����������(�,�) �� �������, ����� �������. ����� 1 ������ ������ � 3 ��������: ����� 4 �������.

� ������, ���� ��� ����� �� ����� �����, �� ������� ��������, ������ ��� ���������, � ���� ������� �������� � critter_p_proc � ������� ������ ���������. ���� ����� ����� �������� �����, �� ����� - ��������. ����� �� ��� ����� � ����� �������. ����� 1 ������ ������, ���� ��� � 3 ��������: ����� 5 ��������.

� ��� ����� ����������� ��� � ������� ����� �����.
���� 1 ������� � ������� �����, �� ��������� ����� ���� � ����� (�,�), ��� ������ �� ������, �� �������� ���� � ����� �� ������ ����. ����� �������� ����� ��� ���� �������� ��� ��������.  
����� 1 ������ ������.

������� ��������

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 12:52 - 19 ���, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Tehnokrat [������ ������� � ����������] ��� ���� �����. ��� ���� �� ������. �-��! ��� �� ��� ������!

2B A Z i K
������������ ������� ����������. � ������: � ���_����� ������������ ����� ���������� �������, ������� ������ ����� � ����� �������� ��������� �������. ���-�� ���� �������� :). � � ���� ��������� �����, ����� �������_�_����. ��� ��������� ������� - �� ���� :). ������ ������ ������� ���, �� �� �� ��� �������� ��������� ������� ;).

����������: 14:09 - 19 ���, 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

to Wasteland Ghost
�����, ���� ������ �� ����������� ������ ������ "� ����"

to B A Z i K
�������� ��� ��� ��������:

procedure map_enter_p_proc
begin
 add_timer_event(self_obj, 1, 1);
end

procedure timed_event_p_proc
begin
 if fixed_param==1 then
 begin
   /* ����� ����� ��, ��� ���������� ������� � ������*/
   add_timer_event(self_obj, 1, 1);
 end
end

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 23:51 - 19 ���, 2005
B A Z i K
������������

������: ����, �������
�����������: ���. 2004

�����: 36 ���������

2Tehnokrat:
�� ��������, �� ���������� ����� ������ ��� ����-����, ��� ��� ������� ����� ��������� ������, �� � ���� ��� �� �����. ����� ��� � ���� �������� � timed_event_p_proc �� ������ ��������� ����� �� ���������� �������. ����������, ��� ��� ������ �� ������ ������� ����� ����������� �� ��������� ���������� ������� (����� ������ ��� ����� ���_�������).

��������, � ����� �� ��� �������� ���� ����� ������� ����������, � ������ ����� �������, �� ��� ���...
����� ��� ����:

procedure timed_event_p_proc
begin
� �if (fixed_param == 1) then begin
if (map_var(2) == 1) then begin
obj_open(self_obj);
add_timer_event(self_obj, 1, 1);
end
end
end

procedure use_p_proc
begin
if (map_var(2) == 0) then begin
set_map_var(2, 1);
end
else begin
set_map_var(2, 0);
end
add_timer_event(self_obj, 1, 1);
end

procedure map_update_p_proc
begin
� �if (map_var(2) == 1) then begin
obj_open(self_obj);
end
end

procedure map_enter_p_proc
begin
add_timer_event(self_obj, 1, 1);
if (map_var(2) == 1) then begin
obj_open(self_obj);
end
end

������� ����� critter_p_proc ������ ��������, ��� �������� ��� � ����� ����������. ������ ��������, �������, �� ��� ������ �� ������ ������� ����� ����� ����������� ���-�� ����� ������� ����� ������ ������. ����� ������ ����� ��� ����� �����������, � ��� �� �����������. �� ��� ������ ����� ���� � �� ���������� �� ������ �������� ������ ������������� ���� �� �����.

�.�. �����, ��� ������� � �������������� � 24 ����. � ������ ������. ���, ��������� ���������


-----
B@ZiK was here!

����������: 22:02 - 20 ���, 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

to B A Z i K
�������� ��������� ������ ��������� � ����� ������, ������ ���������� ���������� �����:

#define DOOR1_ELEV � � �0 // �������, �� ������� ��������� ������ �����
#define DOOR1_TILE �24331 // ����, �� ������� ��������� ������ �����

#define DOOR2_ELEV � � �1 // �������, �� ������� ��������� ������ �����
#define DOOR2_TILE �17112 // ����, �� ������� ��������� ������ �����

procedure start;
procedure map_enter_p_proc;
procedure use_p_proc;

variable dpid;

procedure map_enter_p_proc
begin
�dpid := obj_pid(self_obj);
end

procedure use_p_proc
begin
�if obj_is_open(self_obj) then
�begin
� �if elevation(self_obj)==DOOR1_ELEV then
� � �obj_close(tile_contains_pid_obj(DOOR2_TILE, DOOR2_ELEV, dpid));
� �else obj_close(tile_contains_pid_obj(DOOR1_TILE, DOOR1_ELEV, dpid));
�end
�else
�begin
� �if elevation(self_obj)==DOOR1_ELEV then
� � �obj_open(tile_contains_pid_obj(DOOR2_TILE, DOOR2_ELEV, dpid));
� �else obj_open(tile_contains_pid_obj(DOOR1_TILE, DOOR1_ELEV, dpid));
�end
end

(��������������(�) Tehnokrat - 18:16 - 21 ���, 2005)

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 12:52 - 21 ���, 2005
B A Z i K
������������

������: ����, �������
�����������: ���. 2004

�����: 36 ���������

��������� ������� ����������� �� ��������� �������� �� ����������. ���������� 3 ������� ��� ������ � ��� ��������. ������������ ������ � c������. � ������� ����. �.�. �� ���� � ���������.
���� ������� �� ������ � ����!


-----
B@ZiK was here!

����������: 8:16 - 23 ���, 2005
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

������ ����� ������.
����� �� ������������ ��� �� "�����������" ���� (��������� ��������) �� ���������� � ����������� �������, � � ������� ����,  ��� ��� ���/���?

����� ��� ���� ��� �� 10-� �������� ��� ����������� �� ��������?

����������: 20:34 - 23 ���, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���. �������� ��������� ����� ������ � ������� ������� � ������ ��� ������� ����� pickup_p_proc.

����������: 8:09 - 24 ���, 2005
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

��, ����.

����������: 0:12 - 25 ���, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������, ��������� ��������� ��������� ������. �������� � ���� ����.

����������: 8:15 - 25 ���, 2005
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

�� - ��� ��� ������ ���� ��� �������.

����������: 23:51 - 26 ���, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������� � ������.�������� ��������������,���������� ������� ������.
������� ������.�� ����������������.
������� ������ � ����,������� ��� � ����.
����� ������ �������� ������ � ��������.
�������!!������ � ����...
������� � ��������(� �������� ������ ���������),��������� � ��� ������.� ��� �� �������?����� ��� ������ ���������� ����.�� ���� ������-�� �������,� ��� ������ � ����� ��-��.
��� ��� � ����������,��� � ���� �� ������ � �������?
����� ��� ������ �����?
��� ������ :

#include "..\headers\command.h"
#include "..\headers\define.h"
#include "..\headers\myhead.h"


#define LVAR_PARTY_MAN (0)
#define LVAR_talk_pistol (1)
#define LVAR_have_pistol (2)
#define NAME 1461


#define Have_pistol ((obj_carrying_pid_obj(dude_obj,PID_10MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_14MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PLASMA_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_ALIEN_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_223_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_NEEDLER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PK12_GAUSS_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_YK32_PULSE_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_MAGNETO_LASER_PISTOL)))
(��� �� � ����� �������.������ �� ������ �� ���������)

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 use_obj_on_p_proc;
procedure damage_p_proc;
procedure map_enter_p_proc;
procedure push_p_proc;

procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;


procedure start begin
end


procedure talk_p_proc begin
dialogue(self_obj,Node001);
end

procedure Node001 begin
if (LVAR_talk_pistol==2) then
begin
rep(4);
if (LVAR_have_pistol==2) then
begin
opt(40,Node005);
opt(41,Node006);
end

else
opt(42,Node006);
end

else if(LVAR_talk_pistol==3)then
begin
rep(6);
opt(60,end_dialogue);
end

else
begin
rep(1);
opt(10,Node002);
opt(11,end_dialogue) ;
end

end

procedure Node002 begin
rep(2);
opt(20,Node003);
opt(21,end_dialogue);
end

procedure Node003 begin
rep(3);
opt(30,Node004);
opt(31,end_dialogue);
end

procedure Node004 begin
set_local_var(LVAR_talk_pistol,2);
end

procedure Node005 begin
rep(50);
opt(5,Node007);
end

procedure Node006 begin
rep(411);
opt(412,end_dialogue);
end

procedure Node007 begin
critter_add_trait (self_obj, 1, 6, 0);
critter_add_trait (self_obj, 1, 5, 194);
party_add(self_obj);
set_local_var(LVAR_talk_pistol,3);
set_local_var(LVAR_PARTY_MAN,3);
end

procedure critter_p_proc begin
if Have_pistol then
set_local_var(LVAR_have_pistol,2);
end

procedure pickup_p_proc begin
end

procedure destroy_p_proc begin
end

procedure look_at_p_proc begin
end

procedure description_p_proc begin
end

procedure use_skill_on_p_proc begin
end

procedure use_obj_on_p_proc begin
end

procedure damage_p_proc begin
end

procedure map_enter_p_proc begin
end

procedure push_p_proc begin
end

��� myhead.h :
#define rep(x) �gsay_reply(NAME,mstr(x)) � � � � � � � � � � � � � �
#define opt(x,y) �gsay_option(NAME,x,y,-1) � � � � � � � � � � � � � �
#define dialogue(x,y) start_gdialog(NAME, x, 4, -1, -1);\ � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � �gsay_start;\
� � � � � � � � � � �call y;\
� � � � � � � � � � �gsay_end;\
� � � � � � � � � � �end_dialogue
� � � � � � � � � � �
��� ���:

1. ������,��� ���� ����?
10.����� �� ����
11.������
2.������� ��� ����� ������
20.� ������� ���� ������
21.� ���� ��� ������,������.
3.��� ����� ��������
30.������,� ������� ���� ��������
31.������.� ���������.� �� ����� �� �������.������.
4.�� ��� ����� �������� ��� ����?
40.��,��� �� [����������� ��������]
41.[����] ���,���� �� �����
42.���,���� �� �����
411.����� ����� ����� � �������
412.������� [�������]
5.������.� ��� � ���� ��������������
50.�������,�����
6.�� ��� � � � �������
60.��.�����

(��������������(�) binyan - 14:08 - 3 ����, 2005)

-----
...������� �������������, ���������� � ��������������..

����������: 13:24 - 3 ����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
opt(60,end_dialogue);

��� ���? ��� ������. ���� �� ������ ��������� ������, �� ������ ������ ���� � �������� �� ��, ��������,���:
���:
 
procedure Node999 begin
end

procedure NodeXXX begin
� � � �opt(60,Node999);
end



��� ������������� ������
#define opt(x,y)  gsay_option(NAME,x,y,-1)

������� -1 ����� �� ������. ��� 49, ��� 50, ��� 51.

����������: 17:51 - 3 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������� � � ����� ������ ����,�� ��� ���������� �������,��� ���� �� ���������,��� ��� �� � ���� ����.
� ������ gsay_option...��� ��� ����� myhead �����.�� ����...�� �����,��� ���� �� ������� ����� �� ����,�� ������ ��������  �� ��������������� ��.


(���������� �� 21:02 - 3 ����, 2005.)


�!!!��������.�� ����� -1 ��� ������� �������.���?

-----
...������� �������������, ���������� � ��������������..

����������: 20:56 - 3 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��..���� ���� ����������.������� end_dialogue �� Node999.�� ��������������� � ���� ,������ ��� �(����� ��� �����) ������� �������� Node999,������� ��� ���������� ��������� � ���,��� ���� �� ���������.
�� �����.������� �,�������,�� ��������������,� ������� ������ � ����.
������,������� ����� ����,������� � ��������,����� ������� ����������.
�� ���������� ������ ��� � ������ ������ �������� ��������� � ���,��� � ������ �����,� �� ����� � ���������� ������.
� ��������� ������ ���� :

GDialog::Error Grabbing text mesagge

�� ��� ��������,����� ����� ����� �� ����� ������?



(��������������(�) binyan - 0:19 - 4 ����, 2005)

-----
...������� �������������, ���������� � ��������������..

����������: 0:16 - 4 ����, 2005
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

>>GDialog::Error Grabbing text mesagge

������ � ��� ��� �� �� ���, ��� ������ ���� ��� �� �������� ��� � ��� ����� �������, �������� # - ���� �����.

��, � ���� ������� � ��� ��������� �� ��������
>> 1. ������,��� ���� ����?
����
{1}{}{������,��� ���� ����?}
� �.�.

����������: 0:46 - 4 ����, 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

����� ������ ���:

#define NAME 1461 //��� ���������� ��������� ���������� ����� �� ������, � ��� ����������. ������ ��� � ���� ����� �� ������ � script.lst.

� �� �� ��� �� ���������� � ���� �������, � � ���� ��� ������� �������� ���������...

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 1:18 - 4 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���...������� �������,�����, �� ���������� �����, �� ������� ������� �� ������
������ �� ��������.������ ������������� ���� � ������ �������.�� ����� ���� �� 1304 (� ���� �������������� ������)
�� ������ ������ ��������.� � �� ����� �� ���� ��� � ������.
�� ����� ������� �������,��� ����� � ��� ��������� � ��������� ����� ���������,�� ������ ���� ����������,����� �� � ��������.�� ������ ����� �� ���� ���������� ��� ��� "��� ���� ����?"
� ���� ������ ���������(� �������� ��� ���� � �� ��)
���:
#include "..\headers\command.h"
#include "..\headers\define.h"
#include "..\headers\myhead.h"


#define LVAR_PARTY_MAN (0)
#define LVAR_talk_pistol (1)
#define LVAR_have_pistol (2)
#define NAME 1304
#define Have_pistol ((obj_carrying_pid_obj(dude_obj,PID_10MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_14MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PLASMA_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_ALIEN_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_223_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_NEEDLER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PK12_GAUSS_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_YK32_PULSE_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_MAGNETO_LASER_PISTOL)))


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 use_obj_on_p_proc;
procedure damage_p_proc;
procedure map_enter_p_proc;
procedure push_p_proc;

procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure Node999;


procedure start begin
end

procedure talk_p_proc begin
dialogue(self_obj,Node001);
end

procedure Node001 begin


if (LVAR_talk_pistol==2) then
call Node008;


else if(LVAR_talk_pistol==3)then
call Node009;

else
call Node010;

end




procedure Node002 begin
rep(2);
opt(20,Node003);
opt(21,Node999);
end

procedure Node003 begin
rep(3);
opt(30,Node004);
opt(31,Node999);
end

procedure Node004 begin
set_local_var(LVAR_talk_pistol,2);
end

procedure Node005 begin
rep(50);
opt(5,Node007);
end

procedure Node006 begin
rep(411);
opt(412,Node999);
end

procedure Node007 begin
critter_add_trait (self_obj, 1, 6, 0);
critter_add_trait (self_obj, 1, 5, 194);
party_add(self_obj);
set_local_var(LVAR_talk_pistol,3);
set_local_var(LVAR_PARTY_MAN,3);
end

procedure critter_p_proc begin
if Have_pistol then
set_local_var(LVAR_have_pistol,2);
end

procedure pickup_p_proc begin
end

procedure destroy_p_proc begin
end

procedure look_at_p_proc begin
end

procedure description_p_proc begin
end

procedure use_skill_on_p_proc begin
end

procedure use_obj_on_p_proc begin
end

procedure damage_p_proc begin
end

procedure map_enter_p_proc begin
end

procedure push_p_proc begin
end

procedure Node999 begin
end

procedure Node008 begin
rep(4);
if (LVAR_have_pistol==2) then
begin
opt(40,Node005);
opt(41,Node006);
end

else
opt(42,Node006);
end

procedure Node009 begin
rep(6);
opt(60,Node999);
end
procedure Node010 begin
rep(1);
opt(10,Node002);
opt(11,Node999) ;
end
�� �� ����� �� ���� ���������� �� ����� ���� � ��-��.

(��������������(�) binyan - 19:41 - 4 ����, 2005)

-----
...������� �������������, ���������� � ��������������..

����������: 19:40 - 4 ����, 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

� ��� ����� ���� �������?
1) �� ��������� ������ ���������� ��� � ������.���
2) ������ ������� ��� ��������, � �� �����������.
3) � ������ ������ �����, ������ ����� - ����� ����������. ����� � ���� ����������.
� ������, ��� �������� ���� � talk_p_proc.


-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 19:19 - 5 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� ��� ����� ���� �������?
1) �� ��������� ������ ���������� ��� � ������.���
>> ���������
2) ������ ������� ��� ��������, � �� �����������.
>>��� �������� ����?
3) � ������ ������ �����, ������ ����� - ����� ����������. ����� � ���� ����������.
>>������ ��������
� ������, ��� �������� ���� � talk_p_proc.
>>� critter_p_proc ����� ������ �� ������?��� ���� ����������� ������ �������,��� ��� �� �����..

(��������������(�) binyan - 14:37 - 6 ����, 2005)

-----
...������� �������������, ���������� � ��������������..

����������: 14:35 - 6 ����, 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

procedure Node001 begin
if (LVAR_talk_pistol==2)or(variablA==2) then
call Node008;
.......

procedure Node004 begin
set_local_var(LVAR_talk_pistol,2);
variablA:=2;
end
�������, ����� ����������

� critter_p_proc ��� ��������, � ��� � ������� ���.
������ �� ���������: ���� � ������� ���������� �������, �� ����� critter_p_proc �� ������?
������� ����� � ������ � ���������.

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 16:19 - 6 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��,��������
������,���� ��������� ��������,�� ��������� � �� � ��������� ���?� �� ��� ������ � ��������� �������� � �����.

-----
...������� �������������, ���������� � ��������������..

����������: 18:09 - 6 ����, 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

��, � ���� ���������� ���-�� �����:
...
procedure Node009;
procedure Node010;
procedure Node999;
...
variable variablA;
...

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 18:47 - 6 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��.������� ��������,������ ���� �� ���� ������,� ���� ��������� ��� ������ ���� ����������.

-----
...������� �������������, ���������� � ��������������..

����������: 19:56 - 6 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�����, ���� �� ���� ��� �������� ��� ���� ������ �� �����.
����� �� ��� � ����� ������
����� ����������������
��� ������� ������� �� vault13.gam :
GVAR_MODOC_GHOST_SEED_PIP               :=0;    //      (631)
GVAR_PARTY_MEMBERS_HIDDEN               :=0;    //      (632)
GVAR_CAR_PLACED_TILE                    :=0;    //      (633)
GVAR_PARTY_MAN_talk_have_pistol         :=0;    //      (634)
GVAR_RESERVED_VAR2                      :=0;    //      (635)
GVAR_RESERVED_VAR3                      :=0;    //      (636)
GVAR_RESERVED_VAR4                      :=0;    //      (637)
�� ������� �� ����� ������ ����� ��� ���� ���� ����?�
������� ���� ������ �� ����, ����� �� ������� � ����, � ������ ��� ���, ��� �� ���� ��� ������, ��?
� �� � � ������� ��� �� ���� ��� �������
��� ������ :
/*
���� ������������ � ��������� GVAR_PARTY_MAN_talk_have_pistol==1
���� ������� � ��������� � �� � ���� GVAR_PARTY_MAN_talk_have_pistol==2
���� ������� � ��������� � �� � ���� � �� � ������ GVAR_PARTY_MAN_talk_have_pistol==3
���� �� ������� � ��������� GVAR_PARTY_MAN_talk_have_pistol==0
*/
#include "..\headers\command.h"
#include "..\headers\define.h"
#include "..\headers\myhead.h"


#define GVAR_PARTY_MAN_talk_have_pistol (0)


#define NAME 1304
#define Have_pistol ((obj_carrying_pid_obj(dude_obj,PID_10MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_14MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PLASMA_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_ALIEN_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_223_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_NEEDLER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PK12_GAUSS_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_YK32_PULSE_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_MAGNETO_LASER_PISTOL)))


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 use_obj_on_p_proc;
procedure damage_p_proc;
procedure map_enter_p_proc;
procedure push_p_proc;

procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure Node999;


procedure start begin
end

procedure talk_p_proc begin
if Have_pistol then
set_global_var(GVAR_PARTY_MAN_talk_have_pistol,2);
dialogue(self_obj,Node001);
end

procedure Node001 begin


if ((GVAR_PARTY_MAN_talk_have_pistol==1)BWOR(GVAR_PARTY_MAN_talk_have_pistol==2)) then
call Node008;


else if(GVAR_PARTY_MAN_talk_have_pistol==3)then
call Node009;

else
call Node010;

end

procedure Node002 begin
rep(2);
opt(20,Node003);
opt(21,Node999);
end

procedure Node003 begin
rep(3);
opt(30,Node004);
opt(31,Node999);
end

procedure Node004 begin
set_global_var(GVAR_PARTY_MAN_talk_have_pistol,1);
end

procedure Node005 begin
rep(50);
opt(5,Node007);
end

procedure Node006 begin
rep(411);
opt(412,Node999);
end

procedure Node007 begin
critter_add_trait (self_obj, 1, 6, 0);
critter_add_trait (self_obj, 1, 5, 194);
party_add(self_obj);
set_global_var(GVAR_PARTY_MAN_talk_have_pistol,3);
end

procedure critter_p_proc begin
end

procedure pickup_p_proc begin
end

procedure destroy_p_proc begin
end

procedure look_at_p_proc begin
end

procedure description_p_proc begin
end

procedure use_skill_on_p_proc begin
end

procedure use_obj_on_p_proc begin
end

procedure damage_p_proc begin
end

procedure map_enter_p_proc begin
end

procedure push_p_proc begin
end

procedure Node999 begin
end

procedure Node008 begin
rep(4);
if (GVAR_PARTY_MAN_talk_have_pistol==2) then
begin
opt(40,Node005);
opt(41,Node006);
end

else
opt(42,Node006);
end


procedure Node009 begin
rep(6);
opt(60,Node999);
end

procedure Node010 begin
rep(1);
opt(10,Node002);
opt(11,Node999);
end




-----
...������� �������������, ���������� � ��������������..

����������: 0:55 - 7 ����, 2005
FFAN
������������

�����������: ���� 2005

�����: 22 ���������

��������, � � ������� �������������� ������ kcsulik.int ( ����� �� ����� ������� ���� ) � ����� ���� ��� ������� ������������� - ������ ������:
Undefined symbol op_party_member_obj

����� ��� ����� ���������.
�������������� ������ � ������� noid_decompiler , �  ������������ � ������� watcom � bis_compiler. � ��� ��������?

����������: 15:14 - 11 ����, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

����� ������������� ���� ������� � ��������� ������.
� �������:

���� - op_party_add(self_obj);

BIS - party_add(self_obj);

������������/������. �� ����� ������������. ��� ���� ���� ����\������. � ���������. ��� BIS ����� � ������

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 15:38 - 11 ����, 2005
FFAN
������������

�����������: ���� 2005

�����: 22 ���������

�������������� � ������� int2ssl ������ ��� ���������� ����� - Error! expecting ';'.
������ �� �� ������� � ssl �����, ������ ; � �����
����� ����� ��� ����� �� ������, ���� ���� ��� ��������
������:
procedure destroy_p_proc
�������� � ����� ;
��� �����, ��� ����� � ������� ��� ��� ��� - ��� ����� �� �����������

����������: 18:23 - 11 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

���-�� ��� �������. ���� ��� ���������� ��������, �� ����� ��������:

procedure talk_p_proc;
procedure destroy_p_proc;
procedure look_at_p_proc;

���� ����������, ��

procedure destroy_p_proc begin

� ���� ������ ; �� ��������

� ���� int2ssl => compile.exe �������� ��� ����. ����� �� �� �� ������� �������� ? � ����� ������ ����������� ������, kcsulik.int ?

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 22:27 - 11 ����, 2005
IRI2
������������

������: �����-�����
�����������: ���� 2005

�����: 7 ���������

������:
�������, ������ ��������. ����� �����:

procedure start begin
end

procedure map_enter_p_proc begin
display_msg("Hello" );
end

�� ? � scripts.lst ��������, � ������� �� �������� �������� ?


��, ��� ������ ��������� �����. ������ ����� ������, �������� ������ ������, � ������.��� �������� ���� ������ � ������� � ���� ��������. ��� �����, ��� �������������, ������ �� ��������.

����������: 0:07 - 12 ����, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� ����� �� ������ �� ������� ������ ��� �� ������� (����  map_enter_p_proc  ����������� ������ ��� ������ �� �������). �������� �������� ���������:

==============================
procedure start;
procedure talk_p_proc;

procedure start
begin
end

procedure talk_p_proc
begin
   display_msg("Hello" );
end

================================

� � ���� ����������� ���������� � ������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 0:28 - 12 ����, 2005
FFAN
������������

�����������: ���� 2005

�����: 22 ���������

2 Aman
� ������� arcaves.int ���������� ��������� ��������������� � �������, �� ����� ������������ kcsulik.int �� �����
Warning: Result of expression is left in stack.......
File kcsulik.int decompiled successfuly
����� ����� ������ ���������� - �����:
KCSULIK.I (1067): Error! expecting ';'.
�������� � ����������� ��������� - ����� �� �����

����������: 15:42 - 12 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

to FFAN

>> KCSULIK.I

��� ������ ssl, ���������� int2ssl ������������ �� �����. �� ���� ��� �� ��� �������, ������� � ������� ����� int2ssl, �� ��. �� ��� ������: ���� kcsulik.int =>int2ssl=> �������� kcsulik.ssl => dos4gw compile kcsulik.ssl =>compile.exe=> �������� kcsulik.int. �� ��������� ���������� ssl ��� ����� ����� int2ssl ��������� ?

�������� ���� �������� FScript-HOWTO. ����� ������ �� int2ssl �������. �� � ����� ��� ����� ���� ������ ? ��������� ���� ����.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 16:23 - 12 ����, 2005
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

2 to FFAN:

������ ���� ���� ���������� ������ ��� �� ����.
������� ��� ��� � � ����.

����������: 21:06 - 12 ����, 2005
FFAN
������������

�����������: ���� 2005

�����: 22 ���������

2 Aman
��� ������������� �����. �� ������� ����. � ������ ��� ������������ ( ������ �� ������� ) � ���� ��� ������������� ������� � ��������� ��� ������
(((((((((((

>> �� � ����� ��� ����� ���� ������ ?

���� ��������. ����������� ��������� ���� �� ����������, ����� �� ������.

2 Anchorite
����� ����� ������, ��������� ��� ������,
mcdavin.ssl � �������

��� ���� !
������ ���������� ���������� kcsulik.ssl � mcdavin.ssl �� ����� mapper/scripts � ����������!!! �� ������ ����� �� ���������� ���������� ���������������� ��������� �� ����� 1.04 ��� 1.05 ?

����������: 22:28 - 12 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

to FFAN

�� �� ���� ������ ������, � �� ���� ������������ . ��� ����, ����� � int (���� �����-������, ��� �� ���������).

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 0:00 - 13 ����, 2005
FFAN
������������

�����������: ���� 2005

�����: 22 ���������

2 Anchorite , Aman
�������. ���������� ����.

����������: 10:27 - 13 ����, 2005
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

� ��������� ���������� ������. ����� ���������� ����.

1. ����� ������������ ����� ��������� talk_p_proc ����� ���
���:
 
...
       add_obj_to_inven(self_obj, restock_obj);
   end
   return 0;
   LVar0 := 0;

procedure destroy_p_proc
begin
   if (source_obj == dude_obj) then begin
...



�.�. �����, ��� � ���� ������� ����������� ����������� end.

2. ��� ���������, ��� � � ���� ������� ���� ���� ���������.

���:
 
...
0x00004240: 0x80BC            - O_SELF_OBJ
0x00004242: 0xC001 0x00000010 - O_INTOP(0x00000010)   // 16 (16)
0x00004248: 0x8012            - O_FETCH_GLOBAL
0x0000424A: 0x80D8            - O_ADD_OBJ_TO_INVEN

0x0000424C: 0xC001 0x00000000 - O_INTOP(0x00000000)   // 0 (0)
0x00004252: 0x800D            - O_D_TO_A
0x00004254: 0x8019            - O_SWAPA
0x00004256: 0x802A            - O_POP_TO_BASE
0x00004258: 0x8029            - O_POP_BASE
0x0000425A: 0x800C            - O_A_TO_D
0x0000425C: 0x801C            - O_POP_RETURN

0x0000425E: 0xC001 0x00000000 - O_INTOP(0x00000000)   // 0 (0)
0x00004264: 0xC001 0x00000000 - O_INTOP(0x00000000)   // 0 (0)
0x0000426A: 0x8031            - O_STORE

0x0000426C: 0x802A            - O_POP_TO_BASE
0x0000426E: 0x8029            - O_POP_BASE
0x00004270: 0x801C            - O_POP_RETURN



�� ����� �����, ��� ������ ��������� ����� "������������� �����������". �� "������������" �� ���������� �������� ���� ������� O_INTOP, O_INTOP � O_STORE.
������� ������������ � �� ���� ��������������� ��� � ����������� end, � �������������� ��� ����.

��� ����������� ���� �������� ����� ������� ������

���:
 
   return 0;
   LVar0 := 0;



� �������� �� �� end.
����� ����� ������� ������ ��������� ��� ��������� ��� ����������.

�� ���� ������, ��� ������ ������ ������������� �� "������" BIS-���� ������������, � ���-�� ������.

� "�����������" ������������������ ������� ����� ������� � http://www.teamx.ru/docs/decompile.rar. � ��� ������, ����� ����� ������������.


(��������������(�) Anchorite - 5:23 - 14 ����, 2005)

����������: 23:11 - 13 ����, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

��������, ������ ����-�� ���������� ������

�� ������ ���������� �����. ���� � ����� � ���� ������ - ardic.int �� �� ���� ��� � ��� �� ��� ���(�����, ��....), �� ��� ������������� ������� �� ���� ��������. ���������� ������ ������ �� ������ � �����, ��� "procedures are not sorted in ascending adress order", int2ssl ������ ������ ���� � ���� ��������, �� ��� "Expression required" (� ����� ����� warnings). ������ ����?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 0:02 - 14 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

>> ������ ������ ������������� �� "������" BIS-���� ������������, � ���-�� ������

��� ������, ��� ��� ����������. � ���������� ���������� ���������, �� �� - ������ return 0; LVar0 := 0; ������ �������� end. ���������.


(���������� �� 2:04 - 14 ����, 2005.)


to Ray

>> �� ������ ���������� �����. ���� � ����� � ���� ������ - ardic.int

��� ��� ipp.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 1:18 - 14 ����, 2005
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

� int2ssl ���� ���� ������ (-a � -b), ������� ��������� ������������ �������� ����� ���������� ��� �������.
�������� � ����, ����� ���� �������� � ���������.

����������: 5:22 - 14 ����, 2005
Volk
������������

�����������: ���� 2005

�����: 79 ���������

procedure critter_p_proc begin
<...>
obj_set_light_level(dude_obj, get_critter_stat(dude_obj, 37)*2, 8);
end

� ������ ���� ����� ����� � ���� �������� ��������, �� ���� ��� �������� 50 �� �������� �����, �� � �� ����� ���� ����� ��������� �����. � � ��� � ������ ���� �������� ������.
1. ��� ������� ���� ���� ��� ���� � �����?
2. � ��� ������� ���� � ���� �� �������?

����������: 7:06 - 14 ����, 2005
Volk
������������

�����������: ���� 2005

�����: 79 ���������

���� � ���� ��� ���� �������� � ����������\�������������, ������ ����: http://volkpk.nm.ru/Bis_compiller.rar

����������
������������
�����������
Headers ������ 1.02
��� ��������� � ��������� ������.

������ 778 ��.

����������: 18:31 - 16 ����, 2005
Volk
������������

�����������: ���� 2005

�����: 79 ���������

���� n ����� ����������, ��� �� ��������� �� ���� ���������? ���� �� ������� � ����������������� ��� �������.

����������: 22:54 - 17 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

��� ��������:
- ���������� ������������ (� ���������) ������ �� ����;
- ������������� ������� ;

������� ������ �������� ���������� - ���� �������, �������� �������� map_enter_p_proc � DIFLIBOX.ssl (box �������� � ����).

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 2:24 - 18 ����, 2005
Volk
������������

�����������: ���� 2005

�����: 79 ���������

�� ��� �����, � ����, ������ ��� ���� ���� ��� ����� �������� � ������ �������� ����� ��������, � ������ ������������ ��� ���� �� ����...

�� �� ��������� �� ��� runmod�

����������: 3:11 - 18 ����, 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

�������� ���������� ������.

���� ����������� � ���� �����, ��������� ���������������� �����, ����� �� ��� ��������� ���� ���������, �� � ���� ��������� ����� �� �������� animate_move_to_tile � animate_run_to_tile (�� ���� ���������, �.�. �� �������� ����������� ������ �������� � bwor ANIMATE_INTERRUPT), ��� ���� move_to � critter_attempt_placement �������� ���������.
��� ������-�� �������, ��� ������� �������� "�������" �� ������ elevation �, ��� � ���� ������ �� ����������, ������� �� �����.
����� ��� ����������� � ����� ��� ������?

�������� �2:
��� ������� �������� ������������ ���� �� ���� �� �����, ������� ����������� � ����� � �������, ������ ������ "���������� ��������� ������������ ��������", � �� �������������. �� ��������� ������ �� ���������.

PS: ������ ����� ����� �� ����������. � ��������� � �������� ������� ������ � ���������. �� � ��� ��������� ������� �� ��� ��������

-----
Scio me nihil scire

����������: 22:55 - 18 ����, 2005 ����������: Mynah - 19:36 - 19 ����, 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

� ������� �������, ��� ��� ������� ����� �� ������, �� �� �� :)
����� ������� �� ������� ��������� �����-������ �����? ��� critter_mod_skill � ������������� �������� ����� ���� �� ��������, ��� ����� �������������� �������� ����� abs � ����� ������ �������������:)
��� �� ������� ������� ����� Tagged? critter_add_trait ������� ��������, ��� ���� ���� tag ���������, �� �� ������ �� �� ���� �� �������. ������������ ��� ����� ��� ����� ��������� �������� X � (PERK_tag bwor X). �� ��������.

-----
Scio me nihil scire

����������: 11:33 - 22 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

����� � ����?

-----
...������� �������������, ���������� � ��������������..

����������: 21:32 - 22 ����, 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

��, � ����

-----
Scio me nihil scire

����������: 22:13 - 22 ����, 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

�����, criter_mod_skill ������� ������ ��� critter_set_skill, �.�.:
critter_mod_skill(dude_obj,x,has_skill(dude_obj,x)-10);
��� ���������� �� 10.

����������: 4:05 - 23 ����, 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

���... ��� ������ mod_skill. �� � ������, ���-�� � ������ ����� ��������.

-----
Scio me nihil scire

����������: 4:41 - 23 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�� ��������?�����.� ���� �� ���� ������� �������..

-----
...������� �������������, ���������� � ��������������..

����������: 21:20 - 23 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

��, ����� � ���� critter_mod_skill. ���� ���-�� � ������������ ������.


(���������� �� 0:03 - 24 ����, 2005.)


������� � � ������������, ���� ��� ��� ������ �� ������ � critter_mod_skill �������. ���� �� ������ Mynah.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 23:50 - 23 ����, 2005
Fozzy
������������

������: �������,����
�����������: ���. 2004

�����: 81 ���������

���������� ������ ������� ������: "ERROR: atemp to reference local var out of range:10" ��� ��� ������ � ��� �� ��� ����������?

������� ����������.

-----
��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������.
� ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy

����������: 13:05 - 18 ����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

����� ��������� ���������� ������� (LVAR) ������������� � SCRIPTS.LST. ������:
���:
Test2.int       ; Used to Test Scripts                          # local_vars=8


������, �� ������ ������ ���������� ������, ��� ���� ����������.

����������: 17:16 - 18 ����, 2005
Fozzy
������������

������: �������,����
�����������: ���. 2004

�����: 81 ���������

������:
Quote: from Wasteland Ghost on 16:16 - 18 ����, 2005
����� ��������� ���������� ������� (LVAR) ������������� � SCRIPTS.LST. ������:
���:
Test2.int � � � ; Used to Test Scripts � � � � � � � � � � � � �# local_vars=8


������, �� ������ ������ ���������� ������, ��� ���� ����������.


���, (���� �� ���� �� ��� ������) ��� ������� # local_vars=15

-----
��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������.
� ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy

����������: 17:26 - 18 ����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���� �� ���������, ��� 10 - ��� ������, �������, ������ � 12 � 19 . �����, �� �������� ������? ��� ������ �������� ��� ������������ ������?

����������: 19:50 - 19 ����, 2005
Fozzy
������������

������: �������,����
�����������: ���. 2004

�����: 81 ���������

��� ���������� ����, ��������. ��, � ������� ��� LVAR_WAITING. ����� � ���� ��� ���� ����� ������.

-----
��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������.
� ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy

����������: 15:18 - 20 ����, 2005
Strongholder
��������� MkII

������: Nelly's Bar
�����������: ��� 2004

�����: 393 ���������

����, ���������� ������, �� �� ��...
����� �� ��������� ���������� ��������� �������� �� �����? �.�. ���, ����� ��� �������� ������������� ������ ��� ���������, � �� ��� ���������.
���� ������ � ��� �������� � ������� x:=mstr(1) � � ����� {1}{}{123}, �� ��� ������� ��������� � ����� � �����-���� �������������� �������� ����� �������� (��� ����� ��������� ������� "123" ) ��� ��������� �� ����...
��� ���� � ���...

-----
������� � ������ ������. �������� �� �� ���.

����������: 23:28 - 29 ����, 2005 | ����������: Strongholder - 23:30 - 29 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

�������� ��������, �� msg, ������� ������ "��������" �������. ������, "123" �� msg + 1, ���� 1231. �������� ����� Raven, ������� atoi ��� �������� ����. ��� ��� ����� � � ��� ��� ����, ����� � ������������� � ������ "������� ������", ������ ��� ����� �� ����� atoi.


��� ������: �� ����� ��� ����� �� ��, �� ����� ����, ��������� ���� ���� ����. ��-���� ���������� 4, ��� � ��� 10, ��������� - ��� � ����� 10. � ������� ������ ����.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 2:33 - 30 ����, 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���.

����������: 12:11 - 30 ����, 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

������� ��� combat_p_proc ����.

fixed_param == COMBAT_SUBTYPE_WEAPON_USED - ���-�� ������ � ���� �� ����������. �������� �������� � ������������� ������.

fixed_param == COMBAT_SUBTYPE_SEQUENCING - ��� ��� ? �� ���-���� "����� ���������, ����� �� �������� ����� � ���/����� �� ���". ��, ������ ����� �� ����������, ����� �� ��������. ��������, ����� ������� ������� ����� ����������� ?

fixed_param == COMBAT_SUBTYPE_NONCOM_TURN - � �� ���������� �����.. - ����������� ����� ������� ����� ���������, �� ������������ (��, ��� ��������), ������ ����������� ������ ���� ��� � ������ ���. ����� �����������, ���� �������� ������� �� ������� � ����������� (�����) ������� "�� ���" �����, ��-���� ��� �� ������ "������� ������, ��� ��� ������, ���� ������" (���� ���� ����� ������� ����� ����� (�� �����������) � ����� �� ������������), ���� ���� ��� ����������� ��� ����� ��������. ���������, ��� ��� ���� �������� �����������, ����� �� �������� ��� � ����� ����������� (�� ������ �����������), ����� ��� ������������ � ������, ��� ��� �� �������� �� ����� ��� "�������" , � ������ � ����������� ������� ��������.

����� ��������, �������� �� ����� ���, �� ������ ���� ���� ��������� ? ������������ ������� ����� �� �����.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 8:50 - 4 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

Aman

>>����� ��������, �������� �� ����� ���, �� ������ ���� ���� ��������� ? ������������ ������� ����� �� �����.

�����, �������. ����� ���: ���������� ������ ���� ���, ���������� ���������, ���������� ���, ����� animate_move_to_tile, ������� ���, ������������� ���������. �������� ��-���� - �� �������� (��� ����� ������ �� �����, ����������� �������� ����� � ���� ������� ���� - to hit, damage ������������� � �������). �� ���� ������� ����� - �������� ������������ ����� ��� ������ ����������/������ ������� ������.

����� � ��� ���, ������� move_to. ��� �� ��������, �� - ��� ��������. �������� ������ �� ���������.

Strongholder

atoi � ��, ��� �� ���� ������� ������� ������� � mr. Fix-it. ������ ���� ������ � �������. ����� ������ ����������� �������, ��������. ��� get_char, ����������� ���������� ������� �������. ��� �������, ����� � ����� ��������� � ������ ����������� � ������.

����������: 14:06 - 4 ���., 2005
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

2Raven:

� �������� ��������� �������� ����� �������� � ����������.
������ � ��������������� / �������������� ��������� ����� �������, �.�. ��������� � ����� ���������� ���������� �� �����.
� ��� � ���������� � ����������� ��� �������.
���� ����������� ��������, ���� ����� ����.

����������: 21:34 - 4 ���., 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

2Anchorite
�, �����. � ����� ������������ ��������� ������?

2Raven
������� ������ ������� ���� ���������.. ���� �� ��������� �� ������� . ���� �����������: ���� ���������� ���� ������ �� ����� ������������ �������������. �������� ��� ���������, ����������� ����� ����������. � ����� ����� ��� � ���� ������.

2All
44 ������� ���������� � scripts.lst �� ������������ ������. ��� 15 �������� ������. �� ������ �� � �������� �� ������� ����, ������� �������� � ���� ��� �����. ��� ����������� ��� ����� ��� ���� �� ���?

-----
hit me, nail me, make me god

����������: 22:37 - 4 ���., 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��.. ������� ���������� ����������� ��� �������� ������������ �������. ��� ����� FIXED_VAL? ������ ��� � ������� �� metarule3. ����� �����, ��� � �� �����.

-----
hit me, nail me, make me god

����������: 1:17 - 5 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

add_timer_event(dude_obj, 10, FIXED_VAL)

metarule3(METARULE3_CLR_FIXED_TIMED_EVENTS, dude_obj, FIXED_VAL, 0)

������� ��������? :)

-----
Scio me nihil scire

����������: 2:12 - 5 ���., 2005
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

2 Alan Killenger

���, ����������� �������� ������ �� ���������.

����������: 5:36 - 5 ���., 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:

add_timer_event(dude_obj, 10, FIXED_VAL)

metarule3(METARULE3_CLR_FIXED_TIMED_EVENTS, dude_obj, FIXED_VAL, 0)

������� ��������?


�� ���� ������ ���������� ������� �� �������? ���.. �������� ����� ������������ ������� �� �������. ������ ������ � ����, ����� ������ ������� �� ���� ����������� ������� ���� ����� ���������� �������� � fixed_param. ���?

-----
hit me, nail me, make me god

����������: 5:55 - 5 ���., 2005 | ����������: Alan Killenger - 6:59 - 5 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

������:
���.. �������� ����� ������������ ������� �� �������. ������ ������ � ����, ����� ������ ������� �� ���� ����������� ������� ���� ����� ���������� �������� � fixed_param. ���?

������ ���.

-----
Scio me nihil scire

����������: 11:26 - 5 ���., 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��� ������. ���� ���� �� �����, ���� �� ���-������ ����� �������� ��� ������� ������ ��������� ������, ������������� ��� ����������� � ����������, ���� ������� ����������, � ���� - ���.

��� ���, ��������� ����� ������:
������:
nr_add_timer_event_rand(self_obj, 10, 30, float_param);

������:
         last_timed_obj:=self_obj;
         last_timed_param:=last_timed_param;
         metarule3(100,self_obj,1,0);
         add_timer_event(self_obj,game_ticks(10)+random(0,game_ticks(30-10)),1);

����, ��� �� ���-������ ���� � FGECK'� ������� ������� "�������� ��������� ������".. �����, ��� ��� ����� ������. ����� � ������� ����������� ����� ������������ �� ����������� ���������� last_timed_param � last_timed_obj ����� ��� � ��������� ����������:
������:
last_timed_obj:=self_obj;


������:
last_timed_param:=last_timed_param;

� ����� ����, ��� �� ����� � ���� ������� ������� ����. ��� ��������� ��� � ���� ���� �� �� ���� ����� ������? ���, ������� �� ���������� ����, ��� � ������� �������� ������������� 5 ��� 7 LVAR, � �� ���� ������������ ������ LVAR(4) � LVAR(5)?


(���������� �� 22:45 - 5 ���., 2005.)


��, � ��� ������. ��� ���� � ���� ���. ��� ��� ������ ����� ���� ��������� � ���� ����? ���-������ ��� ������������? �� ���� � ����� ���-�� ���� ������ ������������ ��� ���� � � ���� �������� ����������� ����. ��� ��� ����? ������ ��������������� ��� ������� � ���� � ��������?

-----
hit me, nail me, make me god

����������: 21:47 - 5 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

>>��� ���� � ���� ���. ��� ��� ������ ����� ���� ��������� � ���� ����? ���-������ ��� ������������? �� ���� � ����� ���-�� ���� ������ ������������ ��� ���� � � ���� �������� ����������� ����. ��� ��� ����?

������ ������� ����������� ������������ ����� � vault13.gam. ����� ���, ����� ����� 633 ��� � �� ��� �����? � ��� ������ ���� ������ �� ��������� ��� - ���������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 22:56 - 5 ���., 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

>>������������� ��� ����������� � ����������, ���� ������� ����������, � ���� - ���

- ������ �� ���������

��� �������, ���� 2�� ������� ��� � ������ ����������������� ������� � � �������� - ��� ����� �� command.h. �� ����� �� ��� �������� ��������. ��� "�������� ������" � ��������, ��� ������� ����������, ������ ������

#include "..\headers\define.h"
#include "..\headers\command.h"
procedure start begin end

��������, ����� ��������� � �����.

last_timed_obj � last_timed_param - ������ ������������� �� �����, �������� �����-��. ��� �� newreno.h.

���� ��� ���-�� �������� �����������, � ������ ����� �� ����� � ����������� � ��������� (1.02d) �����.

>>������� �� ���������� ����, ��� � ������� �������� ������������� 5 ��� 7 LVAR, � �� ���� ������������ ������ LVAR(4) � LVAR(5)?

�� �����. ����� ���� ��� ���� �����, ������� � ����� - ������������ ��� ���� ������, ��� LVAR(4) ����� �������� �� ���, LVAR(5) �� �� � �.�. (��� ��� ��� "�������", ��� �� ������ � �� ������, ��� �����). �� � ��, ��� � ������� ������ ���, ��������, �� ����� �������������� �� ����� �� ���������: "���������, ������ �������������, �� � �� � ������ �� �������� �������������". �� � ��� �������� ���������, ������� ��� ����� ������.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 3:14 - 6 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

���-������ ����� ��� ������ ����������� ������ �� ����� ����. �� ���� ������� ��������������� ������� mark_area_known.
��, ���� ������ unmark_on_map(int area) �� ������ ���������� ��� �� ����� ��������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 18:12 - 17 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� �� ������� �������� �� ������ . command.h ��������. � ; �� �����. ���������� ��� ���������.

����������: 18:28 - 17 ���., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������������, ��������! �������� ��� ������. ��������, ��� ������
���������� ������. ��� �����, ����� ��� ������ ������ �� ����� ���������
���������������� ���������, ����� ���������� �� ������������� ����� ,�
������ (��� ��������� � ���������) � ���� ��������� �� ����� ��������
��������.
��� ���, ��� ���������� �������� ����������� ��� ����� ������,
������������ �� �����. ��� ��� �������� �������� ��� (�������� ��
����������):

procedure map_enter_p_proc begin
 if(map_first_run) then begin
   game_ui_disable;
   animate_move_obj_to_tile(dude_obj, tile_x,1);
   game_ui_enable;
 end
end

����������� ��� ���������. ��� ������ �� ����� ����� �������� ������������
� �����, �� ��� ���� - �� ���������� ����������, � ����� � ����� ������
����� �������� ����������� ���������. ���� ����� ������� �� �����, �������
���������� (��� ������� ����������� ���������� �� ���������)

������������, � ��� �����? ����� � ������� ������ ������? �����, �����
���� ���������� ��� ���������� � ������� ��������?
� ��� ������. ��������, ���������������� ��������� ����������, �����
������� ���� ��������� �������������, � ��� ���������� ������! ���������
���������? ���� ������� ���������� �����? ��� ������?

����������: 12:34 - 29 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

�������� � ���, ��� F �� ��� ��������� ���������� ������� animate_move_obj_to_tile.
�.�. �� ���������� obj ���� ����, � ��� ���������� � ���������� ��������� ��������.

��� ���� ������� ���� ����� ����������� timer_event, ���� critter_p_proc, ���������� gui ����� dude ��������� ����� �����, ���� spatial ������ � �����, ���� ������ ������ dude.(spatial � timer - �� �����������, ����).

-----
Scio me nihil scire

����������: 12:52 - 29 ���., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

��, �������. �����������, �� ������.

����������: 13:59 - 29 ���., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

��, ��� ��� �������� � ���������� ������ �� ����� ��������. ����������, � ���� �� ���� �������� �� ������, �� ����� ��������� �������.
������ � �������� �������, ����� ��� ��������� ������ ���. �������������� �������� GVAR_ PLAYER_GOT_CAR � car_current_town.
Current_town - ��� �����������? ���� � �������� ����� ���������, ������, ������ Abbey(area 17), � ��� ��� ���������?
���������� ���� � ������� ����� �������� create_car(car_hex, car_elev) ��� ������ �������� � �������, �� ������ �� ���������. �����, ��������� ���������� MVAR_Made_Car, ���������� ������� ��� �� ������ �������.
��� ��������� ������, ���������� ������ ����
� ���, ����� ����� �������������� ������ ������� ������? ������� ��� ������ ������ �� ������ � ������? ��� ����� ���������� ���������� GVAR_ PLAYER_GOT_CAR � ��������? ��� ����� ��� �������� ������ ����...

����������: 16:54 - 10 ����., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

>>��� ��������� ������, ���������� ������ ����
��������� ������ Check_Create_Car � ��. ������ ������ �� ����. ������� �������� :)


-----
Scio me nihil scire

����������: 20:12 - 10 ����., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

��... � �� ��� ���������������, �� ������ �� ����� � ������ ������� � ����������� ��������� ��������, ��� ��� � ���-��������. create_car �������� � SCENEPID.H, � ��� ���� ����� check_create_car... �� ����! � ����� ����� ������ ������ ������?

����������: 22:17 - 10 ����., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� ����� ���� ������ �� �������� ������ � �������� ������ 1.02d? ���-�� ����-�� � ������ �������. ��� �����?

P.S. � ������, ������� ����� �����, ������� �� �������. ��� ����� ���� ����� - ����������� ������, ����������� �������������� ������� ����� ������� � ��������� ���� ����� �� ����� �������� �� ������

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 23:17 - 10 ����., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

����� ������ ��������� 1.02. ��� ���� ����� �� �����, ��-����� � ������� "�������".



-----
Scio me nihil scire

����������: 23:59 - 10 ����., 2005
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

� "��������" �������� �������� ������. ���� ������� ��������� 1.02d �� Haenlomal, ������ ���������� �� �������������, ����� ��� � "��������". ����� ������ Check_Create_Car(Hex_Num, Elevation), � 1.02d �� Haenlomal �� ���� (SCENEPID.H). ��� ����� ����, ��� ���� � �������, ������ ����� ����� (����� � ������, ����� ��� �����). ARBRIDGE.ssl � ������ ���� �������������.

���������� ����� ���� - "����� ������ Check_Car, ���������� ������� Create_Car � Dest_Car" �� WG. ��� ���� ������� �� ���������� �� Haenlomal � ������, � ��������, �� ����� (��� WG ������� ).

P.S. �� ������ ��� 1.02d, �� ����������� ���������.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 1:11 - 11 ����., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�����������. ������ ��������� 1.02��, ��� ��� ������� ����������. � ���_��� ����� ���� ������ � ������ � ����� .

��, ������. ����� �������� �� ������� �������. ��� � ������ 1.02�� �� ������������.

����������: 9:34 - 11 ����., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

���! ������ ����������. ��, ������, ��� � �� ��� ��� car_current_town �� ����������? ��������� � � ���. �� ��� ��� �� �������, ��� �� ����������, �� ������, �������� �� �� ��� ��������� �� ��������. � ������ ����� ������ ������� set_global_var(GVAR_PLAYER_GOT_CAR,1) � ������� �����. ������� �� ���� ����, ������ ���, �������� ���������� ���������: car_current_town==-1 (��� �� ��?). ������� � ���, ������ ����� � ������, ���� ����������. �� ������ �� ��� ���������, ������� �� ��� �����, � ��������� ������� - ��� ���������. ���-�� ������� ����� "���������" � "����". ���������! �� ������ ��� �� ����������, ������� ��������� ���������� � ����, �������� ������, � ��� ����� ��.

����������: 17:09 - 11 ����., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

����, ��� � ������ ������ � ����.
���� � ��� ��������� ������ � �������� �� ����. ��� �� ������, ���� �� �� ��������� � ���������� ��� � �������. ��� ��� �� � �������� ���� �����. ����� � ����� �� �������� �����. ��� ���� ����� ���������� � ��� ��������?
�� �������� ����: - � ����� ��� ���� ����? ��� � ��� ��������.
����� ����� �����. ���� � ��� �������, �� ����� ����������� �������, ������� ��������� ����� ������������ ������������� � �������, � ������ � �������, ����� ����� �� ������������� �������������� ����� ��� �� ����� ��������� � ���� �� ����������, ���� �� ����������...
� ��� �������� �� � �� ����� � ����� ����� ����� �� ����� �������� �������� ���������-������������ ��������. � ��� ���� �� �������, ���� �� ��� � ��������, �� ��� �� ��������� � ����� �������� �������� ������������ ����� ������������ ����?
������� ����� ����������� � ������� ����������� ������, ���� ������� ������ �������� �������� � ������ ��������, �� ������� ��� �� ������ ��� ��������� ������� ��������.
�� ��� ��� �� ��. ���� ������� ������������� ������ - ��� �������� �������, �� ��� ��� ���� �� �������� � ���� ��������� ������. � ��������, ������� ����� �������� �� ������ ������ ������� ���������, ���� ������. �� ��� ������ �� ��������� � ���, ��� ������ ������ ������� �������������. ��� ������ � ������� ���������� ��������� ������: call talk_p_proc ��������� ��������� ��������, ���� ���� ������. ���� ������� ������ ��������� �� ����������� �����, ��� �������� ����������� �� ��� � ��� ������ �� ����� ����������� ���������, � ��� ������ � �� ���������� ������ - ���� ������.
���� ������, ������ � ��� ��� ������.
��� �������?

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 0:02 - 21 ����., 2005 | ����������: Pavel - 9:40 - 21 ����., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��-������, ������ call talk_p_proc ��� ��������������� ����� � ������ ������������ ������� dialogue_system_enter.
��-������, ������� ���������, ��� ��������� �� �������.
�-�������, ���� �� ���������� �� �������, ������ ��������, ������� �������� ��� ������ .

�, ������, ��� �������� "����������� ������"? �� ����� �� �� spawn ��������?

����������: 10:13 - 21 ����., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

1) ��, ��� �����..  ��, ���� ������ ����� �������
2) ���� ������, � ����� ����������, ��� ������������ ����� ��������� �������� ��� ������ ������� � ������� ��� �� ���������. ������� - ����, �� ������� �� �����, ��������� �� ������ ���� ����� �� ����. ��� ������ ������� ������� ������ ���: ������� ��������� /������� ������� ��������/ � �� ��� ���� ���������, ������ ������� ���������� ������������. � ��� ��������� ������.
3) �����, ��� �������� ��� ��� � 1� ������ ���������.

��, �� �����.  spawn ������� ������, �� ������� � ��� ����� �� ��������, ����... ����� �� ������ ����� ���� � ������ ������.
�������.

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 11:16 - 21 ����., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�! spawn �� ����������� ������ �� � ����, ������� � ����� �������, ��� ���������� ����� � ������ � ������, ��������� � ���������� � ���������� ������� ����� ������� ��������. ������ �������� ���� �� ������� ���������, � ������ ����� create_object_sid.

����������: 13:54 - 21 ����., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

��������� ��������, ������ ����� ���������� ��������� � ��� ������������.
������� �������� �� �������

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 18:05 - 21 ����., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

WG ��� ��� �������, � �� ���������  ��-�� ���� ������

���� ���� ��������� �����, �� ����� ����:

� ������..
procedure use_obj_on_p_proc begin
....
������� �����
....
// �������
 if (obj_pid(obj_being_used_with)==PID_RIPPER) then    /*116-������, ������ ������ ��������*/
 begin
 create_object_sid(16777227,self_tile,0,1496); /*�������� �������� ����, ������, ��� ��������� � �� ������� �� �����*/
 end
//
end

� ������� ������ �������, � ���� 1496

procedure start begin
check_set_obj_visiblility(self_obj,true); /*������� �������� �� ������� ������, ���� ������ ������� ����������, 1 �� 100 ��� ����� � ���������� ���� ��� ����������, � ������� ������ �������� �� ����������� ������� � ��� �� ����� ������������������ � ���� �� �������� start*/
end

procedure critter_p_proc begin
if vs==0 then  /* ��� ������ ������� ��������, �� ���������� ������,  � ����� ������� vs:=1 */
     begin
     dialogue_system_enter;  /*������ �������*/
     end
     else begin
     destroy_object(self_obj);  /*� �� ���������� ������� �� ���������.*/
     end
end
....
procedure Node999 begin
vs:=1; /*����� �������, ������� ��������*/
end

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 20:08 - 21 ����., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

>>1 �� 100 ��� ����� � ���������� ���� ��� ����������

������-��, start ������ ����������� ������. �� ���� ��������� ��������, �� ������������ ���:

� ������..
procedure use_obj_on_p_proc begin

variable smart_rat;
....
������� �����
....
// �������
if (obj_pid(obj_being_used_with)==PID_RIPPER) then � �/*116-������, ������ ������ ��������*/
begin

�smart_rat:=create_object_sid(16777227,self_tile,0,1496); /*�������� �������� ����, ������, ��� ��������� � �� ������� �� �����*/
�check_set_obj_visiblility(smart_rat, true); �
end
//
end


� �� ���������� start'a ��������� ����������� ������.

-----
Scio me nihil scire

����������: 0:50 - 22 ����., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

������� Mynah, �� ��� �����.
������ ������ �� �������, � ������ ����������

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 10:12 - 22 ����., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������, ��������� ������. ��� �� ������������� (������������) �������� ��������, ����� �� ������� �������, ��� ����� ���-�� ����? ������� ������� ����� ������: �������� �� ����������, ������� �� � ���� ��������� ������ �� ����� � �������� � �������. �������� � �����, ������� ������, ����� ��� ������� �����, � �������. ����������� ����� ����� ������ � "����� �������", ��� ����� ���(?) ������ � �����. ���������� � ���� ���, � ���������������� -- �������-�.

����������: 17:34 - 29 ����., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� �� ������� use . ���� �� ����� ������� anim � �������� ����� ���������:
#define ANIM_magic_hands_ground      (10)
#define ANIM_magic_hands_middle      (11)
#define ANIM_magic_hands_up          (12)
��������� ����� � ���� .

����������: 19:22 - 29 ����., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������:
� �� ������� use . ���� �� ����� ������� anim � �������� ����� ���������:


�-�-�... ��� ����� � � ������. � �����, ����� ���-�� ����� USE ���� �������. ������� ������������ ������� �� ����� ������ ����� �� ����� (����������� �����������)? ��-����� ��� �� ����� ����.

������:

��������� ����� � ���� .

� ����� ��? Bis_help? Command.h? ��� - �� �����.

����������: 21:01 - 29 ����., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���� �������� �� ��������� � �� "�����������", � ��������������� ������ �������� ������ . ������������� ���������� �������� � ������ ������ � ���� ��� ��� ����� �����. ����, �����, ���_����.

�� �� �������� ������� use �� �����. ��� ��� � ������ �� ��������� . ������ �����, ������� ����� �������, �� ����� ���-�� ������ ������ .

����������: 12:25 - 30 ����., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

����������, ��� �� ����, ����� ������� ���� ���-�� �� �����, � ����� ����� � ������� - ����� ����� ������ ����� �������� ��� "���-��" �� ������ �����. ��� �����, ����� �� ����� ��� ��������� ������� ������������.
������� ����� � ������ ������ ������ ���������� ���� �����. ��������, ���� ��� �����, ����� �������� ������� ���������: tile_1(����� �����) � tile_2(����� �������). ��� ��� ���, ������� �� �� ������� �����, � ��� �� � ���� � ������� ���������� ����� ��� ������� �������� ����, ������� �� ��������������� ���������� � ���. �� ������� ��� �������� ��� ��������� ������. �� ���� ����� ���� ��������� - ������ ����� �������� ����� �������������� ���������� �� �����������: ������� �����-�� ������ ��-��.
������: ����� �� ������� ���, ����� �� ���� �������, � �� �������?
��, ���, �������� � ���������� ��������. ������ ���������, � �������� ���� �����

����������: 12:51 - 30 ����., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

"��������" . ������, ���� ������ ���� ���� - ������� �������� .

����������: 15:09 - 1 ���., 2005
Ronin
������������

������: ��������
�����������: ���� 2003

�����: 27 ���������

��� ������������� ������� message_str({int msg_list}, {int msg_num}) ����� ������ ����� msg ����� � ����� ������. ��� ����� ����� msg �����.

����������: 15:15 - 1 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������ ���. ����������. �� ������ �� �������� ��������:

Q: ��� ����� ������ *.msg ������ ��� ������������� � ��������?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 23:33 - 1 ���., 2005 | ����������: Ray - 22:34 - 1 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

���� ����� ������:

...
variable stored_node := 0;
...
procedure CLICK_0;
procedure start;
...
procedure CLICK_0
begin
 ...
 call ${stored_node}();
end

���� ��� �� �����������?

P.S. ����� ����� � ncKitty.int



-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 14:23 - 3 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��-��� ���! ��� �� ��� ��������������? ������, ���� ������ ��������, ������ �������� �� ����� ���� ��� (ssl):

variable stored_node;
...
stored_node := "Node002";
...
call stored_node;

������� ��� ����������� ���, ��� � ���� ��� ������ �������, ��� ��� ����������. ���� � �� �� ���������� ����� ���� � ������, � �������, � ������� � ����, ��� �� � �����, ������ ������� (����������� �������� ���� ����� ��-�������, �� �����, ��� ����� ����).

�����������, �� ������� �� ��������, ���������� � ��������� NEWRENO.H. ���� ���� ��������� �� - �������� ������ ����� ����, ��� ����������� ��� �� ����.

����������: 15:37 - 3 ���., 2005
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

���������������, � ����, Noid'������ ��������. ������, ����� ����� int2ssl �� Anchorit'�.

� ���� ���� �������� ����� �� ���������������� � ����������� ����������������. ���������� �������� �����. ��� ��� ��������� ��� ����� ������ ����� ��������� ���� ��������� ��� ���������, ���� �������� ������ �.�. ����� ��������� � ������� �� ������� ����������. ���� �� ����� ������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 16:23 - 3 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

���������� ���������� ������� ������ � ����� �����. int2ssl �����, �� � ������ � ������� ����. �,
${..........}
��� � �� ��'���� ���������? ����� �������. � � ��� ��� �++ ������ ���� ������ �� ��������. ��� ����� ����  

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 22:22 - 3 ���., 2005
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

�������� ��������� �������� Fallout, ���� ���, ���������� Startrek Scripting Language aka SSL. � �� �� ��������� �� �����. � ����������� ${..........} �������� ������ �������������� �� Ruby, ������ ���������� �� ��������� ��� ������. �� ������� � ������� Noid'�� ������������.
�� ���� � ����, ����� ������� �� �� ����� �������� �����������. �� ��� �� � Anchorit'�� ��� ������������ � � int2ssl �������� ������� �����������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 22:59 - 3 ���., 2005
Fozzy
������������

������: �������,����
�����������: ���. 2004

�����: 81 ���������

��� ����� ��������� ���� �� ����� ������? ������ ���� �� ����'� ������� �� ��� ��������?
������ �������, �� ������ � �������� ������������ �� �������� ��� ������ .

-----
��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������.
� ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy

����������: 21:21 - 5 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ���� �� ����� ������ ������ �� ������� .

� ��������� destroy_p_proc:
set_global_var(GVAR_ENCLAVE_FRANK_DEAD,1);

���� ��� ���� ������. ��� ��������������� .

int player_kill_count(int type) - ����� ������ ������� ���������
���������:
type - ��� ��������
������������ ��������:
����� ������ ������� ��������� ��������� ����
����������:
������ �� metarule3(METARULE3_GET_KILL_COUNT, type, 0, 0)

��� ������, ������, ��� ��� ������� 18 (type = 18) - ������� � �������� ���� .

����������: 22:00 - 5 ���., 2005
Fozzy
������������

������: �������,����
�����������: ���. 2004

�����: 81 ���������

����, � ������ ����� ������������� ������:
��� ����� ������� ������ ������� �����?
������ ������ ������� ������, � ������ ���� ��������� �����, ��� ��������� ������������ ����� �� 0/1 � ��������� ����� ��� ����� ����.

-----
��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������.
� ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy

����������: 18:01 - 6 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�����, ��� ������� "������" ������� ������ .

[Area 00]                ; Arroyo
area_name=Arroyo
world_pos=184,133
start_state=On
size=Medium
townmap_art_idx=156
townmap_label_art_idx=370
entrance_0=On,350,275,Arroyo Bridge,-1,-1,3  ; Etc.
entrance_1=On,280,175,Arroyo Village,-1,-1,0
entrance_2=On,200,90,Arroyo Temple,-1,-1,0
entrance_3=Off,100,150,Arroyo Wilderness,-1,-1,0
entrance_4=Off,-1,-1,Arroyo Caves,-1,-1,0

[Area 22]                ; Destroyed Arroyo
area_name=Arroyo
world_pos=184,133
start_state=Off
size=Medium
townmap_art_idx=-1
townmap_label_art_idx=370
entrance_0=On,345,230,Destroyed Arroyo Bridge,-1,26719,0

������, ������ ��� ������ ���-�� �������� ���������� ����������� ��������.

����������: 10:09 - 7 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���.
��������� ����� ����� ��� ��������:
variable original_fid; //"������" FID
Procedure start begin
original_fid:=obj_art_fid(self_obj);//��� ��������� ���������� ������ - start, ������� ��� ����� ������������� ������ FID
end
variable ptr_armor; //��������� �� �����
variable Art_fidM:=-1;//"�������" FID
variable Art_fidF:=-1;//"�������" FID
Procedure critter_p_proc
begin
 ptr_armor:=critter_inven_obj(self_obj,INVEN_TYPE_WORN);
 if (ptr_armor==0) then
 metarule3(107,self_obj,original_fid,0);
 else
 begin
  if(obj_pid(ptr_armor)==PID_LEATHER_ARMOR)OR(obj_pid(ptr_armor)==PID_CURED_LEATHER_ARMOR)OR(obj_pid(ptr_armor)==PID_LEATHER_ARMOR_MK_II)then begin
  Art_fidM:=FID_HMLTHR;
  Art_fidF:=FID_HFLTHR;
  end
  else if(obj_pid(ptr_armor)==PID_LEATHER_JACKET)then begin
  Art_fidM:=FID_HMMAXX;
  Art_fidF:=FID_HFMAXX;
  end
  else if(obj_pid(ptr_armor)==PID_PURPLE_ROBE)then begin
  Art_fidM:=FID_HAROBE;
  Art_fidF:=FID_HAROBE;
  end
  else if(obj_pid(ptr_armor)==PID_METAL_ARMOR)OR(obj_pid(ptr_armor)==PID_TESLA_ARMOR)OR(obj_pid(ptr_armor)==PID_METAL_ARMOR_MK_II)then begin
  Art_fidM:=FID_HMMETL;
  Art_fidF:=FID_HFMETL;
  end
  else if(obj_pid(ptr_armor)==PID_COMBAT_ARMOR)OR(obj_pid(ptr_armor)==PID_COMBAT_ARMOR_MK_II)then begin
  Art_fidM:=FID_HMCMBT;
  Art_fidF:=FID_HFCMBT;
  end
  else if(obj_pid(ptr_armor)==PID_POWERED_ARMOR)OR(obj_pid(ptr_armor)==PID_HARDENED_POWER_ARMOR)OR(obj_pid(ptr_armor)==PID_BROTHERHOOD_COMBAT_ARMOR)then begin
  Art_fidM:=FID_NAPOWR;
  Art_fidF:=FID_NAPOWR;
end
�������!
������ �������:
1. ���� �������(�.� ����� ����, � ����� ������) ����� � ������ �������, ��� �������� �� ��������. �.�. ����� ������� �����, ����� ����� �����, ����� �� �������, ����� � ������, � ����� ������. ������?
2. ������, ��� ����� �����(����� �� �������) ������� �������� �������� ���� �� �����. ��-�� ���� ��� ����� ����?



(���������� �� 23:53 - 13 ���., 2005.)


�����...
��� ������ �� ���������, ��� � ������ ������� ������ ������� ��������, ����� ����� ������ �� ������ �����. ������� �����.
���:
#define Weapon(Pid_Item)  if(obj_carrying_pid_obj(self_obj,Pid_Item)!=0)then\
                         gsay_option(-1,"� ����, ����� �� ���� � ����"+  proto_data(Pid_Item,it_name), wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item)),-1);
��� (��� � �� ���� ����� ��� �������, �� ��� ������� ��� ��-���� gsay_option)
#define Weapon(Pid_Item)  if(obj_carrying_pid_obj(self_obj,Pid_Item)!=0)then\
                         SayOption("� ����, ����� �� ���� � ����"+proto_data(Pid_Item,it_name),wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item)));
� �������, ��� ������ wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item)) ��� ������ ���� �������� �� ���������. ���-�� �����:
SayOption("� ����, ����� �� ���� � ����"+proto_data(Pid_Item,it_name), Wield_Critter);
Procedure Wield_Critter begin
wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item));
end
�� ��� �������� ���� ��������� Pid_Item???
Procedure Take_Weapon begin
variable Pid_Item:=4;
Rep(10);
Weapon(45)Weapon(94)Weapon(118)Weapon(120)Weapon(122)Weapon(143)Weapon(159)
Weapon(261)Weapon(268)Weapon(270)Weapon(280)Weapon(283)Weapon(287)Weapon(296)
Weapon(313)Weapon(332)Weapon(365)Weapon(421)Weapon(427)Weapon(500)Weapon(519)
while((Pid_Item>=3)AND(Pid_Item<14))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=15)AND(Pid_Item<17))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=18)AND(Pid_Item<29))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=115)AND(Pid_Item<117))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=160)AND(Pid_Item<163))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=233)AND(Pid_Item<237))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=241)AND(Pid_Item<243))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=290)AND(Pid_Item<294))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=299)AND(Pid_Item<301))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=319)AND(Pid_Item<321))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=350)AND(Pid_Item<356))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=371)AND(Pid_Item<373))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=383)AND(Pid_Item<408))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=496)AND(Pid_Item<498))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
while((Pid_Item>=508)AND(Pid_Item<510))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End
end



-----
...������� �������������, ���������� � ��������������..

����������: 23:47 - 13 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

����������� � critter_p_proc �� ����.

procedure talk_p_proc begin
variable previous_armor;
variable current_armor;
variable previous_weapon;
variable current_weapon;

--���������� ������� ��������� �������� � previous'�---

--������--

--���� ������� ��������� != �����������, �� ������� �����, ����� ������ (���� �� wield'��� ������, ��, ����� ����� �����, ������� �������� � ������� ������)--

end

-----
Scio me nihil scire

����������: 9:19 - 14 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�� ������ �� ����. � ��� ��������, �� ����������. ��������� ����� ���������� � Node999, �.�. � ����� �������. ����� �� �������� �������. � ��� ������ ������ ���������? ������ ��� ������ ������������?

-----
...������� �������������, ���������� � ��������������..

����������: 23:00 - 15 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

>>�� ������ �� ����.
� ����� ��? ;)
� ����-�� �� ��������. � ��� ����� ��� ;)

-----
Scio me nihil scire

����������: 0:04 - 16 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���� ����� ��. �� � ���� �������� ��� ��� � ������� =)

-----
...������� �������������, ���������� � ��������������..

����������: 0:30 - 16 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ������ �� ���� �������� ���� ������� "� ��� ��������� �����!"

�������� ��� �������, �� ������ Mynah ����� ������� � ������. ������ ����������� �������� ������ ������ � ���������, ������� ���������� ������ ��� � ������� - ������ ������ ����. ��� ���, binyan, ������� ���� ���, ���� ���� ������� - ����� ��. � ������ ������ �� �����.

����������: 11:13 - 16 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� ������� ����� ���������, ��� ����� �������, � � �������, ��� ��� ������� ��������. ��:
������:

�� ������ �� ����. � ��� ��������, �� ����������. ��������� ����� ���������� � Node999, �.�. � ����� �������. ����� �� �������� �������.



���������� ������� �� ����, �� �� �������_�_���� � ��������� ����� �����.

-----
...������� �������������, ���������� � ��������������..

����������: 22:40 - 16 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ������� �������. �� ������ ���� ��������� ������ � Node999, �� ���� ���� � �������� �������. ����� �� - � ��������� ���������. ��-������. ��-������, � tpp ����� ���������� ���������� ������������������, ������ ���� ���-�� ����� ����, ��� ���� ������� Mynah. � ����������� ������� ����� ���������. � ��� ��������. ��� ��� ������ ���� ��������� � tpp .

����������: 10:07 - 17 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

������ ������ ������.

��� ����� ����� header � ������� ����������� ��������. �� �� ����������, ��� ��� �������� �����-������ ������ ������, �� � ������� �������� ���� ��������. �� ��� ������ �� ���� ��� ������ �� �����:) �� �, ���� "����� ������� ���������� ���� � ������������������", �� ��������� ������ ���. ������� - ������� ;)

��: ����� ������� ���������� �, ������������, ����� ������� ��������� ������� � ���, ��� � Option ������ ��������� ���������� ��������� � �����������. �� �����, ����, ����������.

-----
Scio me nihil scire

����������: 13:18 - 17 ���., 2005 | ����������: Mynah - 15:20 - 17 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� ���� ����� ������:
����� �� � ��������� �������� ��������� �������? ���� ��, �� ���?

-----
...������� �������������, ���������� � ��������������..

����������: 22:12 - 18 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

[��� �� � ������� ���� �����. ����� ��� ����]

������ � ���� �� ����������. ��� ������ ������:

variable temp:="abcd";

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 0:01 - 19 ���., 2005 | ����������: Ray - 23:12 - 18 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� ������� �� � �������.
������� Raven:
������:

��������� �����������. ��� �������� ������� ����� � ���� ��������� ��. ����� ����������. ����� �������:
"12345678:87654321:6892020"...
�.�. - ����������� char-������. atoi �������. �����������, ��� �������� ������ ��� ������������� �������� ���. � �������� �� ������� ������. ���� - ������� :-) � ���� ���������� "� ����� ����" :-)

������ �� ������ ��� �� ����� ������ �����������

-----
...������� �������������, ���������� � ��������������..

����������: 0:49 - 19 ���., 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

����� ��������� ������ ����������� ��� �������������� ����������� ������ (������ ������� �� Raven'������� ������ ���� �����������). ���:

========================
procedure start;
procedure getmas(variable name,variable index);
procedure setmas(variable name,variable numb,variable index);
procedure look_at_p_proc;

variable mas:=0;
variable h:=0;

procedure start
begin
end


procedure look_at_p_proc
begin
 mas:=setmas(mas,70,0);
 mas:=setmas(mas,90,1);
 mas:=setmas(mas,80,2);
 h:=getmas(mas,1);
 h:=getmas(mas,2);
end

procedure getmas(variable name,variable index)
begin
variable ret:=0;
variable k:=0;
ret:=name;
while (index!=0) do
begin
index:=index-1;
ret:=ret/100;
end
k:=ret;
k:=k/100;
k:=k*100;
ret:=ret-k;
return ret;
end

procedure setmas(variable name,variable numb,variable index)
begin
variable temp:=0;
variable inj:=0;
inj:=index;
temp:=name;
if (index!=0) then
begin
while (inj!=0) do
begin
inj:=inj-1;
temp:=temp/100;
end
temp:=temp/100;
temp:=temp*100+numb;
while (index!=0) do
begin
index:=index-1;
temp:=temp*100+getmas(name,index);
end
end
else
begin
temp:=numb;
end
return temp;
end
============================


��� �� �����. � ����� �� ����� mas. ��������� ��� �� 0. ����� ��������� ��� __ __ __ __
��� ���� ������� - ����� �� 0 �� 99.

procedure setmas(variable name,variable numb,variable index);

�������� � �����. ��������� name - ��� ������, numb - ��������, index - ����� �������� (��������� � ����)

procedure getmas(variable name,variable index);

������
name- ��� ������
index - �����

����� ��������, ��������. ��� ����� ����� ��� ���������� - ������� �����.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 1:54 - 19 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������� . ��-������, ���� ����, ���� � ���� ��� �������� ��������. ��-������, ��� ���� ������ ���������� ������� (����� �������) ������� Mynah � ���� ������� ��� ������ ������. �-�������, �������� ������� � �������� � ���������. � ����� ��� ������ . ���� custstr2.ssl, ��������� wordar.

����������: 10:21 - 19 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

����, ����.
����� ������� ����� ����� ��� �������� ����������� ����� �����, �� � "������" ������� ����� ����� ���� �� ������, ������� ��� ��������� ��-�� ��. ������ ��� ���� �������� � ���� �������. ���� �� ������� � ������ �� �������. ���� ������ �������� �� �������, �� ����������� ������ ������� � ���� �� ������. ��� ���, �������� ����, ������� ���, ����� ��� �������, � "�������" ����������� ������ �� ������������, � ��� ������ �� �������, � ������� ������������.��� ��������� ��������:

#define remove_from_inventory(Forbidden_weapon_remove) rm_obj_from_inven(self_obj,obj_carrying_pid_obj(self_obj,Forbidden_weapon_remove))
#define add_to_inventory(Forbidden_weapon_add) add_obj_to_inven(self_obj,create_object(Forbidden_weapon_add,1,1))

procedure forbidden_weapon_pid_array(variable num);
procedure degree(variable num, variable degree);
Procedure Hide_forbidden_weapon;
Procedure Show_forbidden_weapon;

variable amount_forbidden_weapon:=4;

procedure forbidden_weapon_pid_array(variable num) begin
variable temp;
if num==0 then temp:=PID_PLASMA_RIFLE;
if num==1 then temp:=PID_ROCKET_LAUNCHER;
if num==2 then temp:=PID_GATLING_LASER;
if num==3 then temp:=PID_TURBO_PLASMA_RIFLE;
return temp;
end

������, � �������� ��������� ���� �������? ���� 10 � ������ n � �.�.? ���� ����, �� � ��� ��������� ����� =((
procedure degree(variable num, variable degree) begin
variable i:=1;
variable temp;
while(i<degree) do begin
num:=num*num;
i+=1;
end
temp:=num;
if degree==0 then temp:=1;
return temp;
end

Procedure Hide_forbidden_weapon begin
variable i;
set_local_var(LVAR_forbidden_weapon,0);
while(i<amount_forbidden_weapon) do begin
if(obj_carrying_pid_obj(self_obj,forbidden_weapon_pid_array(i))!=0)then
begin
remove_from_inventory(forbidden_weapon_pid_array(i));
set_local_var(LVAR_forbidden_weapon,((local_var(LVAR_forbidden_weapon)*10)+1));
end
else set_local_var(LVAR_forbidden_weapon,(local_var(LVAR_forbidden_weapon)*10));
i+=1;
end
end

Procedure Show_forbidden_weapon begin
variable i;
variable j:=0;
variable g:=1;
i:=(amount_forbidden_weapon-1);
if((local_var(LVAR_forbidden_weapon)/degree(10,i))==1) then add_to_inventory(forbidden_weapon_pid_array(j));
while(i>=0) do begin
i-=1;
j+=1;
if(((local_var(LVAR_forbidden_weapon)/degree(10,i))%degree(10,g))==1) then add_to_inventory(forbidden_weapon_pid_array(j));
g+=1;
end
end

Procedure Dialog_in_party begin
call Hide_forbidden_weapon;
Rep(6);
Opt(61,Weapon);
//if self_wearing_armor then        Self_wearing_weapon - Command.h
if(critter_inven_obj(self_obj,INVEN_TYPE_WORN)!=0)then
�pt(62,Remove_Armor);
Opt(63,Healing);
Opt(64,Waiting);
Opt(66,Distance);
Opt(65,End_dialog);
End

Procedure talk_p_proc begin
Dialogue(self_obj,Choose_dialog);
call Show_forbidden_weapon;
//��� ������ ����� �����
�nd

��� ������, ��� ����� � ������, �� ����������� ������ ����������, � ��� ������ �����������. ���� ������ ���� ��������...������. ����������� ��������� ��� ������� ����, ���� ������ gdialog_barter. �� ��� �� ���������� �������� ��������. ������������� � �� ���� ������, ����� �� ��� ������ � ���������.� �� ���� ������� ������ � �������.
�� ����� �������������� ������� ������:
� �������� �� ������ ������, � ������� �� ��� ���?



-----
...������� �������������, ���������� � ��������������..

����������: 0:24 - 24 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

binyan
����� ��������-�� �� ���������?
������ ������ �������� � �������� ������.

���:
procedure check_forbidden_weapon(varibale pid) begin 
variable i:=0;
variable tmp_out:=1;

 while i<frbdn_wpn_cnt+1 do begin
  i+=1;
  if forbidden_weapon_pid_array(i)==pid then tmp_out:=0;
 end
 
 return tmp_out;
end

-----
 if check_forbidden_weapon(x) then .....
-----



PS: ������, ��� ������-�� ����������? ��� ��� ����?;)

-----
Scio me nihil scire

����������: 12:27 - 24 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�� ���� ���� ���� �������� � ��������� =) � ���(�� �� ������, �� ���-�� �����) ������ ���� =) � ������ ? ������������ ��������� =)) ��� ��� ����� ����� �������� ������ =)

-----
...������� �������������, ���������� � ��������������..

����������: 23:03 - 24 ���., 2005
Zarkon
������������

������: ������. �������.
�����������: ���. 2005

�����: 2 ���������

�������� �����������!
���������(���� ��� �����)  ��� ������� ������ ��� �������� ��������, �������� ����� �������: "���������" � "�����". ???

����������: 11:53 - 26 ���., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

Zarkon
��� �������� �������� - ���� ����� ������� ������������ ��������, ������� ����� ����� �� ������. ��� ��������� �������� ���� �� ���� �����. ���� � ���� ������������� ����� �������, � ������� ����� ����� ������ - �����, � ����: RTFM.

��: ��� �������� �������� ���������� ������ ������� � ������� "������-����" � � ������ ��������� ������. ����� ������ ������� ����� ������� � ������� �������� �����������.

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 12:06 - 26 ���., 2005
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

2Zarkon
�� ������ ������� ���� ������ �� ������ ���� �� ������� ����� �� ����. ��� �������� ���� ����������� ����� dctubby.ssl, ditubbox.ssl, �command.h � ������� �� bis_help. ��� ����� ������������ den.h � ��� ��� �� ������. ������, �� ����� HEADERS ����� �������� ������ ��������.

����������: 13:10 - 26 ���., 2005
Zarkon
������������

������: ������. �������.
�����������: ���. 2005

�����: 2 ���������

����������, ������ ������������...
������ �������� ��� ��������� � ��� �������� ����?

-----
(_|_)

����������: 17:24 - 26 ���., 2005
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

Zarkon,
������ ���� �����. �������� ������������. ������. "��� ��������� � ���" - ��� ������ �� ����.

��: � ���������� ��������� ���� ������ ���� ����.

����->���������->cmd->shutdown -s -t 00


-----
Scio me nihil scire

����������: 18:52 - 26 ���., 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���������� ����������� � ������ �������. � ��������� �������, ����� ����� ������������ ������ ��� ������� ������� (��-���). � ��� ����� ��������, ����� ����� ������������ ��� ��������� ������� � 9 ���������� ��� �������.
procedure degree(variable num, variable degree) begin
variable i:=1;
variable temp;
while(i<degree) do begin
num:=num*num;
i+=1;
end
temp:=num;
if degree==0 then temp:=1;
return temp;
end

Procedure Hide_forbidden_weapon begin
variable i;
set_local_var(LVAR_forbidden_weapon,0);
while(i<amount_forbidden_weapon) do begin
if(obj_carrying_pid_obj(self_obj,forbidden_weapon_pid_array(i))!=0)then
begin
remove_from_inventory(forbidden_weapon_pid_array(i));
set_local_var(LVAR_forbidden_weapon,((local_var(LVAR_forbidden_weapon)*10)+1 ));
end
else set_local_var(LVAR_forbidden_weapon,(local_var(LVAR_forbidden_weapon)*10+2));
i+=1;
end
end

Procedure Show_forbidden_weapon begin
variable i;
variable j:=0;
variable g:=1;
i:=(amount_forbidden_weapon-1);
if((local_var(LVAR_forbidden_weapon)/degree(10,i))==1) then add_to_inventory(forbidden_weapon_pid_array(j));
while(i>=0) do begin
i-=1;
j+=1;
if(((local_var(LVAR_forbidden_weapon)/degree(10,i))%degree(10,g))==1) then add_to_inventory(forbidden_weapon_pid_array(j));
g+=1;
end
end
���...���������� ��� �����������


-----
...������� �������������, ���������� � ��������������..

����������: 1:18 - 27 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Zarkon � ���. � �� ������� ������, ���� �� ����������� �������� ��������� ���������� �������.

����������: 11:10 - 27 ���., 2005
Fozzy
������������

������: �������,����
�����������: ���. 2004

�����: 81 ���������

������ � ��� ��������� ��� ����� ���� �������� ������� � ����� ssl.
���:
 
#define mass[y]:=x set_local_var(y, x)
#define :=mass[y] local_var(y)


��� ������ ��� ������� ���������� ��������� ���������� ��� ������ � ��� ���������� �������.

����������:
1. ����� �������, �� �� ����� ������������ �������� ������, ������ ����� ���������� ��������������� ����� mass ��� �� ���� ���.

�����������:
1. ����� �������������� ���������� ���������� ������� "��������".
���:
 
procedure sort(variable max)
variable i;
variable y;
variable temp;
begin
 while i <= max - 1 do // ��� ��� � ���� �� �������� ����� for ���������� ����� while
   begin
     while y != i do
       begin
        if i < y then //���� i �������� �� ������� � y ������ ������� �������� � ����������. ����� �������� ���� � ����������� �� ���� ��� �����������. (�� ����������� < (�� �������� >
         begin
          temp:=mass;
          mass:=mass[y];
          mass[y]:=temp;
         end
        y:=y+1;
       end
    i:=i+1;
end
end


���� ��� ��������������(��������) ������ ��� ���������������� �������� ��� ��� � �� ������ ��� ���� ������ �������� ��� ������.
�������� �� ��� �������� � ����������, ����� �� ������.
������� ����-�� ��� ����������.

-----
��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������.
� ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy

����������: 17:38 - 23 ������, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

����:

����������:

2. ���������� ������ ������ ����� �� 633+. �.�. ��������� ����� ��� ������. � ����� �������� ����� ����������. � ��� �� ������� �� ������, � ������� �����������\������ �����.

�����������:

1. �� ��� ������ ������� �� �������� ����������, � ��� �������� �� �����.
2. � ���� ���������� ��� � ������� �������� (�.�. � ������ �����). ����������� ����� ���� ��������, ���� ����� ���������.
3. ����� �������� 'y' ����� ���������� �����.
4. � ����� ������ ����� ����������?
5. ����� �������� ������ �� ����������. ����� �� ������������ ������ ������������ �������, �����, ������������ �������, ������� ���������� � �.�., ����� �� ���� � �������� ����������.


>>���� ��� ��������������(��������) ������ ��� ���������������� �������� ��� ��� � �� ������ ��� ���� ������ �������� ��� ������.

��� ��� ����� ��� ����������: � ssl ��� �������� ����� ������ ����������. �� ������ �������� ���:
temp:='aaa';
��� �
temp:=231;

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 21:03 - 23 ������, 2005
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

��� ����, ����� ����������� ����������� ������� ��������� ���������� ����������.
������ �������  ����� ���������� ������������� � ��������������, �.�. ��������� � ���������� ������ ������ ���������� �� ����� � �� �������.

�� ��������� ������ ������� ����� ����������� � ������� ������������ ������� � ����������� �� �����.

����������: 22:40 - 23 ������, 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
���������� ������ ������ ����� �� 633+. �.�. ��������� ����� ��� ������. � ����� �������� ����� ����������. � ��� �� ������� �� ������, � ������� �����������\������ �����.

�� �� ������� set_local_var. ������������� GVAR ��� �� �����������, �� ���� ������ � ���� �� ����. � ��������� ���-���� ��������� �������� �� � 0 � �� � 1 (���� ������ �������� ����� LVAR).
������:
����� �������� ������ �� ����������. ����� �� ������������ ������ ������������ �������, �����, ������������ �������, ������� ���������� � �.�., ����� �� ���� � �������� ����������.

���� ������ ���� ������� ������ ���������� � ��������� �������... � ������? ������� ��������, ��� ����� ���� ����� ���� ���������� ������.

����� � ��� ������������ ���� ��������. �� ������ ��������� ���������� (�������� ����� ���������� �������� ). ��, ������, ����� ����� ���������, ��� ������ ������ ��������� ��� ��������� �������������� (����, �����) ���������� ����������� ��������. ��� ����� �������� ��� ���.

-----
hit me, nail me, make me god

����������: 1:14 - 24 ������, 2005 | ����������: Alan Killenger - 2:20 - 24 ������, 2005
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

>>�� �� ������� set_local_var

�� �������, ����� ��������.

>>���� ������ ���� ������� ������ ���������� � ��������� �������... � ������?

� � ������ � �� ������. � ������ �������� ��� ������ - ��� ������ �� ����������. ��������, ���� ��� ��������� ���-�� �� �������

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 11:44 - 24 ������, 2005
Fozzy
������������

������: �������,����
�����������: ���. 2004

�����: 81 ���������

2Anchorite:
��. ������, �� ���� ���� ��������... �� ��������� � ���� ������ �������� ��� ������, ��� ��� ���� �� ������� ���� ���-���� ������� ��� ����.

2Ray: � �� �� ������� ��� ��� ����������� ������ ���� ������ � ����� ������ ��� �� �������� ��� ���� ����� ��������� �������.

2Alan Killenger: ������� �� ��������� =)

�.�. � ���... ��� ���-���� ����� ��� ���� ����� ���������� ���������� ���� � ��� �������� ������?
�� ������ ��� �� �������� ��������(� == 32(�����)).

-----
��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������.
� ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy

����������: 18:06 - 24 ������, 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������.

-----
hit me, nail me, make me god

����������: 5:10 - 25 ������, 2005
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
procedure use_p_proc begin
 destroy_object(self_obj);
end

������ � ���� ������ �������� � �������?

-----
hit me, nail me, make me god

����������: 17:53 - 2 ���., 2006
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

Alan Killenger,
�������� ��������� script_overrides ���, ���� �� �������, �� �� ��������� �� use, � ����� �������� ������, �� �������� ������� �����������.

-----
Scio me nihil scire

����������: 19:04 - 2 ���., 2006 | ����������: Mynah - 21:05 - 2 ���., 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

1. ��� ������� ������ �� ��������� ������, ���� ��������� ������ ������? ����� �� ��������� ������� ��������� ������?

2. ��� ����� �������� � ������� �������� ����� ���������?

�� � ����������. � �������� � ������ ������ �� ���������� ���_���_�_���� ������_���������� (������ ������), ��� ��������� ����������� �� ����, �� ���� ��� ������� �� ��� ������ ����� ������� ������� ��� ��� ���� ����������� ����� "��� ������ �� ������.".

-----
hit me, nail me, make me god

����������: 23:04 - 4 ���., 2006 | ����������: Alan Killenger - 0:05 - 5 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

1. �����. ������.
2. ��� ������� - �����. �������� ������ ������. ������ ���������������� ���� ��������
int obj_pid(ObjectPtr obj) - ���������� ������������� ��������� (pid) �������
���������:
obj - ��������� �� ������
������������ ��������:
������������� ��������� �������
������, ��� ��������� ����������. � ���� ���� �� ��� � ��������. �����: � ���� ����� ����, ����� �������� ������ ������? ���, ��������, �� ����...

�������� ����� �� ���� ��� ������. ������ � ����������...

����������: 23:09 - 4 ���., 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

� ����� �� ���-������ ������: ������ ��������� ��� ���?

-----
hit me, nail me, make me god

����������: 4:34 - 5 ���., 2006
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

������

-----
Scio me nihil scire

����������: 10:02 - 5 ���., 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

� ����� �� ���-������ ������: �������������� �� ����� PipBoy ������ ��������� �������-�� �������? ���, ������ ���... ������� ���� ����� �� ������ ����� ��������� ������?

-----
hit me, nail me, make me god

����������: 22:29 - 5 ���., 2006 | ����������: Alan Killenger - 23:31 - 5 ���., 2006
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

��, ��������, ���������� ���� ������� :)

������. �� ������.

-----
Scio me nihil scire

����������: 23:06 - 5 ���., 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������, � ���� ��������� ������ ������. ��������� ������ � ���� ������������ ���������� �����. ����� ��� ������� ����� ����������? ��� ���� ����� ���� ���� ������ ��� ��������� ��� ���������� ���� ����������� ���������. � ��� ��� ������������� � �������� �� �����. �������� ��������� ��� ��, ��� � � �������� ������� ���������?

����������: 15:34 - 20 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�������� ������������� ������ ���� . ��� � �� .

����������: 16:47 - 20 ���., 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��� � ���� ��� ������ ������ ������ ��������. ��� ���� �������� �������� �������, ������� �������������� ��� �����������, �� �� ������ ��� ��� ���� ���������. � � ���� ������. ����� ������ ������� ���������� �������� �������? ���� ��, �� ����� ��������� ������ �������� ��������� � ��� �������.

-----
...������� �������������, ���������� � ��������������..

����������: 21:40 - 20 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ��� �� ������� ������� .

��������. ��� ������ ������ �������� � �������_���. ����� ����� ��������� ���� ���������. ����� � ���������. �� ��������� ����� - ���.

����������: 10:07 - 21 ���., 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� ����� 7 ������(�������������): �� 0 �� 6. ����� ��� ����������� ������ �����:

if (op_get_critter_stat(op_dude_obj(), 5) < 6) then
� �call Node008();
�else if (op_get_critter_stat(op_dude_obj(), 8) < 3) then
� �call Node009();

���?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 22:07 - 30 ���., 2006 | ����������: Ray - 21:08 - 30 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

�� ������� � F-Geck.

#define STAT_ag � � � � � � �(5)
#define STAT_lu � � � � � � �(6)
#define STAT_max_hp � � � � �(7)
/// �strength, perception, endurance, charisma, intelligence, agility,
/// �luck, � // luck MUST be the last basic stat
// derived stats
#define STAT_max_hit_points � � (7)

#define STAT_max_move_points � �(8)
#define STAT_ac � � � � � � � � (9)
///#define STAT_unarmed_dmg � � � �(10)
#define STAT_unused � � � � � � (10)
#define STAT_melee_dmg � � � � �(11)

� ��� �����.

Ray �������� ��, ���� ������ ����


(���������� ��  21:30 - 31 ���., 2006.)


���� �������:

��� ������ � wield_obj({ObjectPtr obj});
����� ��������� ����� ����� � �� ����, ��� ���� ��� �������.

��� ��������� �������� ����� (���� �� ��� �����������)
� ��� ������ ����� � ��������������� ��������������� ��� ��� �� ��������?
���-�� ������� ������� - ������� �� ��� � �� ����� ��� ������ �������. �:-/

����������: 21:21 - 31 ���., 2006 | ����������: Dar - 21:31 - 31 ���., 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

�� ���� � ��� �������� ������ ����� 10 ���. ����� ���� ��� ���� ��������. ��������� ���� �������

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 23:49 - 31 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

������, �� ������ �� ���� ������� � ���� ����� ������ ����� ����� - ���� ���� ��������. ���.
.

//wield_obj_critter(dude_obj,obj_carrying_pid_obj(dude_obj, {pid_Item}));

����������: 9:38 - 1 ���., 2006
Lesnik7
������������

�����������: ����. 2006

�����: 6 ���������

� ������� ����� ���� ������ ������� �� ������� ,�� � ���� ��������� ������.

������� � ������� ������ (����� ����), �������������� ( ���� ���������� ��� - ��� ���������������� ������?) ������� � ������, �������� ��� � ������� ��������, ��� s e , �������, �.... ��� ��� � ���������� ������.... ��� ������, �? ��� � ��� ��������� ������?

� ��������� ��� �������� ����� ��������� ����� Word ��� ���-������ � ���� ����. ������ �� ����������!
WG

����������: 15:41 - 6 ���., 2006
Inviolatum
������������

�����������: ���. 2006

�����: 14 ���������

������ ����� �� �� �������� ������ � scripts.lst
��� ��� ������� � ����� ������ ������

����������: 16:57 - 6 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

���� ����� ���������� ���������� ��� ��� ����� � ��������� combat_p_proc
� FScript-HOWTO ��� �� ��������, � �� ���� ��� ���� � ��� � ����, ����� ����:

combat_p_proc - ����������� �� ����� ���. ����� ����������� �������, ���������� �������, ��������� � �������� ��������� fixed_param:
fixed_param = COMBAT_SUBTYPE_WEAPON_USED (1) - ���� ������������ ������
fixed_param = COMBAT_SUBTYPE_HIT_SUCCEEDED (2) - �������� ���������
fixed_param = COMBAT_SUBTYPE_SEQUENCING (3) - ����������� ������ ������������������
fixed_param = COMBAT_SUBTYPE_TURN (4) - ������ ����
fixed_param = COMBAT_SUBTYPE_NONCOM_TURN (5) - ���������� (������������ � �������� ���������, ��������, �������� ��� ������)

��� ����� ���� ��������� ��������� ��� 1) ���� ������������ ������, 2)�������� ���������, 3) ����������� ������ ������������������,4) ������ ����,...

��� �� ���� ��������� ������ ���� fixed_param? ������ ����� �� �� combat_p_proc ������ ����� ������ ���� ��� ����������� ��� �) ����� , �) ��������� �����������? (���������� ����� � ��������� ����������� �� ������� obj_dude �� �����)

����������: 19:48 - 9 ���., 2006 | ����������: Keha - 19:58 - 9 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

Keha

���� ����� ������ ��������, ������ �� ��� ����� �������� �������� �������� �� ����� ����� ��� ��� �� ����� ��� ������ �����.

��� ���� ������� ������:

procedure combat_p_proc
begin
variable tmp_armor;
tmp_armor:=critter_inven_obj(dude_obj, INVEN_TYPE_WORN);
add_timer_event(self_obj, 1, 2);
if �(fixed_param �== �4) �or �(fixed_param == 3) then begin
if �(obj_is_carrying_obj_pid(self_obj, mech_armor_pid) == 1 ) then begin
wield_obj_critter(dude_obj, obj_carrying_pid_obj(dude_obj, mech_armor_pid));
display_msg("Bot set brain control");
end
if �(obj_is_carrying_obj_pid(self_obj, Android_armor_pid) == 1 ) then begin
wield_obj_critter(dude_obj, obj_carrying_pid_obj(dude_obj, Android_armor_pid));
display_msg("Bot set brain control");
end
� � �if �obj_pid(tmp_armor)== �mech_armor_pid � then begin
� � �metarule3(107, self_obj, 16777282, 0);
� � �end
� � �if �obj_pid(tmp_armor)== �Android_armor_pid � then begin
� � �metarule3(107, self_obj, 16777336, 0);
� � �end
end � � �
end � �

����������: 22:12 - 9 ���., 2006 | ����������: Dar - 22:14 - 9 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

������� �������.
����� ������ � ������� �� ���:

procedure combat_p_proc begin

���������� �����. tmp_armor ��������� ������ �� ���� �����.
variable tmp_armor:=critter_inven_obj(dude_obj, INVEN_TYPE_WORN);

�������� ������� �� ������� (�������� �������, ��������=1���, ����=2)
add_timer_event(self_obj, 1, 2);

    ���� �_�=4 ��� 3 ��
    if  (fixed_param  ==  4)  or  (fixed_param == 3) then begin

        ���� ���������� ���_������� � ��������� �������� ������� = 1 ��
         if  (obj_is_carrying_obj_pid(self_obj, mech_armor_pid) == 1 ) then begin
           
                  ��� ����������� � ��� ���_��������
                  wield_obj_critter(dude_obj, obj_carrying_pid_obj(dude_obj, mech_armor_pid));

                    ��������: "��� ��������� ����� �������" - ��� ��� �������� ���������� ���� �������� ��� ������ � ��� &#61514; ?
                   display_msg("Bot set brain control";
          end
     
          ���� ���������� �������_������� � ��������� ��������� ������� = 1 ��  
          if  (obj_is_carrying_obj_pid(self_obj, Android_armor_pid) == 1 ) then begin

                   �� ��� ����������� � ��� ��������  
                    wield_obj_critter(dude_obj, obj_carrying_pid_obj(dude_obj, Android_armor_pid));
         
         ��������: "����� ����?"
         display_msg("Bot set brain control";
         end

     ���� ��� ����� ���� ���������� ������ ��
    If  obj_pid(tmp_armor)==  mech_armor_pid   then begin
   
       
        metarule3(107, self_obj, 16777282, 0);

meta3_switch = METARULE3_ART_SET_BASE_FID_NUM (107), �������� �������, FID=16777282, meta3_par = 0:
�������� ������� ����� FID (�������������� ������)

�������� ������� ������������� ������? ���?
����� �� ����� ��� ��������? ���������� �������� � �������?        
        end
   

      if  obj_pid(tmp_armor)==  Android_armor_pid   then begin
    metarule3(107, self_obj, 16777336, 0);
    end
end      
end  

� ����� �� ������ ��� ����� ���� ������.
� ��� ��� ��� ������ metarule3 � ���� ������ ������ �������������.
� ����� ������� ������������ ��������� dude_obj, � � ����� self_obj,.
��� ����� ��� ������� Obj_dude(����)? ��� ������ ������� �������?
���� ���� �� �������. �� ����� ����� ��������� self_obj?

�� ������ ��������� �� ������� ��� �������� ������� �� �������. ��������� ������� ��� ��� ����� � ������� ����� add_timer_event ��� �� ��� ������ ��������� ����� �������� � 1���?
�� ����� �� �������� ������������ � �������� ��������� combat_p_proc,
����� �� ������������ ��������� ������� �� ���� �����
����� ���� ���� �������� � 1���, � ������ ����� ����� ����������� ��� ���������? ���?

����������: 15:05 - 10 ���., 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������:
� ����� �� ������ ��� ����� ���� ������.
� ��� ��� ��� ������ metarule3 � ���� ������ ������ �������������.
� ����� ������� ������������ ��������� dude_obj, � � ����� self_obj,.
��� ����� ��� ������� Obj_dude(����)? ��� ������ ������� �������?

1. � metalure ���� ��������� �������, �� �����, �� � ������ ������ ��� ������ ��� - �.�. ������� ���, ��������, ������� ��� ������.
2. ��� � ���� �� �����...�� � ��� ���� �������. self_obj - ��� ��������� �� �������� ������� dude_obj - ��������� �� ����.


-----
...������� �������������, ���������� � ��������������..

����������: 23:11 - 10 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

�� ��� ������ ����.  self_obj ���� ���� ����������� - ������� �� ������� ��� ����� �������.

������:
"��� ��������� ����� �������" - ��� ��� �������� ���������� ���� �������� ��� ������ � ��� &#61514; ?


����� ����� ���� � ������ ������� ����� ���� ������� ������ �������� � �� ����� �������� � ���
������ ������ ������� ���� �� ����� �������� (2-� ������� � ���� �� ������� - �� ���� ����� ������.)

�� ����� ��������� � �� ������� ������ ���������.
� � ������������� � Mynah'� - �������� ����������  ���� ������������������ �� ������� ����������� �����. ������  ��� ����� �� ���������. :-/

������ �������� mech_armor_pid �� ��� ������������ �����, ����� add_timer_event(self_obj, 1, 2); , ��������� ����  �� ��������������� � ������� ��� � ������ ���� � ���������� ��� ���������.

>>�������� ������� ������������� ������? ���?
>>����� �� ����� ��� ��������? ���������� �������� >>� �������?

��� �������� ��������� ����� �� ���������� � �� ���� ����  �� ������� ������  ��������������� �� ������� ��������.  �������� ����� ����� � ������ ������ � ����� ���� ��� ����������� �� ������� ���� �� �� ��� � ����� � ��� ����� ������� ���� ��������� ���� ��� �� ���������(��� �� �����) ���� ������ �������.

>>�������� ������� �� ������� (�������� �������, >>��������=1���, ����=2)
>>add_timer_event(self_obj, 1, 2);

��� ����� procedure timed_event_p_proc �����������. � ������ ���� � ������ ������ �����
fixed_param �� ���������. ��� ����� ������ ��� �� ��� ��� ������ ���� ��������� � ����� � ���� ����� �� ��� ������� � ���� ����������� � �.�. �������� ����� ������ ���������� (� ������� ��� ����� ����� ����������).

������:
�� ������ ��������� �� ������� ��� �������� ������� �� ������� [� �����].


������� ��� - ��������� ������� ����� ��������� ������ ����� ����� ���� ��� � ���� ��������� ������ ������(������ ��� ������ ����� ������ �������� ��� ��� � ��� �� ������� �����),
����������� ������ ����� �������
������ �������� procedure timed_event_p_proc  ������ ���� ��� - ������ ������ �������� ���� :-\
��� ���� �����- �.� "�����������".
�� ������ � ������� � �.� ����� timed_event_p_proc
��� ����� �������� �� ������ �� ����. ���������� � ������ ������ ��� ����� ���.

���� ���� ������ ��������� �������������, �� �����  ������� ��������� � ��������.

����������: 23:15 - 10 ���., 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������:
� � ������������� � Mynah'� - �������� ����������  ���� ������������������ �� ������� ����������� �����. ������  ��� ����� �� ���������. :-/

����� ������ ��� ������ "�����" ?

-----
...������� �������������, ���������� � ��������������..

����������: 23:19 - 10 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

binyan

��� �������������� ����� � ��������� � ������ ����� ������� ���� � ������� 13 �����.
��� ��� - �� ��� �����.

� ���:
���� �� ���� ������ ������� �� ���� ��� ���� �����
����� ������ �� ����� ����� � ���������, �� ������ ���������. - ��� ��� � ����� �� ��������.
� ��� ����� ��������� �� ��������� ������ ������� �� ������ � ������� ����
�� ������ ������ (����� �������������) ���� ���� ������� ���� ��������
��� combat_�����. - (����� ��� ����� �� ���� ���������� �� �������� ���������.)

����������: 23:44 - 10 ���., 2006 | ����������: Dar - 14:52 - 11 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

Dar ������� �������, �� �����������.

� �� ��������� ���-������ ������ �������� ����� ����������� ���� � ������ ������ �������? ��� ��� �� ���� ����������� � �������� ����?
-----------------------------------------------------------
������� �������� ���� � �2 �� ����� � ���.
��� ����� ��� �� ������� ������� ������ � �������� ����; ������ ������ ���� ��� ������������.

��� ���� ���� � ���������� ���� ������ ����, ��� ���� ������ �� �������, ��� ������� ������ �������� ����.

� ��� ��� �����������? ��������� ������� ����� ���� ���

#define critter_is_armed(x)      
(((obj_item_subtype(critter_inven_obj(x,INVEN_TYPE_RIGHT_HAND))) == item_type_weapon) or \
((obj_item_subtype(critter_inven_obj(x,INVEN_TYPE_LEFT_HAND))) == item_type_weapon))

����� �� �����������, ���� ���� � ��������� ������� critter_is_armed(x) ��������� ��� ����, �� �������� ����� �� ��� �������?

������� ����������� �� �������� ����� ���������� ������(scgtegrd.ssl), ��� �� ������� ������ �������� ����, �� ���� ����� ��� � ������� ��������, � ������ �� �������.

����������: 13:21 - 11 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

Keha

�������� FAQ �������� ��������� ��,  ��������� ���� ������, ����� ������ �� ��������.

����������: 14:48 - 11 ���., 2006 | ����������: Dar - 14:54 - 11 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

���, ������� �������, ��������� ���� ������.

����������: 16:18 - 11 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

����� ��� ��� �� ������ �������� - � ��������.

procedure use_skill_on_p_proc
begin
script_overrides;
if using_skill(self_obj, 7) or using_skill(self_obj, 6) or using_skill(self_obj, 10) then
begin
script_overrides;
display_msg("This no can";
end
//����� �� ������� ����� ���� ����� ����� ��� ������ ����� ������� � ���  ����� steal, drop  � ����� ���� ������.
if (action_being_used == 13) and (obj_pid(self_obj) == 16777819) then call talk_p_proc;
if (action_being_used == 12) and (obj_pid(self_obj) == 16777819) then float_msg(self_obj, "Hi", 4);
if (action_being_used == 13) and (obj_pid(self_obj) == 16777817) then float_msg(self_obj, "My car is best", 4);
end

����������: 21:45 - 18 ���., 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� � ��� �� ������? ������ ������ ������ �������� ����?

������, ��� ����� ����� ��������: ���� �� � �������� ������� ����������� �������� ���������� ��������� (continue, halt, etc.)?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 22:56 - 18 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

>>� � ��� �� ������? ������ ������ ������ �������� ����?

��� - ������ � ���� ���� �������� ���  using_skill(self_obj, 7) or using_skill(self_obj, 6)
�� ��������(�� ������� ����������� ������� ��� ��������).

� ��� pro-�����  ����� ����� �� ���� ���������,  ��� ��������� ���������� �� ������� ���� ��� ����� ����� (����� ��� �������). ��� ��� ��� ���������� ������ - ��� �� ���� � �������.

� ������  �� �������,  ��� ��� ���� ����� ���������� ��� ���� �� ���������� ����� ������?
��� � ��� ��������� ����� ������� ���� ��� ������?

����������: 1:40 - 19 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

��� ���� ��� ��� ��� ���� ������� � ������� �������\��������� ��������������.

����� �������� �������� ����� �� ������� ������ �����.
1?) ��� ����� ��������� ���������� ����, �� �������� �������� ������, ������� ��� �������� �������.

��� ������ ����������� ����������� ����� ��������� ����� ������ � �� �����, ����� ���������, ������� ���� ��� ��� � ����� ����� ��. - ������:

procedure combat_p_proc begin
�variable wip; - �����. ��� ��������� �� ������� � �������� ����.
� � if (fixed_param == 2) then begin - ���� combat_p_proc ������� �������� ���������� ��
� � � wip:=critter_inven_obj(self_obj,1);- ���������� ���������� wip ��������� �� ������� � ������ ����.
� � � � if wip == 0 then begin - ���� wip ��� ��� ����� 0(������ ���� ��������� ����������) ��
� � � � wip:=critter_inven_obj(self_obj,2);����� ���� ������� ����� ���� � � wip ���������� ��������� �� ������� �� ���.
� � � � end

����� ���������� ���� (�� �������� �������� ����������� � ������� ���� ������) ����� ���������� ������ �� �������� ��� ������ proto_data(obj_pid(wip),�); ��� � ����� ������ �� ��������.
-----------------------------------------------------------------
2?) �� �������� �� �� ��� ������ ���������:

#define it_pid (0)
#define it_name (1)
#define it_description (2)
#define it_fid (3)
#define it_light_distance (4)
#define it_light_intensity (5)
#define it_flags (6)
#define it_flags_ext (7)
#define it_sid (8)
#define it_type (9)
#define it_data (10)
#define it_material (11)
#define it_size (12)
#define it_weight (13)
#define it_cost (14)
#define it_inv_fid (15)
#define it_weapon_range (555)

������ �� ���� ������ ������� ����������� ����� �� ������ - ��� ��� ��� �� ��� ������ �� �������� ������, ���
��� �������� ������ � ���� ������ ���������� �������, ���.
------------------------------------------------------------------
3?) �� � �������� ��� ������������ ���� �� it_flags_ext ��� ������ proto_data(obj_pid(wip), 7); ���������� ����� � ������� � �� ����������.

� it_flags_ext ������� � ������� ��� ������:
Flags Ext (�������������� �����)
Item Flags (����� ���������):
0x08000000 � Hidden Item (������� �������� ��������)
Action Flags (����� ��������):
0x00001000 � Use On Smth (������ ����� ������������ �� ���-����)
0x00002000 � Look (������ ����� ���������)
0x00004000 � Talk (� �������� ����� ����������)
0x00008000 � PickUp (������ ����� �������)
0x00000800 � Use (������ ����� ������������)
Weapon Flags (����� ������):
0x00000100 � Big Gun (������ ��������� � ������ Big Guns)
0x00000200 � 2Hnd (������ ��������� � ������ ���������)
Primary Attack Type (��� �������� �����):
0x00000000 � stand
0x00000001 � throw punch
0x00000002 � kick leg
0x00000003 � swing anim
0x00000004 � thrust anim
0x00000005 � throw anim
0x00000006 � fire single
0x00000007 � fire burst
0x00000008 � fire continuous
Secondary Attack Type (��� �������������� �����):
0x00000000 � stand
0x00000010 � throw punch
0x00000020 � kick leg
0x00000030 � swing anim
0x00000040 � thrust anim
0x00000050 � throw anim
0x00000060 � fire single
0x00000070 � fire burst
0x00000080 � fire continuous

� ���� proto_data(obj_pid(wip), 7) ��������� �����: 41478
��� ����� ��������������� ������������� ������ � �������� � �������� Primary Attack Type = fire single, Secondary Attack Type �������������. ��� �� ����� ������������ ��� 41478? ���� ������ ��� � ��� �Primary, Secondary Attack, Weapon Flags � ������ ?
-----------------------------------------------------------------
� ����� ����� ���� ���� ������������� ����������� ������� �������� ������ ���� �� �������� ��� �������� ����� if �� ������ if�� ��������� ���������.

��� ����������� ����� � ���� ������ ���������� ��������� �� �������� �������� ������ ��� ������ proto_data(obj_pid(wip), 7) � �����, ����� if���� ���������������� (�������� - ����) ������� �������� �����.
---------------------------------------------------------------
4?) �� ��� ��������� ��������� ������.
�������� ������ ����� ������, � ����� ��� ������. ��� ������ ��������������� ������ ������ (������� � �������� ������).

����� ��� ����� ���������� ������� �������� ����� �� ���� �������� ����� ������� ������ (������� ��� ���� � ������ �����) �������� �� ������? �
----------------------------------------------------------------
5?) �������� ����������� ����� ��� �������. - ��� ���� ��������� ������ �� ������� ���������.

��� �������, ������ � ���� �� ��������, � �������������� ��� ������� ���������� ���� ��� ���������.
����� ���� ��� ���� ��� �� ������������ ����������� ��������� �� ������ ������� ��� �� �����,
� ���� ��������� ����������� ��� ������ ����� ������ � ����, ��� ��������� �������� ����.
� ��� ��� "��� ������ �����" ���������� ���� �� �����������.

����������: 16:30 - 24 ���., 2006 | ����������: Keha - 16:57 - 24 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

� ��� critter_p_proc (����������� ��������� - ��������� ��� � �������) � ��� �� �����������?

���� ��� �� ���������� ��������� � ������ (combat_p_proc) �� ������ ����� timer_event ?

add_timer_event(ObjectPtr obj, int time, int info) ��� time - �������� ���������� (� ������� �����)

���� ����� ������� ���? ����� ��������������? ���� �������, �������, ������?

����������: 17:14 - 26 ���., 2006
Strongholder
��������� MkII

������: Nelly's Bar
�����������: ��� 2004

�����: 393 ���������

������ AFAIR:
1) c_p_p � ��� �� �����������.
2) ������� ��� = 10 ��. �.�. 100 ����� = 1 �.

-----
������� � ������ ������. �������� �� �� ���.

����������: 17:26 - 26 ���., 2006
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

��-����� ���-���� 1 ���=0,1 ���, 10 ����� = �������.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 18:44 - 26 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:

2) ������� ��� = 10 ��. �.�. 100 ����� = 1 �.


�������. � ������� 10 �����.

����������: 18:45 - 26 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

������� �������.
--------------------------------
������� ������������ � ������ ������
������ critter_p_proc - ���� ����� ���� ��������� ��������� ������������ ���� ������, �� ��� ���� ��� ������� �� ��:

variable st;
variable q;

procedure combat_p_proc begin
� if st == 0 then begin
� � � �st:=1; � �
� � � �add_timer_event(self_obj,5,44); ������ ���� ����� ������ ���������� ������ ��� ������ ������ ��� ��� ����� st ����� ����� 1 � ���� �������� �������� �� �����
� �end �
end

procedure timed_event_p_proc begin
� �if (fixed_param == 44) then begin
� � � q:=q+1; ��� � ��������� ������� ������� ��� �������� �������� ���� ����� � ������ ��� ���
� � � display_msg("n="+q);
� � � add_timer_event(self_obj,5,44); - ������������ ���������� �� ���� ����� ������ 5 �����
� � � *���� ������* ��� � ������� ���� ������ ���� ����� �� ������� �� ��� �� ����� ������ ����� ���������� ���������� � ������������ � add_timer_event(self_obj,������,44) ��������, �� �� �������� ����������� ������ ���.
� �end
end

procedure critter_p_proc begin
� � � � rm_fixed_timer_event(self_obj,44); �_�_� ���������� ��� ������ ������ ����������� � ������ ��� ��������� ������ ������������ �� ��������� ������������ ���� ������ ����� ����������� ������, ������ ��� �� ����� ���������� st
� � � � st:=0;
end

������ � ���� �� �������� ���� ����� � ������? ��� ���� ��� ������� � �� �������� �����, � �� ����� ����� ��� �� ������? � ������ ������ �� ������ ����� ���������?

� �� � ���� q �������� ��� ��� � ��������� ������ ��������. �

����������: 19:11 - 26 ���., 2006 | ����������: Keha - 21:45 - 26 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ��� �������� ������ combat_p_proc, �����.

����������: 10:35 - 27 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

void AddButtonProc(string btn_name, procedure button_on, procedure button_off, procedure button_press, procedure button_release) - ��������� � ������� btn_name ��������� ��� ��������� �������
���������:
btn_name - ��� ������, ��������, "test_btn"
button_on, button_off, button_press, button_release - ����� �������� ��� ��������� ���������, ��������, ������� � ���������� ����


����� �� AddButtonProc ��������� � ������������ ������������ �������?

���� �����, �� ����� ���������� ��������(btn_name) ���� ������:
1) ����� ������� ������ - �������� �������� ����.
2) ������ "�����" � �������� ��������� - ������� ��������� ���� ���������.

����������: 15:49 - 27 ���., 2006 | ����������: Keha - 15:53 - 27 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���.

����������: 16:19 - 27 ���., 2006
Mynah
���������

������: �����
�����������: ���. 2004

�����: 469 ���������

>>� ��� �������� ������ combat_p_proc, �����.
����:) ������ ������ ������� ����. ������ ������� ���-��.

-----
Scio me nihil scire

����������: 22:01 - 27 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

>>������ ������� ���-��

���, ��� ������ �����������, � ��������� ���������������� �� fixed_param(������� ��� combat_p_proc ).  ��� ���(timer_event) "����������������" � ��������.

����������: 0:06 - 28 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

���� ����� � �������� ��������, ��������� �� ����������� ���� �������, ������ �������� ������ �� ���, ��� �������� ��.  ��� � ����� ���� �������� ������������ ������� ����� ������ ������ ��� ������� �������� ����. �� ��� - ��� ������ ������� �����, ������� � ������ �������� ������ ����������, � � ��� ������ ��������(���������) ������ � �������� �������� ����. ���� *����� ����* �� ����� ������� ����� �������� � ���� �� ������.

���� �� ��� �������, ���� �� ����� ��������� ����� ���� ��������� � ������ � ����� ����������� ����� �������. �� � ��������� ����� ����� �������, �� ������� ����� �� ������, � ������ *����� ����*.
������ ����� ������ *����� ����* ��������� ���������� � �������� ������� ������������ ����� �����. ���� ����� ��� ����� � �������� ����� ���������� �������� ����������������.

� �� �� ���� ��� ����� � ����� �������� ���������, �������� ���� ��� �������� � *����� ������* ������� �� 10 �����, �� �������������� ��������� ���� ��������� ������� �� ����� ������� �������� � �������, � ����������� ������ ���� �� ��� �� ������ ����.

���� ����� ��������� ��������� � ������ � ������� ���������� ����, ��� ����� �� ����������� ������ ��������. �� ��� ��� ��� �������, ������� � ����� ����������� �� �� ��������.

����������: 15:18 - 28 ���., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

����� ���������� ��������� ������ �� ����� ��������� �������.
�������� ����-�� �����������. ���� �� ������ ����� �� ���� �� ����� �� ���� ����� �������.

���� �� ����� �������� �� ��������� ������� ������ ������ �� ������������� ����, �� ������������ � ��� ��� proto_data ���������� ��� ������ � ���� ����� ����������� �������. � � �������� ������� ������ ���������� (������ PRO-������ Fallout2), ���� ������������ � ���� ����� ������������������ �������. ������ ����� ����� - ����� ����������������� ������ ����������� ����� ��������� ������(������).

��� ������ ��� �� ����������� � ������� proto_data ����������� �����
�������� ��� ��� ����������������� ������(�����) �� �����������:

dec:= proto_data(int pid, int data_member)

flag1:=dec-(dec/16)*16; // ��������� ���� ������������������ dec
flag2:=dec/16-((dec/16)/16)*16; �// ������������� ���� ������������������ dec
flag3:=(dec/16)/16-(((dec/16)/16)/16)*16; //������ � ����� ����
flag4:=((dec/16)/16)/16-((((dec/16)/16)/16)/16)*16; //��������� � ����� ����
��� �� ��� ��������.

(������ ������� �������� ��������� ��������� ���� ��� � �������� ssl �������� / (�������) �������� �������������)

�������� �� ����� pid �����, � ����� �������� �� 7�� ���� ���-����� �����, ��� ����� ����� �����(�� ������ PRO-������ Fallout2):

dec:= proto_data(pid �����, 7)

flag1:=dec-(dec/16)*16; // Primary Attack Type
flag2:=dec/16-((dec/16)/16)*16; // Secondary Attack Type

� ����� flag1 ������ ������ 4��, ���, ���� �������� � ������ ������ PRO-������, ������������� ����� thrust (������); flag2 ������ ������ 5�� ��������������� ����� throw(�������).

������ ����� �������, �� ������� ����� ��������� ����������������� ������ (��������� � obj_dude_ssl):
-----------------------------------------------------------------------
procedure Check_wip;
procedure Check_wipon;
procedure dec_to_hex;

variable wip;

// ��������� critter_p_proc � obj_dude_ssl ��� ����������, ��� ��������� �������� � ���
//������ call Check_wipon; �


procedure critter_p_proc begin
� call Check_wipon; �
end

procedure Check_wipon begin // �������� �� ��������� ���������� �������� ����
variable wip1;
wip1:=wip;
call Check_wip; �
� if not(wip == wip1) then begin � � � � � � �
� � �display_msg("you ekipirovalis "+proto_data(obj_pid(wip),1)); �
� � �call dec_to_hex;
� end �
end

procedure Check_wip begin // ����������� ��������� �� ������� � �������� ����
�wip:=critter_inven_obj(self_obj,1);
� �if wip == 0 then begin
� � � wip:=critter_inven_obj(self_obj,2);
� �end �
end

procedure dec_to_hex begin

� �variable dec;
� �variable at1;
� �variable at2;

� �dec:=proto_data(obj_pid(wip),7);

� �at1:=dec-(dec/16)*16; // ������������� ������ ��� ����� ������� ���� �����
� �at2:=dec/16-((dec/16)/16)*16; //��� ����� ������� ���� �����

� �if at1 == 0 then begin
� �display_msg("attack type1 �= �none");
� �end else if at1 == 1 then begin
� �display_msg("attack type1 �= �punch");
� �end else if at1 == 2 then begin
� �display_msg("attack type1 �= �kick leg");
� �end else if at1 == 3 then begin
� �display_msg("attack type1 �= �swing");
� �end else if at1 == 4 then begin
� �display_msg("attack type1 �= �thrust");
� �end else if at1 == 5 then begin
� �display_msg("attack type1 �= �throw ");
� �end else if at1 == 6 then begin
� �display_msg("attack type1 �= fire single");
� �end else if at1 == 7 then begin
� �display_msg("attack type1 �= �fire burst");
� �end else if at1 == 8 then begin
� �display_msg("attack type1 �= �fire continuous");
� �end

� �if at2 == 0 then begin
� �display_msg("attack type2 �= �none");
� �end else if at2 == 1 then begin
� �display_msg("attack type2 �= �punch");
� �end else if at2 == 2 then begin
� �display_msg("attack type2 �= �kick leg");
� �end else if at2 == 3 then begin
� �display_msg("attack type2 �= �swing");
� �end else if at2 == 4 then begin
� �display_msg("attack type2 �= �thrust");
� �end else if at2 == 5 then begin
� �display_msg("attack type2 �= �throw ");
� �end else if at2 == 6 then begin
� �display_msg("attack type2 �= fire single");
� �end else if at2 == 7 then begin
� �display_msg("attack type2 �= �fire burst");
� �end else if at2 == 8 then begin
� �display_msg("attack type2 �= �fire continuous");
� �end

end
-----------------------------------------------------------------------
����������� ����� ������� � ������ ������ ����� critter_p_proc � ���������� �� ��� Check_wipon ��������� ��������� �������� ���� �� ������� ��������� ����������.( �� ���� �� ����� �������� � �������� ����, ���� �� ����� ����� �������� ����). � ������ ��������� ���������� �������� ���� ����������� ����� ������� ������� ��� ���������: �

*�� ������������� +(�������� ��������)
*attack type1 �= (��� ������ ����� �������������� ��������) �
*attack type2 �= (��� ������ ����� �������������� ��������) �

���� ���������� ��������� ��� ���������� ������� ��� flag1, flag2, flag3,... ,
� ��� ��� ����� ���������.

����������: 11:23 - 2 �����, 2006 | ����������: Keha - 11:48 - 2 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������, �� ��� ���������� ���������� . �������� � ���������� ��� ��� ����������� ��������� ������/������. ��� ���� ������:

// --- ������� ���-���� � h ---
#define MAXINT 4294967295                 //Max int
#define INV(x) (MAXINT - x)               //An inverse function
// get bit state
#define bit_state(x, the_bit)                          ((x bwand the_bit) != 0)
// switch bit on
#define set_bit_on(x, the_bit)                   x := x bwor the_bit
// switch bit off
#define set_bit_off(x, the_bit)                  x := x bwand INV(the_bit)
#define FLAG_BIG_GUN                             4
// --- ����� �������� ---

// --- ���-���� � ��������� ---
f_ext := proto_data(obj_pid(obj_ptr), it_flags_ext);
f_big_gun := get_bit(f_ext, FLAG_BIG_GUN);

����������: 13:05 - 2 �����, 2006
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

Keha: ...���� ������������ � ���� ����� ������������������ �������...

����� � ����������������� ������������� ������ ����� ��������� � ���������� � ��������.


Primary Attack Type (��� �������� �����):
0x00000000 = 0 - stand
0x00000001 = 1 - throw punch
0x00000002 = 2 - kick leg
0x00000003 = 3 - swing anim
0x00000004 = 4 - thrust anim
0x00000005 = 5 - throw anim
0x00000006 = 6 - fire single
0x00000007 = 7 - fire burst
0x00000008 = 8 - fire continuous
Secondary Attack Type (��� �������������� �����):
0x00000000 =   0 - stand
0x00000010 =  16 - throw punch
0x00000020 =  32 - kick leg
0x00000030 =  48 - swing anim
0x00000040 =  64 - thrust anim
0x00000050 =  80 - throw anim
0x00000060 =  96 - fire single
0x00000070 = 112 -  fire burst
0x00000080 = 128 - fire continuous


����� � ������� bwand �������� ������ ������ ����� � �������� � ���������� �����������.
��� ����� �������� � ���� �������, �.�. �������� ������� ����� ��������� � ���. �������.

flagExt:= proto_data(pid, 7)

primaryAtackType := flagExt bwand 15; /* 15 = 0x0000000F */
secondaryAtackType := flagExt bwand 240; /* 240 = 0x000000F0 */

����������: 13:17 - 2 �����, 2006 | ����������: Anchorite - 16:49 - 2 �����, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

������:
Quote: from Wasteland Ghost


������, �� ��� ���������� ���������� .


������� �������. � ������ ��� � ������ ��������� ��� ����������� ������ ���� ��� ������ �proto_data. � ������������� get_bit ��� �� � �����. ��� �� ��� �� �������, ��� � ����� ���������� ��� ���������� .

������:
Quote: from Anchorite
primaryAtackType := flagExt bwand 31; /* 31 = 0x0000000F */
secondaryAtackType := flagExt bwand 240; /* 240 = 0x000000F0 */

������� �������.

����������: 13:37 - 2 �����, 2006 | ����������: Keha - 13:45 - 2 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Keha ������ ������, ������� ����� ����������� ������� �� ������� ����������. ��� ���� �������� ������� �������. get_bit, ������, ��� ���. ���� gvar_bit, mvar_bit, lvar_bit � �.�.. � ��� ��� ��� ���������. ��� �� �����, ���� �� �� ��.

����������: 13:49 - 2 �����, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

��������� bwand
������� ���� ������

at1:=dec-(dec/16)*16;
at2:=dec/16-((dec/16)/16)*16;

��

at1:= dec bwand 31; /* 31 = 0x0000000F */
at2:= dec bwand 240; /* 240 = 0x000000F0 */

�� ������-�� bwand �� ������ ��������, � ������� ��
����� �������.

� ���� �� ����� ��� ������ ������ ������ ���� �����,
����������� ��� � �����.

��� ��� ����� ������ � bwand, � ���/16, ���� ���������� ��������. � ��� ��� ������ ����� � ������������ ���� ��� /16 ��������, � bwand ������ ��������, ��� �� �� ��, �� �������� ����������� 8��. ��� ��� �� �� ��� �������� �������� �� ���������, � ������ �������.
*********************************
a2: ������� � ��� ���� � ����� ������� ����, ������ ���� � ����. ����� ���������� if� (a2 � ������ bwand ��������� �������� �� �� 0 �� 8 � ��� �� 0 �� 128

� ��� a1 �� �������� �� ��������� � ��� ������� �� ������� ��� ���� � ����� bwand ������� �������� 20 � 21.  � �������� a1 �� ������ ��������� 8.

dec:=proto_data(obj_pid(wip),7);
at1:= dec bwand 31; /* 31 = 0x0000000F */
at2:= dec bwand 240; /* 240 = 0x000000F0 */

//at1:= get_bit(dec, 0);
//at2:= get_bit(dec, 1);

//at1:=dec-(dec/16)*16;
//at2:=dec/16-((dec/16)/16)*16;

display_msg("at1 = "+at1);
display_msg("at2 = "+at2);

����������: 14:59 - 2 �����, 2006 | ����������: Keha - 15:37 - 2 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�������� ���� ��������� ������������ . bwand �� ����� "�� ��������" �� ����������� .

����������: 15:45 - 2 �����, 2006
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

�� ��������� �. ������ 31 ������ ���� 15.  ������ ����� �������

������� ������ ������

����������: 16:51 - 2 �����, 2006 | ����������: Anchorite - 16:57 - 2 �����, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

������ � ���� LVAR �� �������� � ������ ?

��� �������� ������, �� ����� ����������� ��� �������� � ������� �� ������� ���, �� ��� ���� ���������, � ����� ��������� �� �� �������� ��� �������� ���� ��������(����������) .

� scripts.lst ������ ����� ������ ������� - ������� � �# local_vars=5 ������� �� # local_vars=9.

������ ������ � ����� �������������� ������ � ����������� ���������:

(obj_dude.int)
//��� ����:
#define LVAR_Last_Digest_Time � �(0)
#define DRTROY_INJECTION � � � � �(1)
#define CHECK_DUDE_V15ENT_LEVEL � (2)
#define CHECK_RNDBESS_FLOAT � � � (3)
#define TIMER_INIT_V13_SEQUENCE � �(4)

// ��� �����:
#define LVAR_count_GUN � � � � �(5) �
#define LVAR_count_UNARM � � � (6)
#define LVAR_count_MELE � � � � (7)
#define LVAR_count_THROW � � �(8) �

procedure Check_add_to_skill begin
�variable rand;
�variable skilev;
�variable N_ LVAR;
�variable skill_count;

�skilev:=has_skill(self_obj,skil1);

�if skil1 == 0 then begin// ���� (0) - ������ ������ ��
� � N_ LVAR:=5; //�� ����� ����� 5
�end else if skil1 >= 3 then begin
� � N_ LVAR:=skil1+3; //����� ����� ��� ��������� ������
�end

�rand:=random(0,180);
�display_msg("random = "+rand); // �������� ��� �������
�if (rand >= skilev) then begin

� � �skill_count:=local_var(N_ LVAR); // ������ �� �����
� � �skill_count:=skill_count+1;
� �
� � � if (skill_count >=(skilev+1)) then begin
� � � critter_mod_skill(self_obj,skil1,1);
� � � skill_count:=0;
� � � display_msg("+1 k skilu"+skil1);
� � � end �

� � � set_local_var(N_ LVAR,skill_count); // ������ � �����
� � � display_msg("kopilka skilla "+skil1+" ravna "+skill_count);// ��� �������
� end
end

����������: 20:03 - 4 �����, 2006 | ����������: Keha - 20:23 - 4 �����, 2006
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

� ����� ����������� ������ GVAR�. ��� �� �������, ������ ��� ������ �������� ������ ���?
�, ������, �������� ����� �����, ���������� ��� �� ������������� ��� ��� � ��� � �����������, ��� ��� ���� ���� �������� ������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 13:01 - 7 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�������, �� ��� ������ . ���� � ���� ����������� � �����, �.�. � ������. ������ ����, ��� ���� ������ ���������� ������ ��������, ��� ������ � ����� ��� �����-�� ���������� .

�� �������, ����� �� ������ LVAR (���������� ����������) � variable (��������� ����������)?

����������: 14:48 - 7 �����, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

�� � ��� ��������� ���� ������� �� �����. �� ������ ����� ������������, � �� ������������ �������� ���������� ������ � ���� ������� ����� ��������� ����������.

�� ���� �� ����� ��� � ����� �������� ��� L���� �� ������ �����������. � � ���� �� ��� �� �obj_dude.int ���������� �� �����.

�������� ������� ������ � ������������� ����� �������� Lvara � "����" - �����.

� � ����� �������� ��� "��������� ����������" - �� ������������ � ���������� ����� ������� obj_dude.int, Lvar� �� ��������.

������:
Quote: from Wasteland Ghost
������ ����, ��� ���� ������ ���������� ������ ��������, ��� ������ � ����� ��� �����-�� ���������� .
���� � �������� , �� � ������� ��������. ��� ��� ��������� �� ? ��������� ������ LVAR� - N_ LVAR ?

��� �������� ���������: � ����������� ��������� �������� ���������� skil1, ������� ����� ����� �������� 0, 3,4 � 5(������ ������ ������ ������, ���������� ���, �������� � ��������). �� ��� ��������� ������ ��� �������� �������� ����� display_msg("����� ����� "+skil1);

��� ����� �� ����������� �������� N_ LVAR ��������� ���� �� ��������:

���� skil1=0 �� N_ LVAR=5
���� skil1=3 �� N_ LVAR=6
���� skil1=4 �� N_ LVAR=7
���� skil1=5 �� N_ LVAR=8

���:

#define LVAR_count_GUN          (5)  
#define LVAR_count_UNARM       (6)
#define LVAR_count_MELE         (7)
#define LVAR_count_THROW      (8)  

������ ������ :

skill_count:=local_var(N_ LVAR); // ������ �� �����
set_local_var(N_ LVAR,skill_count); // ������ � �����

����� ���� ������� ��� �� ������� ��� �� �������� �������� �� ��������.
----------------------------------
��� ������ ������� �������� �� � ���� Lvars ��� "������������" ��������.

����������: 15:04 - 7 �����, 2006 | ����������: Keha - 15:34 - 7 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������ ���� � ���� ������, ����� ����������� ��� ����� + 3, � ������� ������-�� 17 . � �����, ���� ���� ����� �������, ������ - �� ������, ������ ��� ��� �� ���� ������ ����� .

�� ������ �� �������� ��� �����, ��� ���� �� ��, ��� ������ ���� ������� ���� ������ .

����������: 18:45 - 7 �����, 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� ������, ��� ���� ������, ���:


������:

�� ������ ����� ������������



-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 0:10 - 8 �����, 2006
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

2WG:
������:
�������, ����� �� ������ LVAR (���������� ����������) � variable (��������� ����������)

������. ������� ����������� "variable N_ LVAR", ������ ��� � ���������. :/

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 6:27 - 8 �����, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

������:
Quote: from Ray
� ������, ��� ���� ������, ��� ������ ����� �����������


��� ���-�� � ������ �������. ������� ����������� ��� ��������� � ��������� � ������. �.�. ���� �������� � ���.����� ��� ���������� ������ �������� �����?

������:
������� ����������� "variable N_ LVAR", ������ ��� � ���������.
��� � ���� ���������� ��� ������ ������, �� �� ���� �����.
----------------------------------------------------------------
������ ��������� ������ ����� � ������� �� ����������� � ������� �� ����� �������. ������ ��� ���������� ���� ��� �������� �  FScript-HOWTO ��� �������� ������ � �������. � ���� ��� � ���� ���� ������. ���-���� ��������, �� ��� ������� �� ������� ����/�����. ����� ������� ����/����� ����� ��� ������� �� ������������ ������-��.

���� ����������� ����������� � FScript-HOWTO ������ � ������ 1 � 1 ����������. ��� ���-���� � ����������.


����������: 19:05 - 8 �����, 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������ ����...� ���� ����� ������ �� ��� ���-�� ���� ������������. �� ��� ���� ������� �����. ����� ��������� ��� ��� ����. ���-�� ��������� ���� �����������, �� ��������� ����� ����� ����� �� �������� �� ����� =)

-----
...������� �������������, ���������� � ��������������..

����������: 21:46 - 8 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

����� ���� ��������� �����. ���������� VAULT13.GAM � ����������.

� ��� ������ ����������� �� ���� ��� obj_dude �� ����� ���� ���������. � ��� �������, ��� �� �����������. ��� ����������� ��-����? ��� ����� ��������� � ������� �������? �������, ������ ���� � ����� �� �����������? ��� �����������?

����������: 8:42 - 9 �����, 2006
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

�� ���� ������� � ��������������.

��� ������ ��������� ���� �� � ���������� ����� ��������� ��� �������� ����� 0 (s_system) � 2 (s_timed).

���� ���� - ����� �������� � �����������.

����������: 11:36 - 9 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���... � � ������, ������-��, �� �����������... ���� ��� �� �������� ��� �������, ����� ����������� � sav-������. ����� ����, ���� ����������� ���-����, ��������, � ����� � ���������� ��������������� sav...

����������: 13:53 - 9 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

����, ��������! ��� ������� ���, ����� ��� ������ ������-������ �������� ������ � �������, ������� �������� �� ������. ������� � ������ �������� - ��� ����� ����� ��������� ���, �� � ���-�� ��-��������� - � �������� ������ ������������� ����� = 2, � ����� � critter_p_proc ����������� � ���� ��� ����� = 2, �� ������� ������� ����. �������� ������ ��� ��, �� ������ �� �������. �������, ����������, � ���� ��������, �������� �� �������, ��� ����� ����������� ����� ��� ������ �������� ������.

-----
�������� �������� - ������� ����.

����������: 21:43 - 16 �����, 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���� ����� �� ������ � ��������� ����� ������� ����� ������� �� ������.
�.�. � ���� ���� �������� ����� ������� �������� ��������� Nodexxx, ������ ��������� ������ ��������� �����. ������� ��� ����� ������������ ��������� Node998.
��� ���� ������� �����? � ����� ��� ���� ����� ���� �� ������� �� ������� � ������� 0, �� ���� �� ����� ��������.


-----
...������� �������������, ���������� � ��������������..

����������: 22:27 - 16 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

1.��� ������. � ���� ���� (998) ��������� �����. ���� � ������� ��������� Node998, � � ��� �������� ���� ������ attack_complex, �� ����� ������ � ������ ������� (������) � ����� ������ �� �������!
2. ������ ����� ������ �� ����� � �������??? ������� ������ � ������� �������, ������ �����������, � ������ �� ����������! ��� ����� ��� � ������!

-----
�������� �������� - ������� ����.

����������: 0:25 - 17 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������� ����� �� ������ � ��������� 0. ��������� ������� ��� ������ - ��������� �������������� � ����������.

-----
hit me, nail me, make me god

����������: 0:44 - 17 �����, 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

2 ERA
���� �� ��������, ��� ������ �� ����� ��� ��, � �� ����� �� ��������, �����, ���-�� �� ���������.
Node998 ����� ��� ��������� ����� � ������ ��������� � ����������� ������ �� �������. ���� �������� ����� �� �������, �����������, ������ �� ���������. Attac ����� �������� �� critter_p_proc.
������, ���������� LVAR_Hostile� ���� �������� � ����� ����, �� ��� ��������� ������ �� ���������� �������.

���� �� ���������� ����������������� ������� � ������� - ��� �� ����� ������ �������. ��� ������ ������� �� ��������. ��������� ����� ��������������� � ����. ����������� ������ ������, ���� ������ "���������� ������", �������� � �����.
P.S. ��� ���� ��� ���-�� ����������� �����������. �������� ��� �� ����������� ����.  

����������: 8:01 - 17 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

2 Sokil
�������� ������� � � ����. ��� ���� ����������� - ������ �� �����.
�.�. �������� ������ ������ ������� ���������� ������ ������.

2 Alan Killenger
�� ����������� ��������� ��, � �� � ������� � ����������.

-----
�������� �������� - ������� ����.

����������: 17:55 - 17 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:

#define FIXED_ATTACK /* �����-������ �������� */

 ...
 /* ���, ��� ����� ������� ����� */
 add_timer_event(self_obj, 0, FIXED_ATTACK);
 ...

 procedure timed_event_p_proc begin
   if (fixed_param == FIXED_ATTACK) then begin
     attack_setup(self_obj, /* ���� ������� */);
   end
 end


������� �� ������� ���������� ����� �� ����� ����, ��� ����� ������ �� ������ �������.

�� ���� ����� ������������ ����� .
WG


-----
hit me, nail me, make me god

����������: 18:11 - 17 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

2 Sokil
���-�� �����-�� ����� - � ���� ���� ������ ������ �� ����������! �������� �������������� ��� ������ - ���� �� ����������.
2 Alan Killenger
��������-�� ����� �������???
add_timer_event ������� � ����?

�������!


-----
�������� �������� - ������� ����.

����������: 19:10 - 17 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

FIXED_ATTACK ������� ����� ��������, � ������� 1. ��� ����� ������ ��� ����, ����� �� ��� ���-������ �������� �� ������ ���������.

add_timer_event - �������� ������� �� �������. ����� ���������� ��� ������, ���� � ���������� ���������.

-----
hit me, nail me, make me god

����������: 19:29 - 17 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

1. ������� �� ������ - ��� ����������!
2. � ��� �������� ����� �������, ������� ��� ��� � ���� (��� ������), ������ ����� �� �� ���� �������� - �� ���� ����� ������?
3. �����, �� � ����, �� ������ ����� ���������� �������� Fallout 2 ��� ����� ������������ ����� (�����), Fallout ������� ������������ ����������� - ����� Fallout2 �� �������� ����������� win32. ���������� ������ ��� ����������������� ��������. (��� ��������� �� ������� ������ � �� ������ � ����).
P.S. ����� �� �����.

4! ������ ���� � �� �������� ��������� (�� ����) �� ��� ������ ���������� � ��������, � ���� �������� - �� ����������?

-----
�������� �������� - ������� ����.

����������: 20:06 - 17 �����, 2006 | ����������: ERA - 20:40 - 17 �����, 2006
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

3. �����������, ������. ������ �� ������� � �������. ���� ������� ��������� ������ �� ������� - ����� ��� �� ������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 20:19 - 17 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

2 Alchemist
�� �� ����� ���� - � ������� ��������� ��� ������ ���������������� - ������ ��� ����� �����!


(���������� �� 20:46 - 17 �����, 2006.)


2 Alan Killenger
������ ���������� �� ��� ��������� �� �������� 52 (� �����).


-----
�������� �������� - ������� ����.

����������: 20:43 - 17 �����, 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��� ����� ��������:
procedure add_weapon_options(variable num) begin
variable option_proc;
option_proc:= "WeaponOption"+num+"Selected";
gsay_option(-1, obj_name(self_item(weapons_pid_array(i))), option_proc , 49);
� ������� ���� ���� �������� WeaponOptionXSelected (��� � � 1,2,3,4,5) � ���������, � ������� ���������� add_weapon_options(�) ���� ���.(� ���������� ���������� �)
���� �� ����������� ������ ( ������ ������������� ��� ����� �� ����� ���������� "WeaponOption"+num+"Selected", ��������� �� ����������.
��, ���� ������ gsay_option(-1, obj_name(self_item(weapons_pid_array(i))), option_proc , 49);

�������� ����������� if else ����:
if num==1 then gsay_option(-1,obj_name(self_item(weapons_pid_array(i))), WeaponOption1Selected, 49);

else if num==2 then gsay_option(-1,obj_name(self_item(weapons_pid_array(i))), WeaponOption2Selected, 49);

else if num==3 then gsay_option(-1,obj_name(self_item(weapons_pid_array(i))), WeaponOption3Selected, 49);

else if num==4 then gsay_option(-1,obj_name(self_item(weapons_pid_array(i))), WeaponOption4Selected, 49);

else if num==5 then gsay_option(-1,obj_name(self_item(weapons_pid_array(i))), WeaponOption5Selected, 49);

�� ��� ��������� ���������� � ��������
���� �����������?
� ����� ������ ��� WeaponOptionXSelected - ��� ���������, � option_proc ��������.
�� �� ��...����� � gsay_option ����� ��� ���������, � �� ���� ���������?
���...���� �������� ��� � ����, � ������� ��� ����������� � �������� ���� =)


-----
...������� �������������, ���������� � ��������������..

����������: 20:51 - 17 �����, 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������:

���-�� �����-�� ����� - � ���� ���� ������ ������ �� ����������! �������� �������������� ��� ������ - ���� �� ����������.


� � ����� ���������� � ���� ���������� ������ ������ ���������? �� ������ ����� �� �������� ������������ ����� (command.h � ���� ��������)
������ - ���������� ����� ����� ����� timed_event ��� �������� ����������. ��� � ��� ���� ��������� ��������. ����-�� �� ���������.
������:

� ��� �������� ����� �������, ������� ��� ��� � ���� (��� ������), ������ ����� �� �� ���� �������� - �� ���� ����� ������?


�� ������� �� ��������� ��������. ��������� ������ �� ������� ��� ��� ���� ����� ������. ����� �� ������� �� ��������, ����� ������ �������� � ������� ����������� "�������������� ������". ��������� �������� ��������������� � �������. Edit -> Advanced.
������, ���������� ������. ���� ���� ������ �������� ��� ��������� - ��������, �� ��� ������ ��������, ��� ��� � ���� ��� ��������������� ��������.

����������: 20:57 - 17 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

2 Sokil
������� �� ���������. � �������� ��� ������ ��������. ������ ������� ������ - �� � ���� ������ � ������� ���, ������� ���������, ��� � ���� ������. ������ � ����, ���� � �� �������� ��������� ��� ����������, � ���� �������� - ���. �� ������, ��� �� �����?

������� � ���� ������. �������� � ��� ����� - � ��� ��� � ��� ���� �� ����� �������� � ���!

�.�. �� ������, ��� ������� ���, ����� ���� ������ ������ ���� � ������� �����, ������ �� ����� 5 ����� ��. �������� ����� ����_�������� - ��� ������ - ��������� � ������� ����� �� 5745 ������, ��! ������� ���� ������ (����� ���������), ����� ���������, � ����� ���������� 000 ������ - ������ ����� ����� ������ � ����� �����������. ��� ������� ����� ���� �������� �������� �������������� ������� (������ �������), � ��� ����_�������� ������� �������� ��� - 000 ������ � ��� ������ ����������� �� ����.

-----
�������� �������� - ������� ����.

����������: 21:52 - 17 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:

� ��� �������� ����� �������, ������� ��� ��� � ���� (��� ������), ������ ����� �� �� ���� �������� - �� ���� ����� ������?


1. � �������� ������ ���� ������ ����� frm'��?
2. � �������� ������ ���� ��������������� ������� ������� ������ (������) � �������� � ��������� ���������� AI �������.
3. ���� �������� ����, � ���� �� ��������. ������ ������ ������ � �������� ����, ����� ���������� ����� ����� �� ������� �� ������������. ����� ��������, � ����� - ��� ������� ��� ������� ����.

������:

�����, �� � ����, �� ������ ����� ���������� �������� Fallout 2 ��� ����� ������������ ����� (�����), Fallout ������� ������������ ����������� - ����� Fallout2 �� �������� ����������� win32. ���������� ������ ��� ����������������� ��������. (��� ��������� �� ������� ������ � �� ������ � ����).


���� � ���� �����, ��������� Sokil ������, ��������.

������:

������ ���� � �� �������� ��������� (�� ����) �� ��� ������ ���������� � ��������, � ���� �������� - �� ����������?


��� �������. � ����� ������ ��������� ������ ����������? �� ���� ����� �� �����������. ��� ������� ����, ����� �� ����� ���������� ������������ ���������?

������:

�� ������, ��� ������� ���, ����� ���� ������ ������ ���� � ������� �����, ������ �� ����� 5 ����� ��. �������� ����� ����_�������� - ��� ������ - ��������� � ������� ����� �� 5745 ������, ��! ������� ���� ������ (����� ���������), ����� ���������, � ����� ���������� 000 ������ - ������ ����� ����� ������ � ����� �����������. ��� ������� ����� ���� �������� �������� �������������� ������� (������ �������), � ��� ����_�������� ������� �������� ��� - 000 ������ � ��� ������ ����������� �� ����.


��� � �� ��������, �.�. ��� ����� ������� �� �����. �������� ���� ��� ��� �������, ������. ��������������� ���. ���� �� �������� �� BIS ���� � ���� � �������� � ������. �������� ������ ��������� �������� ����������� ������. �������� ���������� � damage_p_proc, ��������������� ����� ������. ��, � �������� ����� � ���������� ������ "��������� ������� � �������" ������ � ������� ���������� � ������ "��������� �����".

-----
hit me, nail me, make me god

����������: 13:01 - 18 �����, 2006 | ����������: Alan Killenger - 14:07 - 18 �����, 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

����������, �Alan Killenger �� ��� ������� �������, �� � �������� �������.
�� ������ ����, ��� �� �������������� ������� � ������ ������. �������� ����� ������������ �� ���������� ������ (���� �� ������) � ��������� ���. ���� �� ������������, ������ ���-�� ����� ������ �����.
� �����, ����������� ������ ������ - ������, �� ����� ������ �� ���������, � ������, ��� ��� �� ���. ������������� ��� ������ (��� ������� ������ ������ �� ��������) � ����� ���������. ���� ������ ����������� � ��������� ������, �����, ������� ��� ���-�� ����. �����, � ���������� �������� ���������� ���-�� ��������.
������, � ��������� ��������� Fallout Script Editor � ������ �������

� �� ������ ����������� ������� ���� ������ ������������ �� ����. ������ ���� ����������� ��� ����� �� ��������. ��� �� ������ ����� ���

����������: 14:05 - 18 �����, 2006
ERA
������������

������: ������, ���������
�����������: ���� 2006

�����: 8 ���������

�������, Sokil � Alan Killenger, ����� �� ��� ������ � ������ �������. ��������. �� ������� � echo off � �������, ������� ������ �� ������, � ������ �� ��������. ������ �������, ��� �������� - echo � ������.
�.�.
������:

��� �������. � ����� ������ ��������� ������ ����������? �� ���� ����� �� �����������. ��� ������� ����, ����� �� ����� ���������� ������������ ���������?


� ����� �����������???


-----
�������� �������� - ������� ����.

����������: 14:40 - 18 �����, 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������:
3. ���� �������� ����, � ���� �� ��������. ������ ������ ������ � �������� ����, ����� ���������� ����� ����� �� ������� �� ������������. ����� ��������, � ����� - ��� ������� ��� ������� ����.

�������� ������, ������� �������� =))

�.�. � ������� ��� �� ��� ������� ���� ��� �� ����������? ��������� ������ ������.

-----
...������� �������������, ���������� � ��������������..

����������: 21:29 - 18 �����, 2006 | ����������: binyan - 21:31 - 18 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��� ������ ������: �� [censored] ��� �����... �������, ��� �� ������������� � ���� ��������, �� ��� � �������� �� �� ������ .

�� ��������.
WG


-----
hit me, nail me, make me god

����������: 0:49 - 19 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

����� ��� ������... ������ �������� �� ������� �����. ������� ����� �������������, ��� ������ ��� ����... ���� ������ �������� - �� �� �������, �.�. ������ ���� ����� ������ (���� ��� �� ������ ������ ����� �� �����). ����� � �������� ��� �� �����������, � ������ ����� - ��� ���� ���������. ����� ��� ����� ��� ������� ����������� ���������� �������� ��������?

-----
hit me, nail me, make me god

����������: 1:14 - 20 �����, 2006
Strongholder
��������� MkII

������: Nelly's Bar
�����������: ��� 2004

�����: 393 ���������

������� ������� ��� �� �����, ������ ���������, � ����� ����� ���� �� �������� - ������ �������.

-----
������� � ������ ������. �������� �� �� ���.

����������: 1:26 - 20 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

�����������.

-----
hit me, nail me, make me god

����������: 1:33 - 20 �����, 2006
Strongholder
��������� MkII

������: Nelly's Bar
�����������: ��� 2004

�����: 393 ���������

��. ������? ������ � ���� �����, ���� �� �������, �����������. ��������� �� ������ �� �����, ����� ��� � ������ �������� ������. ��������� ����� ���� ����� �����. � ������, �� ���� �� ����� ������ ������ �� ������.
���, ������, ������� ��� �� ��������� �����, �������� ������ ���������, � ����� ����� - ����������� ���� �����...
��. ����� ��������� ������ �����.

-----
������� � ������ ������. �������� �� �� ���.

����������: 1:57 - 20 �����, 2006 | ����������: Strongholder - 1:58 - 20 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������ �������� . ������ ��� �����, ��� �������� ���������� ��������� .

����������: 8:37 - 20 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��������, ������ create_object_sid(MY_PID, 0, 0, MY_SID) ������ create_object_sid(MY_PID-10, 0, 0, MY_SID). ��� ������ ��������, ������ �������� ����� ���� �������� ������. ��� ���... ���������.

-----
hit me, nail me, make me god

����������: 21:11 - 21 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�����. ������� �����. ����������.

����� ��������: ��� �� ���, �� �������� �� �������, ��� �� ��������, ��� �� ������...

����������: 15:24 - 22 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��� ��� ���, 1.02d, ������ �������� ���� ��� ��������. ���� ���� ������ � ����. ������� �����. � ������� �����, � map_enter_p_proc �����
������:

if (global_var(MY_GVAR) == 0) then begin
 set_global_var(MY_GVAR, 1);
 create_object_sid(MY_PID, 0, 0, MY_SID);
end


������ �� PID'� ������ �� �������. �������� ��� ������� ��� ������� - ��� ���������. �����, ���� ��� ��� ��������� ������.

-----
hit me, nail me, make me god

����������: 16:12 - 22 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��� ������� ������������ ��������:
������:
procedure start;
procedure map_enter_p_proc;

procedure start begin
end

procedure map_enter_p_proc begin
 set_obj_visibility(self_obj, 1);
 critter_attempt_placement(self_obj, tile_num(self_obj), elevation(self_obj));
 set_obj_visibility(self_obj, 0);
end

� ��� ��� �� ����� ��������:
������:
procedure start;
procedure map_enter_p_proc;

procedure start begin
end

procedure map_enter_p_proc begin
 set_obj_visibility(self_obj, 0);
 critter_attempt_placement(self_obj, tile_num(self_obj), elevation(self_obj));
 set_obj_visibility(self_obj, 0);
end

��� � ������ �� create_object_sid.

P.S. ����������� ������� ����� �� ���������� �� ��������� ����� ����, ��� ������ ���� ����� ������. ����������� ������� ����� ��������� �������� �����������, � ��� ����� ������ �������� ���������. � ��� ����� ��������, ������������ ���, ������ � ���� � ���� ������� � ���. ������� ����� � ������� (������� �������) ������������ �������� ���� �� �����������.

-----
hit me, nail me, make me god

����������: 1:28 - 23 �����, 2006 | ����������: Alan Killenger - 2:36 - 23 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ����� ���� ������ �������� � set_obj_visibility, ���� �� �������� �������, � �� �������/�����������, ��� ��������� Strongholder?

����������: 9:25 - 23 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

�����, ��� ��� ��������� �������� � ����� ������ ������ �����. � ��� - � ������ � ���� �����.

-----
hit me, nail me, make me god

����������: 11:02 - 23 �����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���-�� � ������� . �� �� ����� �� �������, ����� ���� ����������� �����. �� ���_����� �� � ��� ��������� ��������, �.�. �������� ����� �����������.

� ������...

����, ����� �� �� ���� ��������, ��� ����� "������� �������" .

������-�� ������� ����� ��� "��������" ��������� �������� ������� � ������ "TransNone" � �������� . ��, � ��� �������  Alan Killenger, ��� �� "�����������", ��� ���������� ����������� ��� ���������, �.�. ���������� ���� "NoBlock". ���� �� ������ �������� ���������, �� ���������� ��� ��� ������������� ���������, ����� ����� ���������� �������� ����� ���� ������. ����� ������������� ���: ���� �� ������� ���������� ��������, � ����� ������ ��� �������, �� ���������� ��� ��� ��� � �� ����������. ���� �� ������� ������� �������� �������, � ����� ����������� ���� ����, �� ����� ���������.

�� ���������� � �1 �� ������ � ����� �������� "������ ��" ����� ����� � ������������. ����-� .

����������: 13:15 - 23 �����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
���-�� � ������� . �� �� ����� �� �������, ����� ���� ����������� �����. �� ���_����� �� � ��� ��������� ��������, �.�. �������� ����� �����������.

� ��� ������, ��� ��� ������� ����� ����� ���� ������� �� ����� �����? ��� ������ ��� ���� ��� ����������� � �����, � ��� �����.

-----
hit me, nail me, make me god

����������: 18:26 - 23 �����, 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� � ����� �� ������ ������ =) ��� ��������, ���� ��������� �� ��������, �� ����� �������� ��� ���������� � ���. �� ��� ���� ������ ���, �� ����� �������� ���?
������ ����� � ������� ���� �������� ���������, � � ������� ��������� �������� ���. �� ������ ��������� ������ - ��� �������� ��������� � ������� ����?
����� ���� ������� ������ ����������, � ���������� ������� ������� ��� �����, �� ���� ���.
��� ����� ���������� ������� ��� � ������� creat_obj? ������ �������� � ����������� �����, �...� �� ���� �� ��� ��������� ��������?

-----
...������� �������������, ���������� � ��������������..

����������: 21:55 - 11 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���� ������ ���� .

int (string) proto_data(int pid, int data_member) - ���������� �������� ������ �� ��������� �������
���������:
pid - ������������� ��������� ������� (��. CRITRPID.H - PID ���������, ITEMPID.H - PID ���������, SCENEPID.H - PID ��������� �������)
data_member - ����� ������  (��. ����������)
������������ ��������:
�������� ���������� ���� �� ����� ���������

FID ��� ������� 3 .

����������: 7:15 - 12 ���., 2006
Alexer
������������

������: ������ �����������
�����������: ���. 2006

�����: 11 ���������

�� ��� �� ��� �������� ������, ��� �������� ������� ���, ����� ��� ��������� ������ �� (� ������� ������������) ����� ���� �� ��������� �������� ����� ��������� � ������������ ����������. ���� ���������� ���������� �������, � ��� �� �������� � ��������������� ������. ������� �������.

-----
"�� ������ ������������ � �������� ������"

����������: 11:07 - 19 ���., 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

�������� ������ ���� �������, ������� �� ������ �� ����� ��������� ���������� ���� ���������. ����� ���������� ������. ����� �� ���� ������ � ��� ����������. �������� ������� �� �����, ����� ������, ������ � ������� ��������������� ����� � ����� "Show all scripts" - ��, ��� � ������� ����.
��� ���������� �������� ����������� ����� � ��� ��������� ���������� �������������� ����� 4 �������: ��������� �� ����, ���� ������ ��, ������� � �����... ������ ��������, ���������� ��������� � ������.  �� � �������� ������-������. ��������, �����.

����������: 17:39 - 19 ���., 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
��� �������� ������� ���

��� ������ ��������? � ������ ������? ���� "��", �� ����� - �� ����� ��� ���������� ��������� ����� ����������, �� �������� ������������ ������ �� ����������� � ������� AI. ���� "���", �.�. � ������� ������, �� � ������� "���������� �������" �����
���:
 
procedure critter_p_proc begin
 if tile_distance(tile_num(obj_tile(dude_obj)), /* ����� ������ ����� */) < /* ���������� �� ������ ����� */ then begin
   animate_move_obj_to_tile(self_obj, /* ���� ���� */, /*  �������� */);
 end
end



-----
hit me, nail me, make me god

����������: 17:42 - 19 ���., 2006
Alexer
������������

������: ������ �����������
�����������: ���. 2006

�����: 11 ���������

�����, ������ �����. �� � ���� ��������� ����� ���������. � � ������ ������ �����, ��� ����� ������ �� ������� � ���������� ���������� :"�� ������ ����� ������� ������ � �. �. ..." . �� �� �����. � ���� � ����� �������� ���������� ������. ������� ������ �������� ���� ������� � �����, ��� �� ���������� � ������, �� ����� ���� ������� ���������� ����� ��� ��� ���:"�� ������ ����� ������� ������ � �. �. ..." . ������� script_overrides �� ��������.

-----
"�� ������ ������������ � �������� ������"

����������: 15:15 - 22 ���., 2006
Volk
������������

�����������: ���� 2005

�����: 79 ���������

��� �� ���? ����� if (party_member_obj(obj_pid(your_slave)) != 0)  �� ����������� ��� ���������, � ����� ����������� ���� ������ � ������, �.�. ������� ������� ��������� ��� ������ � ��������
���:
  if (party_member_obj(obj_pid(your_slave)) != 0) then begin 
   if (((global_var(719) bwand 1) != 0) == 1) then begin
     set_local_var(8, (2 * random(100, 150) * ((160.00000 + has_skill(dude_obj, 15)) / (160.00000 + has_skill(self_obj, 15)))));
     if (get_critter_stat(your_slave, 34) == 0) then begin
       gsay_reply(121, message_str(121, 271) + local_var(8) + message_str(121, 270));
     end
     else begin
       gsay_reply(121, message_str(121, 272) + local_var(8) + message_str(121, 270));
     end
   end
   else begin
     set_local_var(8, (2 * random(50, 100) * ((160.00000 + has_skill(dude_obj, 15)) / (160.00000 + has_skill(self_obj, 15)))));
     if (get_critter_stat(your_slave, 34) == 0) then begin
       gsay_reply(121, message_str(121, 273) + local_var(8) + message_str(121, 270));
     end
     else begin
       gsay_reply(121, message_str(121, 274) + local_var(8) + message_str(121, 270));
     end
   end
 end
 else begin
 ...
����������� �������


����������: 22:34 - 23 ���., 2006
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

������ ����� ���������� "your_slave" �� ������ ���������� ��� ��������������, ��� ��� � ��� ����� � ������� ����, � �� � ������� �����. ��� ����������� � �������, ���� ��������� ����� � �������� �������� � ����� ������ �� ����� ������ ������. �� ���� ������� �����, ��� ������ ������, �� �� ��. � ���� ����� �� �����. ���� ��-���� ������ � ����, ������ ���-�� ���� ������, �� ��� ��������.

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 0:14 - 24 ���., 2006
Volk
������������

�����������: ���� 2005

�����: 79 ���������

���, ������ ����� �����, ������� ��� �� ������� ����, � � ������� ���� ��� ������, �������� ��������� ������������� � ������� ����, ����� ����� �� ������� ����� � ������� ���� ������� �  ��� ��� ��� ����� �������� � ������ NPC ���� ��� ��� ������������� �������� ������ ;] �� �������...


(���������� �� 1:12 - 24 ���., 2006.)


���... ���� ����� ������ ���� ������ �� �����... ���� ������ ;]


(���������� �� 1:54 - 24 ���., 2006.)


���, ������ ) ������� � ������ ) ������� ��� Import\export � FAQ, � ���� � ������� ����� ��� ��������... �� ������� ;] ���� ��� � � �� ����� ����� ������� � ������� ����...


(���������� �� 2:15 - 24 ���., 2006.)


������� � ����� �� ������� ������ �� �����...

����������: 1:07 - 24 ���., 2006
Alexer
������������

������: ������ �����������
�����������: ���. 2006

�����: 11 ���������

� ������ ���������: ���� ������ ����� ��������� �������(������ ��� �� ������), ��������� � ��� ��� �� ����� ������ � ��� ��������, � ������ ��������� ��� ������� ���� ��� �� ���������. ������ �� ��� �� ����, ��� �� ��������� � �����-�� ��������� �������� ���� �����, �. �. ����� �������� � �����-�� �������, � ������� ��� ��������� ������� �� ������, �� ��������(��� �������) �������� ���������:"������-�����".

-----
"�� ������ ������������ � �������� ������"

����������: 7:38 - 24 ���., 2006
Aman
������������

������: ����
�����������: ���. 2005

�����: 208 ���������

to Volk

>> ���� ��� � � �� ����� ����� ������� � ������� ����

����� �� ������ ������� �� ���� ������ ����. ��� ��� ������ ���� ������������ ������, � ���� � �������� �������.

>> ������� � ����� �� ������� ������ �� �����

������� ����, �������� ���������. ���� ������� � �����, ����� ��� �� ����. ��� ������ - � ������� ��� � ���� ?


to Alexer

>> � ������� ��� ��������� ������� �� ������, �� ��������(��� �������) �������� ���������:"������-�����"

���� ������� ��������������, �� ������� ������� �� ������ ��� ��������� (pro ����). ������� ��� ���� ������ ����, ���� ������� ��� ������ ����������� (ArBridge.ssl).

-----
��� ������� ������������, ��� ���� ������������ ����-���� ��� ������� ����-����, �� ������ ����-����, � ������ ��, ��� �������� �� ������� - ������ �� ������ �����������. (�����������)

����������: 13:50 - 24 ���., 2006
Alexer
������������

������: ������ �����������
�����������: ���. 2006

�����: 11 ���������

� ���� ��� ����� ������: � ��������� ������� ����������� �������� �� ������ (who, what � �. �.) � ������� (������ �� ��������� ������� ����������� �������� Fallout 2 �� BIS
(�������� ��������)):

int destroy_object(ObjectPtr obj) - ���������� ������
���������:
obj - ��������� �� ������
������������ ��������:
����� ������� ������������ ����������� (?)

boolean obj_is_locked(ObjectPtr what) - ���������, ������ �� ������ ������
���������:
what - ��������� �� ������
������������ ��������:
TRUE - ���� ������ ������
FALSE - ���� ������ �� ������ ��� ������ ������ ������ ��������...
� �� ���� ������ ����� �������. � ������-�� ������������ �� ���� ���� �� �����.


-----
"�� ������ ������������ � �������� ������"

����������: 12:36 - 25 ���., 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������� ����� �� ����� ������, �� ������� ����� ��������� ������. �������. ��� �������, ��� ��� ������� � ���������� �� ��������� Items � Critters. ���� ��� ������������� ���, �� ��������� ������ ��������� ��� � ������� .

-----
hit me, nail me, make me god

����������: 13:42 - 25 ���., 2006 | ����������: Alan Killenger - 14:43 - 25 ���., 2006
Volk
������������

�����������: ���� 2005

�����: 79 ���������

2Aman
� ���� � ������ ������ ��� ��������� ;] ������� set_local_var(8, (2 * random(50, 100) * ((160.00000 + has_skill(dude_obj, 15)) / (160.00000 + has_skill(self_obj, 15)))));  ���� set_local_var(8, floor(2 * random(50, 100) * ((160.00000 + has_skill(dude_obj, 15)) / (160.00000 + has_skill(self_obj, 15)))));

����������: 4:24 - 26 ���., 2006
Alexer
������������

������: ������ �����������
�����������: ���. 2006

�����: 11 ���������

��� ���������� ���� msg ��� �������, ��� � ������� ����������� ��� ���. � � ������� ������ ������ �� ������� � ����� msg(�������� �����-�� ��� � �������(x.int � x.msg) ) , � ����� ������-�� ����������� �� ACTEMVIL.msg.

-----
"�� ������ ������������ � �������� ������"

����������: 8:58 - 26 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

"��� �� �� ���������, ��� ��� �� ��������" ...

FAQ
FScript-HOWTO

����������: 10:49 - 26 ���., 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

� ������� ������� ���� ����� (scipts.lst). ������� ������� ����� ���������� ��������������� 1 *.msg ����. ����� ����, ������� *.msg ����� ������ ��������������� ����� ���������������� ��� �������. ����� �� ����� ����� �� *.msg ����� �� ��������� ��� ���������: ����� ����� � ����� ������.

-----
hit me, nail me, make me god

����������: 14:01 - 26 ���., 2006
Alexer
������������

������: ������ �����������
�����������: ���. 2006

�����: 11 ���������

���������� ����������! ��� ��� ������� ���, ��� , � ������� : ������ ��������� ������� �����, ��� ����� �� ���� � ����������, ������ � ���������� ���� �������������� �������, � ����� �����������. ���� ����������, ��� ����� �������� ������� �����, ����������, ����� ��������� ������� ����������?

-----
"�� ������ ������������ � �������� ������"

����������: 9:15 - 1 ���, 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

�����������. � ������� ���������� ���������� (GVAR, � ����� � MVAR, ���� �����). ������ ����� ������������� ���������� � ������������ ��������( set_global_var(GVAR_DOOR,1); ), � ������ ����� ��� ������� �������������� � ��� ��������� ��� ���������� : if (global_var(GVAR_DOOR)==1) then...

����������: 10:37 - 1 ���, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

�� ������� ���� ��������� �������� � ����� ��� ������� ���������� ���������� skil1:

critter_mod_skill(dude_obj,skil1,1);

������� �������� ��������� ���� ���� �� ������,
� ���� ������ �������� �� �����������.

��� ������ ����� � ��� ����?
� ��������� ������� ����� �������� �����?

����������: 14:57 - 3 ���, 2006
Avenger666
������������

�����������: ��� 2006

�����: 12 ���������

�������� - ���������� ��������. F2 �������� � "��������� ��������� ������������ ..." ��-�� scripts.lst . ��������� � ��� ����, ��� ������� �������� �� ������ �������, 100 ��� �������� scripts.lst �� ������. � ��� �������� ����� ����?

����������: 20:05 - 3 ���, 2006 | ����������: Avenger666 - 20:11 - 3 ���, 2006
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

�� ��� ��������� ��������� ��������� �������
��������� �� ��� ����� ����������� ������� lst-����, ���� �� ���������, ��� �������� � ������.

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 20:15 - 3 ���, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

Avenger

� ���� ��� �� ���� �������� - ������
scripts.lst � ����� �����, � ����� ����� ������ �� ������� ������������� scripts.lst� ������� ����� � ������ �����.

� ���� ��������� ���� ����������?
(�� ����� � ������������ ������?)

����������: 22:26 - 3 ���, 2006 | ����������: Keha - 22:27 - 3 ���, 2006
Avenger666
������������

�����������: ��� 2006

�����: 12 ���������


���� ������ ������� � ��� ��. � ���� ������ ����� �� ��������� . ���������� ��� � ���� � ����� F2\data\scripts\scripts.lst , �������������� ������ �������� �� patch000.dat

scripts.lst ���� � ���� (������ ������� �� ��������� ��� ��������� SCRIPT_NAME � ���������� ����� ���� �����-�� ���������� �������) ��� ���� �� �� ���������� ���.

����������: 9:04 - 4 ���, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
critter_mod_skill(dude_obj,skil1,1);
������� �������� ��������� ���� ���� �� ������,
� ���� ������ �������� �� �����������.

������, ���������� ������:
������:
���� ����� ������� ��� tagged, �������� amount ����������� �� �������

����������: 9:14 - 4 ���, 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

������:
Quote: from Avenger666 on 9:04 - 4 ���, 2006

���� ������ ������� � ��� ��. � ���� ������ ����� �� ��������� . ���������� ��� � ���� � ����� F2\data\scripts\scripts.lst , �������������� ������ �������� �� patch000.dat


����� � ��� ���������� patch000.dat ���������� ������, � ��� ��� ������ �����. � �� � ���� ���� �������� ���� ����� �� ����� �������, ������ �� ���� � ��������� ������� ������ ������ �� ������� ������.

���� �� ���������������� (patches) ������ ������������� � fallout2.cfg. ��� �������� ����� ����� ����� cfg_�����:

critter_dat=c:\games\Fallout2\critter.dat
critter_patches=c:\games\Fallout2\mod
cycle_speed_factor=1
executable=game
free_space=20480
hashing=1
interrupt_walk=1
language=english
master_dat=c:\games\Fallout2\master.dat
master_patches=c:\games\Fallout2\mod

������:
scripts.lst ���� � ���� (������ ������� �� ��������� ��� ��������� SCRIPT_NAME � ���������� ����� ���� �����-�� ���������� �������) ��� ���� �� �� ���������� ���.



�������� ������ ������������ scripts.lst �������� � ��������� ������� ���� �������. � ������ ����������, ��� ��� ���� ��� ����������. ��� ��� ����� ��� ���������� ��� ��� ������������� ������ ������?

������:
Quote: from Wasteland Ghost

������, ���������� ������:
������� �������, ��� ������ ��������.

����������: 21:03 - 4 ���, 2006 | ����������: Keha - 21:08 - 4 ���, 2006
Alexer
������������

������: ������ �����������
�����������: ���. 2006

�����: 11 ���������

� ���� �����, ������������ ������: ��� ����������� ���� �����. �������� ��� ����� ������� ����������� �������� anim(ObjectPtr who, int anim, int direction), �� � ������� ����������� int anim. ����������, ���� ��� ������ ����� �����������...

-----
"�� ������ ������������ � �������� ������"

����������: 11:48 - 6 ���, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� �������� ��� ������ reg_anim. ��� ������� �������� ��� ������� ������� � ������� � �������. ��� �� ����� � ������� ������������ ���� ������ ���������� �������� �� Communist'�. ��, ������, ��� ipp, �� ������� ��� ��.

����������: 13:26 - 6 ���, 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

��� ������ [������� �� Wasteland Ghost] ����� �������� ������� ������, ��� ��� ������ ������������� ������ ������� ������ (� ���������� ������� � ��������). ��������� ����� ����� - �� ����������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 22:02 - 23 ���, 2006
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

��� ������ �����, �� ���������� �� ���� �����, ������ ��� �������.


#include "..\headers\define.h"

#define NAME � � � � � � � � 1402// � 1360

#include "..\headers\command.h"


procedure start;
procedure critter_p_proc;
procedure spatial_p_proc;
procedure talk_p_proc;

variable nam;

procedure button_on;
procedure button_off;
procedure button_press1;
procedure button_press2;
procedure button_press3;
procedure button_release;
procedure empty_proc;
procedure region_press1;
procedure region_press2;
procedure region_press3;

procedure start
begin
end

procedure critter_p_proc
begin
end

procedure spatial_p_proc begin

call talk_p_proc;
begin

end
procedure talk_p_proc
begin
� �script_overrides;

� �CreateWin ("test_wnd1",200,60, 231,285);
� �SelectWin ("test_wnd1");
� �Display ("pcx/liftmenu.pcx");
� �AddButton ("test_btn", 8, 37, 99, 59);
� �AddButtonGFX ("test_btn", "pcx/butlups1.pcx", "pcx/butlups1.pcx", "pcx/butlups1.pcx");
� �AddButtonProc ("test_btn", button_on, button_off, button_press1, button_release);

� �addregion "test_reg1" {10,0, 231,285};
� �addregionproc("test_reg1", no_proc, no_proc, region_press1, empty_proc);

� �ShowWin;


� �AddButton ("test_btn1", 8, 97, 99, 59);
� �AddButtonGFX ("test_btn1", "pcx/butlups2.pcx", "pcx/butlups2.pcx", "pcx/butlups2.pcx");
� �AddButtonProc ("test_btn1", button_on, button_off, button_press2, button_release);

� �addregion "test_reg1" {10,0, 231,285};
� �addregionproc("test_reg1", no_proc, no_proc, region_press2, empty_proc);

� �ShowWin;


� �AddButton ("test_btn2", 8, 157, 99, 59);
� �AddButtonGFX ("test_btn2", "pcx/butlups3.pcx", "pcx/butlups3.pcx", "pcx/butlups3.pcx");
� �AddButtonProc ("test_btn2", button_on, button_off, button_press3, button_release);

� �addregion "test_reg1" {10,0, 231,285};
� �addregionproc("test_reg1", no_proc, no_proc, region_press3, empty_proc);

� �ShowWin;
end

procedure button_press1
begin
DeleteWin("test_wnd1");
load_map(MAPSTR_N_tpmb02, 22134); � �//MAPSTR_N_tpmb02
move_to(dude_obj, 25112, 0);

end

procedure button_press2
begin

//FadeOut(1);
DeleteWin("test_wnd1");
//FadeIn(1);
//gfade_out(999);
//load_map(MAP_New_Military_Base, 22134);
load_map(MAP_New_MB_AR, 22312);
move_to(dude_obj, 25112, 0);
// gfade_in(999);

end

procedure button_press3
begin
DeleteWin("test_wnd1");
//load_map(MAP_New_MB_AR, 22312);
load_map(MAP_New_MB_AR, 22312);
move_to(dude_obj, 21912, 1);

end

procedure button_release
begin
� �DeleteWin("test_wnd1");
end

procedure button_on
begin end

procedure button_off
begin end

procedure region_press1
begin
� �reg_anim_clear(dude_obj);
� �DeleteWin("test_wnd1");
end

procedure region_press2
begin
� �reg_anim_clear(dude_obj);
� �DeleteWin("test_wnd1");
end

procedure region_press3
begin
� �reg_anim_clear(dude_obj);
� �DeleteWin("test_wnd1");
end

procedure empty_proc
begin end


-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 22:27 - 23 ���, 2006 | ����������: Pavel - 22:30 - 23 ���, 2006
Spy
�������

������: ��� ��� �����...
�����������: ��� 2005

�����: 374 ���������

��� �������, �.�. �� ������ ���� � ��������? � ������ ��� ���������� ������ (��� � �����������)? ��������� � �����, ����� - ��� ��������, � ������ � - ������� ����.

-----
������, ����� ���-�� ���� ������� ������ - ������ ���.

����������: 23:11 - 23 ���, 2006
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

to Ray
��� ����� ����� ����������� ������, �������������� ����� ���������� ������ �������� ������������� ���� � ����� �������. ���� ����������. ���� ������ �������, ������ ��������� ��������

to Spy
������:

��������� � �����, ����� - ��� ��������, � ������ � - ������� ����.


����� ����� ��� �� ��������.

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 18:49 - 24 ���, 2006
Avenger666
������������

�����������: ��� 2006

�����: 12 ���������

��� ����������� respawn critter'a ��� ������ ������ �� ����� ?

����������: 19:32 - 25 ���, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

�� ���� ���� �������� �������, �� ��� ��������� ������ �� ��� ����� �����? � map_enter_p_proc ��������� create_obj_pid � ��������� �������� ��� ������ ������ �� �����, � � map_exit_p_proc ������� ��� ����� ������ ������� � ����� (���� �� �� ��� ���� ������).

-----
hit me, nail me, make me god

����������: 4:35 - 26 ���, 2006
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� ������ ��� ���� �� ���� �������� (��������� � �����). ������, ����� ���� � ��� ����� �� �����������. ����, ������ � ������, ��� ��������� ���� �� ������� ������, �� ���������� ������. ��� ���������, ��� � ������ ����. �� �������� ���� �� ������ ������� ������, � �������, ��� ���� ������� �� ���� ������� �������, � ������� ������. � ��� �� ����� ���������� �������. ���� ����? ��� ���������� � AL.

-----
...������� �������������, ���������� � ��������������..

����������: 22:15 - 2 ����, 2006
Avenger666
������������

�����������: ��� 2006

�����: 12 ���������

��� ������� ����� ������ � critter'a ���� ������� ��� ��� �� ��� �������� (�.�. percepection ��������?), ����� ���-�� ����� ����������� ����� ����� roll_vs_skill ?

����������: 13:19 - 4 ����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:

procedure use_skill_on_p_proc begin
 if (action_being_used == SKILL_STEAL) then begin
   if /* ���� ������� �� ������� ��������� */ then begin
     /* ���, ������ ������ ��� �������� ����� ��� ����� ���� ���������� ����� � �������������� ������������ ������� */
   end else begin
     script_overrides;
     /* ����� � ����� ����� ���������� */
   end
 end
end


P.S. � ����� ������ ��� code ���� �� ������ ��� �������� ����� ����... �����-��?

-----
hit me, nail me, make me god

����������: 17:02 - 4 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

��� ��� ����� ������������� ����...

�������� ���� ����� �� ��������, � �������� ����� �����, ����� ������� ������ � ������� �� ������ �������, ���������� ������� � ������������� ��� ������ �����������... �� �� ���� ������� �� ����������...

������ � ����� ����� �������� � ����� ���� ������� �������� �� ��� ������, ���� ���, ��� ������� ���� ������ ����, � � ��� ������ �������� �������� ������...

�������� ��� ������ ����� ������ �����, ����� ������� ����� ������ �������� � ��������� � ����� ���������. � �� ��������� �� ��� � ����� ���� �� �������...



-----
�� ��� ��������, ����.

����������: 21:13 - 6 ����, 2006
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

2 ����1969

1) ������������ ����� ������� �����, ��� ��� ����������� ����� ���� .
2) ������� ������ ����� � ������ � ������� ����� ���� ����, ��� ������ �������� ������� ���, ��� ������� �������.
3) � ����� ���� ������� ������� � �������������? ������ ���� �����������? ��� ���� ��� ������ �������� .
4) ��������� � ��� ���� � � ��������, � � �����, � � "������ �������"... ���� ����?

��: �������������, ����� ���������� ���������?

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 1:41 - 7 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

������:
Quote: from Pavel on 1:41 - 7 ����, 2006
2 ����1969

1) ������������ ����� ������� �����, ��� ��� ����������� ����� ���� .
2) ������� ������ ����� � ������ � ������� ����� ���� ����, ��� ������ �������� ������� ���, ��� ������� �������.
3) � ����� ���� ������� ������� � �������������? ������ ���� �����������? ��� ���� ��� ������ �������� .
4) ��������� � ��� ���� � � ��������, � � �����, � � "������ �������"... ���� ����?

��: �������������, ����� ���������� ���������?


���, ������, ���� ��������� �������������...

1. ���� �����, ����...

2.�� ������ �����... ������ �����, ���� ���������� ���������...

3. � �����, ��� �������� ������ ����� ������� ����� ����� ��������� ���������...

4. ���, ����, �����... �� �����, ��, ����� �����! ���� ���� ������� ��� �������� � �������� �� ���! ��� ������ � ������ ������, ��������� ������ � �.� � �.�....

������ ������� ����� �� ������ �������� ������, � ������� ���������� ��������...

��: ����� ���������� ���������...

-----
�� ��� ��������, ����.

����������: 8:40 - 7 ����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
3. � �����, ��� �������� ������ ����� ������� ����� ����� ��������� ���������...

� ������� ��� �����, ��� ���� �������� � ���������� ������ �����, ���� �� �����? ������� ���� - �� �� ��� �������. ������, �� ������ ������� ��������. ��� ���� FAQ �� �������� �� ����������?

����������: 12:38 - 7 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

������:
Quote: from Wasteland Ghost on 12:38 - 7 ����, 2006
[quote]3. � �����, ��� �������� ������ ����� ������� ����� ����� ��������� ���������...

� ������� ��� �����, ��� ���� �������� � ���������� ������ �����, ���� �� �����? ������� ���� - �� �� ��� �������. ������, �� ������ ������� ��������. ��� ���� FAQ �� �������� �� ����������?[/quote]

���... �� ���� �� ��������� ������ �������� � ��� ������� ��������...  ������ ����� ���� ����� ������ ��������� �� �������� "������ ����������� � ����� ����������, � �� ���� ����� � ��� ������ �������", ������� � � ������, ��� ���� ���� �����, �� � ������ �������� ����������� � ����...  �� � �������� ��� �� � �� ����...

� �� ������ ���� ��� ��� ������� ����������� ���������� �������... � ��� �������� �� ������, ��� ������ ���������, ��� ��� � ��������� ������ � ������� ��� ������ ��� �������� ��� ����� �������� �� �������� �� ��������, ������ ���������� �������! ��� ��� �������� �� �������!



-----
�� ��� ��������, ����.

����������: 14:00 - 7 ����, 2006
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

����

�������������, ����� ���� ����� ��������������, �� �� ��������, ��� ����� ������ �����������. �� ������ ����� � ����� � �� ��������� ���������� �����.

������:
� ��� �������� �� ������, ��� ������ ���������, ��� ��� � ��������� ������ � ������� ��� ������ ��� �������� ��� ����� �������� �� �������� �� ��������, ������ ���������� �������! ��� ��� �������� �� �������!

������ ������, ���� �� ������ ����� - �� �� ������, � ��� ��������? ���� � � ������ �������... ��� ���� ��, ���� � �� ������� ���� �� ������ ������... �� �� ����� ��� ������, ���� �� �� ��������� ��������� ���� �����... ���� ������
������ �� ����� �������������� ������, �� ������ ����� � �����... � ���� ���������� ������: � ����� ���� �������?

������:
� �� ������ ���� ��� ��� ������� ����������� ���������� �������...

�� �� �� � FAQ, ��� �� � ��� ���������� ���������.  FAQ - ��� ���� �� ������: ����� ���������� �������. ��� ��� ����� ��������, ��� ���� - � ��� �� �����. � ������, ����� �����������. ���� �� �� ������ ������ �����������, �� � ����� ��������� �������������� �����, � ��� ������������ �������� . ����� ���, ���� � ���� ���� ���������� ������ �� �������� - �������, � ���� �� ���������� ������ - ���� �� ����. ����� ��� ������� ����� �� ����������� �������, ���� ����� �������, � ��� � ���������� .

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 0:05 - 8 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

������ ������

� �������, � ������� � ���������, ���� ������

Scenery_Creation_Ptr:=tile_contains_pid_obj(CAR_POS_IN_MAP,0,PID_DRIVABLE_CAR);

���������� ����������� �� ��� � ���

Scenery_Creation_Ptr:=tile_contains_pid_obj( 24915 ,0, (33555441) );

� ����� ������ ��������, ��� ����������� ����������� ������....

� ��� �������� ��? ����� �� ���� ������ ������ ������?

������ �� �������� PID_DRIVABLE_CAR ����� ��������� � ������ ��� �����������...

�� ��� ��������...


-----
�� ��� ��������, ����.

����������: 14:17 - 9 ����, 2006 | ����������: Oleg1969 - 14:25 - 9 ����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
� ��� �������� ��? ����� �� ���� ������ ������ ������?

�����, ��� � itempid.h ��� � scenpid.h ���� ����� ������
���:
#define PID_DRIVABLE_CAR (33555441)


������ ���� ���� �� ������ �������� ������, ����� ��� � ������ �����.

-----
hit me, nail me, make me god

����������: 14:56 - 9 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

������:
Quote: from Alan Killenger on 14:56 - 9 ����, 2006
[quote]� ��� �������� ��? ����� �� ���� ������ ������ ������?

�����, ��� � itempid.h ��� � scenpid.h ���� ����� ������
���:
#define PID_DRIVABLE_CAR (33555441)


������ ���� ���� �� ������ �������� ������, ����� ��� � ������ �����.[/quote]

�� �������� ���������� ������������� �������� ������� � �������... �� ����� ��� ����������� �����������...
������ ���������� � ������ � ������� ��������� ������ ��� ���...

����� ������ ������...


-----
�� ��� ��������, ����.

����������: 15:11 - 9 ����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
������ ���������� � ������ � ������� ��������� ������ ��� ���...

��������, ���������� �������� � ���, ��� �� ��������� ������ �������� �� ���� ������, � �� � ���, ��� ������ ��������� � ���� ������. ������ ������ - ������� �������, ���� ������������ �������� ���� ������ � �������. ��� ���, ������, ��� ������ ���������� ����� � ��������� �� ������ ������? ��������������� �������� ������ ��� ������ ���� ��������?

to Avenger
����� �����, ���� ���������.
���:
 
procedure use_skill_on_p_proc begin
 if (action_being_used == SKILL_STEAL) then begin
   /* ��������� ������, �� �� � ����� ����������. */
   /* �� ���� ��� ��������� ��������� ��� ������. */
   /* ����� ������� ����� ����� �������� �����    */
   /* ������� ����� ���������, ����� ���������.   */
   /* � ������� ��� ��� ����� ������, ��          */
   /* ��������� ���������� �� ���������� ����,    */
   /* ������� ��������� ��� ���������.            */
 end
end




-----
hit me, nail me, make me god

����������: 17:47 - 9 ����, 2006 | ����������: Alan Killenger - 18:53 - 9 ����, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
�� �������� ���������� ������������� �������� ������� � �������... �� ����� ��� ����������� �����������...

������-��, ��������, ��� �� ����������, ��� ��������. ����� ��� ��� ����� ���� �� ��������������. �������� ��� ����, ��� ���� �� ��������
#define MY_DEF    HORRIGAN_KOZEL
�� ����� ������ MY_DEF ������������ (���������� ��� �������� � ������� ����, �� ��� ��� �������) ��������� HORRIGAN_KOZEL. ������������ �� ��������� ����������, ������� ������ � �������� - ��� ������� ���.

����������: 12:39 - 10 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

������:
Quote: from Wasteland Ghost on 12:39 - 10 ����, 2006
[quote]�� �������� ���������� ������������� �������� ������� � �������... �� ����� ��� ����������� �����������...

������-��, ��������, ��� �� ����������, ��� ��������. ����� ��� ��� ����� ���� �� ��������������. �������� ��� ����, ��� ���� �� ��������
#define MY_DEF    HORRIGAN_KOZEL
�� ����� ������ MY_DEF ������������ (���������� ��� �������� � ������� ����, �� ��� ��� �������) ��������� HORRIGAN_KOZEL. ������������ �� ��������� ����������, ������� ������ � �������� - ��� ������� ���.[/quote]

����� ����� (��� �����������?), ��� ������ "����������" � ���� ����� ����� �������, � ��������������, ��� ����, ��� ��� ������� ... � ���� � ���� ����-�� ��������� �����-�� �������� �� ��� ��� ���� ���� ���������� � ������� ��� �������� �� ��� ��������... ������� �� ����� ��������� � ������...  ��� ��� ���, ������� � � ������, ��� ��� ����������� ����������� � � �� �� ������ ������ ������...

������� ���� ��� ����������� �� ��� ������, �� ������ ������ �� ����� � ������� ������ �������, � ��� ��� ������� �������!

��: ������ � ���� ������ ����������� ������� ������� ��������� ���� � ����...


-----
�� ��� ��������, ����.

����������: 12:26 - 11 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

���������� � ��� ����: �� ����� �������� ������ ������
���������� �������� ��� �������, ������ �� ��������, � �� ��������... ��� �������� �� �� ������������, ����� ������� � �� ����� ����� �������������� ����....

/*  &#209;&#234;&#240;&#232;&#239;&#242; &#241;&#232;&#240;&#229;&#237;&#251; */
#include  "D:\Fallout2\mod\scripts\headers\define.h"
#include  "D:\Fallout2\mod\scripts\HEADERS\command.h"

#define NAME        SCRIPT_TOKLAXON     //1307

procedure start;
procedure map_update_p_proc;

procedure start begin
end

procedure map_update_p_proc
begin
//variable  item;
 if (gvar_bit(GVAR_RESERVED_VAR59,bit_1)==1) then begin
   if obj_pid(self_obj) == PID_NS_LIGHT then create_object(PID_NS_FLASHING_LIGHT,tile_num(self_obj),elevation(self_obj));
   else create_object(PID_EW_FLASHING_LIGHT,tile_num(self_obj),elevation(self_obj));
 end
end

��� ����� ������...



-----
�� ��� ��������, ����.

����������: 16:21 - 16 ����, 2006
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

�� ������� � ���� ������, �� ��� ������� ����� begin ... end ��������� �������. �������� ��� � ������ ��������� (���� ��������� �����, ���� ��������� else):

procedure map_update_p_proc
begin
//variable  item;
if (gvar_bit(GVAR_RESERVED_VAR59,bit_1)==1) then begin
  if obj_pid(self_obj) == PID_NS_LIGHT then begin create_object(PID_NS_FLASHING_LIGHT,tile_num(self_obj),elevation(self_obj));
end
  else begin create_object(PID_EW_FLASHING_LIGHT,tile_num(self_obj),elevation(self_obj));
 end
end
end


-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 16:35 - 16 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

��� ��� ������� ���������... ������� ������� ������� � �����... � ��� ���� �������� ���� � �������, ��� ����� � �������� ����������� ������ ��� ����������� � �����...

� ������� � �����. � ������� �� ��������, � ��� � ���� ��� ���� ���������� ���...! � ����� ������ ��� ������ ����������, ������ � ���� ��� ���� ��������... ������...

���� �������.


-----
�� ��� ��������, ����.

����������: 14:31 - 17 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

����� ������ ������...
��� ����� ����� ����������� ������� (� ����� ���������) � ��� �� ��� ������? � �� ��� ���������, �� ���������� ����� �� ����� �����������, �� � �������� �������������, ��� ��!!!
� ������ ������, ��������� � ���� ������������ ��������� �� ���������, �������� � ������ ���... �� ������� ��� �������� �������� � ����� �� ����� ������� �� ������� ���������� ��� ��������� ��������? ������ � ���� ����� �� ����� ������������...

-----
�� ��� ��������, ����.

����������: 1:54 - 19 ����, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
��� ����� ����� ����������� ������� (� ����� ���������) � ��� �� ��� ������? � �� ��� ���������, �� ���������� ����� �� ����� �����������, �� � �������� �������������, ��� ��!!!

�� ����, � ���� ������ ������� ���� ��������� ������������. �� ����� ������� ��� ������ ����� ������ �������, �������� �� ��� ������ ���������. �.�. ���� ��������� ����� ������� ���������� ���. ���� ����� ���������� � ������ ����� �������� �� ������� � �����-������ ������������.
������:
� ������ ������, ��������� � ���� ������������ ��������� �� ���������, �������� � ������ ���... �� ������� ��� �������� �������� � ����� �� ����� ������� �� ������� ���������� ��� ��������� ��������? ������ � ���� ����� �� ����� ������������...

���� bwor � bwand ������������ ��� ��� or � and, ��������� ���� - ��������� �����, �������� ������� ���� - bwand � ��������� ���� �����. ����� ������ ���� ������� shr, shl. � ��� -  �����, ���� ��� ������, �� ���� ����� ��������������� ��� ��� ���������.

-----
hit me, nail me, make me god

����������: 16:00 - 19 ����, 2006 | ����������: Alan Killenger - 17:01 - 19 ����, 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������, ����������, ��� � ����� �� ���? �����-�� �������� � ��������. �� ����� �������� ���������� ���� ������ �����������. ���� ��� �����������, ���� ����� ������ �������. �����, ���� ����� ���������� �������, �������� ������ ������� ���-�� ���� "��� � �������", ���� �� ��������� - "������ �� ���������?"
� ����� �� ���������� ���, ��� ����� ��������� ������ �� ����������. ����� ��� �������� �����������, � ������ ������� ���������� ����� "������� ������, ���-���-���." �� ������ �� ������� ��� �� ��������� ������ �������. � ������� ��������� ������ �� ���������� (������-�� � ������� ������� ��� ������������, �� ��� �� ������� �� �������������).

������� ������ ��-�������, ��������� �������. ��� ����� ����:

������:

procedure inf_trade begin
variable item;
� item:=create_object(PID_MULTI_TOOL,1,1);
� add_obj_to_inven(self_obj, item);
� gdialog_barter; � � � � � � � � � � � � � � � � � � � � � � � � �
� call trade_bufer;
end

procedure trade_bufer begin
� Reply(" "); � � � � � � � � � � � � � � � � � � � � � � � � � � �

� if (obj_is_carrying_obj_pid(dude_obj,PID_MULTI_TOOL)) then call Node030;
� else call Node031;

end

procedure Node030 begin �
� Reply(mstr(780)); � � � � � � � � � � � � � � � � � � � � � � � � � � �
� NOption(783,Node999,1); � � � � � � � � � � � � � � � � � � � �
end

procedure Node031 begin
� Reply(mstr(781)); � � � � � � � � � � � � � � � � � � � � � � � � � � �
� NOption(782,Node999,1); � � � � � � � � � � � � � � � � � � � �
end



��� � ����� �����������, � ��� ������� ��������� ;) ? ����� �������� ��������� - ������� ���������� �����?

����������: 23:04 - 23 ����, 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

��� � �� ����, ���� ������ ����������, �� ���� �� ����� � ���� �������� ����������� ����� ��� ������� �������� �� ����� � ��������� ��������� script_overrides; ����� �������... ��� � ���� ����� �� �������� ��������... ���� ��������� ���������� ��� ������...

-----
�� ��� ��������, ����.

����������: 8:28 - 24 ����, 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

�������� ������. �����, �� ������� ������, �� ������. ������ � ���������, ��������� ����� ������ �� �������, ������� ����� [�����]. ����� ����� ������ ������������ ���������.
������, � ��������������� �������, � ��������� trade_bufer �� ������� �������� ������� (��� ����������� ������� ������������ � ��������� ����).  ����� � ������� ��� � ������ ���������, ��� ����������. ����� ����������� , ��� ����� ������ �� ������� �������� ���������� ������ �� ��������������.

����������: 13:07 - 24 ����, 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

� ����� �������.)
����� ������.
����� ��� ��� � �������� ��� ��� ����.
����� ��������� � ����� � ����� ������ � ����� �� ���, ���� �� ��������� ������ �������� �� ������. (��� ��������� � ����� �������)
������:
��� ������� ���, ���� ��� �������� ������ �� �����. (��� ��� �� ����� � ���������� ����������)

����������: 7:36 - 15 ���., 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

Akkella
����� ���:
� ������, ����� ����� �������� �� ���� ��������������� ���������� ���������� - ��� ����, ����� �������� ���� �����, ��� �������� ����� (�������f ����� � critter_p_proc), � ����� ������ ���� �������� ������ ��� ���������� ������� ����������� ������ � �������������� ���. ��� ��� �������, �������� ���-�� � �����.

���-�� ���� �����:
������ �����:
export variable enemy_ptr;

procedure start begin
  ememy_ptr:=self_obj;
end

������ �����:
import variable enemy_ptr;
procedure critter_p_proc begin
  if (globdl_var(GVAR_.....)==) then attack(enemy_ptr)
end

������ ��� ���������, ��� ���������� ��� ����� ���� � �������.

� ����� ����� �������� ������ � ������ ���� (��������).

����������: 8:54 - 15 ���., 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

� ������� ���������� �� �� �� ��������... ���� �������.
����������� ����������� ����� �� ���������. ������ ��� ���� �� �����, �� �������� �� �������� ��� ���� ���.
������ ���� �� ����� ���������, �� �������� ������������...

����������: 9:48 - 15 ���., 2006
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������ ���� ����� ����� ������������. �� � �� � ���� �� ������ ���������, �� ����� ��������� ������� ������.

����������: 11:11 - 15 ���., 2006
Hante
������������

�����������: ���. 2006

�����: 1 ���������

������ ����.
�������� "FScript-HOWTO", ��� �������. ������������� ������, �������� ��� � Data\Scripts, �������� ��� ����.
� ��������� ������� �������� ��� �� �������� � �� ����������� ���� ������ � ������.
��� ��� ������: � ��, ������, �� ����� ��������� � ���������� �����������?
����� ���-��, ��� ��� ��-�� path0000.dat, ���������� ���, ������ - ��� ����������.

����������: 14:58 - 18 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

FAQ
���� ������ ����. ���� ��������� ���������� ��� � �����������, ������ ������ � �������.���, �� "���, ������ ����".

����������: 17:16 - 18 ���., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

�����, � ���� � ����-������  ��������� � ��� ����� ����������  *���������� ������ ������� �� ����� ��� � ��� ���", � �� ����� ���� ����� �� ���� ��� ��������� ���� ? ��� ��� �� ��������:
��� �������� � ��� �� �������� � ������ ������ �����  �� ���������� ���� ����?

����������: 0:47 - 8 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

�������� ��������� �������� � LVAR-��� � �������...
���� ������ ��� �����, � ��� ��������� LVAR-�, � SCRIPTS.LST ��� ���������, �� ����� �������� � ���� �������� �� ��� ������ -1, ��� ����� ��� �� ���������...

� ��� ����� ���� �����?

-----
�� ��� ��������, ����.

����������: 23:27 - 11 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�����, �����, �� �� ���������� �������?

����������: 13:25 - 12 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

���. ������� ���� � ���� � �������� ������� �� ����� ����, � �� ����� ���� � �������...

������ �� ����� ��� �������� ������� ����� �� ����������, �� ���� ��� �� �������? ��� � ��������?

������ ������� �� MVAR �� ��� ��� ��������... � ��� �� �����?

-----
�� ��� ��������, ����.

����������: 17:36 - 12 ����., 2006 | ����������: Oleg1969 - 17:39 - 12 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�����, �� ������. �� ��-���� �������� ����� ���� ������.

����������: 17:38 - 12 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

���-�� ������ �� ������, ���������� �� ������ �� ������ ������ ����� ������������ ��� �������. ���� � �������, ���� ����� ��������... LVAR ��������� �� ��������...
������� ���� ������ �����, ����� ��� �� �� ����� ����������...

#include "D:\Fallout2\mod\scripts\headers\define.h"
#include "D:\Fallout2\mod\scripts\headers\updatmap.h"
#include "D:\Fallout2\mod\scripts\headers\command.h"
#include "D:\Fallout2\mod\scripts\headers\tomorrow.h"

#define NAME                SCRIPT_TOQUESTU //1316
#define CAR_POS_IN_MAP    20077      //
#define CAR_ELEV_IN_MAP   0          //

#define MVAR_Begin_Attack_Mike  (0)  //
#define MVAR_Mike_Put           (1)  //
#define MVAR_Mike_ID            (2)  //

#define LVAR_Mike_Put           (0)

procedure start;

procedure map_enter_p_proc;
procedure map_update_p_proc;
procedure map_exit_p_proc;

procedure Set_Level_Map;

export  variable  object_Mike         //


procedure start
begin

end

procedure map_enter_p_proc
begin
 Lighting;
 call Set_Level_Map;
 Check_Create_Car(CAR_POS_IN_MAP,CAR_ELEV_IN_MAP)
end

procedure map_update_p_proc
begin
 display_msg("LVAR_Mike_Put:="+local_var(LVAR_Mike_Put));
//  display_msg("MVAR_BA_Mike:="+map_var(MVAR_Begin_Attack_Mike));
 Lighting;
end

procedure map_exit_p_proc
begin

end

procedure Set_Level_Map
begin
variable  Tomaps;
 if  ((GAME_TIME_IN_DAYS-(global_var(GVAR_TOMORROW_DAYS)))<=3) and (local_var(LVAR_Mike_Put)<1) then begin
   inc_local_var(LVAR_Mike_Put);
   object_Mike:=create_object_sid(PID_MIKE,18491,0,-1);
   set_map_var(MVAR_Mike_ID,object_Mike);
   anim(object_Mike,ANIMATE_ROTATION,2);
   create_object_sid(PID_BED_4,18085,0,-1);
   create_object_sid(PID_WOOD_FIRE,18486,0,-1);
   Tomaps:=create_object(PID_TOMORROW_MAP,0,0);
   add_mult_objs_to_inven(object_Mike,Tomaps,1);
 end
 override_map_start_hex(19284,0,5);
end

� �������.��� ��� ���������... ������ ����� ������...

��: �� MVAR �������� �� ���������... ��� ���, ������


(���������� �� 21:28 - 12 ����., 2006.)


����� ����������������� ������������� ������ � ������, ��� ������ �������� �������� ������ ������� �����. �� ���� ��������� �������� �������� ����������� �� ����� ��� ������� ��������... ��� ���� ��� ����������� LVAR��� � �������� ����? � ��� ���? ��� ��� ���������� ������ ��� ���� �����?

-----
�� ��� ��������, ����.

����������: 20:42 - 12 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

���������� ��� ��������� ������� ����. �� � ����� ��� ������ � LVAR���, ������ � MVAR��� ��� GVAR���... ��� � ��� ���� �������? ����� LVAR� ������ ������������ � �������� ����?

-----
�� ��� ��������, ����.

����������: 23:42 - 12 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� � ���� ��� ������ ����������?
���:
export  variable  object_Mike         // 


������:
� �������.��� ��� ���������...

� �� ��� ������� ��� ��������, ��� �������.
��� ��������� �� ����, �� ������ ���������� � ������� �������� �����������.

������ ������ ����� artemple. ������� ��� ����-������ ���� � �������.���. ������ ���� ������/������/�����. �������, ��� ��� ������� ������ ������ ���� �����000 ��� ���������� artemple.sav � ����� DATA\MAPS ��� ���-���-�-����-��� (������, ���� ��� ������). �������, ��� � cfg ��� ���� ����������. ����� ����� ����.

����������: 11:25 - 13 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

��... ������ �� ��, �����������... � ��� ��� ������? ����� ����������� ���������� ��� ������ �����������... ��� �� ���? ��� ��������, ������ ��� ���������� ����� ���� ���������� �� LVAR� � ��� �����...

����� ����� ���...

ccKevin.int     ; Kevin in Navarro                              # local_vars=8
csAlarm.int     ; Navarro base on alert lights                  # local_vars=1
ciQunWch.int    ; Quincy Locker Watch Script                    # local_vars=1
ciRulWch.int    ; Raul Locker Watch Script                      # local_vars=1
ciCmdWch.int    ; Commanded Locker Watch Script                 # local_vars=1
SSStat.int      ; NCR Statue                                    # local_vars=0
ctFob.int       ; Fob EXP Spatial Script                        # local_vars=1
ctPlans.int     ; Vertibird EXP Spatial Script                  # local_vars=1
ctK9Part.int    ; K9 Part EXP Spatial Script                    # local_vars=1
csArea2.int     ; Script to signal if dude enters an area       # local_vars=0
csOpen2.int     ; Script to signal if dude uses door w/o permis # local_vars=1
ctSound.int     ; Soundproof Room Spatial Script                # local_vars=1
csOpen3.int     ; Script to signal if dude uses door w/o permis # local_vars=1
ECTlkMon.int    ; Talking Moonshiners                           # local_vars=8
ziWeakLk.int    ; Generic Weak Lock Watch Script                # local_vars=1
ziMedmLk.int    ; Generic Medium Lock Watch Script              # local_vars=1
dcCarnKd.int    ; Carny Kid - The Den                           # local_vars=1
ciDocWch.int    ; Raul Locker Watch Script                      # local_vars=1
ziHardLk.int    ; Generic Hard Lock Watch Script                # local_vars=1
CIMine.int      ; Mines in Navarro                              # local_vars=6
niBisHLk.int    ; New Reno Bishop Hard Locker                   # local_vars=1
niBisHDr.int    ; New Reno Bishop Hard Locked Door              # local_vars=6
ntRicRom.int    ; New Reno Richard Wright Room Spacial          # local_vars=1
entony.int      ; Captain Anthony Fassard BrokenHills           # local_vars=4
cesaer.int      ; Vertibird menu for player                     # local_vars=4
ziVrTrnk.int    ; Pilotable Vertibird for player                # local_vars=4
maria.int       ; Officer Maria from Navarro                    # local_vars=4
pilot.int       ; Air strip guard from Navarro                  # local_vars=4
WTPlTrp15.int   ; Plasma Floor Trap Level 2 of Seirra  (Center) # local_vars=0
WTPlTrp16.int   ; Plasma Floor Trap Level 2 of Seirra  (Center) # local_vars=0
WTPlTrp17.int   ; Plasma Floor Trap Level 2 of Seirra  (Center) # local_vars=0
WTPlTrp18.int   ; Plasma Floor Trap Level 2 of Seirra  (Center) # local_vars=0
viWell.int      ; Vault City Courtyard Well                     # local_vars=0
SIPtbox2.int    ; box where Merk hides your car trunk sutff     # local_vars=9
giWell.int      ; Gecko's Well                                  # local_vars=0
toquestu.int    ; ������ ����� toquestu.map                     # local_vars=2
tomike.int      ; ����, ���� ����� �� �����  # local_vars=3
tomaps.int      ; ������ ����� � ������ ���������               # local_vars=3
tomonste.int    ; ������ �������� �� ����� toquestu.map         # local_vars=3

������ � ����� � ��� ����� ���� �������� �� ������������, �� �� ���� �� ��������. � � �������� ����� ����� ��������...


-----
�� ��� ��������, ����.

����������: 17:23 - 13 ����., 2006 | ����������: Oleg1969 - 17:37 - 13 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
� ��� ��� ������? ����� ����������� ���������� ��� ������ �����������... ��� �� ���?

����� � ������� ���.

����������: 18:47 - 13 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

�������, � � ���� � ��� ��������...

�� � ����� �������� � �� ��������...  ��-�� ����� ��������...  LVAR-� � ������� ���� �� ��������! ��������� ��������� � ����, ���-�� ���� ��������� �� 100%...

-----
�� ��� ��������, ����.

����������: 19:06 - 13 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

�� ��� ? ��� ���� �������� ���? ��� � �� ������ LVAR...

������ � ���� ��� ����� ������ ������ �� ������ ����������� ������...
� ���� ������ �������� ��������� ��� ���� � �������� � �����?
� �� � ���� ��� ����� ����������� �� ����� ��������...
�� ������ ����������� ������ ������� ��� ��� �������...

procedure DialogStart
begin
 if (obj_is_carrying_obj_pid(self_obj,PID_TOMORROW_MAP)==0) then call Node004; //���� �������� ������ � ����� ����������� �� ������� �� Node004
 if local_var(LVAR_Mike_Talk)==0  then Reply(2);
 else Reply(random(28,30));
 if  local_var(LVAR_Mike_Talk)==0  then  call  Node001;        //
 else  if  local_var(LVAR_Mike_Talk)==1  then  call  Node002;  //
 else  if  local_var(LVAR_Mike_Talk)==2  then  call  Node003;  //
end

��� ������ if � ��������� �� ����004 �� �����������, ���� ������� � �������� ���...

������ � ���� �������� �� ������������ ����������� ������...

-----
�� ��� ��������, ����.

����������: 22:44 - 14 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

����������� ��������� ���� �� ���� . ������ � ��������� ������ ���� ��� ����� ������ ���������, ��� Reply + Options.

����������: 9:12 - 15 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

������:
Quote: from Wasteland Ghost on 9:12 - 15 ����., 2006
����������� ��������� ���� �� ���� . ������ � ��������� ������ ���� ��� ����� ������ ���������, ��� Reply + Options.


���, ��������, ���������... ������ �������� �� ����� ����, ��������� ���� �����... � ��� �� �������...
���������, � ���������� ��� ������, ������ ��� �������...  ������ � ������. ���� ������� ��� ���� Reply + ��� ���������, � � ��������� �� �������...

��� ��� � ���� ���������� ������������... :

procedure DialogStart
begin
 if local_var(LVAR_Mike_Talk)==0  then Reply(2);
 else if local_var(LVAR_Mike_Talk)==3 then Reply(random(200,204));
 else Reply(random(28,30));
 if  local_var(LVAR_Mike_Talk)==0  then  call  Node001;        //
 else  if  local_var(LVAR_Mike_Talk)==1  then  call  Node002;  //
 else  if  local_var(LVAR_Mike_Talk)==2  then  call  Node003;  //
 else  if  local_var(LVAR_Mike_Talk)==3  then  call  Node004;  //
end

� ��� �����, ��� ����������� ����� ��������... ����� ������� ��� �������� �� ������...




-----
�� ��� ��������, ����.

����������: 10:43 - 15 ����., 2006
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

������ ������� ���� ��� ���������� ���������? ����� ������� ��������.

procedure use_obj_on_p_proc
begin
variable UsedItem_0;
variable UsedItem_1;

display_msg("One" + " LVAR_Diagnosed_Roge =" + local_var(LVAR_Diagnosed_Roge) + " LVAR_Wounded_Roge =" + local_var(LVAR_Wounded_Roge) + " global_var(789)=" + global_var(789));
if( local_var(LVAR_Diagnosed_Roge) == 2) and � (has_skill( dude_obj, SKILL_DOCTOR) �>= 60) and (global_var(789) == 16) then �begin

if( local_var(LVAR_Wounded_Roge) == 0 ) then begin
� UsedItem_0 := obj_being_used_with;
� � � � � �if ( obj_pid(UsedItem_0) == PID_STIMPAK) then begin
� � � � � �set_local_var(LVAR_Wounded_Roge, 1);
� � � � � �float_msg(dude_obj,message_str(1595,249),4);
� � � � � �end
        else begin
� � � � if ( obj_pid(UsedItem_0) != PID_STIMPAK) �then �begin
� � � � float_msg(dude_obj,message_str(1595,250),4);
� � � � set_global_var(788,-1);
� � � � kill_critter(self_obj, 48);
� � � � end
� end
� end

� � � � �if( local_var(LVAR_Wounded_Roge) ==1 ) �then begin
� � � � �UsedItem_1 := obj_being_used_with;
� � � � �script_overrides;
� � �if( obj_pid(UsedItem_1) == PID_MEDICAL_SUPPLIES) �then begin
� � �set_local_var(LVAR_Wounded_Roge, 2);
� � �float_msg(dude_obj,message_str(1595,249),4);
� � �end
     else begin
� � �if( obj_pid(UsedItem_1) != PID_MEDICAL_SUPPLIES ) then �begin
� � �float_msg(dude_obj,message_str(1595,250),4);
� � �set_global_var(788,-1);
� � �kill_critter(self_obj, 48);
� � �end
� � � � � � � end
� � � � �     end


end
display_msg("Two" + " LVAR_Diagnosed_Roge =" + local_var(LVAR_Diagnosed_Roge) + " LVAR_Wounded_Roge =" + local_var(LVAR_Wounded_Roge) + " global_var(789)=" + global_var(789));
end

����������: 23:20 - 17 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

����� ���������� �����...

���� ����� �����...

procedure Node240
begin
 Reply(240);
 gsay_option(NAME,241,Remuv,-1);
 gsay_option(NAME,242,Node5271,-1);
 gsay_option(NAME,25,DialogEnd,-1);
end

procedure Remuv
begin
 variable  var0;
 var0:=create_object(PID_SUPER_STIMPAK,0,0);
 add_mult_objs_to_inven(dude_obj,var0,1);
 var0:=obj_carrying_pid_obj(dude_obj,PID_TOMORROW_MAP);
 add_mult_objs_to_inven(self_obj,var0,1);
 rm_obj_from_inven(dude_obj,var0);
 call Node250;
end

procedure Node250
begin
 Reply(250);
 gsay_option(NAME,251,Node260,-1);
 gsay_option(NAME,22,DialogEnd,-1);
end

��� ������� ��������... ��! ��� ����� ������� ������ �� ������� �� ������� ����� ���������� ����� � �������...
����� ��������� Remuv, � ������������� ������� �� Node250 ��� ��������.
� ��� ����� ���� ���� � ��������� Remuv?  ��� �� ��� ������ ��������?...

-----
�� ��� ��������, ����.

����������: 1:49 - 18 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���:
procedure Remuv 
begin
variable  var0;
var0:=create_object(PID_SUPER_STIMPAK,0,0);
add_mult_objs_to_inven(dude_obj,var0,1);
var0:=obj_carrying_pid_obj(dude_obj,PID_TOMORROW_MAP);
add_mult_objs_to_inven(self_obj,var0,1);
rm_obj_from_inven(dude_obj,var0);
call Node250;
end


��, ��-������, ������ ������� ������� �� ���������, � ����� �������� ��� � ��������� ������� �������:
���:
restock_obj := obj_carrying_pid_obj(source, the_pid); 
restock_trash := rm_mult_objs_from_inven(source, restock_obj, restock_amt);
add_mult_objs_to_inven(target, restock_obj, restock_amt);


������, �������� COMMAND.H, ������ "General commands restocking inventory". ������ ��� ��� ������ ������� ������ �� ��������� ������ -- ���� �� � ���� ��� "����", �������� �������. �� ����������, �� ���������.

�� ������, ��� ���-��� � �������� �������� ����: ������ who_obj ������������ self_obj. ��� ��� ������������ �� ���� ��������� . � ������ ��������� .

����������: 10:47 - 18 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

������:

��, ��-������, ������ ������� ������� �� ���������, � ����� �������� ��� � ��������� ������� �������:

������, �������� COMMAND.H, ������ "General commands restocking inventory". ������ ��� ��� ������ ������� ������ �� ��������� ������ -- ���� �� � ���� ��� "����", �������� �������. �� ����������, �� ���������.

�� ������, ��� ���-��� � �������� �������� ����: ������ who_obj ������������ self_obj. ��� ��� ������������ �� ���� ��������� . � ������ ��������� .


�� ������-�� ����� ��� �� � �������� ����������... � �� ��������� �������, ��� ����������...
������ � ���������� ���, ��� ������� ������, � ����� �������� �����... ��������� �����, ����� �� ����� �� �����...


-----
�� ��� ��������, ����.

����������: 13:38 - 18 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� ��������? � ��������/�������/���������? ��� ��� �����, ��� ������ ������.

����������: 10:31 - 20 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

���� �� ������ �������... ��� ������, ��� �������� ��� ���� ��������� � ����� � �����... � ��� �������� ������? ���������� ��������� �������, ��������������� �����, � �� ���� � ����, ��� �� ������ ������, ������� ����� �����, � ����� �������...


-----
�� ��� ��������, ����.

����������: 14:22 - 20 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ������ � �������� ���� ������� item_caps_adjust. � ��� ��� �� �����, ��� �� ������� ��� �����. ������ ������ ������ ���-�� �������� ������������. ��� -- ��� ������ � �����������������.

� ��������� ������ ���� ������� ������.
��������:
1. ������� ���������.
2. ����� �� ���.
3. ����� �� ���������.
4. ������.
�����������:
1. ������� ���������.
2. ����� �� ���.
3. ����� �� ���������.
4. ������� � ������ ���������.

����������: 16:05 - 20 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

� ��� ���� �� ����� ��������� combat_is_starting_p_proc � combat_is_over_p_proc?
combat_p_proc - ����������� �� ����� ���, � ��� ����� � ��� ������?  � ��������� ������ �� ����� ��� ���... ���������� ���������, ����� ������ �����...

��: ���� �� ��������� ��� ���������� ��� ������ � ����� ���?

-----
�� ��� ��������, ����.

����������: 0:22 - 22 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���. ����������� ������: ����������� � ��� ��������� display_msg("combat is starting") � display_msg("combat is over") ��������������. �� � �������� ;).

����������: 8:48 - 22 ����., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

��� ����� � ������ ������������� �������� ��������.
��� ����� �������:
���:
procedure use_p_proc begin 
� call talk_p_proc;
end

procedure talk_p_proc begin
� � script_overrides;
� � start_gdialog(5,dude_obj,-1,-1,-1);
� � GSay_Start;
� � call opt;
� � GSay_End;
� � End_Dialogue;
end

procedure opt begin
� � � �gsay_reply(-1,"(������� ����⢨�)";

� � � �gsay_option(-1, "�⫮���� ������", enj, 0);
� � � �giq_option(6, -1,"������� � ��ய�饭� ������", prop, 0);
� � � �giq_option(6, -1, "��������� � �����", enj, -1); � �
� � � �giq_option(5, -1, "�맢 �� ᪮��� �����", enj, -1);
end


���� ������� ������������ �� ���� ��� �������� ��������� �� ��� ������.
����������� ���� ������� � ��� ��� ����.

� ���� ������� ������������ �� ��������� ���������, �� � ��������� ���� ������� �������� �������� ��� ����� ��������� �������� ������. ���������� ���������.

������� �� BIS_help � ������� ����-������ ����������� ���� �� ������� ����� ������� ������� ������� ���� ���������, ��� ��� �� ����� ������ ������ �� ���� ����������� �� �����, �������� �� �� ������.

��� ��� ��� ���������?

����������: 14:40 - 24 ����., 2006 | ����������: Keha - 14:42 - 24 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

���� �� ���� ��� ������, �� �����-�� �������� ���� � ���� EPA �� �������� ��� �������-������������ �� ���, ����� ����������, �������� ����� ��� ��� ��� ������?...

-----
�� ��� ��������, ����.

����������: 21:04 - 24 ����., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���:
call talk_p_proc;


����� ���� �������, ����� . �� ���� ������ ����� ����� talk_p_proc, ��� ����� ���� dialogue_system_enter.

�� EPA, EPA... �������� �������������� ������������ . ��� ������ � ������ ������ �� ������?

����������: 8:18 - 25 ����., 2006
Keha
������������

�����������: ���. 2006

�����: 31 ���������

������� �������, � dialogue_system_enter ��� ����������� ��� ��� �����.

����������: 16:20 - 25 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

��... �� �����������, ��� dialogue_system_enter ����� � ���������� ������������... �����, ��� ������ � ����������...
������� �� �������...

-----
�� ��� ��������, ����.

����������: 21:01 - 25 ����., 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

����-�� ���������...
� target_obj � source_obj
� ������������ � ��������� ��� �������
��������� pickup_p_proc
��� � � ��� �������?

�����:
��������� destroy_p_proc
��� �������� ����� ����, ��� ����� �������� � ���� ���������� ��������.
����� ��� target_obj ��� source_obj
������ �� �������� ����� ��� ��� target_obj ��� source_obj

������������, ��� �����:
http://www.teamx.ru/cgi-bin/ikonboard/topic.cgi?forum=14&topic=41&start=30

����������: 22:05 - 25 ����., 2006 | ����������: Akkella - 22:16 - 25 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

�� ������� ������, � ������ ��� �������? 8) �� ������ ������, �������� ����� ��� ��� ��� ��� ��������, � �������� ������...
�� ����! ��� �� pickup_p_proc � �� ������ ��� ������ ����� ����� source_obj ��������� ��������� pickup_p_proc.

�� ������� �������. �� ��� ����� ��� ������, ���� destroy_p_proc ������� �������� ������, �� destroy_p_proc � ������� ������ ������ ��������� �� source_obj, �� ���� ������.
� �������, ��� ������ ��������� ��� ���� ����������� �������� �� ������...

��: �� ������ ����� � ��� ��������, ��?

-----
�� ��� ��������, ����.

����������: 1:22 - 26 ����., 2006 | ����������: Oleg1969 - 2:19 - 26 ����., 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

�������� � ���, ��� � � ������ � �� ������ ������ ����� �������� ��������� �� ������� ��� �������.
�� ������ ������, ����� ������ ������� �������� ������ ��� �����������...

����������: 6:10 - 26 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

��� ������, �� ��� ������ �����: ������� ��� ����� �����������, �� � ����� ������� ��� ������ � ���� � �������� ����. ��� ������� � ���� ��� � ���� �������... ���������, � ����� ���� ��������� �� ������� ��� �������� �������? ���� ������ �� ���� ������� �� ������ ���������� ����� ��� �����������... � ��� �����...

��: � ��� ����� � �� ����� ���� �������� ���� ��������� �� ��������, ����������� ������ ����� ������, ��� � ���� � ��������...
������������ ������� ���� �� �������� BIS��������, ��� ����� ��� ����... ���� ���� ��� �� �����.

���: ��� �������� ������� �� ���:

"obj_carrying_pid_obj(ObjectPtr who, int pid)" -��������� ���� �� ������� � ����� ����� � ��������� ��� ���, ���� ���� �� ���������� ��������� �� ����...


-----
�� ��� ��������, ����.

����������: 8:46 - 26 ����., 2006 | ����������: Oleg1969 - 9:03 - 26 ����., 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

���...
��� �������.
��������� ����� ��������:
��� ��������� ������� ���.
�����.
�������1 ��� �� �����
�������2 ��� �����
����� ��� ������ ����� ����� ��� ����� � ������ ��� ����������� ���� ���������.
��������� ����������� ��������� �� ���������.
������ �������?

����������: 17:18 - 26 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

��� �� ��� ������ �� ������ ���... ����� ������ � damage_p_proc, source_obj ����� �������... �������� ������ � ������� �� ����������� ���������...

������ destroy_p_proc ���������� � ���� ����� ����� �������� �� combat mode... ��� ��� ����������, ����� � ����� ��� �����? � �� ��� ��������� �������������� ����� �������.

��: ��� ���������� ��������, �� �������� �� �����������, ��� ��� ������ ����������...

-----
�� ��� ��������, ����.

����������: 20:29 - 26 ����., 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

��� ����� �������! ��� ������� ��������, ��� ��� ����� ������?
� �� ����������, ��� �� ��� �����, �� ��� ��� ���������

����������: 21:49 - 26 ����., 2006 | ����������: Akkella - 21:49 - 26 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

����� ... ��� �� ���� ������ ��� �� ������?! ������ ���� ���� �������?  if (critter_state(object_������)==CRITTER_IS_DEAD) then ��� ����� ������?... object_������ - ��� ���� ��������� �� ������... ������ � �������_�_���� � ���������� ����� �� ��� ���. ����� ��� � ������_�_����  ����� � �������_�_����

����! ���� �����? ��� ��� http://www.teamx.ru/rus/bd/bis_help.shtml

-----
�� ��� ��������, ����.

����������: 22:12 - 26 ����., 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

����� ���...
���� ������ � �������. ����� �������� �� ��� �����������, ���� ����� ��� �����, �� �������� �� ������, ����� ���������.
����. ��� ����� �����������. ������ �������, ��� ������.

���� ������ ����� �������� ����� ����...

����������: 22:25 - 26 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

���, ����� ������� ������� �� ������, � ����� �� ��� ���������... ��������� ��������� ����� �������� � �����... � ����� ���� ��� � ���� �� ��������� ����
���� ��� ������ ����� ��� ����� � ������ ������ �� ������ ��-�� � ��-�� ����� ������... �������� ���...

��: � ���� ������ ����� �������� �� �����... ��� �������� ���� ���� ������������ - ������... ������ ����, ��� ��� ���� � �����...


-----
�� ��� ��������, ����.

����������: 0:09 - 27 ����., 2006
Wertel
������������

�����������: ����. 2006

�����: 16 ���������

���� ������ ����� �� AL � ��������������,������� ������������ � �� ������� �� ����� ���������������.���������� ��� ��������������,���� �� �����.� ��� ��� � ���� ������ ��������� ����������� �����,��� ������?

����������: 15:19 - 28 ����., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

� ��� ���������� �����? �� ���� �� �������������� �������...

-----
�� ��� ��������, ����.

����������: 16:50 - 28 ����., 2006
Wertel
������������

�����������: ����. 2006

�����: 16 ���������

��� ��� �����-Stack Overflow!

����������: 17:14 - 28 ����., 2006
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

������ � ������ ��� �� ��������� ��������� - ���� ����� �� �������. �������� ���� � ������������� � ������ �����������, � ��� �� �������������. � ��������� ���� �� ��������� � ����� ���������. � ����, ���������� �� ������ ������� ��� ���� -  ���.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 17:29 - 28 ����., 2006
Wertel
������������

�����������: ����. 2006

�����: 16 ���������

������������-int2ssl_1.52,���������� BIS������ �����������.��� ��������� ������ ��������� ��������,����� ���� ��� ��������� �� �������������!

����������: 17:40 - 28 ����., 2006
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

1. ������ � �������� ������� int2ssl v1.54. � 1.52 ���� ���� ���������� �����.
2. ��� �� ������ ���������� ���������� �� Anchorit'a. � BIS'������ ���� ���� ���� ���������� �����.
3. ������ ���������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 18:41 - 28 ����., 2006 | ����������: Alchemist - 19:01 - 28 ����., 2006
Perceptron
���������

������: Ivanovo
�����������: ��� 2003

�����: 502 ���������

� ������ �������� ������ 1.54. �������� ��.

����������: 18:48 - 28 ����., 2006
Wertel
������������

�����������: ����. 2006

�����: 16 ���������

�� ����������,������� �������.������� ������ �� ������ ����������� �����-������ ���������.

����������: 18:54 - 28 ����., 2006
Panzer
������������

������: �����-���������
�����������: ���� 2005

�����: 9 ���������

��������� ������ ������. � ������ ������� ����� ����������� � �������� �����, ������ ����� ��������, ���-����� ������������ � ����� ������������, ��� �������. ����� ������ ����������� � �������� ��� ���, ������ ������� �� ����� ��� ���������� � �����-�� ����� define.h, ����� � ������. ��� ��� �� ����? ��� ��� �����? ��������: � ���������, � ����� ����, ������ ��� ������ ����� ���, ��� � ����� ������ � ���������� ������� �����.


�.�. �������� ��� �� �������� ��� 66 �������, �������� ��� ��� �����, ������ ��� ����� ���������� � ��������� ����� ����������, � � ������ ������� ������ ����� ���� ��� ���� ������....

-----
������� ���� � ���� ��� ������� �� ������
� ���� ������ ������� �� ������...

����������: 5:28 - 18 ���., 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

*.h ����� - ��� ����� ��������� (��� �� �������). � ���� ������ ������� ���������� �������� � �������� (����������������). ���������� �������� ���� �� BIS ����������� � ������ ������ � ����������� �������� � ������������. TeamX ��������� ����� �� ��������� �����: ��������� �������� � ��� �������� ����. ���� �� �������� ����� � �����������, �� ������� � ��� ������� header (��� ���-�� � ���� ����), � ������� � ����� ������ ��� ���������. � ���, ����� ����� ��� ��������� � ��� �� ������������, �������� � ���� �� �������������, ������� ����������� � "Fallout Scripts: How To?".

-----
hit me, nail me, make me god

����������: 8:35 - 18 ���., 2006
Panzer
������������

������: �����-���������
�����������: ���� 2005

�����: 9 ���������

��� �����, �� � ��� ��� ������� ���� ��� ����))) �������� �� ������)

-----
������� ���� � ���� ��� ������� �� ������
� ���� ������ ������� �� ������...

����������: 18:47 - 19 ���., 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Panzer �� ���� ������������� ������������ ������ �����.

�� ������ ������� ������ "�������" �� Haenlomal'�. ��� � ��� ��� �� ��������� ������ �������.

����������: 8:53 - 20 ���., 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

� ���� ����� ������:

� ����������� ��������� combat_p_proc, fixed_param == 1 ���:
������:

COMBAT_SUBTYPE_WEAPON_USED (1) - ���� ������������ ������.

��� ���, ��� ����� ������������� �� ��� ��� � �������� ������������. � �������� ����� ��������� ���. � ������� �� ��������� ��� �������� ���������� � �� �������.

���:
 
procedure combat_p_proc
begin
if (fixed_param == 1) then
begin
display_msg("Weapon used" ) ;
end
end



�� ����� ��� (����� ������������� ������ ������ �� ���������). ������ � ��������� ����� ��������� ���� ������������

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 23:08 - 8 ������, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

��  ������ ������, ��� � ������� ������� � ���������� ����������� �������������.
������:
combat_p_proc

fixed_param == 1
???

fixed_param == 2
�������� ��������� ������������ ������� �� ����� ����, � ������ ���.
target_obj == ���, � ���� ������ (������ ������, � �� ������ �������), �� ���� ��� ������ �������.

fixed_param == 3
???

fixed_param == 4
������ ���� ������������ �������. � ��� ������, ���� ����������� ��� ���������, ���������� ������ �� �����.
target_obj == self_obj.

fixed_param == 5
���� ���������, �� ��� ����� ������ ���, �� ����, ��� fixed_param == 4. ��� ������ ��, ��� �������� ��� �� ��������� � ���, ��� �� �������� � ���, �� ���� �� �������. ����� ������� ������������: ������� ��������� �����, ����� �������� ����������� � �����, ������  ��� TEAM_NUM � ����� �� ����������, � ��� � ����� ����� �� ����������.
target_obj == self_obj.

source_obj == ��� ����� fixed_param ��� ���, ��� ��� target_obj � ������� ��� (�� ����� �������� ������ combat_p_proc � ���� �� ������� ��� ����� fixed_param).


���:
procedure combat_p_proc  
begin
if (fixed_param == 1) then
begin
display_msg("Weapon used" ) ;  
end  
end


��� � ������ �� �����, ��� ����� �� ������� target_obj ��� source_obj?

P.S.
������:
COMBAT_SUBTYPE_WEAPON_USED (1) - ���� ������������ ������.

� ��� ����������? ��������� ���� �� obj_can_hear_obj � obj_can_see_obj.

-----
hit me, nail me, make me god

����������: 1:53 - 9 ������, 2006 | ����������: Alan Killenger - 2:57 - 9 ������, 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������:
��� � ������ �� �����, ��� ����� �� ������� target_obj ��� source_obj?


� ��� ����� ��� �����? ���� ��� ������� � Obj_dude. ��������� ���� fixed_param == 2 � fixed_param == 4 �������� � ��� target_obj ��� source_obj.

������:
� ��� ����������? ��������� ���� �� obj_can_hear_obj � obj_can_see_obj.


� ��� ��� � ��� ��� � ���������. (��. ����. ����) � ���� �� WG ��������� ������ ���. �� � ������ �������, ������� � �� ������� ��� � ���� �� fixed_param == 1 ������ �� ���������. ��� ����� ����������: � ���� ������ � �������� � ����������� "Script Action Descriptions" ��� ���������� � COMBAT_SUBTYPE_WEAPON_USED.


������:
Combat:
Combat is occurring, and one of the combat sub-actions has occurred. These actions allow the script to react to combat (even though combat attack/etc. choices are actually handled in the engine). They are:
� HIT_SUCCEEDED -- The scripts� object successfully hit it�s target. This can be used to do extra damage (radiation, for example), or to count the attacks that succeed.
� SEQUENCING � Combat sequencing is being checked (to see if critters want to enter/exit combat).
� TURN � A combat turn is just about to start. You can override the default turn behavior here to prevent a critter from reacting to combat (or to cause them to do something special).
� NONCOM_TURN � (UNUSED).




P.S. ����� � ���� ����� ����� ������:
����� �� ������, ��� ����� ������� �� ������? ������ �� ������ ��� ��������� � ���� �� � ��� �������?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 23:23 - 9 ������, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
� ���� ������ � �������� � ����������� "Script Action Descriptions" ��� ���������� � COMBAT_SUBTYPE_WEAPON_USED

����� ����, ��� ������� � ����, ����� �������� �� ���������� ���. ����������� ������ �� ��, ��� ��� ���������� � ����������� �������������� .
������:
����� �� ������, ��� ����� ������� �� ������? ������ �� ������ ��� ��������� � ���� �� � ��� �������?

"������������ ������", ��? � ������� � ��� ����� ��� � �� ���������� ��� ������, �.�. ��� ������ �������� �������, ����� ���, ������, � �����_�_���� ���������� ������ ��� ��������� �����������, �.�. ���� ���� ��� �������� ������, �� ��������� ��� �� ���������. ��� ����� �� ��������� ��� ��� �������.

�� ������, ��������� ��������� ���� �� ������ � ������� ����, �� � � ������� "������".

����������: 11:55 - 10 ������, 2006
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������:
"������������ ������", ��?


���, �� ������ ��� ���� ����� ���������. ��� � �������� ������ � ������������ ��� ���������, �� �������� �� ����� ��

������:
�� ������, ��������� ��������� ���� �� ������ � ������� ����, �� � � ������� "������".



���, �� ����. ���������� � ������� ���� ��������

���:
  
if (fixed_param == 2) then begin
//���
end



-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 14:49 - 10 ������, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
���, �� ����.

���, ���� .
� ������ �� ����������������� ��������� ������ ����������. ������ ��� �� ����, ��������, COMBAT_SUBTYPE_WEAPON_USED - ���� �� ������������ ������ �������� ��� �� �������. ���� �� � ���� ���� ����� , � �� ��������� ��� ��� �������� � �������� � ����, � ������. � �������� �� ����� ���� .

����������: 11:20 - 14 ������, 2006
Austin
������������

������: ������
�����������: ����. 2006

�����: 44 ���������

� ��� ���� ��� ����� ��� �������, � �������� ��������. ������� ��� ��� � ���. � ����, ����� ����� ������������ ����� �� ������ ������� ������� ��� ������� (��� � ���� ����������), �� � ���������� ��� �������������� (����� �����, ���������������� � ��.). ������� � �������� ������� ��� ��� ����� �������, � ������� set_critter_stat(ObjectPtr who, int stat, int amount). ��� �������� � ������� � ��� ���������, � ������� �� ������� ��������� �����:
set_critter_stat(Marcus_Ptr, STAT_max_move_points, 3) - ��� ��� ��� ���� ��������. �������������, ��������, ��������� �� �������� ���������� � ������� - ����� �������� ��� � �������� 9. �������� � ������� ����������� - �� �� �����. ������-�� ��� ������� �� �������� �� �������.
��� � �������� ������ ������� ����� ���� ����� � ��������� � ��� ��� ��������������. ������. ������ ��� - ����������� � ������� � �����. ��� ������� - �� ����� �������.

������ � ���������:
1) ����� �� ������� ���, ����� ������ ���������� ����� �����, ������� � ���� � ���������? ������ �� �����, � ������ ��, ������� � ������?.
2) ���� ������ ����� ����������, �� ������ �� ������� �� �������� ������� set_critter_stat � ��� ����� ������� ��� �������������� ����� �������?

����������: 18:48 - 16 ������, 2006 | ����������: Austin - 18:50 - 16 ������, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������������ �� �������� �������� ��� ���������� ��������.

AP -- ����������� ��������������. ������ ����������� �������������� ��������������� ������. �� ������� ���� � ���� ��� �� ����������. ���� ��� ������� ������� AP, ����� ����������� �������� �� ������ ���� "Action Boy". �������, ����� �������� �� ������ �� ����.

����������: 9:39 - 17 ������, 2006
Austin
������������

������: ������
�����������: ����. 2006

�����: 44 ���������

������:
Quote: from Wasteland Ghost on 9:39 - 17 ������, 2006


AP -- ����������� ��������������. ������ ����������� �������������� ��������������� ������. �� ������� ���� � ���� ��� �� ����������. ���� ��� ������� ������� AP, ����� ����������� �������� �� ������ ���� "Action Boy". �������, ����� �������� �� ������ �� ����.
���������� �������� ����� - ����������! ����� ������. �������!

����������: 11:36 - 17 ������, 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

��� ��� ����� � ������� ����:

has_trait(1, dude_obj, 0)

�������� ������� � ����:
int has_trait(int trait_type, ObjectPtr who, int trait) - ������� �������� ���������� ��������
���������:
trait_type - ��� ������:
TRAIT_PERK � (0)
TRAIT_OBJECT (1)
TRAIT_TRAIT �(2)
who - ��������� �� ��������
trait - ���� trait_type = TRAIT_PERK - ����� ����� (��. DEFINE.H ������ Perk Trait Types)
���� trait_type = TRAIT_TRAIT - ����� ������ (��. DEFINE.H ������ Trait Types)
���� trait_type = TRAIT_OBJECT - ����� ������� ��������:

������������ ��������:
���� trait_type = TRAIT_PERK �� trait_type = TRAIT_TRAIT - ��������� ������� �����/������
���� trait_type = TRAIT_OBJECT:
OBJECT_AI_PACKET �(5) � - ���������� ����� AI
OBJECT_TEAM_NUM � (6) � - ���������� ����� �������
OBJECT_CUR_ROT � �(10) �- ���������� ����������� ������� (0...5)
OBJECT_VISIBILITY (666) - ���������� ��������� (TRUE, FALSE)
OBJECT_CUR_WEIGHT (669) - ���������� ������� ���

������:
��� �� ������ �������� 0 � TRAIT_OBJECT

����������: 20:08 - 20 ������, 2006 | ����������: Akkella - 20:10 - 20 ������, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������:
���� trait_type = TRAIT_OBJECT:
OBJECT_AI_PACKET  (5)   - ���������� ����� AI
OBJECT_TEAM_NUM   (6)   - ���������� ����� �������
OBJECT_CUR_ROT    (10)  - ���������� ����������� ������� (0...5)
OBJECT_VISIBILITY (666) - ���������� ��������� (TRUE, FALSE)
OBJECT_CUR_WEIGHT (669) - ���������� ������� ���

�� ��� ��� � ������ ��������. ������� ��������, ��� ��� �������� �� ������� SPECIAL, � ������ ����������� �������������, ����������� �������� ������ � ��������� ����������� ���������� ���������� NPC � ����. ����� ������ - ���� �������. ��� � �� ������? ����� "������ �������� 0"?

-----
hit me, nail me, make me god

����������: 20:53 - 20 ������, 2006 | ����������: Alan Killenger - 21:54 - 20 ������, 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

Alan Killenger
� ������� ���� ���� ��������� ������� (� ������� �������)

has_trait(1, dude_obj, 0)

��� ��������, ��� ��� ���������� �������� ������� �������� ���� ��� ������� 0.
��� ���:
��� ��� �� ��������?

����������: 21:18 - 20 ������, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

� ������ trait_type == TRAIT_PERK ��� �������� �������� ��������������. ���� ��� ���, ��� ���������. ����������� ������ � ����� ������� 0, �� ������� �������.

-----
hit me, nail me, make me god

����������: 0:22 - 21 ������, 2006
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

Alan Killenger
��� ������ TRAIT_OBJECT.
� �������� ������������ � ��������.

����������: 7:26 - 21 ������, 2006
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

�, ������ �������. �� ���� �� ��������������� ������ ���� � ����� ������������������ �������� ���������? ���������. � ����� ������, ���� ����� �������, ��� ����������� ��������� ���������. ��� ������-����� ���-�� ���� ���� �� ����������... �� �� ����, ���� �� ��� ������... ����� fallout offcode... ����, �� �����. ��� ����������� ���������� ���������� ���� �������, ��� ���� ���� ����������, ����� ��� �� ���� �������, ���� �������� ���� ����������... �� ������ ��������.

-----
hit me, nail me, make me god

����������: 11:36 - 21 ������, 2006
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�� �������� �������. ��� � ���� ����� ���� ������. ��������, ��� ����� ������������ ��������� � PID . ����� �� ���� ��� .

����������: 13:08 - 21 ������, 2006
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

� ����� ������ �������������� ��������� �� ���� self ����� ������ �������� ��� ��������� � PID ��������� ������� � ���� � ����� �������� �� �������� ������

��� �������������� �� ��������, ��� ������ ����������� ����� ����� ��� �� ��-������� ��� ��� ������, � ���� ������, �� ����� ������ �����-������ ��������

  set_critter_stat(self_obj, STAT_current_hp, 200);

  set_critter_stat(self_obj, STAT_st, 10);
  set_critter_stat(self_obj, STAT_pe, 10);
  set_critter_stat(self_obj, STAT_en, 10);
  set_critter_stat(self_obj, STAT_ch, 10);
  set_critter_stat(self_obj, STAT_iq, 10);
  set_critter_stat(self_obj, STAT_ag, 10);
  set_critter_stat(self_obj, STAT_lu, 10);
��� �������������� ������ �����
  critter_mod_skill(self_obj, SKILL_SMALL_GUNS, 100);
  critter_mod_skill(self_obj, SKILL_BIG_GUNS, 100);
  critter_mod_skill(self_obj, SKILL_ENERGY_WEAPONS, 100);
  critter_mod_skill(self_obj, SKILL_UNARMED_COMBAT, 100);
  critter_mod_skill(self_obj, SKILL_MELEE, 100);
  critter_mod_skill(self_obj, SKILL_THROWING, 100);
  critter_mod_skill(self_obj, SKILL_FIRST_AID, 100);
  critter_mod_skill(self_obj, SKILL_DOCTOR, 100);
  critter_mod_skill(self_obj, SKILL_SNEAK, 100);
  critter_mod_skill(self_obj, SKILL_LOCKPICK, 100);
  critter_mod_skill(self_obj, SKILL_STEAL, 100);
  critter_mod_skill(self_obj, SKILL_TRAPS, 100);
  critter_mod_skill(self_obj, SKILL_SCIENCE, 100);
  critter_mod_skill(self_obj, SKILL_REPAIR, 100);
  critter_mod_skill(self_obj, SKILL_CONVERSANT, 100);
  critter_mod_skill(self_obj, SKILL_BARTER, 100);
  critter_mod_skill(self_obj, SKILL_GAMBLING, 100);
  critter_mod_skill(self_obj, SKILL_OUTDOORSMAN, 100);

����������: 20:13 - 4 ����, 2007
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

������� �������������� ���� ������ ������. �� ��� ������ �� ��� ����� ���������� ���������� �����������, ������� ����� ��������� � ������������� ��������. ������� ������ ��������������� �������� �� ������� 1...10 ��������� ������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 21:16 - 4 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Alchemist

�� ������ �������� ������ ��� ���������� ���������� �����������?

����������: 21:26 - 4 ����, 2007
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

���:
variable adj; 

adj := -1;
set_critter_stat(self_obj, STAT_pe, adj);



��������� �������� Perception �� �������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 14:20 - 5 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Alchemist

variable adj;  
adj := -1;
set_critter_stat(self_obj, STAT_pe, adj);

������ ��� ��� �� �� stat �� ������������� � �� �����������



(���������� �� 15:33 - 5 ����, 2007.)


��� ������ ����� ��� ���� ����� ��������� ����� ������
�� �������� ��� ��������� � ������ �����
��� ��� � ����� �� ��� �� �� ����������

wield_obj((critter_inven_obj(self_obj, INVEN_TYPE_WORN)==create_object(PID_METAL_ARMOR, tile_num(self_obj), elevation(self_obj)));

wield_obj((critter_inven_obj(self_obj, INVEN_TYPE_WORN)==create_object(PID_METAL_ARMOR, 0, 0));

� ���� ���

add_obj_to_inven(self_obj, (critter_inven_obj(self_obj, INVEN_TYPE_WORN)==create_object(PID_METAL_ARMOR, 0, 0)))

add_obj_to_inven(self_obj, (critter_inven_obj(self_obj, INVEN_TYPE_WORN)==create_object(PID_METAL_ARMOR, tile_num(self_obj), elevation(self_obj))));

����������: 15:14 - 5 ����, 2007
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

������:
� ������������ ������� fallout1

���� ���� ��� � ����� ��������. � F1 �������� ���������������� ������������� �������� ������ � ������ ������. � F2 �� ���� ��� ������ ��������.

-- Update --

���:
variable armour; 

armour := create_object(PID_METAL_ARMOR, 0, 0);
add_obj_to_inven(self_obj, armour);
wield_obj(obj_carrying_pid_obj(self_obj, PID_METAL_ARMOR));



�� ��������� -- ������� ���. ���� ������� �������� � wield_obj(false) � add_obj_to_inven(self_obj, false). ���� �� ��������� ���������� �����, �������� ��� ������, ��� ��� ������� � ����������. �����, ������ � ��� �������, �� � ������������ � ������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 16:57 - 5 ����, 2007 | ����������: Alchemist - 18:46 - 5 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Alchemist

> ���� ���� ��� � ����� ��������. � F1 �������� ���������������� ������������� �������� ������ � ������� ������. � F2 �� ���� ��� ������ ��������.

variable adj; �
adj := -1;
set_critter_stat(self_obj, STAT_pe, adj);

� ��� ����� � fallout2 �� ������ �� ��������
� map_enter_p_proc

variable adj; �
adj := -1;
set_critter_stat(self_obj, STAT_st, adj); ����� ���������

critter_p_proc

� proto ����� ��������� ���� = 8
����� ��������� �������� �� �� ��� ���
�if (get_critter_stat(self_obj, STAT_st )==8) then float_msg(self_obj,"���� ����� 8", 3);
else float_msg(self_obj,"���� ������� 8", 3);

�� ������ ��� float_msg(self_obj,"���� ����� 8", 3);

> ������� ���.
��, ��������� ��� ����

> ���� �� ��������� ���������� �����, �������� ��� ������, ��� ��� ������� � ����������

�� ��� � ��������

����������: 19:41 - 5 ����, 2007
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

������:
� ��� ����� � fallout2 �� ������ �� ��������
� map_enter_p_proc

��� �������� ���� ���������� ����� � �� ����������. ������ ������. ��� ���.
������ �������� ������ ����� ����� ������  ��� dude_obj. ��� ���.
�������������� �������� ���������� ������� ����� ����� ������ ���������. ��� ���.
������, �� ������� ������ ��������� � ������� ��������������� ��������� ����� ���������� � ������� Pariah Dog. ������ ������ ��������, ��� �� ��� ���: ���� ��� �������, ������ -- ��� ������. ��� ������.


-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 20:19 - 5 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

������� ��� self_obj ����� ������� ������ �������� ��� �������� �������������� � dude_obj �����


(���������� �� 22:14 - 5 ����, 2007.)


�� � ��������� ������ ��� ������� ��� ����� ������� �������� ������ 100 �� ����������.
�������� ���
 while (get_critter_stat(dude_obj, STAT_max_hp) > 100) do begin
  set_critter_stat(dude_obj, STAT_max_hp, - (1));
  end

�� ���������� �� ���� Windiws XP ������� � ������ ��� ������� �� ������
���� ������ ��� ��������� ���������� � ������ dude_obj � ���������  critter_p_proc

��� �������� ���

  if  (get_critter_stat(dude_obj, STAT_current_hp) > 100) then begin
  set_critter_stat(dude_obj, STAT_current_hp ,100);
  end
� ���

  if  (get_critter_stat(dude_obj, STAT_max_hp) > 100) then begin
  set_critter_stat(dude_obj, STAT_max_hp,100);
  end

��� ��� ��� ����������?
����� ������ �������� � fallout2.exe


����������: 21:11 - 5 ����, 2007
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������:
ObjectPtr self_obj - ���������� ��������� �� ������, � ������� �������� �����������
ObjectPtr dude_obj - ���������� ��������� �� ������


����� ���� � ����������� ������ ���� Alchemist'�.


������:
�� ���������� �� ���� Windiws XP ������� � ������ ��� ������� �� ������
���� ������ ��� ��������� ���������� � ������ dude_obj � ��������� �critter_p_proc


� ���� �������� ���������� ������ �������, ����� ������� "���������" �������. ��� ���.
���������� critter_p_proc ����������� ������, ������ ��������� ��� � ������� (��... 10 ���? �� ����� ���-��...) ������ ����� ����������. ��� ��� (�������, ���� )

������:
����� ������ �������� � fallout2.exe

����. ��� ��� ��� ��������� ���� ������. ���� �� ��� ���������� �� fallout2.exe � ���������������� ���� � ���������� ��� ���-�� �����. � ����� ����������� ���������� � ����������� ��� REC Studio...


-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 23:37 - 5 ����, 2007 | ����������: Ray - 22:39 - 5 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Ray

> ����� ���� � ����������� ������ ���� Alchemist'�.
���� ����� � ���� ��������� �� ���� ������ ����������

> ����. ��� ��� ��� ��������� ���� ������. ���� �� ��� ���������� �� fallout2.exe � ����������������

������� ���� �� ����� ����� ����� ����  
 
> ���� � ���������� ��� ���-�� �����. � ����� ����������� ���������� � ����������� ��� REC Studio...

�� � � ���� ������ ���� ��� � � ����� ���� ������ ������� �� ���� �����
��� ����� ��� ���?


����������: 0:04 - 6 ����, 2007
Spy
�������

������: ��� ��� �����...
�����������: ��� 2005

�����: 374 ���������

������:
��� ����� ��� ���?


������� �����! ������ �������� ���, �����, ����������. ����� ��������� ���-�� � ������ ��� ������� (�.�. ���, ����� ����� �� ���� ������), ����� �������� ������� �����������, �������, ����� ������� � ��������� ��������. �������� ����������, ��� ���������� �� ��� � ����� �������� ����������� �����. ��� ��� � �������� ���� ������ ���� ��� "������ � ������".

-----
������, ����� ���-�� ���� ������� ������ - ������ ���.

����������: 2:02 - 6 ����, 2007 | ����������: Spy - 2:05 - 6 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Spy

> ��� ��� � �������� ���� ������ ���� ��� "������ � ������".

���� ��� � ��������

- ������� ������ ����
- �� (��������)
- �� � ���� ����

to All
��� ���� �������� �� �� ���� �� rtfm ������� � ���� �� ��������� �� ���� �� �����
��� �������������� ������ ��� ��� ����� ������

��� � ��������� combat_p_proc ������� ��������
���� �� self ���� ������������ ������ �� ���� ������� ��� ���������� ������

���� �� self ���� ������������ ������ ����������� ����� �� �������� ���������� self

� if (weapon_dmg_type(DMG_normal_dam == obj_pid(PID_SPEAR))) then critter_dmg(dude_obj, 50, DMG_normal_dam);

�� ��� ����� ����� ������� �������� fixed_param

� ��� ��� ����� ����� ��� � ����� ����� ��������� �������� ��������� �� ������

������ � ������ �� �� 2 elevation load_map(���_�����,��������)
load_map("Navarro",0); �� �� �������� ������ ELEVATION dude �������� �� ������������ � ��� ����� 2 ��� 3

� ��� �������� ������� � ����� ���� ������ ����� �� ������� �������� � ��������� �� � ������ ��������� ������ � � ��������� combat_p_proc ���� � ����� ������� � �� �������� � ���� � ����� ���� ���������� 1 ������� ������ ������ � ����� ������
2 ������� ��������� �������
3 ������� ������� float � �������� �������� GVAR ������ ��������� ��������� GVAR �������� � � �������� ��������� ���� ����� ����� �� ��� ��������� ������ ��� ������ �� ���� �� 5 tile
� �� ���� � ���� � ����� ������� � ��� ������ ��� ���� �������

���� �� dude �������� ������� ��������� ������ ��� � Mrfixit
��� ������� ���� � ������ ���� ������ �� ���� ������� ��� �������
���� � ������ �� ����....
� ��� ���� ������� ��� ����
������ ������ � ���
���������
���
��������� � ��� ��������
������� � �����

��� ������ �����
������� ���� � ����� ����� � �����

��� ��� ��� �������� ����������� � ���� ��������� �� ������ �������
������
��� ������ �������������� � �� ��� �������� ������ ��� ��� ��� ����� � �������

��� ������ ����� ������� ������������ ������ fallout1 ����� game
�� ����� ����


����������: 10:35 - 6 ����, 2007 | ����������: Jordan 63 - 10:38 - 6 ����, 2007
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�������� ���, ������. � ����, ����� � ����� ���������, ����� ����� �������, ���� ���� ���������� �.�. ��� ������������. �� �� ������� �������. ��� ��� ���� � ���� � ������.

-----
...������� �������������, ���������� � ��������������..

����������: 14:55 - 6 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

��� 40 �������� �� Jordan 63 )

����� ����������� ���� � ��������� ������ � ���� ������� � ��������� �� ���� ���� dude ����� ����� � ������ �������� <= 3 tile ����� ����� ������� ������ � ���� � ���������. ��� ��������� ��� ������� �������� � ��� � ���������� �������� fallout2 �������� � ���� ��� ��� ����� � ��� ������� ��� �� ���

procedure combat_p_proc begin
� � if (critter_inven_obj(self_obj,INVEN_TYPE_RIGHT_HAND)!=0) then begin

� �if (obj_carrying_pid_obj(self_obj, PID_MINIGUN))

� �� ��� �������

� �and (tile_distance(tile_num(dude_obj), tile_num(obj_pid(PID_DOG)))<=3) then

� �and (tile_distance_objs((obj_pid(PID_DOG)), dude_obj) <=3) then


� � �//inven_unwield(self_obj);
� � �rm_obj_from_inven(self_obj, obj_carrying_pid_obj(self_obj, PID_MINIGUN));
� � end
end

� ��� ������ http://jordan631.narod.ru/party.rar
��������� � ����� data �� ��������� ����� ����

����������: 18:15 - 6 ����, 2007 | ����������: Jordan 63 - 18:31 - 6 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

��� ������������ �������� if dude ���������� �� ����� ���� � ����� �� ���������� �� ������ ��� � ����� �� then
������ ������� �� ���������� �������� ��� ������ then
 if ((worldmap_xpos == 11) and (worldmap_ypos == 9)) > and < ((worldmap_xpos == 493) and (worldmap_ypos == 349)) then

����������: 13:40 - 8 ����, 2007
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� �� �� ����� ��������� ��� �� ��� �������� . ��� ��� �� ����������� �����?
������:
> and <


������� ������� ��������, ����� � ����� ������������� �������. ���� �� ������ �������������� ���� ������, ��� ��������, ��� �� ��� ���� �� ���������, ��� ���� �����.

����������: 20:16 - 9 ����, 2007
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

������ ����� ������.
�������� ������ � ������ (������� ������ ��� ������� ���)
���� ��������� ���������� �������� ����� ����� (�� ��������)
� ������� ���� ��� ������������ �������� � ��������� combat ������������ � ���� ���������� ���������� ����, � �� ������ ���������.
� ������� ������ ��� ���������� ����� �� ����� ������� ������ (�� ���� ��������� ��� �� ���) ���� �������� �� ��� ����� � ���������� ��������� ����������.

������ ������ �������,�� ������-�� ��������� map_update_p_proc � ������� �������� �� ��������.
��� ������� ��������� � �������� ���� ����.
���� �� ������ ��� ���� �� ����� �������?

�� ������ ������ ���:
procedure start;
procedure map_update_p_proc;

procedure start
begin

end
procedure map_update_p_proc
begin
display_msg(message_str(1, 100));
if global_var(775)>0 and global_var(776)==self_obj then
begin
set_local_var(0, local_var(0)+1);
set_global_var(755, 0);
set_global_var(776, 0);
display_msg(message_str(1, 859));

if local_var(0)==1 and random(local_var(0), 10)==local_var(0) then
begin
set_local_var(0, 0);
display_msg(message_str(1, 850));
destroy_object(self_obj);
end
end
end

����������: 20:55 - 9 ����, 2007 | ����������: Akkella - 22:49 - 9 ����, 2007
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

Akkella

global_var(776)==self_obj

��� ��������� ? ����� ��� ������� �����������?

���������� ����, ��� ������ ��������. ������ ���� ����  
variable eklmn  
����.

Jordan 63

������:
� ��� ���� ������� ��� ����
������ ������ � ���
���������
���
��������� � ��� ��������
������� � �����


anim(self_obj, ANIM_jump_begin, LVar2);
jump_begin �� ������������ � ��������� � ���� ����� �������� ���� ��������, � ����� �� ��������� �����������.
"�������" �������� ��� �����(������) � ������, � ������ �������������� ������� ������/���� (�� ����� ������ ��� ��� ������ �� ��������)(� ���� ���-�� �� ��������� ����) � �������� ������� �����������, �.�. ��������������
������� �������-���������, � ����� ������������ �������� ���������, ��, �������� ������������ ���� �������� � ����� ��������������, �������� ������.
�� ��� ������ ����� ��������� � ������� ��� ������� ������� ��� ��� ���������������� �� �� ������ ���� �����, ��� ����������� � �������� ����������� ���� ���� - � �� ����.
��������� ���������� ������ ������� "������ � ��������"

��� ������: (���� � ��� �� �������)

procedure combat_p_proc
begin  
     /* if  (fixed_param == 3) then begin
      float_msg(self_obj, "Sir!!! fixed_param = 3", 6);
      reg_anim_clear(self_obj); end
      If  (fixed_param == 5) then begin
      float_msg(self_obj, "Sir!!! fixed_param = 5", 6);
      end   */
     
// ����� ������.
     if global_var(GVAR_WARCRAFT) == 1 then
     begin
     script_overrides;
     critter_injure( self_obj,DAM_KNOCKED_DOWN);
     anim(self_obj,ANIMATE_ROTATION,rotation_to_tile(tile_num(self_obj),tile_num(dude_obj)));
     anim(self_obj, ANIM_stand, rotation_to_tile(tile_num(self_obj),tile_num(dude_obj)));
     critter_injure( self_obj,DAM_KNOCKED_DOWN);
//good //float_msg(self_obj, "Ok, I'm stand, Sir, Ok", 6);
     end
//����������� ��������������.
       if global_var(GVAR_WARCRAFT) == 2 then
       begin
       critter_injure( self_obj,DAM_KNOCKED_OUT);
       //anim(self_obj, ANIM_stand, rotation_to_tile(tile_num(self_obj),tile_num(dude_obj)));
       critter_injure( self_obj,DAM_KNOCKED_OUT);
       float_msg(self_obj, "UYUYOYUrrrr, Sir", 6);
       end
   
// ��������� ������: �� ���.
         if global_var(GVAR_WARCRAFT) == 3 then begin
         script_overrides;
         critter_injure( self_obj,DAM_KNOCKED_DOWN);
      LVar2 := rotation_to_tile(tile_num(self_obj),tile_num(dude_obj));
      //float_msg(self_obj, "Sir!!! obj_get_rot(self_obj)=" + LVar2, 6);
If  (fixed_param == 4) then begin
anim(self_obj, ANIMATE_ROTATION, rotation_to_tile(tile_num(self_obj),tile_num(dude_obj)));
move_to(self_obj, tile_num_in_direction(tile_num(self_obj),LVar2,5), elevation(dude_obj));
anim(self_obj, ANIM_jump_begin, LVar2);
set_global_var(GVAR_WARCRAFT,1);

     while (time_control_of_anim_combat <=1000) do  begin
     time_control_of_anim_combat:= (time_control_of_anim_combat +1);
     if time_control_of_anim_combat == 900 then anim(self_obj,ANIM_swing_anim, LVar2);
     end

end
         critter_injure( self_obj,DAM_KNOCKED_DOWN);
         end
end

���� ��� ������� ������ ����� ������������ ������������ �������.

ps
���������� critter_p_proc ����������� �� ����� ��� ��� � �������� �������. �����.

����������: 0:26 - 10 ����, 2007
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

������:
global_var(776)==self_obj

��� ��������� ? ����� ��� ������� �����������?

���������� ����, ��� ������ ��������. ������ ���� ����  
variable eklmn  
����.

��� ���������. � ��� ����� ��������� ������������....
�� ��� ������ �� �������� � ��������, �������� ���� �������� ��������� �� �������, ������� ������ ���������� ��� ����� ��������.
����� ��� ���� ����?

����������: 18:05 - 10 ����, 2007
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

���� ��� �� �������� ��� �������, map_update �� ����� ��� �� ��������. � ������, ��� ���������, ����������� � ���������, �� ���������� ����� ���� ������ �����������. ��������� ����������� ��������� ������������ ������. ������, ������ ������� �� ������� ��������. ��� misc-���������, ��������, ���������� use ����������, � ��� drug -- ���.

����������: 9:15 - 12 ����, 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Wasteland Ghost


> ������� ������� ��������, ����� � ����� ������������� �������. ���� �� ������ �������������� ���� ������, ��� ��������, ��� �� ��� ���� �� ���������, ��� ���� �����.

����� dude ������������ �� ����� ���� �� ���������� ��������� ������� �������� ����� �� ����� � ����� �� ��������� � � ����� ��� ��� ������� ��������� � ���������� ��������� ������� ����� ������ ������ ������������� ����� ����� �������� �������. ��� ��� ����������� ������ ������ ������ � ����������� � ������ ��������� ������ ������
� ��������� map_enter_p_proc �����
if (cur_map_index == MAP_RND_DESERT_1) �and dude ���������� � ����� �� ���������� �� ����� ���� then

���� ��� ������� ������ ����� ������������ ������������ �������.

� ��� � ����� � ��� ������ ������������ �������� ���������, � ���� ������� ���

lvar_bit(1,bit_1)
set_lvar_bit_on(1,bit_1)
set_gvar_bit_off(1, bit_1)

������ �� ���
set_lvar_bit_on(1,bit_1)

if lvar_bit(1,bit_1) then begin
animate_move_to_tile(tile_num(dude_obj))
set_gvar_bit_off(1, bit_1)

end

����� ����������� ���� � ��������� ������ � ���� ������� � ��������� �� ���� ���� dude ����� ����� � ������ �������� <= 3 tile ����� ����� ������� ������ � ���� � ���������.

��������� ���� ��� ��� �������?

� ��������� ������ ��������� �������� ���������� ������ fallout1 ������ ����� game �� ����� ����
� ���� ������ ��� ������� fallout1 �� ���� ��������� � ����� ����� ��������� ����
�� �������� ������� CRITRPID.H � ��� ����� ����� pro_crit.msg
� maps.�



����������: 15:24 - 12 ����, 2007
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

����� �������� �� ����.
map_update �������� �� ����� ��� � � ��������� � � ���������.
��� ������, ���� � ������������ ������, �� ��� ������ ���������.

��� ���������, ��������� � ���� ���������� � ������ �������, ���, ���� ��������� ��������� ���������� ������ ������ �� ����� (���-�� ���������/������)
���� ����� ����������� ������� ��������.

�������� ������ ������ ��������� ������, �� �������� ��� ���.

1 ������ ��� ����� ����������� �� ����� ���������� (�������� ���-��� ���� � ������), � �� �� ����� �����/���������
2 ���������.� ������ ������ � ����� � ���� �� �����������, ��� �������� ��������� ����.

����� ��� ������ ��������� � ���� � ������ ����� �������� (��, ������, � ��� ���������� ����� ��������� ������), �� ������ ������ ��������.
�������, ��� ������ ����������. � �� ����� ��������, ��� ����� ���� ������ ��������� ������������ �������� 8 ����...

����������: 18:03 - 12 ����, 2007
JSilver
������������

������: Moscow
�����������: ���� 2007

�����: 20 ���������

���� ����� �������:
tile_contains_pid_obj (tile, elev, pid)

"���������� ��������� �� ������ ������ � ��������������� ��������� (pid) ����������� �� �������� ����� � �����."

������:
1. ���������� �� ����������� �������� ��������� �� �� ������, � �� ������ � ����� �������?
2. ���� �� ���������� - ����� ���������� �� ���� �� ����������� ������ - � ���� �� � ���� ����� ��� ������ ������� ���� �� pid'�?

�������: ������� ������, �����������, ������ �����������, ���������� � ������, �.�. ������ ������ - ������ (���������� ���������� ������� �������) � ������������ ��� ��� ��� ������.

����������: 7:27 - 14 ����, 2007
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������:
Quote: from Akkella on 18:03 - 12 ����, 2007
2 ���������.� ������ ������ � ����� � ���� �� �����������, ��� �������� ��������� ����.




��� �� ���� � ���� � �������, ����� ������� ������� ����. ��� �������� ��� �����������.

-----
...������� �������������, ���������� � ��������������..

����������: 23:03 - 14 ����, 2007
JSilver
������������

������: Moscow
�����������: ���� 2007

�����: 20 ���������

"���� ������� ��� ����, ����� � ��� �� ������� ����� ��������!" (C)

��������. �������� ���-�� ��������� ��� "stored_node", ������� �� �������. ����������� ���� ���� ����� �� timed_event. ������? ������ ��� ��� ��������, ����� �������� ������ �� ������ � ������� �� �������������� �������������� ��������� ����������� ����. ��� �� �������� ������ �������� ���������� ���� ����������, �� ������ ������, ����� ����� �� ���� (����� ����� critter_talk_proc'�).
��� ������, ��� ��������� ��������, ���� �� �� ���� "��": ���� � ������ �� ��������� �� "����" - �� ������_�����, ��������� � ��������� ����, �� ������� ����� ��������, - �� �����������.
startcritical-endcritical ��������, ������� ������� add_timer_event � ����� ���� ��������� - ���� ��������, ������ �� ����������!

����������� ��� ������_���� � ����� ��������� ������ ������ ������_������ - �� ����: ��� ��������� ������� �������� ������, � ������ ��� � ���� ����� ����� �������� � ��������� � � ��������� ��� �� �������� �� ������� - ���� �� ����. ����, �������, ���� �����-�� ����� ��� �� ���� ���������.

��� �� ������� ����� � �����?

����������: 16:33 - 21 ����, 2007
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

����� �� ������� ����� ������� ������ 0 - ��� ���� ���. ����� ������������ �� ����, �� ��� ������ �������� ��-�� ����, ��� ����� ��������������� ���� ��� ����� ���� ��������. ��� ������� �� ���� ������� �������� � ������� � ��-�� ����� ������ �����������. ��� ������ �������� (�������) ���� � ��� ������� ��������. � ����� ���������� �������� ���� ����. �� ������ �� ����� - �������� � �������, ������.

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 19:42 - 21 ����, 2007
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

������:
����� �� ������� ����� ������� ������ 0 - ��� ���� ���. ����� ������������ �� ����, �� ��� ������ �������� ��-�� ����, ��� ����� ��������������� ���� ��� ����� ���� ��������. ��� ������� �� ���� ������� �������� � ������� � ��-�� ����� ������ �����������. ��� ������ �������� (�������) ���� � ��� ������� ��������. � ����� ���������� �������� ���� ����. �� ������ �� ����� - �������� � �������, ������.

������ ���.
������ � ������������ �������� ���������� � ������, ��������� ����� �����.
�������� ����)

����������: 21:05 - 21 ����, 2007
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

���������� ������ 0 � ��������:

Offset: 0x36C48
������ ��������: 0x30
����� ��������: 0x31

P.S � ����������� ��������

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 21:40 - 21 ����, 2007
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

������:
���������� ������ 0 � ��������:

Offset: 0x36C48
������ ��������: 0x30
����� ��������: 0x31

P.S � ����������� ��������

�������� ����. �������� ��� �������.
0 �� ��������

����������: 22:31 - 21 ����, 2007
JSilver
������������

������: Moscow
�����������: ���� 2007

�����: 20 ���������

��� �, �������� ���������� �� �������. ��������� ���� ����������� �������� - �� ����: � ���� ���� ��� ��������� ���������, ����� ���� ��������� ������� ������������ �������� �� �������� � �����������, �� ��� �� ��� �������� � �.�.
====================

������ ������� ����� ��������� ������:

found -- ��� ������ �������, ���������� � ������, ���� � ���� �������� ���������, ��������� �������:
found:=metarule3((106),tile_num(xxxxx),elevation(dude_obj),0);

next -- ��� ������� �������� ��������� �� ���������� �������� ����������� ��� ��.
next:=metarule3((106),tile_num(found),elevation(dude_obj),found);

����� ����� � ���� ��������� �������� ��������� ����������, � � ����� ������� ������ � ���������� ������� ����� ����� ������, ����� ��������� ������ �������. ����� ����� �� ��� ������, ������ ���� ���������� �� �� ��� � ����. ����� ���������:
display_msg("f: " + found + " n: " + next);
���������, ��� ��� ����� �������� f == n. ������! ���� �����-��! ��� �� ������ �� ������ (����� �� ������) ��������� "Next_Critter"!!! ��� ����������???

��� ������ - �� �������. ���� ������� ���������� ������� ������������� ��������, �� ��� ����� ��������� ��������: ���� ������� � ������ ���� ����� ������� ����� �� ������ ��������, �� ���������� ������� ��������� - ����� ��� ����������� ���������� � ����������. � ��� �������� ���������� ������ ������ - ��������, ���� ��� ��� ���-�� ��� �������� - ��� �� ��������� ��������� - ����� ������� ������� ������ ������ �������� ������ �� ����� �����, ����� ������ - ����� ������, - ����� � �� �������, �� ��� ����� ����, ����� found � next - ����������! � � ���� - �����!

���������!!

����������: 22:33 - 21 ����, 2007 | ����������: JSilver - 22:40 - 21 ����, 2007
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������� �������������! ������������ ������� �� ��������� �� � ���� ����. Ray, ����������, ����������� ���� � ������ 0 �
���� �� ���������. JSilver, ���� �� �������� �������� �������� ������������� ���������, ������ ��������� ���� �
��������������� �������.

����������: 10:50 - 22 ����, 2007
JSilver
������������

������: Moscow
�����������: ���� 2007

�����: 20 ���������

������:
Quote: from Wasteland Ghost on 10:50 - 22 ����, 2007
������� �������������! ������������ ������� �� ��������� �� � ���� ����. JSilver, ���� �� �������� �������� �������� ������������� ���������, ������ ��������� ���� �
��������������� �������.

��� �� ������, �� ���� ���� ��� ������:
1. �������, �� ���������� � ������ ���������, � ��� ����������� ���� "��������������" ���, ����� ������, ��� �� ����� �������.
2. ��������, ���� ���� ������� �������� � "������������" ��������� �� ���� "� ����� ����� ����, ��� ����� ��������, ������� ��������� �� �������", �, ��������, "� ����� ������� �� � �� � � ���� ������ �� ����������".

��, ��� ��� ���� - � ����������� ���� ���� ���. ��������� ���� ��� �������� �� ����� - ����� �����.

����������: 15:29 - 22 ����, 2007
Akkella
������������

�����������: ���. 2006

�����: 175 ���������

������:
��� �� ���� � ���� � �������, ����� ������� ������� ����. ��� �������� ��� �����������.

� ���� ����� �����...
��� �������� �������� �����������...
����� ������� ��� ������ � ���� � ���������� �����.
��, ��� ��� ���� �� ������, ��� ������������ �������.
� ��, ��� ����������, �� ��������...

������� � ������...

����������: 17:55 - 22 ����, 2007
JSilver
������������

������: Moscow
�����������: ���� 2007

�����: 20 ���������

������:
��� �������� �������� �����������...
����� ������� ��� ������ � ���� � ���������� �����.
��, ��� ��� ���� �� ������, ��� ������������ �������.
� ��, ��� ����������, �� ��������...

������� � ������...


� ������ ������ ����� ������������� ������ ������, ������� ���� ��������: "���� ����� ���� ���-�� � ����, � ���� ��� ���-�� = ������, �� ���� � ����� ����-�� ������ �� ��������, �� ����� ����-�� ������ ���������". � ������������ � ��� �����, ����� � ������� ������ ������. � ��, ��� � ���� � ����� �� ��� ��� �������� ���������������� ��������� - ��� ��������� � ���������, �� ������� �������� ����������� ��������� �������. ��� ����� ���������, ���� ����� � ����� ������ - ��� �� ���� ������ - ����������� ���� ������ �� � ��� ������, ����� ��� ��� � ���� ���� - ����� �� ������ ��� ������ �������� �����, � ���� �����/��������� �������, � � ������ ������� �������� �� ����� ������.

�������, ���� �� � �����, ��������� � � �������������� ��� ���������� ������, �� ��� ����� ����� �����������, � �������� �� ��� � ������������� - � ���� �� ��������� �������.

����������: 19:31 - 22 ����, 2007
Rosetau
������������

�����������: ���� 2007

�����: 1 ���������

������ ���������� ����������

������ ������� ��������. ������� � �������� ��� � ���� - ������� - "ssl not found"
���� ������� ����� � ��� �� ���������� ��� � �������

��� ����� �� ���?

����������: 19:49 - 27 ����, 2007
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

���������, ��� ��������������� �tile_in_tile_rect({int tile1}, {int tile2}, {int tile3}, {int tile4}, {int tile}) ���������. �� ���������� ���������� �������, � ����� ��������������� ����� ��� ����� �������� � ������������ �������? �

���:
#define tile_1 (13694) // 13694
#define tile_2 (13690) // 13690
#define tile_3 (15490) // 15490
#define tile_4 (15494) // 15494

if fixed_param == event_timer_12 then begin
� � � � � � �rm_fixed_timer_event(self_obj, event_timer_12); � � �
� � � � � �if (global_var(GVAR_DOOR_DWELLER_VAULT) <= 2) then begin � � �
� � � if (tile_in_tile_rect(tile_1, tile_2, tile_3, tile_4, tile_num(dude_obj)) == True) then begin �
� � � set_global_var(GVAR_DOOR_DWELLER_VAULT, 5);
� � � // ������� � �������� �����. � � � � � � � � � � � � � � � � � � � � � � �
� � � obj_close( self_obj ); � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � obj_lock( self_obj ); � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � // �������� �������� �����. � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � reg_anim_func(1, 1); � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � reg_anim_animate_reverse(self_obj, 0, 9); � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � reg_anim_func(3, 0); � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � end � � � � � else begin � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � add_timer_event(self_obj, game_ticks(5), event_timer_12);
� � � � � � � � � � end �
� � � � � end �
� � � � � � � end

������:
��� ������ - �� �������. ���� ������� ���������� ������� ������������� ��������, �� ��� ����� ��������� ��������: ���� ������� � ������ ���� ����� ������� ����� �� ������ ��������, �� ���������� ������� ��������� - ����� ��� ����������� ���������� � ����������. � ��� �������� ���������� ������ ������ - ��������, ���� ��� ��� ���-�� ��� �������� - ��� �� ��������� ��������� - ����� ������� ������� ������ ������ �������� ������ �� ����� �����, ����� ������ - ����� ������, - ����� � �� �������, �� ��� ����� ����, ����� found � next - ����������! � � ���� - �����!


� ������ ���������� ���� �� ���� ��� � ������� �� ������?

����������: 0:31 - 28 ����, 2007 | ����������: Dar - 0:35 - 28 ����, 2007
Sokil
������������

������: ����
�����������: ���� 2004

�����: 120 ���������

������:
���������, ��� ���������������  tile_in_tile_rect({int tile1}, {int tile2}, {int tile3}, {int tile4}, {int tile}) ���������. �� ���������� ���������� �������, �  ���� ��������������� ����� ��� ����� �������� � ������������ �������?  

���������� ������� ������ �����. � ��� �� ����� �������, ����� ���� ���� ������ �������������.
��� ��� ���������� �������:
#define dude_near_hatch_1                 (tile_in_tile_rect(9717, 9712, 10717, 10712, dude_tile))
����������� ������ ��� ���������.

����������: 10:55 - 28 ����, 2007
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

�������, Sokil �������
1,2 ����������� "�����������" ����� �������.
3,4 �����������  "�����������" ����� �������.
��� ��������� �� ��������� ���������� ���� �������� � �������.

����������: 13:24 - 28 ����, 2007
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

��� ������, ������� ������, �� ���� ������,  ����� �� "���������" ��������� ������ ��������� ���������  ������ ������, ������ ���� critter_dmg(dude_obj, dmg, DMG_laser); �� ���� ���� ���������� �� ����� �� ������� ����������. ���� �� ������ ���� ��������?

����������: 0:46 - 3 ���., 2007
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

���� � ������� ������� ��������

procedure map_enter_p_proc
begin
kill_critter(self_obj, ANIM_fall_back_sf);
end

�� ���� ������, �� ����� �������� � ����� ��� ��� ���?
��� ����� �������������� ����, ��� ��� ��������?  

����������: 17:58 - 7 ���., 2007
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�������� ������� �������� ��� �������� �� �������� �����.

PS ������-�� ����� ������ ������ �� ��� �������� � �����, ������ �� ��� ����������� ����������.

����������: 17:52 - 8 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

�� � ��������� ������ ��� ������� ��� ����� ������� �������� ������ 100 �� ����������.

� ������� ���� ������ � ���� ���� �� ����� �� ������� ��� ��� ������� ���� ��������� ����� �����

� ������� dude

procedure critter_p_proc begin

  while (get_critter_stat(dude_obj,STAT_current_hp) > 100) do begin
   critter_heal(dude_obj, -1);
   end

end

����������: 22:28 - 8 ���., 2007
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

Wasteland Ghost

������� , �� ��� ��� �� ��.
� ������ ����� "��������" �������, ���� �������� � ������� ��������� ��� - ������ ������� � ���. �� � �������� �������� ��� ����. � ��������� � description_p_proc � push_p_proc � talk_p_proc �� ��������, �� ��������� �������. �� � �������� �����, ��� ������� �� �����������, ����� ��� ����� �����.
�����, �������� ��� "�������" , - �� �������������.

������:
�� � ��������� ������ ��� ������� ��� ����� ������� �������� ������ 100 �� ����������.


� ��� ���� � ��������������� ���������� 101/100, 102/100, 120/100 � ����� ������ �������� �� ������� � ������, �� ����� ����� ������� ����� � � ���� �� ������ ����� ������� �����, ��� ����� ������������ �� ������  ����������.

��: ��� ���� �������� ��������� ������������� ��c�� �P �� ������ ����.

����������: 0:04 - 10 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

����� ������ �������� �� ������� � ������, �� ����� ����� ������� ����� � � ���� �� ������ ����� ������� �����, ��� ����� ������������ �� ������ �����������.

�� � ��� �� ���� � ��������� ����� ������� ������������� ����� ���� ����� ������ �� 100
� ���� ������� �������� ���������� ����� ����������� ������� �� dude � ��� ������� �������� ������ ��������� �� ������������� ����� ��������� ���������� ����� � ������������� �����
������

���� ����� ����� 1 �� ��������� �� �� 99 � ��������� ����� �� 5 ���� � ��� �� ��� ��������


����������: 11:12 - 10 ���., 2007 | ����������: Jordan 63 - 11:20 - 10 ���., 2007
Dar
������������

������: �������
�����������: ���. 2004

�����: 289 ���������

Jordan
������� �����, �� �������� ����� �� ���� �� ��������, ������� � ����, ��� � ������ ��������  �� ���������. � ��� ����� ���� ������ �� ���  ���������������� � �������������� ���� ������� ��� �������. ��, ����� �������� - �� ������ ������. �� ��� �������� ����� ��������� ����� ������ � �����. � �� ������ �� ���� �� ������ ��������. �� ��� ������, ���� �� ����.
��� � ������������ ����, (�� ������� � ���� ������ � �������� ���� � ���)  ��� ���� ����� ����� ������.

�� ����� � ��������������� ��� ����� ����� 140/100 150/100.
���� �� ����� ���� ��������� � ����� ����� �� 100 �������� ��� � �������� ����������� ��������� ��������� ������, �� ��� ����� ��� �� ��������, �������� ������ ������� ��������� ������ ����: ���� ��������, ������������......

��,
If get_critter_stat(dude_obj, STAT_max_hp) >= 31 then
Begin
set_critter_stat(dude_obj, STAT_max_hp, 30);
end

���� STAT_max_hp ��������� ��������� �� ��� �� ���������, � ������ ����� ��� ��� � ����, ���� �� ������� �� ���� � ������������.
���� ���������, �� ������� � ���������������.

����������: 15:48 - 10 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Dar

� ��� ����� ���� ������ �� ��� ����������������� � �������������� ���� ������� ��� �������.

���� ��������� ����� say �����

�� ����� � ��������������� ��� ����� ����� 140/100 150/100.

�� � ����� ��� �� ����� ��������� ��� ��� ����������� �� ��������

���� �� ����� ���� ��������� � ����� ����� �� 100 ��������

� ����� ����� �� � �� ����������������

If get_critter_stat(dude_obj, STAT_max_hp) >= 31 then
Begin
set_critter_stat(dude_obj, STAT_max_hp, 30);
end

� ������� ���� ��� ������� �� �� ��������

����������: 17:30 - 10 ���., 2007
Dweller
������������

������: �-����
�����������: ���� 2007

�����: 29 ���������

��� ������ ����� ���, ������ ��������, ��������� ��� �������� ��������� �������� �� �������������� (������ ������, ��� ������� � ����)? ������������, ��� �������� � ������, ��� ��� random, ������������ 4 ��������, � ���-�� �������� � ����������������. ������ � ������: ���?

-----
�� ����� ��� ��� �������

����������: 21:51 - 10 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

����� ������� ���� ��������� ��������� ������ �� �� ���������� � ����� ����� �� �� �������� ���������� ��� ������

procedure combat_p_proc begin

if (fixed_param == COMBAT_SUBTYPE_HIT_SUCCEEDED) then begin



if (obj_pid(critter_inven_obj(source_obj,INVEN_TYPE_RIGHT_HAND)) == PID_SPEAR)
or (obj_pid(critter_inven_obj(source_obj,INVEN_TYPE_LEFT_HAND)) == PID_SPEAR) then set_global_var(456, 1);


end

if (fixed_param == COMBAT_SUBTYPE_TURN) and (global_var(456) == 1) then critter_heal(self_obj, -5);


display_msg("������� �������� " + (get_critter_stat(self_obj, STAT_current_hp)));

end

� ��� ���� ������ ���� pro ����� �� fallout2 �������� �� fallout1 �� �� ������ ������������� � ����� ��������� ���� ������ ��� ��� ���������� ���� �� ����� ��������� ������� ����� ������� pro ����� fallout1 � ��������� ��� �� ��� �������� � fallout2

����������: 21:39 - 12 ���., 2007 | ����������: Jordan 63 - 22:27 - 12 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

���� ����� �������
worldmap_xpos ���������� ���������� x �������� �������������� �� ����� ����
worldmap_ypos ���������� ���������� x �������� �������������� �� ����� ����

��� ������ ���������� � ������ ������� ����� � ������ � ������ ��� ����� ������
����������. ��� ����� ������ �� ����� ������ ���������� dude
�� ���� ������ ���������� ������ �� ��� �� ��������� �������� ����� ������ ���������� ������� ���� ������
����� ����������� ����������

if ((worldmap_xpos >= 150) and (worldmap_ypos <= 50)
or  (worldmap_xpos >= 200) and (worldmap_ypos <= 50)
or  (worldmap_xpos >= 200) and (worldmap_ypos <= 100)
or  (worldmap_xpos >= 150) and (worldmap_ypos <= 100)) then call Node001;

� ���

if (worldmap_xpos >= 150)
and (worldmap_ypos <= 50)
and (worldmap_xpos >= 200)
and (worldmap_ypos <= 50)
and (worldmap_xpos >= 200)
and (worldmap_ypos <= 100)
and (worldmap_xpos >= 150)
and (worldmap_ypos <= 100) then call Node001;

� ���� ���

if ((worldmap_xpos >= 150)
and (worldmap_xpos <= 200)
and (worldmap_ypos >= 50)
and (worldmap_ypos <= 50)
or ((worldmap_xpos >= 200)
and (worldmap_xpos <= 150)
and (worldmap_ypos >= 100)
and (worldmap_ypos <= 100))) then call Node001;



���� dude ���������� �� ������� ����� � ����� ����������� �� ��������� node001

�� ��������� node001 � � ������ � ��� ������ � ��� ����� ����� �� �������� node001
������ � ���� ������ ��� ����� �������� ��� ��������� �������� >= , <=  and � or.

����������: 20:25 - 14 ���., 2007
Freeman
������������

�����������: ����. 2007

�����: 24 ���������

� ��� �������� �������� ������� �� �����, �� ���� ������������, ��� ������ ��� �������� ��� ���:
if (worldmap_xpos >= 150)
and (worldmap_xpos <= 200)
and (worldmap_ypos >= 50)
and (worldmap_ypos <= 100) then call Node001;

����������: 3:44 - 15 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Freeman

��������!

�������!



����������: 9:35 - 15 ���., 2007
Dweller
������������

������: �-����
�����������: ���� 2007

�����: 29 ���������

������ �� ��������������� ��������: ��� ��������� ������� ���������� �������� �����? ����� ��������� ������� ������� sleep_point � ������� ��������, ���� ����� ����, �� ��� � ������� � ���. �� ��� �������, � ���� ��, ���� ����� �������� � ����� ��������, �� ��� �������� ��� � ���� ������� ��-�� ��� ��� ����� ������� ����� ��������: ���� ����, �� ������ ���������� ���������. ������ ������� ����������, ���� ����� ����� �����, � ����� ��������. ����� ���� ������� - ������� ��������������� ������-���� ����, �� ������ ����������. � ��������� ��� � �������, ����������� �� �������. �� ���� ���� ����� ���� ������, � ����� ������ ������. � ��� �������� ��������� � ��������� map_enter, a ����� � ���������  critter_p_proc � �������������� ���������, ���� ������ �� ����� �� ������, �� �������/���������. ������ ��� �������� �� ����� - ��� ������� ����� ����, ������� ���� ���� ����� � �������, �������� - � ��� ��� ���.


(���������� �� 15:20 - 18 ���., 2007.)


��� ���: ����� ������� ���: ���� ����� ����, �� �������� ��� ��������� �� ������� �����, �� ���� ����������, ��� ��� ���������� ���� ����, ���� �� �� ������� �� �����, � ����� ��������� �����. �� � � ���� �� ��������������� � animation_walk � �����, ��� ���� ������� ����� ������ �� ������ �����, �� ���� ��������, ��� ��������� �� ���� ������. ������������� ���� ����, ��� ������� ��������� ������ ��� ���� �� ����� ������� �������. ����������, �-���... �� ��� ���, ����� ��� ������� ���� ������� ������� �����? � ������ ����������� ��, �������� ������? ������� ������� ���������.  

-----
�� ����� ��� ��� �������

����������: 15:05 - 18 ���., 2007
Dweller
������������

������: �-����
�����������: ���� 2007

�����: 29 ���������

����! ���� �� ������� ��������� ���������. ������� �� ����� ������������ �� �������. �������� ��� ��� :-[ ��������� ���� ���������� �� ������ ������� � �� ���������. � ��� ��������, ��� �� ��� ����� ��-�����������!

-----
�� ����� ��� ��� �������

����������: 17:17 - 18 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Dweller

����! ���� �� ������� ��������� ���������. ������� �� ����� ������������ �� �������. �������� ��� ��� :-[ ��������� ���� ���������� �� ������ ������� � �� ���������. � ��� ��������, ��� �� ��� ����� ��-�����������!

�������� ������ ��� ����� ����� �� ��������� �� ��� ��������� ����� �� �������

����������: 0:59 - 19 ���., 2007
Dweller
������������

������: �-����
�����������: ���� 2007

�����: 29 ���������

�������. ���������� �������� ��������� ���������, ��� ��������. ��� ��� ������� �������� ����� ����� �� ���������� ��������, � ��� ������ ��� ����� ����� ������� �� ��������, ������ ��� �� �� ����� ������� ��� ������� �� ����������.

-----
�� ����� ��� ��� �������

����������: 12:42 - 19 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

����� �� ��������� ����������� � �������� ���� � ��������� ������

���� ����� �������� ������ 100 ����� ���� �������� ����� ����� ������ �� 10 ��������� ������ �� ��������� ���� ���� �������� � ���������

if (has_skill(dude_obj, SKILL_BARTER) < 100) then item_caps_adjust(dude_obj, -proto_data(PID_LEATHER_ARMOR, it_cost));

� ����� �� ���� ����� ��� �����  export � import �������� ���� ��� �� ����� ���������� ��� ��� �������

����������: 22:37 - 19 ���., 2007 | ����������: Jordan 63 - 23:30 - 19 ���., 2007
Dweller
������������

������: �-����
�����������: ���� 2007

�����: 29 ���������

����� ���� �������� ������ �� �������, �� ���� ����������� ���������� �����-�� �����������, ����� �� �� ����� ���� ������������� ��� �������������, � ���������� � ���������. ������ ��� ���������� ���� ���� ���������, � �� ������.

-----
�� ����� ��� ��� �������

����������: 11:26 - 20 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Dweller

������:
����� ���� �������� ������ �� �������, �� ���� ����������� ���������� �����-�� �����������,


��� � ���� �� � ���� ������� �������� ��������� ����� ������� + say �����

����, ����� �� �� ��������� ��������� ����������?
WG

����������: 13:53 - 20 ���., 2007
JSilver
������������

������: Moscow
�����������: ���� 2007

�����: 20 ���������

��� �� ���� ����� � ����� - ���������� ������ ������� � ��� "������", ������� ������� ��� �������� � ���� ������. ��� � ����� � ���� ������� ���������? �����, �������, ������ ������������... ��� ��������? ������ ������� ��������, �������� ��� ����������� ���� ��� � � ������� - �� ����������, � ��������� ������� ������� ������� �� ���� ������ �����, ������ ����������� ������ ��� � ������� � ���� ���� � ���� ����� ������� - ��� ����� �� ����������! ����� ���������� ���� ������� �������, � ��� ������ ��������, ��� ��� "�������" - �� � �����! ��� ��� �������� �������, ���������� ���-������?

����������: 2:29 - 21 ���., 2007
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Jordan 63 ��� �� ������� �������� ��������� ����� ������, �� � ������ �� � ������ �������� ����� ������. � ����� ���� �� ������ � ���� ������ �������� ���������� ����� ��� ���� ������.

����������: 9:55 - 21 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Wasteland Ghost
������:

� ����� ���� �� ������ � ���� ������ �������� ���������� ����� ��� ���� ������.


� ������ ����� ��������� ����������. ������� ����� ��� ������� �������� ���������� ���� � ����� ����������� ��� �������� �� �� ��� ������� ���� ����������. � � ���������� ����� �����.

����������: 10:46 - 21 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

To All
��� ������ ����� ����� global var � fallout2 ��������� ������� ������� � ������ ���� GVAR_RUNNING_BURNING_GUY

� �������������� ������ ��� �������� � ���������
item_caps_adjust(dude_obj, -5% �� 350)
���� ��� �������� �� ��� ��������� ��������

����������: 13:58 - 10 ����., 2007
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������:
��� ������ ����� ����� global var � fallout2 ��������� ������� ������� � ������


����� � � ������������ ���� �������:

�� ������ ��������:
439
455
456
453
(��� ����� �����)

����� ��� ��� (����� �� ��������, �� � ����� �����):
491
18
7
494
47

� ��� ��� ����� ���������, � ����� ��� ���������, ������ ������� �� ������� ����.

������:
� �������������� ������ ��� �������� � ���������
item_caps_adjust(dude_obj, -5% �� 350)


item_caps_adjust(dude_obj, (350-(350/100*5)))



-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 17:40 - 10 ����., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Ray

������:
item_caps_adjust(dude_obj, (350-(350/100*5)))



������� �� ������ � ���������

procedure map_enter_p_proc begin

� item_caps_adjust(dude_obj, 350);
� item_caps_adjust(dude_obj, (350-(350/100*5)));


end

���������� 685 �����

�������� ���

� item_caps_adjust(dude_obj, 100);
� item_caps_adjust(dude_obj, (100-(100/100*5)));

�� ���� ������ ���������� 95 � ���������� 195 �� 100 ����� ������
��� ��� ������ ��� ����

���� �� ������ ������ ��������� ���� ������ ��������� ���� ��� ��������� ��������� ������� ����� ���������� ���� �� ������� global var


����������: 20:01 - 10 ����., 2007
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

������:
procedure map_enter_p_proc begin

 item_caps_adjust(dude_obj, 100);
 item_caps_adjust(dude_obj, (100-(100/100*5)));

end

�� ���� ������ ���������� 95 � ���������� 195 �� 100 ����� ������
��� ��� ������ ��� ����



[Ray �������� ������� � �������]

�� ������ ��������� ��� ������ �� ��� ���� �������? �� ������� 100 �����, � ����� ������� ��� 95. ��� ��������� ����� 195.

������:

item_caps_adjust(dude_obj, 100);                          // + 100 �����
item_caps_adjust(dude_obj, (100-(100/100*5)));  // +  95 ����� (100-5%)



������ ���� ��� ������... � ������, �� ����� ������� ���������?


           Y
X =      --        * Z %
         100 %

������:
���� �� ������ ������ ��������� ���� ������ ��������� ���� ��� ��������� ��������� ������� ����� ���������� ���� �� ������� global var


1)������ ���������� �� ���� - ��� ����� ���� ������������ � ��������� ���� ����...
2)������ + REC

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 21:29 - 10 ����., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Ray

������ �������


������:
2)������ + REC


��� ����� ������� REC? ����� � nigme ��� � �������.

����������: 8:57 - 11 ����., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

�������� ������� ����� ����� �� ������� �� �������� ���� ��������� ����� dude � ����� ������ 5 ������

procedure map_enter_p_proc begin
� � party_add(self_obj);
end


procedure combat_p_proc begin

if (tile_distance_objs(dude_obj, target_obj) < 5) then begin
� inven_unwield(self_obj);
� rm_obj_from_inven(self_obj, obj_carrying_pid_obj(self_obj, PID_MINIGUN));
� end
end


�� ����� �������� � ���� ���� dude ���������� ����� c ����� � ���� ������� ���

if (tile_distance_objs(dude_obj, target_obj) > 5) then begin
� inven_unwield(self_obj);
� rm_obj_from_inven(self_obj, obj_carrying_pid_obj(self_obj, PID_MINIGUN));
� end
end

����� ������� ������ ���� ���������� ����� ���� ������ 5 �����
��� � �������� ������?


� ��� ��������� ��� ����� ������ ����� ��� ����� � ��������� ������? � ��� ����� ������ ����� �� ����� � ���� ��������� ������.

����������: 21:33 - 22 ����., 2007 | ����������: Jordan 63 - 14:44 - 23 ����., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

��� ������ ����� �������� ��������� �� ���������� �������� ������� ��������.
� .h ����� ��� �������� ������ �������.

����������: 21:24 - 30 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

��� ������� ����� ���� ��� ���������� � ������� ������ �� ���������� ���� � � ��� ���� �������� ���_�������.ssl � �� ����� ������� ������

��� ��� ������

@echo off
@copy *.ssl *.c

@for %%f in (*.c) do cpp32 %%f >> cpp32.log

@for %%f in (*.i) do sslc %%f

@del *.c
@del *.i
rem @del cpp32.log

����������: 20:33 - 19 ���., 2007
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

@for %%f in (*.i) do sslc %%f  >> sslc.log

����������: 11:22 - 20 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Anchorite

� ��� ������ ��� �� ������� ��� ������

@echo off
@copy *.ssl *.c

@for %%f in (*.c) do cpp32 %%f >> compile.log

@for %%f in (*.i) do sslc %%f  >> sslc.log

@del *.c
@del *.i
rem @del compile.log


�� ������� sslc.log � � ��� ����� ������

*** THERE WERE ERRORS (1 of them)

� � ����� ����� �� �������� ��� �������(� ������� ������) � �� ����� ������� ������ ��� � ���������� ������

ARADESH.i(9557): Error! expecting ';'.







����������: 12:25 - 20 ���., 2007
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

��� ��������

@for %%f in (*.i) do sslc %%f  >> sslc.log 2>&1

����������: 10:30 - 21 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Anchorite

������� ��� ��������!

����������: 11:41 - 21 ���., 2007
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

���� ����� ������ ����� ��������� ��������� ������ ���� �.� create_object_sid �� �� ��������� �� ����� �.� ��� ��������� ����� ����� � ������ �� ��������.

��� ��������

http://jordan631.narod.ru/scr00000.JPG

���� ������� artemple.ssl

procedure map_enter_p_proc begin

� if (map_first_run) then begin

� � � call Initial_Inven;
� end

� Lighting;

� override_map_start_hex(17488, 0, 5);
� set_global_var(GVAR_LOAD_MAP_INDEX,0);

� create_object_sid(67108866, 19097, elevation(dude_obj), -1);


end

��� ����� ��������� �������� �� ���� �1 �� ������ �2

http://jordan631.narod.ru/Source.rar

����� �������������� ��������� ssl\Compile.bat

����������������� ������� �������� � ����� scripts

� ��������� ����� ���������� ������ "�������������� ������" ��� ���������� ��������(� ���� ����� ������ �� ���������) ��� ������ ������ ����� ������ ���������?

����������: 10:53 - 4 ���., 2008 | ����������: Jordan 63 - 11:27 - 4 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

���� ���� ��������� ����� ����� ������ ������ ������ ������ ������ � ���� ������ ����� say �����.

http://jordan631.narod.ru/say.rar

� ����� Scripts ����� �������� � ���� � ���������.

��������� ���������� ����� � ������� ���� � ������� �������� � �������.
����� ��� ���� �����������.

����������: 20:14 - 4 ���., 2008
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

� ��� ���������� � ����� �����. ������, � �������� ������������ � �����, LVARs �� ��������. ������ ���-������ ��� �����?

-----
������� ����� ������, �� ������ ��������. ������� ����� ��������, �� ������ ������.

����������: 23:57 - 9 ���., 2008
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

������:

���� ����� ������ ����� ��������� ��������� ������ ���� �.� create_object_sid �� �� ��������� �� ����� �.� ��� ��������� ����� ����� � ������ �� ��������.



��� ��������� �����. ������ ��� ������ �������� ��������, ������� ��������� ����� � ����, ��� ��������� ������� � ������� �������� �����. ������� � ��������� ����� �������� ������.

����������: 9:33 - 10 ���., 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
� ��� ���������� � ����� �����. ������, � �������� ������������ � �����, LVARs �� ��������. ������ ���-������ ��� �����?

������ ����� ����.

����������: 13:36 - 10 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

� ��� ������ ������ ������� � ������� ����� ��������� �������� � �������� �� ��� �������������� �������. �� ��� �� ������ ������ ������� � ���� ������ ������ ��������� ���������� � ������� ��� ������� ��������� �������� ��� �� ���� ����� ����������� ��������� ������ � ��������� ������ ��� ������ ��������� ��������.

����� �����.
http://jordan631.narod.ru/data.rar

��������� ���������� ����� � ����� ����

���� � ������� ��������� 7 ��������� �� ����� ������� ������ ����� �������� ��� �������� ������� �������� acklint.msg ��� ��� ��������������� � ����� scripts ����� ��������� �������.

��� �� � ����� acklint.msg ������������� ������ �� ��������� ����� � �� ������ �� ����� ��������
��� ��� PID_LEATHER_ARMOR
�� ��� ������� ����� � ���� ������ ��� � � ����������� ����������

� ������ ������ ��� ������� ��� ����� ������ �������� �� ���

# �������� ��������
{100}{}{PID_LEATHER_ARMOR}
# ����������� ���������� ���������
{101}{}{1}
# ������������ ���������� ���������
{102}{}{2}
# ����������� ��������� �������� � ���������
{103}{}{100}

�.� � ������ ������

� ��� ��� � ����� ������

{100}{}{PID_LEATHER_ARMOR|1|2|100}

���  ���

{100}{}{PID_LEATHER_ARMOR,1,2,100}


����������: 14:12 - 14 ���., 2008 | ����������: Jordan 63 - 18:50 - 15 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

������� ������ ������ �����

http://jordan631.narod.ru/data1.rar

��������� �������.

����������: 21:57 - 15 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

��� � ��������� atoi

procedure atoim(variable ostr, variable bstr) begin
� �variable begin
� � � �i;
� � � �str;
� � � �val;
� �end
� �str:=bstr;
� �while (ostr!=str and ostr<=str+":" and ostr>=str+"0" do begin
� � � �while not((ostr>str+i and ostr<str+(i+1)) or ostr==str+i) and i<9 do i+=1;
� � � �str+=i; val:=val*10+i; i:=0;
� �end
� �return val;
end

#define atoi(x) atoim(x,""

�������� ��������

(atoi(message_str(SCRIPT_GLOBAL_VARS, 100)));

���� ������� 100 � ������� � ������� 567 ������ �����
������ ������� 100 � ������� � ������� 345 ���� � ��� ������ �����
������ ������� 100 � ������� � ������� 961

����������: 12:09 - 4 ���., 2008 | ����������: Jordan 63 - 12:11 - 4 ���., 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ���� ������ �� atoi, � � ������� atoi.

����������: 17:15 - 4 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Wasteland Ghost

������:
��� ���� ������ �� � atoi, � � ������� atoi.


��� ��� ����� �������? ���� �� ������ ������ ������.

����������: 2:48 - 5 ���., 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� �� ����, ��� ��������� �� ���� �����, ������ "������", �������...

if not(message_str(567, 100) == "Error" or message_str(567, 100) == "") then begin // ���� ������ ���� � ��� �� ������
   val := atoi(message_str(567, 100));
end
else if not(message_str(345, 100) == "Error" or message_str(345, 100) == "") then begin
   val := atoi(message_str(345, 100));
end
else if not(message_str(961, 100) == "Error" or message_str(961, 100) == "") then begin
   val := atoi(message_str(961, 100));
end

����������, �� ������ ��������. :)

Ray, ������ ��� �� �����.

����������: 11:04 - 5 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Wasteland Ghost

� ��� � ���� atoi �������� ��� �� ��������.

������ � ����

set_global_var(atoi(message_str(961, 100), 1);

� ��� �� atoi � ����� ��������� ���� �������� ��� ��� �� ���� ������ �� �� ������ �� 100 � ����� ����� �����

� ������ �����  ������� ��� ����� ���� ��� ��� ��������� ����� (����� ������) � ����� ����� ��������� ������ ��� ��� ����� ��������� ������ ���� �.� ��� �� �� ���������� �� � ������� ���� � � ������ � atoi ������ ���������� ��� ��� � ���� ��� ��� �� ����� �� ������� ������ ������ ������ ������� ����.

����������: 11:22 - 5 ���., 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������ ����� ������ ���������� ���� �������� � ������� ���������! ��� ��� ������� ���������, � ��� �������� ������� ����������������, ������� � �����������. ����� ������ ���� ������. ��������

#define get_gvar_from_msg(x)
if not(message_str(567, x) == "Error" or message_str(567, x) == "") then begin \
   val := atoi(message_str(567, x)); \
end \
else if not(message_str(345, x) == "Error" or message_str(345, x) == "") then begin \
   val := atoi(message_str(345, x)); \
end \
else if not(message_str(961, x) == "Error" or message_str(961, x) == "") then begin \
   val := atoi(message_str(961, x)); \
end

����������: 0:18 - 6 ���., 2008
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

Wasteland Ghost

�� �������� ����� ��������, � ��� code - �������������� ��� ��������������


-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 20:14 - 6 ���., 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������ ���. ���, ����������, ����� � ���� �������-����������. �������� ������-������ ������ �� ����...

����������: 21:21 - 6 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

� ��� ������ ������� ���� � �� �������
�������� 180 ���� � ������ ���� ����������� �� ��� �������� ����� �� ���� �� ���������� � �������� ��
��� �� �������� �������� 161 ���� ��� �������� 23 ��� �.� ��������� ������������ �� ���� ������� �������. ��� ��� ����� �������?

��������� ��������� ��� ��� ������ ��������� ���������� ����� ������ � �� ����� �������� ��� ����� ����� ������� ����� ����� ����� �������. ���� �������� ������ ������ ������� �������� � �������.
����� �������� ������ ��� ����� ������� ������� ����� ������� ��� ������ ������ ���� ����.
� ����� scripts ���� ���������.

��������� ���������� ����� ������� ����

http://jordan631.narod.ru/Steal.rar

P.S. �������� ����������� ����� �� ��������� ������� ����������� �� ����� � ���� ��� ��������� ��������� � ������ �������.

���� � ������ 1.h � ������� ��������� f-Geck ����� �� ��������� �������� � ������� ��������

����������: 16:30 - 8 ���., 2008 | ����������: Jordan 63 - 21:06 - 8 ���., 2008
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

������:
��������� ������������ �� ���� ������� �������. ��� ��� ����� �������?

�������� ���. � �������:
���:
 
variable word; // SVAR ��� ������� �����
variable remn;       // SVAR ��� �������

remn := global_var(GVAR_DayCounter) % 10;
if (remn > 4) then begin
   word : = 3;
end else begin
   if (remn > 1) then begin
        word := 2;
   end else begin
       if (remn == 1 and global_var(GVAR_DayCounter) != 11) then begin
           word := 1;
       end else begin
           word := 3;
       end
   end
end

display_msg(mstr(400+word) + global_var(GVAR_DayCounter) + mstr(410+word));



� � MSG:
���:
 
{401}{}{������� }
{402}{}{�������� }
{403}{}{�������� }

{411}{}{ ����.}
{412}{}{ ���.}
{413}{}{ ����.}



-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 14:24 - 9 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Alchemist

� ������ �������� ������ ������! ��� �� ���� ����! � �� � ��� � ��� � ���� � �� �� ���������� � ����� ������ ����� �� ����.

����������: 16:43 - 12 ���., 2008
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

"�����" ������� �� ����������. � ������ ����� ��������������� ������. �������� ����, ��������� �����, � ���, ��� ��� ���������� ������ ������� mstr ����� ��������� define ��� ������� ������� � scripts.h �, ��������������, define � ������ ������ �������. ��� ������, ������� ����� �������� �� "�����" sslc ��� �������������. ������ ���� ���������, ������� �� ��� ��� ������ ������� �� �����-���� ������� �������.
���:
// ������ 666 ��������� ����� ����� GVAR 
// ������ 111 ��������� ����� ������ MSG

procedure DispRemain
begin
   variable word; // SVAR ��� ������� �����
   variable remn;       // SVAR ��� �������


   remn := global_var(666) % 10;
   if (remn > 4) then begin
       word := 3;
   end else begin
       if (remn > 1) then begin
            word := 2;
       end else begin
           if (remn == 1 and global_var(666) != 11) then begin
               word := 1;
           end else begin
               word := 3;
           end
       end
   end

   display_msg(message_str(111, 400+word) + global_var(666) + message_str(111, 410+word));
end


P.S. � ��� � ���������� ������� � ����� ���������� � ����������, ������� ������ ������ ����� ':' � '='.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 19:08 - 13 ���., 2008 | ����������: Alchemist - 19:11 - 13 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Alchemist

������:

P.S. � ��� � ���������� ������� � ����� ���������� � ����������, ������� ������ ������ ����� ':' � '='.


��� �� �� ����� �� � ������������

������ ��� ���������� ������� ������� �� �� ������, ����� ������ ��� �������� ������� �� ������� eror � ����� ����������� ���� ��� ���������.

��� ����� �������

procedure description_p_proc begin
 script_overrides;
 call Node001;
end

procedure Node001 begin
  variable word; // SVAR ��� ������� �����
  variable remn;       // SVAR ��� �������
  variable GVAR_DayCounter;
  GVAR_DayCounter := GVAR_DAYS_TO_VAULT13_DISCOVERY;

remn := global_var(GVAR_DayCounter) % 10;
if (remn > 4) then begin
   word := 3;
end else begin
   if (remn > 1) then begin
        word := 2;
   end else begin
       if (remn == 1 and global_var(GVAR_DayCounter) != 11) then begin
           word := 1;
       end else begin
           word := 3;
       end
   end
end

display_msg(mstr(400+word) + (global_var(GVAR_DAYS_TO_VAULT13_DISCOVERY) - GAME_TIME_IN_DAYS) + mstr(410+word));
end

���� ���

{401}{}{������� }
{402}{}{�������� }
{403}{}{�������� }

{411}{}{ ����.}
{412}{}{ ���.}
{413}{}{ ����.}

vault13.gam

GVAR_DAYS_TO_VAULT13_DISCOVERY          :=180;  //      (1009)

� ��� ���������

http://jordan631.narod.ru/scr00001.JPG
http://jordan631.narod.ru/scr00000.JPG

����������: 15:58 - 15 ���., 2008
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

��-������, ��� �� �������� �� ������ ���������� ����������, � (global_var(GVAR_DAYS_TO_VAULT13_DISCOVERY) - GAME_TIME_IN_DAYS), �� ������ ����, ����� ����������� ��������� ���������� ����� GVAR, ����� �� ����� ���� ����� ��������� ������. � ������ ������� ��� � ���. � �� �������� � ���� ���������� ����������.
�� ���� Error ������� ���-�� ������. ������, ��� �� �����-�� �������, ����� ����� ������������� ���� mstr(410+word) ������ ������� ������ �� MSG, � mstr(400+word) -- ���. ��������� ����, �� ��� ����� ���� ����������, ������������ �� ��������. ������ ����������� ������� ������� ������������ ������ � ��� ������� � ��������� ����������, � ��� � ���������� ��������. � ��� �������, ��� �� � ���� ����� � ��������������� MSG ���������� ����� � �������� �� 400.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 15:43 - 16 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Alchemist

� ������ ��� ���� ����� ����� 180 �� ������� ������ ��������, � ��������� ����� �������� ������.

��� ���������� ����� �� ������ �������� ���� �� � �����. � ���� �� ������������� �������� ��� ���� ������������ ������ � ����� � �� ��� ��� ��� ������.

� �������� �� ����� ��� ������� ���������?

����������: 16:59 - 16 ���., 2008
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

������:
� ������ ��� ���� ����� ����� 180 �� ������� ������ ��������, � ��������� ����� �������� ������.

��� ��������� ������� �����, ��, ���� ����������� � ������� ��� �������� � ��������� ������, ����� ����������� � ��������. ������� �� ��������� ���������, ����� ���� ������������������ �����.

������:
� ���� �� ������������� �������� ��� ���� ������������ ������ � ����� � �� ��� ��� ��� ������.

� ������, ����� ������������� ��������� ������������? �� ��, �����, � ���� �� ��� ����� ����� �����, ����� ������ ��������� ��������� ������. ��� �����, �� SSL. ���������� ���� �������� ���������� �����������. �������� ��� �����, � �� ������ ��������� ������ � ������� �����. � �� ����� ����� ������ ����� �� ���� -- ��������� � ����������� �� �������.

������:
� �������� �� ����� ��� ������� ���������?

��������� ����� �� ����� ��������� ���������� ����� ���������. � ������ �� ������� ��� ������ �� MSG ��� ������� ����� � ������ -- ��� ����. ����, �������, ������� � MSG ����, �� ������� ������� ������������  �������, �� ������ ��. �� ���������� ��� ������ ��������.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 18:56 - 16 ���., 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Alchemist

������:
��� ��������� ������� �����, ��, ���� ����������� � ������� ��� �������� � ��������� ������, ����� ����������� � ��������. ������� �� ��������� ���������, ����� ���� ������������������ �����.


���� ����������� � ��� ����.

������:
��������� ����� �� ����� ��������� ���������� ����� ���������. � ������ �� ������� ��� ������ �� MSG ��� ������� ����� � ������ -- ��� ����. ����, �������, ������� � MSG ����, �� ������� ������� ������������  �������, �� ������ ��. �� ���������� ��� ������ ��������.


������ ������ ��� ��� �������.

����������: 19:14 - 16 ���., 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
������, ��� �� �����-�� �������, ����� ����� ������������� ���� mstr(410+word) ������ ������� ������ �� MSG, � mstr(400+word)  -- ���. ��������� ����, �� ��� ����� ���� ����������, ������������ �� ��������.

��� � ���� ����� ���� �� ������� ���. ������, �� ��� � �������� �������� �����. �������� ����. ������������ ���-�� �� ������, �������, � �������������. ����� ��������. ������� ��� � �� �������. �� � ����� ���� ����� ���� ������������ ���� ���-�� ��� ������������� word.
������:
������ ������ ��� ��� �������.

variable stored_node;
...
stored_node := node001;
...
call stored_node;

����������: 23:36 - 17 ���., 2008
Ray
���������

������: ������,�������
�����������: ���. 2004

�����: 746 ���������

����� ��-����:

call stored_node;

?

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 19:56 - 20 ���., 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

2Ray �������, ���������.

����������: 20:27 - 21 ���., 2008
Alchemist
���������

������: �������-17
�����������: ���. 2004

�����: 298 ���������

2Wasteland Ghost:
������:
��� � ���� ����� ���� �� ������� ���.

� �����. �� � ������ ������ ����� �� ������ ���������, ��� �� ���� ��� �� -- ���, �������� �������� ������ ������������ �� ��������� ��������� MSG.

-----
/// What'ya be sain'? Vault 100+? We need nothing o'that!

����������: 5:46 - 23 ���., 2008
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��� ��� ��������������� ����� ��� �������?

-----
...������� �������������, ���������� � ��������������..

����������: 3:29 - 16 �����, 2008
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

�������� ������.

-----
hit me, nail me, make me god

����������: 8:42 - 16 �����, 2008
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� �����������?

-----
...������� �������������, ���������� � ��������������..

����������: 18:17 - 16 �����, 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

�������� ������� (*.bat) � ���������� �������� �2 �� ���.

����������: 19:45 - 16 �����, 2008
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�� ������� �����... ��� ���� ������ call :-) �� ��������� ��� ������ ����� ������ ���... ��� ��� ����� � ������� ��������, ����� ��� ������� ���� �� ������ ����� ������������ � ����������� ����������?

-----
...������� �������������, ���������� � ��������������..

����������: 13:28 - 17 �����, 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

� �� ��� ������� ��������. ������� ��, ��� � ������ ������� � ���, ��� � ����� ���������.
������:
��� ��� ����� � ������� ��������, ����� ��� ������� ���� �� ������ ����� ������������ � ����������� ����������?

����� �� �����, ��� �������� � �������� ���.

����������: 10:16 - 18 �����, 2008
Alan Killenger
������������

������: ������, ������
�����������: ���� 2004

�����: 404 ���������

������. �������� � ��������� ��������� ���� ��������� ������ � ��������.
������:
set my_dir=c:\temp
set my_editor=c:\program files\blablabla.exe
for %%i in ("%my_dir%\*.txt") do (
 call "%my_editor%" %%i
)

�� �������� ��������� � ���������� �������� ����.

-----
hit me, nail me, make me god

����������: 17:46 - 18 �����, 2008 | ����������: Alan Killenger - 18:56 - 18 �����, 2008
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���������� ��� ������� (������ 1.02�). � ����� �� ��������� ������ ������������ �������, � ������ ������������ ������. �� ��� �� ����� ��������� �������� ������������ ���������������, �������� �� ������ ������ ���� ���������� ������. � ��� ��������? ����� �������� �� ������ ��������������� ���������?
�������:
DENBUS1.SSL
Error! Undefined symbol CAR_DENBUS1_HEX
DENBUS2.SSL
Error! Undefined symbol CAR_DENBUS2_HEX
GENERIC.SSL
Error! Undefined symbol LVAR_Herebefore
GENFFLD.SSL
Error! Mismatched parenthesis.
NEWR1.SSL
Error! Undefined symbol CAR_NEW_RENO1_HEX
NEWR2.SSL
Error! Undefined symbol CAR_NEW_RENO2_HEX
NEWR3.SSL
Error! Undefined symbol CAR_NEW_RENO3_HEX
NEWR4.SSL
Error! Undefined symbol CAR_NEW_RENO4_HEX
PEASANT.SSL
Error! Undefined symbol TEAM_
RAIDERS1.SSL
Error! Undefined symbol CAR_RAIDERS_CAMP_ELEV_SECRET
SPRTRP0.SSL
Error! Mismatched parenthesis.
TALK.SSL
Error! Undefined symbol TEAM_
WAYPNT.SSL
Error! Undefined symbol self_tile

-----
...������� �������������, ���������� � ��������������..

����������: 14:44 - 29 �����, 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ������? ���� ��������� �� ������� ����������, ��� �� ��� ������ ����� ����.

����������: 16:33 - 29 �����, 2008
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������:
Quote: from binyan on 14:44 - 29 �����, 2008
���������� ��� ������� (������ 1.02�).

������. ������ � ��� �������� ����.

-----
...������� �������������, ���������� � ��������������..

����������: 18:59 - 29 �����, 2008
Anchorite
������������

������: �� �����
�����������: ���. 2003

�����: 283 ���������

���������� �������� � ���, ��� � ������������ ������ (���� F2_scripts.rar) ��������� ����� � ������� headerS, � � ��������� (���� F2_scripts_102d) - � ������� header.
�������� ��������� ���������� ����� header � headers, � header ����� �� �������������.

����������: 20:07 - 29 �����, 2008
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���, �� �� �� ������� � ��������. ��������. � ��� ��������� � ������, � ��� ��������� � �����, � ��� ����� �������� ��������� - ��������� ����. ������������� ������� �� ���������� ��-�� ������������� ������.

-----
...������� �������������, ���������� � ��������������..

����������: 22:07 - 29 �����, 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

������:

DENBUS1.SSL
Error! Undefined symbol CAR_DENBUS1_HEX
DENBUS2.SSL
Error! Undefined symbol CAR_DENBUS2_HEX
GENERIC.SSL
Error! Undefined symbol LVAR_Herebefore
GENFFLD.SSL
Error! Mismatched parenthesis.
NEWR1.SSL
Error! Undefined symbol CAR_NEW_RENO1_HEX
NEWR2.SSL
Error! Undefined symbol CAR_NEW_RENO2_HEX
NEWR3.SSL
Error! Undefined symbol CAR_NEW_RENO3_HEX
NEWR4.SSL
Error! Undefined symbol CAR_NEW_RENO4_HEX
PEASANT.SSL
Error! Undefined symbol TEAM_
RAIDERS1.SSL
Error! Undefined symbol CAR_RAIDERS_CAMP_ELEV_SECRET
SPRTRP0.SSL
Error! Mismatched parenthesis.
TALK.SSL
Error! Undefined symbol TEAM_
WAYPNT.SSL
Error! Undefined symbol self_tile



��� ��� � ���������� ���� � ����� UPDATMAP.H

#define CAR_NEW_RENO1_HEX                   (25321)
#define CAR_NEW_RENO2_HEX                   (9509)
#define CAR_NEW_RENO3_HEX                   (30894)
#define CAR_NEW_RENO4_HEX                   (16068)

Error! Undefined symbol LVAR_Herebefore - ��� � ����� �������

������ ���� ���� ����� ��������, ������� ���� ��� �� ������.

����������: 23:18 - 29 �����, 2008
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

������ �� ������... ��� �� ��� �����:
http://www.teamx.ru/files/srcs/F2_scripts.rar + http://www.teamx.ru/files/srcs/F2_scripts_102d.rar


-----
...������� �������������, ���������� � ��������������..

����������: 0:59 - 30 �����, 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

� ���� ��� �� ������� � � ��� �� ������ ���������� 1.02 � ��� ����������.

��� � �� ������� ��� �������� ������� 1.02 � ������� ���������� � ����������� ��� ��������, ������ ������� ������� � ����� scripts � ��� compile.

http://jordan631.narod.ru/f2ssl.7z

����� ������ ������ ��� �� ���������, ����� ��� �������.

����������: 12:16 - 30 �����, 2008
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������:
����� ������ ������ ��� �� ���������, ����� ��� �������.

� ��� buildall.bat �� ������?

����������: 12:22 - 30 �����, 2008
Jordan 63
������������

������: ������, ������
�����������: ���� 2007

�����: 228 ���������

Wasteland Ghost


������:
� ��� buildall.bat �� ������?


�� � � ��� �� ����������. ��� ����� ������ �������.


(���������� �� 13:42 - 30 �����, 2008.)


������� ����� � ��� ���� ������ �� ��� ����� ��������������� ����� ����������� ������� � ����� Compile � ������ Compile.bat, ���������� ��� ������� ���� ��������� Compile_All.bat. ���� ����� ������ ����.


(���������� �� 13:43 - 30 �����, 2008.)


������ �� ������ ������!

����������: 12:28 - 30 �����, 2008
 

������� �� �����
<< ����. ����. >>
������������ �������� ���� ����


Powered by Ikonboard 2.1.9 RUS
Modified by RU.Board Team
© 2000 Ikonboard.com