scene1.txt

大型3D游戏设计制作详析及源代码对于想了解游戏设计的程序来说

; －－－－－－－－－－－－－－－－－－－－
PROC 303
; 找到包子事件在地图上的关联脚本
CALL find_包子 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_包子
FIND 包子 <size=12>我家小店卖的<color=255>大肉包</p><color=16777215>绝对是薄利多销</p>乡亲们可喜欢了 生命力 50
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC 304
; 找到梨花酒事件在地图上的关联脚本
CALL find_梨花酒 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_梨花酒
FIND 梨花酒 <size=12>酒窖里找来的<color=255>梨花酒</p><color=16777215>有一股清香的味道</p>就是可惜没有翡翠杯 魔法力 100
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC 305
; 找到西域烤肉事件在地图上的关联脚本
CALL find_西域烤肉 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_西域烤肉
FIND 西域烤肉 <size=12>西域商人带来的<color=255>烤羊腿</p><color=16777215>风味正宗得很啊！ 生命力 100
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC 306
; 找到西湖痞酒事件在地图上的关联脚本
CALL find_西湖痞酒 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_西湖痞酒
FIND 西湖痞酒 <size=12>酒窖里找来的<color=255>西湖痞酒</p><color=16777215>俺也不知道这是啥酒就</p>看见标签贴着"西湖痞酒" 魔法力 100
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC 307
; 找到百味酒事件在地图上的关联脚本
CALL find_百味酒 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_百味酒
FIND 百味酒 <size=12>酒窖里找来的<color=255>百味酒</p><color=16777215>我觉得这酒简直就不是</p>酒，这是什么味啊！ 魔法力 50
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC 308
; 找到梅花酒事件在地图上的关联脚本
CALL find_梅花酒 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_梅花酒
FIND 梅花酒 <size=12>酒窖里找来的<color=255>梅花酒</p><color=16777215>怪淡的，没什么味儿 魔法力 10
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC 309
; 找到臭豆腐事件在地图上的关联脚本
CALL find_臭豆腐 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_臭豆腐
FIND 臭豆腐 <size=12>我家小店卖的<color=255>臭豆腐</p><color=16777215>臭得就不行啊！没吃过</p>的人有昏倒的危险！ 生命力 20
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC 310
; 找到菜刀事件在地图上的关联脚本
CALL find_菜刀 CALLEND
NEXTEVENT 1
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC find_菜刀
FIND 菜刀 <size=11>貌似一把普通的<color=255>菜刀</p><color=16777215>没什么特别的。 生命力 0
WAITKEY
FINDCLOSE
RET 
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight
; 战斗脚本 %1-player    %2-npc
CALL fight_%2 %1 CALLEND
RET
END
; －－－－－－－－－－－－－－－－－－－－
; 用来角色介绍的脚本
PROC show
ACTORSHOW %1
WAITKEY
CLOSESHOW
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_管家
IF 牛二.技能 HAS 法术：如沐春风 THEN GOTO 管家_final ELSE NOOP ENDIF
STARTFIGHT %1 管家
SAY 管家 牛二 <size=12>“少爷，既然您想和俺练练手，老奴就不客气了。”
WAITKEY
SHUTUP
FIGHTMENU
IF 管家.生命力 > 0 THEN NPCFIGHT 管家 %1 ELSE JMP 2 ENDIF
IF %1.生命力 > 0 THEN JMP -3 ELSE GOTO 管家_teach ENDIF
RET
SAY 管家 %1 <size=12>“少爷，您，您的武功进境不凡呐！”
WAITKEY
; 涨经验1000点
INCEXP 1000
SHUTUP
KILLACTOR 管家
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC 管家_teach
SAY 牛二 管家 <size=12>“大叔，真看不出来，您，您怎么有这么高深的武功啊！”
WAITKEY
SAY 管家 牛二 <size=12>“少爷，您这样怎么能应付江湖险恶呢，老奴教你一招吧。”
WAITKEY
SHUTUP
LEARN 牛二 法术：如沐春风 内定 -10
WAITKEY
LEARNEND
SET 牛二 生命力 10
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC 管家_final
SAY 管家 牛二 “少爷，该教的我都教给你了，你还想干啥？”
WAITKEY
SHUTUP
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_厨师
SAY 厨师 %1 <size=12>“少爷，我老黄也不懂啥子武功，您就别拿我开玩笑了。”
WAITKEY
SHUTUP
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_栓柱
CLOSEINPUTS
STARTFIGHT %1 栓柱
SAY 栓柱 %1 <size=12>“小子，你斗鸡欠钱不还，还来找事？今天要好好教训教训你！”
WAITKEY
SHUTUP
NOOP
OPENINPUTS
FIGHTMENU
CLOSEINPUTS
IF 栓柱.生命力 > 0 THEN NPCFIGHT 栓柱 %1 ELSE JMP 3 ENDIF
IF %1.生命力 > 0 THEN JMP -6 ELSE ENDFIGHT %1 ENDIF
OPENINPUTS
RET
OPENINPUTS
SAY 栓柱 %1 <size=12>“小子，你，你什么时候练成了这非凡的武功……”
WAITKEY
; 涨经验300点
INCEXP 300
SHUTUP
KILLACTOR 栓柱
CALL find_西域烤肉 CALLEND
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_虫老大
STARTFIGHT %1 虫老大
CLOSEINPUTS
SAY 虫老大 %1 <size=12>“俺叫虫老大，不斩无名之将，来将且报上姓名。”
WAITKEY
SHUTUP
OPENINPUTS
FIGHTMENU
CLOSEINPUTS
IF 虫老大.生命力 > 0 THEN NPCFIGHT 虫老大 %1 ELSE JMP 3 ENDIF
IF %1.生命力 > 0 THEN JMP -5 ELSE ENDFIGHT %1 ENDIF
OPENINPUTS
RET
OPENINPUTS
SAY 虫老大 %1 <size=12>“今天算是栽了……不过你小子也别得意，杀了虫老</p>大，还有虫老二！”
WAITKEY
; 涨经验30点
INCEXP 100
SHUTUP
KILLACTOR 虫老大
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_虫老二
STARTFIGHT %1 虫老二
CLOSEINPUTS
SAY 虫老二 %1 <size=12>“俺叫虫老二，虫老大是我们头儿，你是不是欺负我们老大了？！”
WAITKEY
SHUTUP
OPENINPUTS
FIGHTMENU
CLOSEINPUTS
IF 虫老二.生命力 > 0 THEN NPCFIGHT 虫老二 %1 ELSE JMP 3 ENDIF
IF %1.生命力 > 0 THEN JMP -5 ELSE ENDFIGHT %1 ENDIF
OPENINPUTS
RET
OPENINPUTS
SAY 虫老二 %1 <size=12>“今天算是栽了……不过你小子也别得意，杀了我老二，</p>还有老五！”
WAITKEY
; 涨经验30点
INCEXP 80
SHUTUP
KILLACTOR 虫老二
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_虫老五
STARTFIGHT %1 虫老五
CLOSEINPUTS
SAY 虫老五 %1 <size=12>“俺叫虫老五，虫老大是我大哥，虫老二是我二哥，</p>你是不是欺负他们了？！”
WAITKEY
SHUTUP
OPENINPUTS
FIGHTMENU
CLOSEINPUTS
IF 虫老五.生命力 > 0 THEN NPCFIGHT 虫老五 %1 ELSE JMP 3 ENDIF
IF %1.生命力 > 0 THEN JMP -5 ELSE ENDFIGHT %1 ENDIF
OPENINPUTS
RET
OPENINPUTS
SAY 虫老五 %1 <size=12>“今天算是栽了……不过你小子也别得意，杀了我老五，</p>还有阿三！”
WAITKEY
; 涨经验30点
INCEXP 100
SHUTUP
KILLACTOR 虫老五
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_虫阿三
STARTFIGHT %1 虫阿三
CLOSEINPUTS
SAY 虫阿三 %1 <size=12>“我就是阿三了，虫老大是我大哥，虫老二是我二哥，</p>还有个什么老五，你是不是欺负他们了？！”
WAITKEY
SHUTUP
OPENINPUTS
FIGHTMENU
CLOSEINPUTS
IF 虫阿三.生命力 > 0 THEN NPCFIGHT 虫阿三 %1 ELSE JMP 3 ENDIF
IF %1.生命力 > 0 THEN JMP -5 ELSE ENDFIGHT %1 ENDIF
OPENINPUTS
RET
OPENINPUTS
SAY 虫阿三 %1 <size=12>“今天算是栽了……我们四兄弟不会白死的，</p>带头大哥不会放过你小子！”
WAITKEY
; 涨经验30点
INCEXP 125
SHUTUP
KILLACTOR 虫阿三
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC fight_虎头怪
DISABLE_AUTO_ATTACK 虎头怪
SPEAK .\\speak\\6-3
CLOSEINPUTS
SAY 虎头怪 %1 “你，做甚？！”
WAITKEY
SPEAK .\\speak\\6-4
SAY %1 虎头怪 “我，我……”
WAITKEY
SPEAK .\\speak\\6-5
SAY 虎头怪 %1 “你来找死？！”
WAITKEY
SHUTUP
STARTFIGHT %1 虎头怪
OPENINPUTS
FIGHTMENU
CLOSEINPUTS
IF 虎头怪.生命力 > 0 THEN NPCFIGHT 虎头怪 %1 ELSE JMP 3 ENDIF
IF %1.生命力 > 0 THEN JMP -5 ELSE ENDFIGHT %1 ENDIF
OPENINPUTS
RET
CLOSEINPUTS
SAY 虎头怪 %1 <size=12>“挂了……”
WAITKEY
SHUTUP
DISABLEACTOR 虎头怪
KILLACTOR 虎头怪
THEEND
SHOWTEXT <size=12>找到一封信，好像是父亲</p>大人的笔迹……
WAITKEY
CLOSESHOW
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC escape_success
CLOSEINPUTS
SAY %1 %2 <size=12>“哼哼，打不过，还躲不过吗？我溜～”
DISABLE_AUTO_ATTACK %2
WAITKEY
SAY %2 %1 <size=12>“大人不计小人过，今日我%2且放你一马。”
WAITKEY
SHUTUP
OPENINPUTS
ENDFIGHT
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC escape_fail
CLOSEINPUTS
SAY %2 %1 <size=12>“想溜？哪有那么容易！你以为我%2会轻易放过你么。”
WAITKEY
SAY %1 %2 <size=12>“这下真要死了~~~~><~~~~”
WAITKEY
SHUTUP
OPENINPUTS
RET
END
; －－－－－－－－－－－－－－－－－－－－
PROC Die_event
STOPMUSIC
LOADMUSIC aiyue.mp3
PLAYMUSIC
SHOW_STA
WAITKEY
CLOSESHOW
STOPMUSIC
END
; －－－－－－－－－－－－－－－－－－－－
PROC empty
; 空事件
RET
END
; 所有事件结束
PROC END