Вверх ↑
Ответов: 871
Рейтинг: 322
#1: 2010-08-16 14:10:11 ЛС | профиль | цитата
В общем снова баловство. Отрабатывал таскание спрайта мышкой. В результате напросился вывод, на спрайте на помешали бы верхние точки kX. kY и 4 точки - Padding. И почему-то плоховато с музыкой, одна еще играет, но если выстрелить то фоновая музыка тухнет, начал включать её через таймер от выхода onEndPlay, вроде получается, но стоит добавить скорость стрельбы, все тухнет. Но вполне вероятно, я где-то допускаю ошибку. О самой схеме. Распакуйте папку, не потеряв курсор, он заменяет мышь. Уничтожить объект можно только тогда, когда на поле лежат патроны. Если патронов нет нажмите Esc и играйте дальше. Так как схема составлялась только для изучения элементов - вывод результата сделан самым примитивным образом.
------------ Дoбавленo в 14.10:
Небольшое дополнение, замените этот мультик и тогда файл pusto.cur будет не нужен, он уже в программе.

Add(MultiElementEx,5565404,119,21)
{
}
BEGIN_SDK
Add(EditMultiEx,9133579,21,21)
{
WorkCount=#8:doEvent1|6:doCase|
EventCount=#8:onEvent2|9:onEvent21|
Width=426
Height=270
link(doEvent1,13135956:doEvent1,[(40,27)(40,181)])
link(doCase,14651131:doCase,[(32,34)(32,223)])
}
Add(UseExtCursor,6629356,98,175)
{
ControlManager="parent.mp"
link(onSetCursor,10929768:doRandomize,[(142,181)(142,188)])
link(FileCurName,800669:TempFName,[])
}
Add(Random,10929768,154,175)
{
}
Add(Hub,13135956,49,175)
{
link(onEvent1,800669:doCreate,[(70,181)(70,132)])
link(onEvent2,9133579:onEvent2,[(77,188)(77,27)])
}
Add(Case,14651131,154,217)
{
Value=Integer(27)
DataOnTrue=Integer(1)
link(onTrue,16671433:doCompare,[(214,230)(214,223)])
}
Add(If_else,16671433,245,217)
{
Op2=Integer(32)
link(onTrue,9276558:doEvent1,[])
link(Op2,12579254:Var,[])
}
Add(GlobalVar,12579254,252,189)
{
Name="ww"
Data=Integer(1)
}
Add(Hub,9276558,294,217)
{
link(onEvent1,3210058:doData,[(318,223)(318,167)])
link(onEvent2,9133579:onEvent21,[(426,230)(426,34)])
}
Add(DoData,3210058,329,161)
{
Data=Integer(0)
link(onEventData,8601482:doValue,[])
}
Add(GlobalVar,8601482,378,161)
{
Name="ww"
Data=Integer(1)
}
Add(MemoryStream,5625235,98,77)
{
Stream=[ZIP9E09000078DA63606062606490906000830E4E06063120AD01C42021032066645000CB2570328C8251300A46C1281805A360148C78F0FFFF7F9A62002E57498D]
}
Add(TempFileStream,800669,98,126)
{
Extention="cur"
link(onCreate,6629356:doSetCursor,[(146,132)(146,167)(86,167)(86,181)])
link(Stream,5625235:Stream,[])
}
END_SDK

карма: 1

2
файлы: 1hun.rar [224.8KB] [210]
Голосовали:igr, pardon