Don Condor

Вы очень хорошо пишите - и нам просто стыдно высказывать банальности в очередной забитый раз)

Михаил Жванецкий, "Стиль спора"

Сильно подозреваю такой сценарий: за отсутствием божественного обоснования власти избранное на основании сферически-идеального общественного договора правительство не будь дураки приложат усилия к изменению текущего порядка - выдумают новую религию, культ личности вождя какой-нибудь или ещё что-нибудь эквивалентное. То есть, такое государство начнёт исчезать прямо с момента рождения - поколения три-четыре, максимум... А вообще фиг его знает, Юрий Андреевич, рассуждения о сферических материях в вакууме - не самая моя сильная сторона.

Ну... Сколько лет прошло с 1917 по 1991?

Ура Варгу! Качать Варга!

А почему бы гею не дружить с лезбиянкой? Не вижу супротив оного оказиев. Всё.

Да, если они гомосексуалисты к примеру. Тема - аккордеон. Причём, как на Фуллресте, так и вообще в жизни.

Господа, выпустите бедного из бани да обнулите ему счётчик.

Требуется ноутбук в диапазоне 20-25 килорублей (740-920$, соответственно). Основное назначение - интернет-сёрфинг, работа в офисных приложениях и, возможно, мелкая работа в графических редакторах. Соответственно, приоритетны диагональ дисплея и ёмкость батареи.

