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