Игра "Пишем длинный скрипт"
Я вообще скрипты не умею писать...
Не разбираюсь в Sannybuilder
Ну тема для скриптеров точно).
В итоге месячной игры был написан скрипт с новым, полноценным сюжетом.
Давайте лучше большой картовй мод будем делать.Например:
1 человек делает карту присылает её по почте другому
Тот её доделывает и присылает следующему.
И так Далее...
Ну всё-таки карты тоже не каждый может делать...
ваще тема отличная,если знаешь Sannybuilder,но так как таких мало,она никому не нужна(((
Кстати кто ещё не понял про мой ник.ХРЕ написанно по английски!
Из-за кривизны движка GTA3 карты делать довольно муторно. Все бы ничего, но порой начинает глючить игра.
Может и выйдет из этого что-нибудь дельное. В конце концов, выйдет глобальный мод с сюжетом для GTA3.
а может прохождение по очереди?
Я 1 миссию, потом следующий. Сначал список 63 человека построить, и по очереди)))
:Dat_kotu_po_bashke
wait 0
Model.Load (#Misl)
Model.Load (#kotinoe_gavno_nado_ubrat_ato_v_kvartire_vonaet)
if and
Model.Available (#Misl)
Model.Available (#kotinoe_gavno_nado_ubrat_ato_v_kvartire_vonaet)
jf @dat_po_bashke_kotu
#include
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
$mainwindow = GUICreate("Zafludili i bez togo ne horoshuyu temy", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateLabel("Zafludili i bez togo ne horoshuyu temy.It is Autolut script", 30, 10)
$okbutton = GUICtrlCreateButton("OK", 70, 50, 60)
GUICtrlSetOnEvent($okbutton, "OKButton")
$dummywindow = GUICreate("Dummy window for testing ", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISwitch($mainwindow)
GUISetState(@SW_SHOW)
While 1
Sleep(1000) ; Idle around
WEnd
Func OKButton()
;Note: at this point @GUI_CTRLID would equal $okbutton
MsgBox(0, "GUI Event", "You pressed OK!")
EndFunc
Func CLOSEClicked()
;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
;@GUI_WINHANDLE will be either $mainwindow or $dummywindow
If @GUI_WINHANDLE = $mainwindow Then
MsgBox(0, "GUI Event", "You clicked CLOSE in the main window! Exiting...")
Exit
EndIf
EndFunc
program new;
var A: array [1..dofiga],
dohrena, dobuya, dohera,: longint,
i: integer;
begin
writeln ('Nu cho? Videl bolee tupuiu progu');
randomize dofiga;
writeln ('dofiga=', dofiga)
writeln ('Hren s toboi vvodi svoi sraniy massiv')
from i=1 to dofiga do
readln A[i];
if a[i]> dohrena then writeln ('ti znaesh bolshie chisla')
else;
if a[i]> dohera then writeln ('ti botan');
if a[i]> dobuya then writeln ('ti zadrotina');
writeln ('HA-HA-HA!');
break;
end.
Темка-игра, я начинаю поток, а вы продолжаете, со временем становится все сложнее.
1. Нужно писать именно скрипты (по крайней мере похоже)
2. Можно придумывать собственные опкоды (описывать не надо)
create_thread @srat
:srat
wait 0
Model.Load (#bumaga)
Model.Load (#govno)
if and
Model.Available (#bumaga)
Model.Available (#govno)
jf @srat
...