А если так?begin KO_Bath_Tub_Scripts Short controlvar Short button Short activate_menu Short increments Short angle_increments Short lockit float currxangle float curryangle float currzangle float currxpos float currypos float startxangle float startyangle float startzangle float currzpos float startxpos float startypos float startzpos short counter short button short EG_tag ;######################################################## ; If we're outside, there's no need for this script at all; commented for outside furniture ;######################################################## ;If (GetInterior == 0) ; return ;endif ;######################################################## ; This code makes sure that the object acts like a regular item ; that you can pick up and place in your inventory while ; in menu mode ;######################################################## if ( menumode == 1 ) if (OnActivate == 1) Activate set lockit to 0 endif return endif ;######################################################## ; If controlvar = -1 means the player selected the "Take" option ; in the menu and lets you pick up the item ;######################################################## if (controlvar == -1) Activate set controlvar to 0 set lockit to 0 return endif ;####################################################### ;Locks the painting position back in place ;Fixes a problem with the positioned object going back to where ;you dropped it after you load a savegame ;There's no way to know when the game is loaded that I know. ;I set the variable "lockit" to 1 whenever the painting is positioned ;When it is set to 1 this piece of code checks ;to see if the object is out of place and puts it back where it's ;supposed to be. ;####################################################### if (lockit == 1) if ( GetPos, z != currzpos) SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos return elseif ( GetPos, y != currypos) SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos return elseif ( GetPos, x != currxpos) SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos return endif endif ;################################################################ ; End of Lock check ;################################################################ ;######################### Starting Menu ############################ if ( OnActivate == 1 ) ;if (GetInterior == 0) ; Activate ; set lockit to 0 ; return ;endif set increments to 1 set angle_increments to 1 set activate_menu to 1 set controlvar to 1 set startxpos to GetPos, x set startypos to GetPos, y set startzpos to GetPos, z set startxangle to GetAngle, x set startyangle to GetAngle, y set startzangle to GetAngle, z set currxpos to GetPos, x set currypos to GetPos, y set currzpos to GetPos, z elseif (controlvar ==0) return set lockit to 0 endif if (activate_menu == 1) MessageBox "Выберите действие:", "Взять", "Вращать", "Двигать", "Купаться", "Готово" set activate_menu to 0 set lockit to 0 endif if (controlvar ==1) set button to GetButtonPressed if ( button == -1 ) return elseif ( button == 0) set controlvar to -1 set activate_menu to 0 return elseif ( button == 1) set controlvar to 2 set activate_menu to 2 elseif ( button == 2) set controlvar to 3 set activate_menu to 3 elseif ( button == 3 ) set bathuse_var to 1 if (EG_bathon==1) MessageBox "Хотите помыться?" "Нет" "Использовать Бархатные ручки" "Использовать Звездный лед" "Использовать Луноцвет" "Использовать Морской бриз" "Использовать Божественное мыло" "Использовать Океанскую глубь" "Использовать Полуночный мускус" "Использовать Решимость" endif if ( bathuse_var==1 ) set button to GetButtonPressed if (button==0) Set bathuse_var to 0 Activate endif if (button==1) Set EG_tag to 1 endif if (button==2) Set EG_tag to 2 endif if (button==3) Set EG_tag to 3 endif if (button==4) Set EG_tag to 4 endif if (button==5) Set EG_tag to 5 endif if (button==6) Set EG_tag to 6 endif if (button==7) Set EG_tag to 7 endif if (button==8) Set EG_tag to 8 endif if (EG_tag==1) if ( Player->GetItemCount, "_EG_soapinv_01" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_01" 1 player->AddSpell, "EG_soap_01" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if (EG_tag==2) if ( Player->GetItemCount, "_EG_soapinv_02" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_02" 1 player->AddSpell, "EG_soap_02" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==3) if ( Player->GetItemCount, "_EG_soapinv_03" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_03" 1 player->AddSpell, "EG_soap_03" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==4) if ( Player->GetItemCount, "_EG_soapinv_04" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_04" 1 player->AddSpell, "EG_soap_04" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==5) if ( Player->GetItemCount, "_EG_soapinv_05" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_05" 1 player->AddSpell, "EG_soap_05" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==6) if ( Player->GetItemCount, "_EG_soapinv_06" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_06" 1 player->AddSpell, "EG_soap_06" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==7) if ( Player->GetItemCount, "_EG_soapinv_07" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_07" 1 player->AddSpell, "EG_soap_07" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==8) if ( Player->GetItemCount, "_EG_soapinv_08" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_08" 1 player->AddSpell, "EG_soap_08" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif set controlvar to 0 set lockit to 1 return else set controlvar to 0 set activate_menu to 0 set lockit to 1 return endif endif ;######################## Rotation Menu ################################### if (activate_menu ==2) if (angle_increments == 1) MessageBox "Меню вращения", "Вращать на 1 градус", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" elseif (angle_increments == 5) MessageBox "Меню вращения", "Вращать на 5 градусов", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" elseif (angle_increments == 45) MessageBox "Меню вращения", "Вращать на 45 градусов", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" else MessageBox "Меню вращения", "Вращать на 90 градусов", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" endif set activate_menu to 0 endif if (controlvar == 2) set currxangle to GetAngle, x set curryangle to GetAngle, y set currzangle to GetAngle, z set button to GetButtonPressed if (button == -1) return elseif (button == 0) if (angle_increments == 1) set angle_increments to 5 elseif (angle_increments == 5) set angle_increments to 45 elseif (angle_increments == 45) set angle_increments to 90 else set angle_increments to 1 endif set activate_menu to 2 return elseif (button == 1) set currxangle to (currxangle + angle_increments) if (currxangle >= 360) set currxangle to (currxangle - 360) endif SetAngle, x, currxangle set activate_menu to 2 return elseif (button == 2) set curryangle to (curryangle + angle_increments) if (curryangle >= 360) set curryangle to (curryangle - 360) endif SetAngle, y, curryangle set activate_menu to 2 return elseif (button == 3) set currzangle to (currzangle + angle_increments) if (currzangle >= 360) set currzangle to (currzangle - 360) endif SetAngle, z, currzangle set activate_menu to 2 return elseif (button == 4) SetAngle, x, 0 SetAngle, y, 0 SetAngle, z, 0 set activate_menu to 2 return elseif (button == 5) SetAngle, x, startxangle SetAngle, y, startyangle SetAngle, z, startzangle set activate_menu to 2 return else set activate_menu to 1 set controlvar to 1 return endif endif if (lockit == 1) if ( counter < 20 ) Set counter to ( counter + 1 ) else Set counter to 0 if ( GetPos, z == currzpos ) if ( GetPos, y == currypos ) if ( GetPos, x == currxpos ) if ( GetAngle, z == currzangle ) if ( GetAngle, y == curryangle ) if ( GetAngle, x == currxangle ) return endif endif endif endif endif endif SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos SetAngle, x, currxangle SetAngle, y, curryangle SetAngle, z, currzangle endif endif ;##################### Position Menu ####################### if (activate_menu ==3) if (increments == 1) MessageBox "Меню движения", "Двигать на 1 пункт", "+X", "-X", "+Y", "-Y", "+Z", "-Z", "Отменить", "Назад" elseif (increments == 5) MessageBox "Меню движения", "Двигать на 5 пунктов", "+X", "-X", "+Y", "-Y", "+Z", "-Z", "Отменить", "Назад" else MessageBox "Меню движения", "Двигать на 10 пунктов", "+X", "-X", "+Y", "-Y", "+Z", "-Z", "Отменить", "Назад" endif set activate_menu to 0 endif if (controlvar == 3) set button to GetButtonPressed if (button == -1) return elseif (button == 0) if (increments == 1) set increments to 5 elseif (increments == 5) set increments to 10 else set increments to 1 endif set activate_menu to 3 return elseif (button == 1) set currxpos to (currxpos + increments) SetPos, x, currxpos set activate_menu to 3 return elseif (button == 2) set currxpos to (currxpos - increments) SetPos, x, currxpos set activate_menu to 3 return elseif (button == 3) set currypos to (currypos + increments) SetPos, y, currypos set activate_menu to 3 return elseif (button == 4) set currypos to (currypos - increments) SetPos, y, currypos set activate_menu to 3 return elseif (button == 5) set currzpos to (currzpos + increments) SetPos, z, currzpos set activate_menu to 3 return elseif (button == 6) set currzpos to (currzpos - increments) SetPos, z, currzpos set activate_menu to 3 return elseif (button == 7) SetPos, x, startxpos SetPos, y, startypos SetPos, z, startzpos set currxpos to startxpos set currypos to startypos set currzpos to startzpos set activate_menu to 3 return else set activate_menu to 1 set controlvar to 1 return endif endif End KO_Bath_Tub_Scripts

