» 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 ] ��� ��������

 
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
 

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 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