home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
games1
/
dcg303xa.zip
/
BEGGAR.SCR
< prev
next >
Wrap
Text File
|
1993-06-27
|
1KB
|
52 lines
!
! Default Beggar script..
!
! (c) DC Software, 1992
!
! Pending Enhancements
!
! - This script has no voices. For an example of voices, look at
! MERCHANT.SCR and HEALER.SCR
!
!------------------------------------------------------------------------!
:@TALK ! Talk to the character !
!------------------------------------------------------------------------!
if player.hp = 0 then
writeln( player.name, " is dead!" );
STOP;
endif;
if npc.picture >= 0 then
viewpcx(npc);
endif;
! First line of the text block is the greeting..
writeln( s1 );
L1 = select( "Give Money", "Leave" );
if L1 = 0 then
readtext( npc.text, random(15)+2 ); ! display one line (2-16) !
else
writeln( "Thanks for nothing.." );
if( group.gold > 50 ) then
dec( group.gold, random(50) );
else
dec( group.gold, group.gold );
endif;
writeln( "(the beggar bumps into you as you walk away..)" );
endif;
goto XSTOP;
!-----------------------------------------------------------------!
! All STOPs now lead here so the screen can be restored if needed !
!-----------------------------------------------------------------!
:XSTOP
if npc.picture >= 0 then
paint(window); ! Assumes the picture fits in the window !
endif;
STOP;