Давайте лучше большой картовй мод будем делать.Например:
1 человек делает карту присылает её по почте другому
Тот её доделывает и присылает следующему.
И так Далее...
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")
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
...