|
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
|
|
|
|