Blame | Last modification | View Log | Download | RSS feed
org 0x4000;//colorsC_KURO = 0 ; black backgroundC_SIRO = 1 ;white backgroundC_RED = 2 ;red;//fade typeB_NORM = 0x32B_GURU = 0x36B_GURU3 = 0x38B_YOKO = 0x39B_TATE = 0x3aB_FADE = 0x3bB_SUDA = 0x3cB_WIPE = 0x3d;////////////////////;flagsHANAJI = 0 ; "0"HAND = 1 ; "0"HIDUKE = 2 ; 25 ;date handler 0-?HOK = 3 ; "0"JUMP = 4 ; "48"KURI = 5 ; "0"MOTDOYOU = 6 ; "0"ONANI = 7 ; 1 ;lamp handler 1-4 ?SIHO_PIA = 10 ; "0"SIZ_ATTA = 20 ; "1"CHI_ATTA = 21REN_ATTA = 22NAN_ATTA = 23AKEM_NET = 50MIKA_NET = 51TER_NET = 52RENA_NET = 53NANA_NET = 54SIZU_NET = 55CHIE_NET = 56TER_DEN = 57MOT_YATT = 60TER_YATT = 61AKE_YARU = 62RISA_SYO = 63GOGATU_6 = 64MOT_KOKU = 65MOTSUNE = 66TERUNASI = 70RAYABA = 71SEIFUKU = 72TEMP01 = 100 ; 1TEMP02 = 101 ; "0"TEMP03 = 102 ; "0"TEMP04 = 103 ; "0"TEMP05 = 104 ; "0"TEMP06 = 105 ; "0"TEMP07 = 106 ; "0"TEMP08 = 107 ; "0"TEMP09 = 108 ; "0"TET_KAIS = 180SIH_KAIS = 181W = 0xf0 ; "-1"YOKU = 201 ; 23 ;excite meter 0-100;W = array of dialogue elements;FLG_KI W,'=',-1 - reset and make awailable all dialogue options (max 8) ;0xf0- 0xf7;FLG_KI W,'DOWN',xx disable xx element of the dialogue selector 0xff - enabled 0- disabledBGM = 0x06 ;//load musicNEXT = 0x01 ;//wait for keyCLS = 0x10 ; clear text areaEXIT = 0x03 ; return from callT_WAIT = 0x17 ; xx || wait xx seconds (timed pause) then line feed. do not clearGATA = 0x18 ;//screenshake;//=============================================================================================; //E_NO -1 TODOmacro E_NO xxendm;//=============================================================================================;????macro EWAIT xxendm;//============================================================================================;????macro SWAITendm;//=============================================================================================macro GAME_ENDdb 0x0fendm;//=============================================================================================macro JTBL xxdb 0x0b,0x39db xxendm;//=============================================================================================macro MC_FLASH count,colordb 0x16db countdb colorendm;//=============================================================================================macro GO wheredb 0x0b,0x36dw whereendm;//=============================================================================================;//SINARIO "NAME" 0x04 "name" 0x00 ;load scenario ||name.OVL,0||macro SINARIO namedb 0x04db namedb 0x00endm;//=============================================================================================;// F_O xx ||| 14 03 xx yy //clear cg screen with xx (clear type)macro F_O clear_type,colordb 0x14,0x03db clear_typedb colorendm;//=============================================================================================;// B_O xx ||| 14 04 xx yy //clear whole screen . fade to black or fade to whitemacro B_O clear_type,colordb 0x14,0x04db clear_typedb colorendm;//=============================================================================================;//EVENT_CG "name",clear_type,id_flag // load and draw image 'name' with 'cleart_type' style//EVENT_CG 'th_095',B_FADE,56macro EVENT_CG name,clear_type,iddb 0x13,0x01,0x05,0x07,0x0a,0x0edb clear_typedb iddb namedb 0x00endm;/////////////////////////////////////////////////////////////////////////////////////////;//BAK_INIT "NAME" 13 04 07 0A "name" //load background 'NAME' to memory buffermacro BAK_INIT name,clear_typedb 0x13,0x04,0x07,0x0adb namedb 0x00db 0x13,0x0fdb 0x13,0x02,0x05,0x07,0xaa,0xee,clear_type,0x03,0x00endm;/////////////////////////////////////////////////////////////////////////////////////////;<> 0 = 3 <> 6;< 1 >= 4 != 7;<= 2 > 5;/////////////////////////////////////////////////////////////////////////////////////////;//FLG_IF YOKU,'>=',75,RINNGO ;0x0b 0x40macro FLG_IF flag,op_code,value,gotodb 0x0bdb 0x40if op_code = '='db 0x00elseif op_code = '>='db 0x01elseif op_code = '<='db 0x02elseif op_code = '<'db 0x03elseif op_code = '>'db 0x04elseif op_code = '!='db 0x05elseif op_code = '<>'db 0x06endifdb flagdb valuedw gotoendm;/////////////////////////////////////////////////////////////////////////////////////////;FLG_KI YOKU,'=',0 FLG_KI ONANI,'+',1; = 5 - 0x0d 'down' - menu items displayed 0x0f; + 1 '/' 0e (division)macro FLG_KI flag,op_code,valuedb 0x0bif op_code = '='db 0x05elseif op_code = '+'db 0x01elseif op_code = '-'db 0x0delseif op_code = '/'db 0x0eelseif op_code = 'DOWN'db 0x0fendifdb flagdb valueendm;/////////////////////////////////////////////////////////////////////////////////////////;T_CG T_CG 'tt_10_02',MOT_A2,0MOT_A1 = 1MOT_A2 = 2MOT_A3 = 3MOT_B1 = 1MOT_B2 = 2MOT_B3 = 3MOT_C1 = 1MOT_C2 = 2MOT_C3 = 3AKE_A1 = 1AKE_A2 = 2AKE_A3 = 3AKE_B1 = 1AKE_B2 = 2AKE_B3 = 3AKE_C1 = 1AKE_C2 = 2AKE_C3 = 3TET_A1 = 1TET_A2 = 2TET_A3 = 3TET_B1 = 1TET_B2 = 2TET_B3 = 3TET_C1 = 1TET_C2 = 2TET_C3 = 3CHI1 = 1CHI2 = 2CHI3 = 3SIH_A1 = 1SIH_A2 = 2SIH_A3 = 3SIH_B1 = 1SIH_B2 = 2SIH_B3 = 3SIH_C1 = 1SIH_C2 = 2SIH_C3 = 3MIK1 = 1MIK2 = 2MIK3 = 3TER1 = 1TER2 = 2TER3 = 3RIS1 = 1RIS2 = 2RIS3 = 3HIR1 = 1HIR2 = 2HIR3 = 3REN_A1 = 1REN_A2 = 2REN_A3 = 3REN_B1 = 1REN_B2 = 2REN_B3 = 3REN_C1 = 1REN_C2 = 2REN_C3 = 3NAN1 = 1NAN2 = 2NAN3 = 3macro T_CG t_name,t_pos,t_iddb 0x13,0x03,0x08,0x09 ;//load and draw sprite over output bufferdb 0x0d,t_posdb 0x00db t_namedb 0x00endm;/////////////////////////////////////////////////////////////////////////////////////////;TATI_ERS remove spritesmacro TATI_ERSdb 0x13,0x0f ;copy memory buffer to output bufferdb 0x13,0x02,0x05,0x07,0x0a,0x0E,B_SUDA,0x03 ;draw memory bufferdb 0x00endm;/////////////////////////////////////////////////////////////////////////////////////////;TODO;MENU_S 1,W,-1;MENU_SET IKU,"Let's go";MENU_SET IKANAI,"Nevermind";MENU_END;start menu sectionmacro MENU_S a,b,cdb 0x19,0x01endm;add options to menumacro MENU_SET goto,textdw gotodb textdb 0x00endm;end menu section. goto selectormacro MENU_ENDdw 0xffffendm;/////////////////////////////////////////////////////////////////////////////////////////macro CDPLAY trackdb 0x06db trackendm;/////////////////////////////////////////////////////////////////////////////////////////;TODOEVENT_XSIZE = 628EVENT_YSIZE = 148;;SCR_START EVENT_X,EVENT_Y,EVENT_XSIZE,EVENT_YSIZE,300;SCR_SET "TH_127",0,EVENT_YSIZE,0,0;SCR_ENDmacro SCR_START x,y,xs,ys,lendmmacro SCR_SET file1,file2,toleft_x,toup_y,toright_x,todown_ydb 0x14,0x08db file1db 0x00db file2db 0x00db toleft_xdb toup_ydb toright_xdb todown_yendmmacro SCR_ENDendm;/////////////////////////////////////////////////////////////////////////////////////////; C_KURO black background; C_SIRO white background;; B_NORM,B_FADE ╤В╨╕╨┐ ╨┐╤А╨╛╤П╨▓╨╗╨╡╨╜╨╕╤П;;; B_O B_NORM,C_KURO; B_O B_FADE,C_KURO; ╨╖╨░╤В╨╡╨╝╨╜╨╡╨╜╨╕╨╡ ╨▓╤Б╨╡╨│╨╛ ╤Н╨║╤А╨░╨╜╨░; ╤Г╤Б╤В. ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Г╤О pBOcolor ╨▓ ╨║╨╛╤В╨╛╤А╨╛╨╣ ╤Е╤А╨░╨╜╨╕╤В╤Б╤П ╤Ж╨▓╨╡╤В.;;; F_O B_NORM,C_KURO; ╨╖╨░╤В╤Г╤Е╨░╨╜╨╕╨╡ ╤В╨╛╨╗╤М╨║╨╛ ╨║╨░╤А╤В╨╕╨╜╨║╨╕;;;; ; EVENT_CG 'Op_01',B_FADE,80; ╨┐╨╛╨║╨░╨╖ ╨║╨░╤А╤В╨╕╨╜╨║╨╕ ╤Б ╨┐╤А╨╛╤П╨▓╨╗╨╡╨╜╨╕╨╡╨╝ ╨╛╤В ╤З╤С╤А╨╜╨╛╨│╨╛. ╨Т╨╡╤Б╤М ╤Н╨║╤А╨░╨╜;; EVENT_CG 'Op_02',B_NORM,81; ╨╖╨░╤В╤Г╤Е╨░╨╜╨╕╨╡ ╨║ ╤З╤С╤А╨╜╨╛╨╝╤Г, ╨┐╤А╨╛╤П╨▓╨╗╨╡╨╜╨╕╨╡ ╨╛╤В ╤З╨╡╤А╨╜╨╛╨│╨╛. ╤В╨╛╨╗╤М╨║╨╛ ╨║╨░╤А╤В╨╕╨╜╨║╨░;