The ElderScrolls Morrowind Tribunal Teleport Script

KamparTribunalScript.txt

Begin KamparTribunalScript
short button
short messageOn
short reset
short OnPcEquip
;if ( MenuMode == 1 )
;	Return
;endif
;jika tidak dipasang, reset balik kan lagi 0
if ( OnPCEquip == 0 )
	set reset to 0
endif
; jika reset 1, DO NOTHING KARENA SCRIPT ITU LOOPING
if ( reset == 1 )
	return
endif
if ( OnPCEquip == 1 )
	if ( reset == 0 )
		Set OnPCEquip to 0
		MessageBox "Kampar ask you, where to?" "[Nowhere, CANCEL]" "[Imperial Cult]" "[Temple...]" "[Great Bazaar...]" "[Godsreach...]" "[Underworld...]"
		set messageOn to 1
	endif
endif
if ( messageOn == 1 )
	set button to GetButtonPressed
	if ( button >= 0 )
		set messageOn to 0
	endif
	if ( button == 0 ) ;nowhere
		set reset to 1
		return
	elseif ( button == 1 ) ;
		Player->PositionCell, 810.907,253.924,-127.916,-90 "Mournhold, Royal Palace: Imperial Cult Services"
		set reset to 1
	elseif ( button == 2 )
		MessageBox "[Temple], Where?" "[ x ]" " [ < ] " "[Temple Courtyard]" "Galsa Andrano (Healer)" "Gavas Drin" "[Temple Reception]" "Almalexia"
		set messageOn to 2
	elseif ( button == 3 )
		MessageBox "[Great Bazaar], Where?" " [ x ] " " [ < ] " "Ten-Tongues Weerhat (Pawnbroker)" "Catia Sosia (Armorer)" "Sanoso Sarothran (Bookseller)" "Belwen (Clothier)" "Ungeleb (Alchemist)" "Sunel Hlas (Trader)"
		set messageOn to 3
	elseif ( button == 4 )
		MessageBox "[Godsreach], Where?" " [ x ] " " [ < ] " "Elbert Nermarc (Enchanter)" "Bols Indalen (Smith)" "[Museum of Artifacts]" "Ra'Tesh (Trader)[The Winged Guar]"
		set messageOn to 4
	elseif ( button == 5 )
		MessageBox "[Underworld], Where?" " [ x ] " " [ < ] "  "Hloggar the Bloody [West Sewers]" "[Altmer Trainers]" "Sotha Sil, Dome of Kasia"
		set messageOn to 5
	endif
elseif ( messageOn == 2 )
	set button to GetButtonPressed
	if ( button >= 0 )
		set messageOn to 0
	endif
	if ( button == 0 )
		set reset to 1
		return
	elseif ( button == 1 ); previous
		MessageBox "Kampar ask you, where to?" "[Nowhere, CANCEL]" "[Imperial Cult]" "[Temple...]" "[Great Bazaar...]" "[Godsreach...]" "[Underworld...]"
		set messageOn to 1
	elseif ( button == 2 )
		Player->PositionCell, 8.561,-1910.942,430.966,0 "Mournhold, Temple Courtyard"
		set reset to 1
	elseif ( button == 3 )
		Player->PositionCell, 4103.440,4258.984,14848.061,0 "Mournhold Temple: Infirmary"
		set reset to 1
	elseif ( button == 4 )
		Player->PositionCell, -994.430,56.134,-206.315,-90 "Mournhold Temple: Office of the Lord Archcanon"
		set reset to 1
	elseif ( button == 5 )
		Player->PositionCell, 1.132,-478.096,-665.157,0 "Mournhold Temple: Reception Area"
		set reset to 1
	elseif ( button == 6 )
		Player->PositionCell, 1-17.814,-144.918,-538.598,0 "Mournhold Temple: High Chapel"
		set reset to 1
	endif
