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


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

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 ] ��� ��������

 
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
 

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 ] ��� ��������


Powered by Ikonboard 2.1.9 RUS
Modified by RU.Board Team
© 2000 Ikonboard.com