pokecrystal/engine/events/misc_scripts.asm

Script_AbortBugContest: ; 0x122c1
	checkflag ENGINE_BUG_CONTEST_TIMER
	iffalse .finish
	setflag ENGINE_DAILY_BUG_CONTEST
	special ContestReturnMons
.finish
	end

FindItemInBallScript:: ; 0x122ce
	callasm .TryReceiveItem
	iffalse .no_room
	disappear LAST_TALKED
	opentext
	writetext .text_found
	playsound SFX_ITEM
	pause 60
	itemnotify
	closetext
	end
; 0x122e3

.no_room ; 0x122e3
	opentext
	writetext .text_found
	waitbutton
	writetext .text_bag_full
	waitbutton
	closetext
	end
; 0x122ee

.text_found ; 0x122ee
	; found @ !
	text_jump UnknownText_0x1c0a1c
	db "@"
; 0x122f3

.text_bag_full ; 0x122f3
	; But   can't carry any more items.
	text_jump UnknownText_0x1c0a2c
	db "@"
; 0x122f8

.TryReceiveItem:
	xor a
	ld [wScriptVar], a
	ld a, [wEngineBuffer1]
	ld [wNamedObjectIndexBuffer], a
	call GetItemName
	ld hl, wStringBuffer3
	call CopyName2
	ld a, [wEngineBuffer1]
	ld [wCurItem], a
	ld a, [wCurFruit]
	ld [wItemQuantityChangeBuffer], a
	ld hl, wNumItems
	call ReceiveItem
	ret nc
	ld a, $1
	ld [wScriptVar], a
	ret
Move some more main.asm routines into individual files 2017-12-17 00:00:50 +00:00			`Script_AbortBugContest: ; 0x122c1`
			`checkflag ENGINE_BUG_CONTEST_TIMER`
			`iffalse .finish`
			`setflag ENGINE_DAILY_BUG_CONTEST`
Remove Special_ prefix from special routines (close #478) 2018-01-24 16:17:05 +00:00			`special ContestReturnMons`
Move some more main.asm routines into individual files 2017-12-17 00:00:50 +00:00			`.finish`
			`end`

Further split bank 4 2015-11-11 21:11:08 +00:00			`FindItemInBallScript:: ; 0x122ce`
			`callasm .TryReceiveItem`
			`iffalse .no_room`
			`disappear LAST_TALKED`
opentext and breeding 2015-12-09 23:25:44 +00:00			`opentext`
Further split bank 4 2015-11-11 21:11:08 +00:00			`writetext .text_found`
			`playsound SFX_ITEM`
			`pause 60`
			`itemnotify`
Rename several script commands 2015-11-25 15:16:29 +00:00			`closetext`
Further split bank 4 2015-11-11 21:11:08 +00:00			`end`
			`; 0x122e3`

Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 19:01:49 +00:00			`.no_room ; 0x122e3`
opentext and breeding 2015-12-09 23:25:44 +00:00			`opentext`
Further split bank 4 2015-11-11 21:11:08 +00:00			`writetext .text_found`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Further split bank 4 2015-11-11 21:11:08 +00:00			`writetext .text_bag_full`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Further split bank 4 2015-11-11 21:11:08 +00:00			`closetext`
			`end`
			`; 0x122ee`

Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 19:01:49 +00:00			`.text_found ; 0x122ee`
Further split bank 4 2015-11-11 21:11:08 +00:00			`; found @ !`
			`text_jump UnknownText_0x1c0a1c`
			`db "@"`
			`; 0x122f3`

Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 19:01:49 +00:00			`.text_bag_full ; 0x122f3`
Further split bank 4 2015-11-11 21:11:08 +00:00			`; But can't carry any more items.`
			`text_jump UnknownText_0x1c0a2c`
			`db "@"`
			`; 0x122f8`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.TryReceiveItem:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
			`ld a, [wEngineBuffer1]`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld [wNamedObjectIndexBuffer], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call GetItemName`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wStringBuffer3`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call CopyName2`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wEngineBuffer1]`
			`ld [wCurItem], a`
			`ld a, [wCurFruit]`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ld [wItemQuantityChangeBuffer], a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wNumItems`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call ReceiveItem`
			`ret nc`
			`ld a, $1`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ret`