yk>VyBNdd ( @ (//(  0/80@0?/8 0( ?G@POWOXOP?H0@/7@O_``h_hPX 0(P_oppxow_g@O/8'' 7p`o?G/7 0??H/8`/o?GOX@H0?/pOW?H/8 7OP?G/7( P0@PX@O0@ 0O @H/@' 00@@P0?'_OP@H( 7/7' ^^^^^^^^^^^^^^^^^^^^^^^^^^TeeBBBBeTT^^^^^^^eBDJ33333JJDBeZ^^^^TD33==#####==3JDBT^^^^eJ=###=3DeZ^^TB3# #=3JBZ^^T3#  #=JBT^^J# Sll #=JBZ^T# %,68??86,/@A*< ##45('.6787-9%:;*<=#$+&,--.,/01)2 3 $%&&'%($!)* ##  !"#     ??dX@ spr_scroll_up Sxs5cf3 b(fdH@)o   rp#A4M {0C*_LŔM 0C O… Sxs5cf3 b(fdH@) W2dob=H #?WO ' 0 Qxs5cf3 b(fdH@)o   rpO b0$~S1CSD23ݩspr_scroll_down Pxs5cf3 b(fdH@)o   z8ꑃzãM M=V7 'H Oxs5cf3 b(fdH@) U"R= < s1cYp`s`IZ Oxs5cf3 b(fdH@)o   zkTA1z45\dBOP= Dݩsprite2dpco 5xM`Q.\+plSw\GY{pAXi-?\ 9IK07w|}:|f:^Oo^=nXBq<4ai\kK.[! \B.U ֭ `Vl 1zwZ!0G~r؟mŜ =[Ch'iPhPhPhPܩw!x!ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZc:NC1dW]vP@aW]vP@aW]vP@aW]vP@aW]vpZZZZZZZZZZZZZZZ/ hPhPhPhPV[xoPPvr ŭV k3 :Vp\B,.sq ,XZ!9__'P`\GV scr_addline{//name = scr_addline //maker = IsmAvatar //purpose = adds a line to texty (your dialogue box) //argument0 = the new text to be added //argument1 = the color for the text to be displayed in totlines += 1 for (m = totlines; m > 0 ; m -= 1) { global.texty[m] = global.texty[m-1] global.textcol[m] = global.textcol[m-1] } global.texty[0] = argument0 global.textcol[0] = argument1 scr_floodtexty`//name = scr_floodtexty //maker = IsmAvatar //purpose = floods texty (fills it up with the same thing) //argument0 = the text to flood the box with. //An empty string clears the box //argument1 = the color to flood the box with. totlines = 0 current_line = 0 for (m = 0; m < 10 ; m += 1) { global.texty[m] = argument0 global.textcol[m] = argument1 }  scr_drawtexty<//define the corner locations left = argument0 top = argument1 right = argument2 bottom = argument3 //draw the chat boxes font_name = "courier" font_size = 12 font_align = fa_left brush_style = bs_hollow pen_color = c_blue draw_rectangle(left,top,right,bottom-24) draw_rectangle(left,bottom-24,right,bottom) //draw the chat font_color = c_lime if global.cursor_blink { draw_text( left+4, bottom-23, string_copy( keyboard_string +"|", string_length(keyboard_string)-30, string_length(keyboard_string +"|") ) ) } else { draw_text( left+4, bottom-23, string_copy( keyboard_string, string_length(keyboard_string)-30, string_length(keyboard_string) ) ) } for (t=2; t>-1; t-=1) { font_color = global.textcol[current_line+t] draw_text(left+4,top-13+((3-t)*16),global.texty[current_line+t]) }scr_mb_release/* Mouse_release this code returns 1 if the mouse was pressed over the object that executed this code when the mouse is released over the same object argument0 should be the mouse button, mb_left, middle, right, any, or none place in step event in any object's create event, initialize with the following code: with all { for (i = -1; i < 4; i += 1) { press[i+1] = 0 release[i+1] = 1 press_meet[i+1] = 0 } } */ if mouse_check_button(argument0) { if position_meeting(mouse_x,mouse_y,self) && press[argument0+1] = 0 { press_meet[argument0+1] = 1 } if press[argument0+1] = 0 { press[argument0+1] = 1 } release[argument0+1] = 0 } else { if release[argument0+1] = 0 { release[argument0+1] = 1 } press[argument0+1] = 0 if position_meeting(mouse_x,mouse_y,self) && release[argument0+1] = 1 { if press_meet[argument0+1] = 1 { press_meet[argument0+1] = 0 return 1 } } else { press_meet[argument0+1] = 0 } } return 0 obj_dialogue [scr_floodtexty("",0) instance_create(x+322,y+17,obj_scroll_up) instance_create(x+322,y+54,obj_scroll_down) global.playername = get_string("What is your name?","Player") //initialize scr_mb_release with all { for (i = -1; i < 4; i += 1) { press[i+1] = 0 release[i+1] = 1 press_meet[i+1] = 0 } } //set the cursor blink rate registry_set_root(3) global.cursor_blink = 0 if !registry_exists_ext("HKEY_CURRENT_USER\Control Panel\Desktop","CursorBlinkRate") { zz = 700 } else { zz = registry_read_real_ext("HKEY_CURRENT_USER\Control Panel\Desktop","CursorBlinkRate") } if zz != -1 { zz = zz/1200 zz = room_speed * zz alarm[0] = zz }0000000[_//this handles the cursor blinking global.cursor_blink = !global.cursor_blink alarm[0] = zz0000000[//sets the maximum length to 75, since keyboard_string does it poorly. if string_length(keyboard_string) >= 75 { keyboard_string = string_copy(keyboard_string,1,75) }0000000[idraw_sprite(sprite_index,image_single,x,y) scr_drawtexty(x+17,y+17,x+sprite_width-17,y+sprite_height-17)0000000 [//this will take the text you just wrote, place word_wrap on it, and submit it if keyboard_string = "" exit kkk = string_length(string(global.playername)+": ") scr_addline( string(global.playername) +": " +string_copy(keyboard_string,1,30-kkk),c_lime ) hhh = 30 while (string_length(keyboard_string)+kkk) > hhh { scr_addline( string_copy(keyboard_string,hhh-kkk+1,30), c_lime ) hhh += 30 } keyboard_string = ""0000000 obj_scroll_up [%if scr_mb_release(mb_left) && obj_dialogue.current_line < (obj_dialogue.totlines-3) { obj_dialogue.current_line += 1 } if obj_dialogue.current_line >= obj_dialogue.totlines-3 { image_single = 2 } else { image_single = press_meet[mb_left+1] * position_meeting(mouse_x,mouse_y,self) }0000000obj_scroll_down [if scr_mb_release(mb_left) && obj_dialogue.current_line>0 { obj_dialogue.current_line -= 1 } if obj_dialogue.current_line<=0 { image_single = 2 } else { image_single = press_meet[mb_left+1] * position_meeting(mouse_x,mouse_y,self) }0000000room0dp        {\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Arial;}} {\colortbl ;\red0\green0\blue0;} \viewkind4\uc1\pard\cf1\f0\fs24 \par }  Sprites spr_scroll_upspr_scroll_downsprite2Sounds BackgroundsPathsScriptsdialogue scr_addlinescr_floodtexty scr_drawtextyscr_mb_release Data Files Time LinesObjects obj_dialogue obj_scroll_upobj_scroll_downRoomsroom0 Game Information Game Options