Реализация скриптов в игре.

[VintProg]

У меня есть интересный вопрос,
как же реализуются такая вот штука:
предположим унас есть в одном файле скриптов миссия,вдругих действия актеров как же делаетса так чтобы все они одно времено работали в игре?

[Shadow_1329]

Вот этим я сейчас и занимаюсь VintProg. Да я хочу получить параметры. Параметры для определения для какого персонажа делается действие. В одном файле будут квесты(миссии). Но действия персонажей можно записать в ядро. А можно также как и с квестами тока другими командами.

[Вадим Буренков]

if playerHealht > 0 then
begin
Create_Actor($500,-100.5,500.7,12.0,'SWAT');
end;

Да, можно. Только это будет выглядеть немного по-другому.

предположим унас есть в одном файле скриптов миссия,вдругих действия актеров как же делаетса так чтобы все они одно времено работали в игре?

Чтобы понять нужно хотя бы сделать движок для одного скрипта, а потом уже думать о многопоточности.

Если хотите чтоб помог конкретно то выкладывайте свои исходники.

[Shadow_1329]

Par:=GetFromString('@','#',command) ;
Ты мне вот с этим помоги. Напиши фнкцию GetFromString пожалуйста.

[Вадим Буренков]

Держи:

Function GetFromString(FromCh:char;ToCh:char;Str:String):String;
var
FromNumb,ToNumb,Numb,i:integer;
TempStr:String;
begin
FromNumb:=AnsiPos(FromCh,Str)+1;
ToNumb:=AnsiPos(ToCh,Str)-1;
Numb:=ToNumb-FromNumb;
for i:=FromNumb to ToNumb do
begin
TempStr:=TempStr+Str[i];
Result:=TempStr;
end;
end;

[Pedro]

Сообщение от Вадим Буренков

Наконец добавил операторы if..then и label..goto . Вот рабочий скрипт который при нажатии клавиши "1" создает корабль .

//метка начала
0004: label @0# 

//если нажата кл. 1 то идем на Label 1 создавать корабль 
0011: if_keypressed @49#
0007: true_then_goto_label @1#

//если нет то следующей коммандой идем в начало
0005: goto_label @0# 
 
0004: label @1#
//создаем в памяти
0013: create_ship_with_handle @1# in_memory_from_iniFile $EnemySimpleShip.ini%
//и в игре
0014: create_ship @1# in_game_coords $320% ^20& 
//идем в начало
0005: goto_label @0# 

//должно быть в каждом скрипте 
0002: end_script

Вадим, можешь показать как это интерпритируется в дельфи. Что то я не совсем понял...

[Shadow_1329]

Спасибо Вадим!(на репутации это скажется)

[Вадим Буренков]

Вадим, можешь показать как это интерпритируется в дельфи. Что то я не совсем понял...

Вот часть кода интерпритации:

............................
...........................
//0003: set_thread_speed @#
if Opcode(ThreadLine[LineIndex],'0003:') then ScriptTimer:=IntPar(1);


//0004: label @label_handle# //в getlabel
//if Opcode(ThreadLine[LineIndex],'0004:') then ;

//0005: goto_label @label_handle#
if Opcode(ThreadLine[LineIndex],'0005:') then LineIndex:=LabelList[(IntPar(1))];

//0006: beep
if Opcode(ThreadLine[LineIndex],'0006:') then beep;

//0007: true_then_goto_label @label_handle#
if Opcode(ThreadLine[LineIndex],'0007:') then
begin
//если условие выполняется то прыгаем на метку
if ifcondition=iftrue then LineIndex:=LabelList[(IntPar(1))];
ifcondition:=IfNo;
end;
............................
...........................

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

[Shadow_1329]

А обьясни для чего нужно в Par:=GetFromString('@','#',comand) - comand для чеко нужна эта строковая переменная?

[Вадим Буренков]

Function GetFromString(FromCh:char;ToCh:char ;Str:String):String;
возвращает весь текст между знаками FromCh и ToChar в строке Str.