pokecrystal-board/engine/events/misc_scripts.asm

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

FindItemInBallScript::
	callasm .TryReceiveItem
	iffalse .no_room
	disappear LAST_TALKED
	opentext
	writetext .FoundItemText
	playsound SFX_ITEM
	pause 60
	itemnotify
	closetext
	end

.no_room
	opentext
	writetext .FoundItemText
	waitbutton
	writetext .CantCarryItemText
	waitbutton
	closetext
	end

.FoundItemText:
	text_far _FoundItemText
	text_end

.CantCarryItemText:
	text_far _CantCarryItemText
	text_end

.TryReceiveItem:
	xor a
	ld [wScriptVar], a
	ld a, [wItemBallItemID]
	ld [wNamedObjectIndexBuffer], a
	call GetItemName
	ld hl, wStringBuffer3
	call CopyName2
	ld a, [wItemBallItemID]
	ld [wCurItem], a
	ld a, [wItemBallQuantity]
	ld [wItemQuantityChangeBuffer], a
	ld hl, wNumItems
	call ReceiveItem
	ret nc
	ld a, $1
	ld [wScriptVar], a
	ret
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`Script_AbortBugContest:`
Move some more main.asm routines into individual files 2017-12-16 16:00:50 -08:00			`checkflag ENGINE_BUG_CONTEST_TIMER`
			`iffalse .finish`
			`setflag ENGINE_DAILY_BUG_CONTEST`
Remove Special_ prefix from special routines (close #478) 2018-01-24 08:17:05 -08:00			`special ContestReturnMons`
Move some more main.asm routines into individual files 2017-12-16 16:00:50 -08:00			`.finish`
			`end`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`FindItemInBallScript::`
Further split bank 4 2015-11-11 13:11:08 -08:00			`callasm .TryReceiveItem`
			`iffalse .no_room`
			`disappear LAST_TALKED`
opentext and breeding 2015-12-09 15:25:44 -08:00			`opentext`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`writetext .FoundItemText`
Further split bank 4 2015-11-11 13:11:08 -08:00			`playsound SFX_ITEM`
			`pause 60`
			`itemnotify`
Rename several script commands 2015-11-25 07:16:29 -08:00			`closetext`
Further split bank 4 2015-11-11 13:11:08 -08:00			`end`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.no_room`
opentext and breeding 2015-12-09 15:25:44 -08:00			`opentext`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`writetext .FoundItemText`
Rename several script commands 2015-11-25 07:16:29 -08:00			`waitbutton`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`writetext .CantCarryItemText`
Rename several script commands 2015-11-25 07:16:29 -08:00			`waitbutton`
Further split bank 4 2015-11-11 13:11:08 -08:00			`closetext`
			`end`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`.FoundItemText:`
			`text_far _FoundItemText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Further split bank 4 2015-11-11 13:11:08 -08:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`.CantCarryItemText:`
			`text_far _CantCarryItemText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Further split bank 4 2015-11-11 13:11:08 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`.TryReceiveItem:`
Further split bank 4 2015-11-11 13:11:08 -08:00			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wScriptVar], a`
Identify and eliminate wEngineBuffer1-5 2019-04-08 15:50:10 -07:00			`ld a, [wItemBallItemID]`
Events and some WRAM cleanup 2015-12-18 17:07:09 -08:00			`ld [wNamedObjectIndexBuffer], a`
Further split bank 4 2015-11-11 13:11:08 -08:00			`call GetItemName`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wStringBuffer3`
Further split bank 4 2015-11-11 13:11:08 -08:00			`call CopyName2`
Identify and eliminate wEngineBuffer1-5 2019-04-08 15:50:10 -07:00			`ld a, [wItemBallItemID]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurItem], a`
Identify and eliminate wEngineBuffer1-5 2019-04-08 15:50:10 -07:00			`ld a, [wItemBallQuantity]`
Further split bank 4 2015-11-11 13:11:08 -08:00			`ld [wItemQuantityChangeBuffer], a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wNumItems`
Further split bank 4 2015-11-11 13:11:08 -08:00			`call ReceiveItem`
			`ret nc`
			`ld a, $1`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wScriptVar], a`
Further split bank 4 2015-11-11 13:11:08 -08:00			`ret`