elseif ( messageOn == 3 )
	set button to GetButtonPressed
	if ( button >= 0 )
		set messageOn to 0
	endif
	if ( button == 0 )
		set reset to 1
		return
	elseif ( button == 1 ); previous
		MessageBox "Kampar ask you, where to?" "[Nowhere, CANCEL]" "[Imperial Cult]" "[Temple...]" "[Great Bazaar...]" "[Godsreach...]" "[Underworld...]"
		set messageOn to 1
	elseif ( button == 2 )
		Player->PositionCell, -0.947,21.356,-297.409,0 "Mournhold, Pawnbroker"
		set reset to 1
	elseif ( button == 3 )
		Player->PositionCell, 79.705,-69.621,-96.000,0 "Mournhold, Armory"
		set reset to 1
	elseif ( button == 4 )
		Player->PositionCell, -2.596,11.138,-296.351,0 "Mournhold, Bookseller"
		set reset to 1
	elseif ( button == 5 )
		Player->PositionCell, -1.193,0.706,-290.103,0 "Mournhold, Clothier"
		set reset to 1
	elseif ( button == 6 )
		Player->PositionCell, -130.573,231.858,-130.767,0 "Mournhold, Magic Shop"
		set reset to 1
	elseif ( button == 7 )
		Player->PositionCell, -7.063,5.675,-293.732,0 "Mournhold, Trader"
		set reset to 1
	endif
elseif ( messageOn == 4 )
	set button to GetButtonPressed
	if ( button >= 0 )
		set messageOn to 0
	endif
	if ( button == 0 )
		set reset to 1
		return
	elseif ( button == 1 ); previous
		MessageBox "Kampar ask you, where to?" "[Nowhere, CANCEL]" "[Imperial Cult]" "[Temple...]" "[Great Bazaar...]" "[Godsreach...]" "[Underworld...]"
		set messageOn to 1
	elseif ( button == 2 )
		Player->PositionCell, 92.688,218.029,169.521,-180 "Mournhold, Craftsmen's Hall"
		set reset to 1
	elseif ( button == 3 )
		Player->PositionCell, 49.530,1289.848,-92.670,0 "Mournhold, Craftsmen's Hall"
		set reset to 1
	elseif ( button == 4 )
		Player->PositionCell, -1.604,131.264,-46.099,0 "Mournhold, Museum of Artifacts"
		set reset to 1
	elseif ( button == 5 )
		Player->PositionCell, -334.544,475.176,-352.000,90  "Mournhold, The Winged Guar"
		set reset to 1
	endif
elseif ( messageOn == 5 )
	set button to GetButtonPressed
	if ( button >= 0 )
		set messageOn to 0
	endif
	if ( button == 0 )
		set reset to 1
		return
	elseif ( button == 1 ); previous
		MessageBox "Kampar ask you, where to?" "[Nowhere, CANCEL]" "[Imperial Cult]" "[Temple...]" "[Great Bazaar...]" "[Godsreach...]" "[Underworld...]"
		set messageOn to 1
	elseif ( button == 2 )
		Player->PositionCell, -103.423,12064.326,-886.710,-90 "Old Mournhold: West Sewers"
		set reset to 1
	elseif ( button == 3 )
		Player->PositionCell, 3502.325,2277.161,-383.911,0 "Old Mournhold: Teran Hall, East Bldg"
		set reset to 1
	elseif ( button == 4 )
		Player->PositionCell, -1120,128,728,0 "Sotha Sil, Dome of Kasia"
;		set reset to 1
;	elseif ( button == 5 )
;		Player->PositionCell, 
;		set reset to 1
	endif
endif
End

ADD a new teleport place, Dome of Kasia ...

this place is so special since there is no teleportation magic allowed ... but this grinding machine is useful if you can enchant a amulet with summoning Golden Saint like 5s. Summoned GS will stand near grinder, so it will killed instantly. Soultraping her with another amulet will provide you burst of soul. Every soultrap cast on animation will have soul returned. Bring tons of Grand Soulgem from Nemarc here ...