Значит напутал Посмотрю ещё раз...

Если ничего не напутал, то... begin KO_Bath_Tub_Scripts Short controlvar Short button Short activate_menu Short increments Short angle_increments Short lockit float currxangle float curryangle float currzangle float currxpos float currypos float startxangle float startyangle float startzangle float currzpos float startxpos float startypos float startzpos short counter short button short EG_tag ;######################################################## ; If we're outside, there's no need for this script at all; commented for outside furniture ;######################################################## ;If (GetInterior == 0) ; return ;endif ;######################################################## ; This code makes sure that the object acts like a regular item ; that you can pick up and place in your inventory while ; in menu mode ;######################################################## if ( menumode == 1 ) if (OnActivate == 1) Activate set lockit to 0 endif return endif ;######################################################## ; If controlvar = -1 means the player selected the "Take" option ; in the menu and lets you pick up the item ;######################################################## if (controlvar == -1) Activate set controlvar to 0 set lockit to 0 return endif ;####################################################### ;Locks the painting position back in place ;Fixes a problem with the positioned object going back to where ;you dropped it after you load a savegame ;There's no way to know when the game is loaded that I know. ;I set the variable "lockit" to 1 whenever the painting is positioned ;When it is set to 1 this piece of code checks ;to see if the object is out of place and puts it back where it's ;supposed to be. ;####################################################### if (lockit == 1) if ( GetPos, z != currzpos) SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos return elseif ( GetPos, y != currypos) SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos return elseif ( GetPos, x != currxpos) SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos return endif endif ;################################################################ ; End of Lock check ;################################################################ ;######################### Starting Menu ############################ if ( OnActivate == 1 ) ;if (GetInterior == 0) ; Activate ; set lockit to 0 ; return ;endif set increments to 1 set angle_increments to 1 set activate_menu to 1 set controlvar to 1 set startxpos to GetPos, x set startypos to GetPos, y set startzpos to GetPos, z set startxangle to GetAngle, x set startyangle to GetAngle, y set startzangle to GetAngle, z set currxpos to GetPos, x set currypos to GetPos, y set currzpos to GetPos, z elseif (controlvar ==0) return set lockit to 0 endif if (activate_menu == 1) MessageBox "Выберите действие:", "Взять", "Вращать", "Двигать", "Купаться", "Готово" set activate_menu to 0 set lockit to 0 endif if (controlvar ==1) set button to GetButtonPressed if ( button == -1 ) return elseif ( button == 0) set controlvar to -1 set activate_menu to 0 return elseif ( button == 1) set controlvar to 2 set activate_menu to 2 elseif ( button == 2) set controlvar to 3 set activate_menu to 3 elseif ( button == 3 ) set bathuse_var to 1 if (EG_bathon==1) MessageBox "Хотите помыться?" "Нет" "Использовать Бархатные ручки" "Использовать Звездный лед" "Использовать Луноцвет" "Использовать Морской бриз" "Использовать Божественное мыло" "Использовать Океанскую глубь" "Использовать Полуночный мускус" "Использовать Решимость" endif if ( bathuse_var==1 ) set button to GetButtonPressed if (button==0) Set bathuse_var to 0 Activate endif if (button==1) Set EG_tag to 1 endif if (button==2) Set EG_tag to 2 endif if (button==3) Set EG_tag to 3 endif if (button==4) Set EG_tag to 4 endif if (button==5) Set EG_tag to 5 endif if (button==6) Set EG_tag to 6 endif if (button==7) Set EG_tag to 7 endif if (button==8) Set EG_tag to 8 endif if (EG_tag==1) if ( Player->GetItemCount, "_EG_soapinv_01" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_01" 1 player->AddSpell, "EG_soap_01" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if (EG_tag==2) if ( Player->GetItemCount, "_EG_soapinv_02" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_02" 1 player->AddSpell, "EG_soap_02" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==3) if ( Player->GetItemCount, "_EG_soapinv_03" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_03" 1 player->AddSpell, "EG_soap_03" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==4) if ( Player->GetItemCount, "_EG_soapinv_04" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_04" 1 player->AddSpell, "EG_soap_04" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==5) if ( Player->GetItemCount, "_EG_soapinv_05" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_05" 1 player->AddSpell, "EG_soap_05" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==6) if ( Player->GetItemCount, "_EG_soapinv_06" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_06" 1 player->AddSpell, "EG_soap_06" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==7) if ( Player->GetItemCount, "_EG_soapinv_07" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_07" 1 player->AddSpell, "EG_soap_07" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif if(EG_tag==8) if ( Player->GetItemCount, "_EG_soapinv_08" == 0 ) MessageBox "У вас нет этого мыла." Set EG_tag to 0 set bathuse_var to 0 return endif StartScript Remove_Bath_Effects Player->removeitem "_EG_soapinv_08" 1 player->AddSpell, "EG_soap_08" MessageBox, "Вы окунаетесь в горячую воду и смываете с себя грязь. У вас ощущение, будто вы родились заново." set bathuse_var to 0 return endif endif set controlvar to 0 set lockit to 1 return else set controlvar to 0 set activate_menu to 0 set lockit to 1 return endif endif ;######################## Rotation Menu ################################### if (activate_menu ==2) if (angle_increments == 1) MessageBox "Меню вращения", "Вращать на 1 градус", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" elseif (angle_increments == 5) MessageBox "Меню вращения", "Вращать на 5 градусов", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" elseif (angle_increments == 45) MessageBox "Меню вращения", "Вращать на 45 градусов", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" else MessageBox "Меню вращения", "Вращать на 90 градусов", "Вращать по оси X", "Вращать по оси Y", "Вращать по оси Z", "Сбросить на 0", "Отменить", "Назад" endif set activate_menu to 0 endif if (controlvar == 2) set currxangle to GetAngle, x set curryangle to GetAngle, y set currzangle to GetAngle, z set button to GetButtonPressed if (button == -1) return elseif (button == 0) if (angle_increments == 1) set angle_increments to 5 elseif (angle_increments == 5) set angle_increments to 45 elseif (angle_increments == 45) set angle_increments to 90 else set angle_increments to 1 endif set activate_menu to 2 return elseif (button == 1) set currxangle to (currxangle + angle_increments) if (currxangle >= 360) set currxangle to (currxangle - 360) endif SetAngle, x, currxangle set activate_menu to 2 return elseif (button == 2) set curryangle to (curryangle + angle_increments) if (curryangle >= 360) set curryangle to (curryangle - 360) endif SetAngle, y, curryangle set activate_menu to 2 return elseif (button == 3) set currzangle to (currzangle + angle_increments) if (currzangle >= 360) set currzangle to (currzangle - 360) endif SetAngle, z, currzangle set activate_menu to 2 return elseif (button == 4) SetAngle, x, 0 SetAngle, y, 0 SetAngle, z, 0 set activate_menu to 2 return elseif (button == 5) SetAngle, x, startxangle SetAngle, y, startyangle SetAngle, z, startzangle set activate_menu to 2 return else set activate_menu to 1 set controlvar to 1 return endif endif if (lockit == 1) if ( counter < 20 ) Set counter to ( counter + 1 ) else Set counter to 0 if ( GetPos, z == currzpos ) if ( GetPos, y == currypos ) if ( GetPos, x == currxpos ) if ( GetAngle, z == currzangle ) if ( GetAngle, y == curryangle ) if ( GetAngle, x == currxangle ) return endif endif endif endif endif endif SetPos, x, currxpos SetPos, y, currypos SetPos, z, currzpos SetAngle, x, currxangle SetAngle, y, curryangle SetAngle, z, currzangle endif endif ;##################### Position Menu ####################### if (activate_menu ==3) if (increments == 1) MessageBox "Меню движения", "Двигать на 1 пункт", "+X", "-X", "+Y", "-Y", "+Z", "-Z", "Отменить", "Назад" elseif (increments == 5) MessageBox "Меню движения", "Двигать на 5 пунктов", "+X", "-X", "+Y", "-Y", "+Z", "-Z", "Отменить", "Назад" else MessageBox "Меню движения", "Двигать на 10 пунктов", "+X", "-X", "+Y", "-Y", "+Z", "-Z", "Отменить", "Назад" endif set activate_menu to 0 endif if (controlvar == 3) set button to GetButtonPressed if (button == -1) return elseif (button == 0) if (increments == 1) set increments to 5 elseif (increments == 5) set increments to 10 else set increments to 1 endif set activate_menu to 3 return elseif (button == 1) set currxpos to (currxpos + increments) SetPos, x, currxpos set activate_menu to 3 return elseif (button == 2) set currxpos to (currxpos - increments) SetPos, x, currxpos set activate_menu to 3 return elseif (button == 3) set currypos to (currypos + increments) SetPos, y, currypos set activate_menu to 3 return elseif (button == 4) set currypos to (currypos - increments) SetPos, y, currypos set activate_menu to 3 return elseif (button == 5) set currzpos to (currzpos + increments) SetPos, z, currzpos set activate_menu to 3 return elseif (button == 6) set currzpos to (currzpos - increments) SetPos, z, currzpos set activate_menu to 3 return elseif (button == 7) SetPos, x, startxpos SetPos, y, startypos SetPos, z, startzpos set currxpos to startxpos set currypos to startypos set currzpos to startzpos set activate_menu to 3 return else set activate_menu to 1 set controlvar to 1 return endif endif End KO_Bath_Tub_Scripts Upd: хех, меня опередили.

Однако, существует.

Не видите разницы между словами "всё" и "все"?.. Ну тогда Бог с ней тогда, хех.

Я, признаться, вообще не до конца понял, что тут обсуждается. Между "всё гораздо проще" и "все гораздо проще" имеется ощутимая разница.

Всё гораздо проще, благородные доны. Хотите - используйте букву "ё", не хотите - не используйте. Лично я предпочитаю изъясняться грамотно и не порождать возможных разночтений (как к примеру во фразе "Всё гораздо проще, благородные доны") - и потому всегда пишу с буквой "ё". У нас свободная страна, в конце концов.

Мало того, не ошибаетесь - это именно они и есть, хе-хе

Кто не знает, кто это, тот... даже и не знаю, как назвать такого человека P.s. Кому кажется, что слишком просто - тот может и не отвечать

Значит, Мальмстин Вокалиста не узнаю, на Боннета вроде непохож, значит не "Алькатрас"... Rising Force? Или где он там ещё играл?

<оффтоп>И по большей части её совершенно невозможно слушать...</оффтоп>

Предлагаю не терять времени даром и сразу перейти к обсуждению размеров достоинства в боевом положении - считаете ли вы оное нормальными, не хотели бы побольше или поменьше, и так далее. P.s.

Ага, вот только всё нижеследующие ко мне отношения не имеет.

Безработица 2% Дороги 98% Криминал 2% Разруха...

Каким местом? о_0

Какие они к чёрту известные, если я впервые о них слышу и ни разу нигде на них не натыкался? Стандартный андерграунд, "широкоизвестный в очень узких кругах".